酒店管理系统详细设计.doc

酒店管理系统详细设计登录窗口登录按钮的代码：repeatif (table1.FieldByName(UserName).AsString=edit1.Text) And (table1.fieldByName(PassWord).AsString=edit2.Text) thenbeginshowmessage(欢迎回来！+edit1.Text);frist.Hide;main.Show;main.StatusBar1.Panels1.Text:=欢迎 +edit1.text+ 使用酒店管理系统;break;endelsebegintable1.Next;enduntil table1.eof;endelseshowmessage(用户名密码不能为空！);取消按钮代码First.Close;登陆成功页面主窗体界面管理员功能菜单项订房查询客户订房客户订房 确认订房按钮代码：beginif (edit1.Text) And (edit2.Text) And (edit3.Text) And (edit4.Text) thenbeginrepeatif (table1.FieldByName(RoomN).AsStringEdit1.Text) thenbegintable1.Open;table1.Edit;table1.Append;table1.FieldByName(RoomN).AsString:=Edit1.Text;table1.FieldByName(Id).AsString:=Edit2.Text;table1.FieldByName(Day).AsString:=Edit4.Text;table1.FieldByName(Name).AsString:=Edit3.Text;showmessage(恭喜您，添加用户成功);table1.Post;break;endelsebeginshowmessage(房间已被定！);Edit1.Text:=;Edit2.Text:=;Edit3.Text:=;Edit4.Text:=;Edit1.SetFocus;break;enduntil table1.eof;endelseshowmessage(用户名和密码不能为空！);end;procedure Tdingf.Button2Click(Sender: TObject);begindingf.Close;end;关于帮助主窗体管理员信息beginif (edit1.Text) And (edit2.Text) thenbeginrepeatif (table1.FieldByName(UserName).AsStringEdit1.Text) thenbegintable1.Open;table1.Edit;table1.Append;table1.FieldByName(UserName).AsString:=Edit1.Text;table1.FieldByName(PassWord).AsString:=Edit2.Text;showmessage(恭喜您，添加用户成功);table1.Post;table1.Close;break;endelsebeginshowmessage(用户名已存在！);Edit1.Text:=;Edit2.Text:=;Edit1.SetFocus;break;enduntil table1.eof;endelseshowmessage(用户名和密码不能为空！);end;procedure Tuserm.Button3Click(Sender: TObject);beginshowmessage(删除后将无法恢复！);table1.Open;table1.Edit;table1.Delete;table1.Post;table1.Close;end;酒店收入情况beginif (edit1.Text) thenbegintable1.Active:=true;table1.Filtered:=true;table1.Filter:=RoomN=+QuotedStr(edit1.Text);endelsebeginshowmessage(请输入查询条件！);endend;procedure Ttuf.Button4Click(Sender: TObject);beginedit2.Text:=Inttostr(100*(StrtoInt(table1.fieldByName(Day).AsString);end;procedure Ttuf.Button5Click(Sender: TObject);var m:SystemTime;beginGetLocalTime(m);table2.Open;table2.Edit;table2.Append;table2.FieldByName(Number).AsString:=inttostr(m.wYear)+年+inttostr(m.wMonth)+月+inttostr(m.wDay)+日+星期+inttostr