论文网
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲
本论文是一篇数据库有关毕业论文提纲,关于高校学生宿舍管理系统相关毕业论文开题报告范文。免费优秀的关于数据库及管理系统及宿舍管理方面论文范文资料,适合数据库论文写作的大学硕士及本科毕业论文开题报告范文和学术职称论文参考文献下载。
,2004.6[4]周绪.SQLServer2000中文版入门提高[M].北京:清华大学出版社,2003
[5]王华.Delphi5编程实例与技巧.北京:机械工业出版社,2000
[6]龙劲松,王俞.Delphi6开发人员指南.北京:机械工业出版社,2003
[7]徐谡张雷..北京:清华大学出版社,2005.1
[8]王业龙范朝辉李育龙..北京:电子工业出版社,2005.1
[9]黄晓敏陈强..北京:清华大学出版社,2004.9
[10]赵晓玲..北京:机械工业出版社,2005.1
[11](美)MarcoCantu.Delphi7从入门到精通[M].北京:电子工业出版社,2003.10
[12](美)ClayShannon.Delphi程序调试参考手册[M].北京:中国电力出版社,2003.9
指导教师评语
指导教师签名:
2005年月日
附录A:主要源程序
高校学生宿舍管理系统源程序
------------------------------------用户管理模块源代码--------------------------------
1.增加用户源代码
procedureTAddUserForm.BitBtn1Click(Sender:TObject),
begin
ifEdit1.Text等于''then
begin
MessageBox(handle,'请输入用户名！','',MB_OK+MB_ICONWARNING),
Edit1.SetFocus,
exit,
end,
ifEdit2.Text等于''then
begin
MessageBox(handle,'请输入用户密码！',',MB_OK+MB_ICONWARNING),
Edit2.SetFocus,
exit,
end,
ifComboBox1.Text等于''then
begin
MessageBox(handle,'请选择用户权限！','',MB_OK+MB_ICONWARNING),
Edit2.SetFocus,
exit,
end,
WithDataMD.ADOAddUserdo
begin
datamd.ADOAddUser.Insert,//插入一条空白记录datamd.ADOAddUser.FieldByName('UserName').AsString:等于trim(edit1.Text),
datamd.ADOAddUser.FieldByName('UserId').AsString:等于trim(edit2.Text),datamd.ADOAddUser.FieldByName('UserPower').AsString:等于trim(ComboBox1.Text),
IfMessageDlg('确定要添加吗！',mtconfirmation,[mbYes,mbNo],0)等于mrYesthen
begin
post,
edit1.Text:等于'',
edit2.Text:等于'',
MessageBox(handle,'用户信加！','！',MB_OK+MB_ICONWARNING),
end
else
begin
cancel,
edit1.Text:等于'',
edit2.Text:等于'',
end,
end,
end,
procedureTAddUserForm.BitBtn2Click(Sender:TObject),
begin
close,
end,
end,
2.删除用户源代码
procedureTAddUserForm.BitBtn3Click(Sender:TObject),
var
deleteName:string,
deletePass:string,
deletePower:string,
begin
ifEdit1.Text等于''then
begin
MessageBox(handle,'输入所删用户名',MB_OK+MB_ICONWARNING),
Edit1.SetFocus,
exit,
end,
ifEdit2.Text等于''then
begin
MessageBox(handle,'输入所删用户密码',MB_OK+MB_ICONWARNING),
Edit2.SetFocus,
exit,
end,
ifComboBox1.Text等于''then
begin
MessageBox(handle,'输入所删用户限！',MB_OK+MB_ICONWARNING),
Edit2.SetFocus,
exit,
end,
Datamd.ADOAdduer.Close,
Datamd.ADOAdduer.SQL.Clear,
Datamd.ADOAdduer.SQL.Add'select*fromLoginInwhereusername等于'''+Edit1.Text+'''and'),
Datamd.ADOAdduer.SQL.Add('userId等于'''+Edit2.text+''''),
Datamd.ADOAdduer.Prepared,
Datamd.ADOAdduer.Open,
ifDatamd.ADOAdduer.Eofthen
begin
MessageBox(handle,'该用户信息不存在,请确认后再输入！','警告',MB_OK+MB_ICONWARNING),
Edit1.SelectAll,
edit1.Text:等于'',
edit2.Text:等于'',
exit,
end,
deleteName:等于edit1.Text,
deletePass:等于edit2.Text,
deletePower:等于ComboBox1.Text,
WithDataMD.ADOAddUserdo
IfMessageDlg('确定！',mtconfirmation,[mbYes,mbNo],0)等于mryesthen
begin
datamd.ADOCommand1.CommandText:等于'deletefromloginInwhere(username等于'''+deleteName+''')and(useriD等于'''+deletepass+''')and(userpower等于'''+deletepower+''')',
datamd.ADOCommand1.Execute,
edit1.Text:等于'',
edit2.Text:等于'',
MessageBox(handle,'用户信息！','！',MB_OK+MB_ICONWARNING),
end
else
begin
cancel,
edit1.Text:等于'',
edit2.Text:等于'',
end,
end,
procedureTAddUserForm.BitBtn4Click(Sender:TObject),
begin
close,
end,
-------------------------------密码修改源代码---------------------------------
procedureTUserChange.BtsubmitClick(Sender:TObject),
begin
ifUserNameEdit.Text等于''then
begin
messagedlg('请输入用户名',mtwarning,[mbok],0),
UserNameEdit.SetFocus,
exit,
end,
ifOldPassWordEdit.Text等于''then
begin
messagedlg('请输入原始密码',mtwarning,[mbok],0),
OldPassWordEdit.SetFocus,
exit,
end,
ifNewPasswordEdit.Text等于''then
begin
messagedlg('请输入新密码',mtwarning,[mbok],0),
NewPasswordEdit.SetFocus,
exit,
end,
ifsubmitEdit.Text等于''then
begin
messagedlg('请输入确认密码',mtwarning,[mbok],0),
submitEdit.SetFocus,
exit,
end,
//判断两次输入的新密码是否相同
iftrim(newpasswordedit.Text)<,>,trim(submitedit.Text)then
begin
messagedlg('请重新输入,新密码与确认密码不一致！',mtinformation,[mbok],0),
NewPasswordEdit.Text:等于'',
submitEdit.Text:等于'',
newpasswordedit.SetFocus,
end
else
begin
withdatamd.ADOchangedo
begin
close,
sql.Clear,
sql.Add('select*fromLoginInwheresername等于'''+usernameedit.Text+''''+'anduserId等于'''+oldpasswordedit.Text+''''),
open,
ifeofthen//当没有查询到该记录时,就说明
数据库有关论文范例,与高校学生宿舍管理系统相关毕业论文提纲参考文献资料：