论文网
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲
本论文是一篇数据库有关毕业论文提纲,关于高校学生宿舍管理系统相关毕业论文开题报告范文。免费优秀的关于数据库及管理系统及宿舍管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
ReportForm1.BitBtn4Click(Sender:TObject),begin
close,
end,
procedureTReportForm1.FormShow(Sender:TObject),
begin
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('select*fromstudent'),
Adoquery1.Open,
end,
end.
2.宿舍信息报表
procedureTReportForm2.BitBtn1Click(Sender:TObject),
begin
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,stu_Study,stu_class,stu_telfromstudentwheredor_Id等于'''+Edit1.Text+''''),
Adoquery1.Prepared,
Adoquery1.Open,
ifAdoquery1.Eofthen
begin
MessageBox(handle,'无该宿舍号,请重新输入！','警告',MB_OK+MB_ICONWARNING),
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,stu_Study,stu_class,stu_telfromstudent'),
Adoquery1.Open,
edit1.Text:等于'',
Edit1.SelectAll,
exit,
end,
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,stu_Study,stu_class,stu_telfromstudentwhereDor_Id等于'''+edit1.text+''''),
ADOQuery1.Prepared,
ADOQuery1.Open,
edit1.Text:等于'',
end,
procedureTReportForm2.BitBtn2Click(Sender:TObject),
begin
baobiaoForm2.QuickRep1.Preview,
end,
procedureTReportForm2.BitBtn3Click(Sender:TObject),
begin
ifapplication.MessageBox('是否现在打印宿舍信息报','',MB_OKCANCEL)等于IDOKTHEN
BaobiaoForm2.QuickRep1.Print,
end,
procedureTReportForm2.BitBtn4Click(Sender:TObject),
begin
close,
end,
procedureTReportForm2.FormShow(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,stu_Study,stu_class,stu_telfromstudent'),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
end.
3.缴费情况报表
procedureTReportForm3.BitBtn1Click(Sender:TObject),
begin
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,Enr_Sta,enr_price,Enr_YearfromEnrollwhereEnr_sta等于'''+Edit1.Text+''''),
Adoquery1.Prepared,
Adoquery1.Open,
ifAdoquery1.Eofthen
begin
MessageBox(handle,'请输入[已交清]或[未交清]再进行查询！','警告',MB_OK+MB_ICONWARNING),
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,Enr_Sta,enr_price,Enr_YearfromEnroll'),
Adoquery1.Open,
edit1.Text:等于'',
Edit1.SelectAll,
exit,
end,
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,Enr_Sta,enr_price,Enr_YearfromEnrollwhereEnr_Sta等于'''+edit1.text+''''),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
procedureTReportForm3.BitBtn2Click(Sender:TObject),
begin
baobiaoForm3.QuickRep1.Preview,
end,
procedureTReportForm3.BitBtn4Click(Sender:TObject),
begin
close,
end,
procedureTReportForm3.BitBtn3Click(Sender:TObject),
begin
ifapplication.MessageBox('是否现在打印交费报表单','确认',MB_OKCANCEL)等于IDOKTHEN
BaobiaoForm3.QuickRep1.Print,
end,
procedureTReportForm3.FormShow(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('selectstu_Id,stu_Name,Dor_Id,Enr_Sta,enr_price,Enr_YearfromEnroll'),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
end.
4.楼房员工信息模块
procedureTReportForm4.BitBtn1Click(Sender:TObject),
begin
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('select*frommployeewhereHou_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*fromEmployee'),
Adoquery1.Open,
edit1.Text:等于'',
Edit1.SelectAll,
exit,
end,
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromEmployeewherehou_Id等于'''+edit1.text+''''),
ADOQuery1.Prepared,
ADOQuery1.Open,
edit1.Text:等于'',
end,
procedureTReportForm4.BitBtn4Click(Sender:TObject),
begin
close,
end,
procedureTReportForm4.BitBtn2Click(Sender:TObject),
begin
BaobiaoForm4.QuickRep1.Preview,
end,
procedureTReportForm4.BitBtn3Click(Sender:TObject),
begin
ifapplication.MessageBox('是否现在打印楼房员工报表单','确认',MB_OKCANCEL)等于IDOKTHEN
BaobiaoForm4.QuickRep1.Print,
end,
procedureTReportForm4.FormShow(Sender:TObject),
begin
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*fromEmployee'),
ADOQuery1.Prepared,
ADOQuery1.Open,
end,
end.
5.出楼物品信息报表
procedureTReportForm5.BitBtn1Click(Sender:TObject),
begin
Adoquery1.Close,
Adoquery1.SQL.Clear,
Adoquery1.SQL.Add('select*fromgoodsmovewherestu_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*fromgoodsmove'),
Adoquery1.Open,
edit1.Text:等于'',
Edit1.SelectAll,
exit,
end,
ADOQuery1.Close,
ADOQuery1.SQL.Clear,
ADOQuery1.SQL.Add('select*f
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲参考文献资料：