公寓管理系统论文Word文档格式.docx

公寓管理系统论文Word文档格式.docx

《公寓管理系统论文Word文档格式.docx》由会员分享，可在线阅读，更多相关《公寓管理系统论文Word文档格式.docx（22页珍藏版）》请在冰豆网上搜索。

begin

query1.Close;

query1.SQL.Clear;

logname:

=ComboBox1.Text;

query1.SQL.Add（'

select*fromuserinfowhereusername=:

usernameandpassword=:

password'

）;

query1.ParamByName（'

username'

）.AsString:

=Edit1.Text;

query1.Open;

ifquery1.RecordCount>

=1then

begin

pawor:

=query1.FieldList.Fields[2].Value;

//获得用户权限

application.CreateForm（Tform_main,form_main）;

form_flash.Free;

form_main.Show;

form_main.StatusBar1.Panels[1].Text:

=logname;

form_main.StatusBar1.Panels[3].Text:

=pawor;

ifpawor='

超级用户'

then

form_main.menu_config_uesr.Enabled:

=true;

//超级用户可以使用用户设置菜单项

end

else

showmessage（'

Error:

密码错误！

'

edit1.Text:

='

;

edit1.SetFocus;

end;

end;

2.主窗体：

procedureTForm_main.Timer1Timer（Sender:

vardow:

casedayofweek（date（））of

1:

dow:

日'

2:

一'

3:

二'

4:

三'

5:

四'

6:

五'

7:

六'

end;

statusbar1.Panels.Items[5].Text:

=datetostr（date（））+'

'

+timetostr（time（））;

statusbar1.Panels.Items[6].Text:

星期'

+dow;

procedureTForm_main.menu_config_uesrClick（Sender:

application.CreateForm（TForm_userconfig,Form_userconfig）;

Form_userconfig.ShowModal;

procedureTForm_main.FormCreate（Sender:

projectdir.Caption:

=getcurrentdir;

//获得工程所在的路径

（下面代码省略）

3.主要菜单：

系统设置：

学生管理：

出入登记：

4.楼层设置窗体：

procedureTForm_floorconfig1.But_submit1Click（Sender:

varfloorcount,roomcount:

integer;

f,r:

///在个Edit都不能为空

ifEdit_floorNum.Text='

楼房号不能为空！

Edit_floorNum.SetFocus;

ifEdit_floorcount.Text='

楼层数不能为空！

Edit_floorcount.SetFocus;

ifEdit_roomcount.Text='

每层房间数不能为空！

Edit_roomcount.SetFocus;

floorcount:

=strtoint（Form_floorconfig1.Edit_floorcount.Text）;

roomcount:

=strtoint（Form_floorconfig1.Edit_roomcount.Text）;

forf:

=1tofloorcountdo

withForm_floorconfig1.Query1do

forr:

=1toroomcountdo

Close;

SQL.Clear;

SQL.Add（'

insertintoroom（Num_room）values（:

x1）'

ifr<

10then

parambyname（'

x1'

）.asstring:

=Edit_floorNum.Text+inttostr（f）+'

0'

+inttostr（r）

=Edit_floorNum.Text+inttostr（f）+inttostr（r）;

ExecSQL;

procedureTForm_floorconfig1.Edit_floorcountKeyPress（Sender:

TObject;

varKey:

Char）;

ifnot（keyin['

..'

9'

#13,#8]）then

key:

=#0;

procedureTForm_main.N1Click（Sender:

//主窗体的壁纸设置

ifOpenPictureDialog1.Executethen

Image1.Picture.LoadFromFile（OpenPictureDialog1.FileName）;

5.分别按学号、姓名、寝室号查找学生：

procedureTForm_info_q2.Button1Click（Sender:

Image1.Picture:

=nil;

//照片置空

select*fromstudentwheresno=:

sno'

=Edit5.Text;

0then//如果有这个学号的学生，载入照片

Image1.Picture.LoadFromFile（form_main.projectdir.caption+'

\image\'

+query1.FieldList.Fields[0].Value+'

.bmp'

）

没有这个学生！

Edit5.SetFocus;

6.添加学生信息窗体：

procedureTForm_infos_s.Button1Click（Sender:

ifEdit1.Text<

>

withForm_infos_s.query1do

close;

sql.Clear;

sql.Add（'

insertintostudentvalues（:

sno,:

sdept,:

time_s,:

sname,:

ssex,:

Num_room,:

Num_bed,:

remark）'

ParamByName（'

=Form_infos_s.Edit1.Text;

sdept'

=Form_infos_s.ComboBox1.Text;

time_s'

=Form_infos_s.ComboBox2.Text;

sname'

=Form_infos_s.Edit2.Text;

ifRadioButton1.Checkedthen

ssex'

男'

ifRadioButton2.Checkedthen

女'

Num_room'

=Form_infos_s.Edit3.Text;

Num_bed'

=Form_infos_s.Edit4.Text;

remark'

=Form_infos_s.Memo1.Text;

Form_infos_s.query1.ExecSQL;

//ifForm_infos.Image1.Picture.

Form_infos_s.Image1.Picture.SaveToFile（form_main.projectdir.caption+'

+Edit1.Text+'

query2.ParamByName（'

=edit3.Text;

query2.ExecSQL;

OK,添加成功!

Form_infos_s.Close;

请填写学号!

procedureT