论文网
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲
本论文是一篇数据库有关毕业论文提纲,关于高校学生宿舍管理系统相关毕业论文开题报告范文。免费优秀的关于数据库及管理系统及宿舍管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
能为空,请输入！',mtinformation,[mbok],0),edit1.SetFocus,
exit,
end,
ifedit2.Text等于''then
begin
messagedlg('员工姓名不能为空,请输入！',mtinformation,[mbok],0),
edit2.SetFocus,
exit,
end,
ifComboBox3.Text等于''then
begin
messagedlg('请为员工选择所管理的楼房,请输入！',mtinformation,[mbok],0),
ComboBox3.SetFocus,
exit,
end,
ifComboBox2.Text等于''then
begin
messagedlg('员工职位不能为空,请输入！',mtinformation,[mbok],0),
ComboBox2.SetFocus,
exit,
end,
//判断员工编号是否已经存在
ifDataMD.ADOEmployee.Locate('Emp_Id',edit1.text,[])等于falsethen
withDataMD.ADOEmployeedo
begin
append,datamd.ADOEmployee.FieldByName('Emp_Id').AsString:等于trim(edit1.Text),datamd.ADOEmployee.FieldByName('Emp_Name').AsString:等于trim(edit2.Text),datamd.ADOEmployee.FieldByName('Emp_Age').AsString:等于trim(edit4.Text),datamd.ADOEmployee.FieldByName('Emp_sex').AsString:等于trim(ComboBox1.Text),datamd.ADOEmployee.FieldByName('Hou_Id').AsString:等于trim(ComboBox3.Text),datamd.ADOEmployee.FieldByName('Emp_Job').AsString:等于trim(ComboBox2.Text),datamd.ADOEmployee.FieldByName('Emp_Add').AsString:等于trim(edit3.Text),datamd.ADOEmployee.FieldByName('Emp_Tel').AsString:等于trim(edit6.Text),datamd.ADOEmployee.FieldByName('Emp_Des').AsString:等于trim(edit7.Text),
IfMessageDlg('请确认些记录是否正确',mtconfirmation,[mbYes,mbNo],0)等于mrYesthenbegin
post,
refresh,
messagedlg('数据已成功入库！',mtinformation,[mbok],0),
edit1.Clear,
edit2.Clear,
edit4.Clear,
ComboBox1.Clear,
ComboBox3.Clear,
ComboBox2.Clear,
edit3.Clear,
edit6.Clear,
edit7.Clear,
edit1.SetFocus,//获得焦点
end
else
cancel,
edit1.Clear,
edit2.Clear,
edit4.Clear,
ComboBox1.Clear,
ComboBox3.Clear,
ComboBox2.Clear,
edit3.Clear,
edit6.Clear,
edit7.Clear,
edit1.SetFocus,
end
else
messagedlg('记录已经存在,请从新输入！',mterror,[mbok],0),
edit1.Clear,
edit2.Clear,
edit4.Clear,
ComboBox1.Clear,
ComboBox3.Clear,
ComboBox2.Clear,
edit3.Clear,
edit6.Clear,
edit7.Clear,
edit1.SetFocus,//获得焦点
end,
procedureTEmployeeForm.Button3Click(Sender:TObject),
begin
close,
end,
end.
----------------------------------信息查询模块源代码------------------------------
| 有关论文范文主题研究: | 关于数据库的论文范文 | 大学生适用: | 研究生毕业论文、自考论文 |
|---|---|---|---|
| 相关参考文献下载数量: | 29 | 写作解决问题: | 学术论文怎么写 |
| 毕业论文开题报告: | 论文提纲、论文题目 | 职称论文适用: | 技师论文、高级职称 |
| 所属大学生专业类别: | 学术论文怎么写 | 论文题目推荐度: | 免费选题 |
1.按学号进行查询
procedureTDemandForm.Button1Click(Sender:TObject),
varStuId:string,
begin
ifedit1.Text等于''then
begin
messagedlg('请输入所要查询学生的学号！',mtinformation,[mbok],0),
exit,
end,
//检查系统中是否存在该学号的学生
ADOId.Connection:等于DataMd.ADOConnection,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudentwherestu_id等于'''+Edit1.Text+''''),
ADOId.Prepared,
ADOId.Open,
ifADOId.Eofthen
begin
MessageBox(handle,'该学号的学生信息不存在,请重新输入！','警告',MB_OK+MB_ICONWARNING),
Datamd.ADOStudent.Close,
Datamd.ADOStudent.SQL.Clear,
Datamd.ADOStudent.SQL.Add('select*fromenroll'),
Datamd.ADOStudent.Prepared,
Datamd.ADOStudent.Open,
edit1.Text:等于'',
Edit1.SelectAll,
exit,
end,
StuId:等于Edit1.Text,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudent'),
ADOId.SQL.Add('whereStu_Id等于'''+StuId+''''),
ADOId.Prepared,
ADOId.Open,
edit1.Text:等于'',
end,
procedureTDemandForm.BitBtn1Click(Sender:TObject),
begin
close,
end,
end,
2.按姓名进行查询
procedureTDemandForm.Button2Click(Sender:TObject),
varStuName:string,
begin
ifedit2.Text等于''then
begin
messagedlg('请输入所要查询学生的姓名！',mtinformation,[mbok],0),
exit,
end,
ADOId.Connection:等于DataMd.ADOConnection,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudentwherestu_Name等于'''+Edit2.Text+''''),
ADOId.Prepared,
ADOId.Open,
ifADOId.Eofthen
begin
MessageBox(handle,'该姓名的学生信息不存在,请重新输入！','警告',MB_OK+MB_ICONWARNING),
Datamd.ADOStudent.Close,
Datamd.ADOStudent.SQL.Clear,
Datamd.ADOStudent.SQL.Add('select*fromenroll'),
Datamd.ADOStudent.Prepared,
Datamd.ADOStudent.Open,
edit2.Text:等于'',
Edit2.SelectAll,
exit,
end,
StuName:等于Edit2.Text,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudent'),
ADOId.SQL.Add('whereStu_Name等于'''+StuName+''''),
ADOId.Prepared,
ADOId.Open,
edit2.Text:等于'',
end,
procedureTDemandForm.BitBtn2Click(Sender:TObject),
begin
close,
end,
end,
3.按寝室号进行查询
procedureTDemandForm.Button3Click(Sender:TObject),
varDormId:string,
begin
ifedit3.Text等于''then
begin
messagedlg('请输入该生所住寝室号！',mtinformation,[mbok],0),
exit,
end,
ADOId.Connection&
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲参考文献资料：