论文网
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲
本论文是一篇数据库有关毕业论文提纲,关于高校学生宿舍管理系统相关毕业论文开题报告范文。免费优秀的关于数据库及管理系统及宿舍管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
4403;前为空begin
showmessage('对不起,您所输入的用户名或密码错误,请重新输'),
UserNameEdit.Text:等于'',
OldPassWordEdit.Text:等于'',
NewPasswordEdit.Text:等于'',
submitEdit.Text:等于'',
end
else
begin
edit,
fieldbyname('UserId').AsString:等于newpasswordedit.Text,
post,
showmessage('新密码修改成功,请记牢！'),
UserNameEdit.Text:等于'',
OldPassWordEdit.Text:等于'',
NewPasswordEdit.Text:等于'',
submitEdit.Text:等于'',
end,
end,
end,
end,
procedureTUserChange.BtCancelClick(Sender:TObject),
begin
close,
end,
end,
--------------------------------公寓管理模块源代码--------------------------------
1.楼房管理源代码
procedureTHouseForm.Button1Click(Sender:TObject),
begin
ifedit1.Text等于''then
begin
MessageBox(handle,'楼房编号不能为空！','警告',MB_OK+MB_ICONWARNING),
edit1.SetFocus,
exit,
end,
//检查系统中是否存在该学号的学生datamd.ADOHouse.Close,
datamd.ADOHouse.SQL.Clear,
datamd.ADOHouse.SQL.Text:等于'selecthou_Idfromhousewherehou_Id等于'''+edit1.Text+'''',
datamd.ADOHouse.Prepared,
datamd.ADOHouse.Open,
ifnotdatamd.ADOHouse.IsEmptythen
begin
MessageBox(handle,'该楼房信息已经存入数据库！','警告',MB_OK+MB_ICONWARNING),
edit1.Text:等于'',
edit2.Text:等于'',
edit3.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
edit1.SetFocus,
exit,
end,
datamd.ADOHouse.Close,datamd.ADOHouse.SQL.Clear,
datamd.ADOHouse.SQL.Text:等于'select*fromhouse',
datamd.ADOHouse.Prepared,
datamd.ADOHouse.Open,
datamd.ADOHouse.Insert,
datamd.ADOHouse.FieldByName('hou_id').AsString:等于trim(edit1.Text),
datamd.ADOHouse.FieldByName('hou_Num').AsString:等于trim(edit2.Text),
datamd.ADOHouse.FieldByName('hou_Rom').AsString:等于trim(edit3.Text),
datamd.ADOHouse.FieldByName('hou_Peo').AsString:等于trim(edit4.Text),
datamd.ADOHouse.FieldByName('hou_Des').AsString:等于trim(edit5.Text),
ifmessagedlg('请确认输入的数据无误！',mtconfirmation,[mbYes,mbNO],1)等于mryesthen
begin
datamd.ADOHouse.Post,
ShowMessage('楼房信息登记完毕！'),
edit1.Text:等于'',
edit2.Text:等于'',
edit3.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
end
else
begin
showmessage('操作已取消,请重新输入'),
datamd.ADOHouse.cancel,
edit1.Text:等于'',
edit2.Text:等于'',
edit3.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
end,
end,
procedureTHouseForm.Button2Click(Sender:TObject),
begin
close,
end,
end.
2.宿舍管理源代码
procedureTDormForm.BitBtn1Click(Sender:TObject),
begin
ifedit1.Text等于''then
begin
messagedlg('请输入寝室号！',mtinformation,[mbok],0),
exit,
end,
ifedit2.Text等于''then
begin
messagedlg('请输入寝室应住人数！',mtinformation,[mbok],0),
exit,
end,
ifedit4.Text等于''then
begin
messagedlg('请为该寝室确定住宿费用！',mtinformation,[mbok],0),
exit,
end,
ifComboBox2.Text等于''then
begin
messagedlg('请选择居住性别！',mtinformation,[mbok],0),
exit,
end,
//检查系统中是否存在该寝室号
datamd.ADODorm.Close,
datamd.ADODorm.SQL.Clear,
datamd.ADODorm.SQL.Text:等于'selectDor_IdfromDormwhereDor_Id等于'''+Edit1.Text+'''',
datamd.ADODorm.Prepared,
datamd.ADODorm.Open,
ifnotdatamd.ADODorm.IsEmptythen
begin
MessageBox(handle,'该寝室号已录入！','警告',MB_OK+MB_ICONWARNING),
Edit1.SetFocus,
exit,
end,
//寝室信息录入
datamd.ADODorm.Close,
datamd.ADODorm.SQL.Clear,
datamd.ADODorm.SQL.Add('select*fromdorm'),
datamd.ADODorm.Open,
datamd.ADODorm.Insert,
datamd.ADODorm.FieldByName('Dor_Id').AsString:等于trim(edit1.Text),
datamd.ADODorm.FieldByName('Dor_Num').AsString:等于trim(edit2.Text),
datamd.ADODorm.FieldByName('Dor_Price').AsString:等于trim(edit4.Text),datamd.ADODorm.FieldByName('Dor_sex').AsString:等于trim(ComboBox2.Text),
datamd.ADODorm.FieldByName('Dor_Tel').AsString:等于trim(edit5.Text),
datamd.ADODorm.FieldByName('Dor_Des').AsString:等于trim(edit6.Text),datamd.ADODorm.Post,
ShowMessage('宿舍信息插入完毕！'),
edit1.Text:等于'',
edit2.Text:等于'',
edit4.Text:等于'',
edit5.Text:等于'',
edit6.Text:等于'',
end,
procedureTDormForm.BitBtn2Click(Sender:TObject),
begin
close,
end,
procedureTDormForm.FormShow(Sender:TObject),
begin
datamd.ADODorm.Close,
datamd.ADODorm.SQL.Clear,
datamd.ADODorm.SQL.Add('select*fromdormorderbydor_idasc'),
datamd.ADODorm.Open,
end,
end.
3.员工管理源代码
//通过查询自动获得相应的公寓楼房数
procedureTEmployeeForm.ComboBox3DropDown(Sender:TObject),
var
I:integer,
begin
withdatamd.ADOHousedo
begin
close,
sql.Clear,
sql.Add('select*fromHouse'),
open,
bobox3.Clear,
ifRecordCount>,0then
begin
first,
fori:等于0toRecordCount-1do
begin
bobox3.Items.Add(fieldbyname('Hou_Id').AsString),
next,
end,
end
else
showmessage('没有记录,请管理员录入数据信息'),
end,
end,
procedureTEmployeeForm.Button1Click(Sender:TObject),
begin
ifedit1.Text等于''then
begin
messagedlg('员工号不
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲参考文献资料：