论文网
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲
本论文是一篇数据库有关毕业论文提纲,关于高校学生宿舍管理系统相关毕业论文开题报告范文。免费优秀的关于数据库及管理系统及宿舍管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
#58;等于DataMd.ADOConnection,ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudentwhereDor_Id等于'''+Edit3.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,
edit3.Text:等于'',
Edit3.SelectAll,
exit,
end,
DormId:等于Edit3.Text,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudent'),
ADOId.SQL.Add('whereDor_Id等于'''+DormId+''''),
ADOId.Prepared,
ADOId.Open,
edit3.Text:等于'',
end,
procedureTDemandForm.BitBtn3Click(Sender:TObject),
begin
close,
end,
end,
4.按班级进行查询
procedureTDemandForm.Button4Click(Sender:TObject),
varStuClass:string,
begin
ifedit4.Text等于''then
begin
messagedlg('请输入该生所在班级！',mtinformation,[mbok],0),
exit,
end,
ADOId.Connection:等于DataMd.ADOConnection,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudentwherestu_Class等于'''+Edit4.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,
edit4.Text:等于'',
Edit4.SelectAll,
exit,
end,
StuClass:等于Edit4.Text,
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudent'),
ADOId.SQL.Add('whereStu_Class等于'''+edit4.Text+''''),
ADOId.Prepared,
ADOId.Open,
edit4.Text:等于'',
end,
procedureTDemandForm.BitBtn4Click(Sender:TObject),
begin
close,
end,
procedureTDemandForm.PageControl1Change(Sender:TObject),
begin
ADOId.Close,
ADOId.SQL.Clear,
ADOId.SQL.Add('select*fromstudent'),
ADOId.Prepared,
ADOId.Open,
end,
end.
5.住宿查询源代码
procedureTQueDormForm.BitBtn2Click(Sender:TObject),
begin
close,
end,
procedureTQueDormForm.BitBtn1Click(Sender:TObject),
begin
ifRadioGroup1.ItemIndex等于0then
begin
ifEdit1.Text等于''then
begin
MessageBox(handle,'请输入查询条件！','警告',MB_OK+MB_ICONWARNING),
Edit1.SetFocus,
exit,
end,
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromdormwhereDor_Idlike'''+edit1.text+'%''and'),
ADOQuery1.SQL.Add('dor_fact<,dor_num'),
ADOQuery1.Prepared,
ADOQuery1.Open,
edit1.Text:等于'',
END
else
begin
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromdormwhereDor_Id等于'''+edit1.Text+'''and'),
ADOQuery1.SQL.Add('dor_fact<,dor_num'),
ADOQuery1.Prepared,
ADOQuery1.Open,
edit1.Text:等于'',
end,
end,
procedureTQueDormForm.RadioGroup1Click(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromdorm'),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
procedureTQueDormForm.BitBtn4Click(Sender:TObject),
begin
ifEdit1.Text等于''then
begin
MessageBox(handle,'请输入您所要统计的楼房号！','警告',MB_OK+MB_ICONWARNING),
Edit1.SetFocus,
exit,
end,
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('SELECTSUM(Dor_Fact)assummyFROMDormWHERE(Dor_IDLIKE'''+edit1.text+'%'')'),
ADOQuery1.Prepared,
ADOQuery1.Open,
memo1.Lines.Add('该楼房学生总人数:'),
Memo1.Lines.Add(adoquery1.FieldValues['summy']),
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromdormwhereDor_Idlike'''+edit1.text+'%'''),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
procedureTQueDormForm.FormShow(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromdorm'),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
end.
------------------------------报表管理模块源代码---------------------------
1.学生信息报表
procedureTReportForm1.BitBtn1Click(Sender:TObject),
begin
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('select*fromstudentwherestu_Id等于'''+Edit1.Text+''''),
Adoquery1.Prepared,
Adoquery1.Open,
ifAdoquery1.Eofthen
begin
MessageBox(handle,'无该学号,请重新输入！','警告',MB_OK+MB_ICONWARNING),
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('select*fromstudent'),
Adoquery1.Open,
edit1.Text:等于'',
Edit1.SelectAll,
exit,
end,
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('select*fromstudentwherestu_Id等于'''+edit1.text+''''),
Adoquery1.Open,
edit1.Text:等于'',
end,
procedureTReportForm1.BitBtn2Click(Sender:TObject),
begin
baobiaoform1.QuickRep1.Preview,
end,
procedureTReportForm1.BitBtn3Click(Sender:TObject),
begin
ifapplication.MessageBox('是否现在打印宿舍信息报表单','确认',MB_OKCANCEL)等于IDOKTHEN
BaobiaoForm1.QuickRep1.Print,
end,
procedureT
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲参考文献资料：