unit3.~pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

procedure Toperatormanage.BitBtn1Click(Sender: TObject);
begin
if not adotable1.Bof then
   begin

   adotable1.First;
   Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
   bitbtn1.Enabled:=false;
   bitbtn2.enabled:=false;
   bitbtn3.enabled:=true;
   bitbtn4.enabled:=true;
   end
else
   begin

   Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
   bitbtn1.enabled:=false;
   bitbtn2.enabled:=false;
   bitbtn3.enabled:=true;
   bitbtn4.enabled:=true;
   end;
end;

procedure Toperatormanage.BitBtn2Click(Sender: TObject);
begin
if adotable1.Bof then
   begin
   Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
   bitbtn1.enabled:=false;
   bitbtn2.enabled:=false;
   bitbtn3.enabled:=true;
   bitbtn4.enabled:=true;
   end
else
    begin
    adotable1.Prior;
    bitbtn1.enabled:=true;
    bitbtn2.enabled:=true;
    bitbtn3.enabled:=true;
    bitbtn4.enabled:=true;
    end;
end;

procedure Toperatormanage.BitBtn3Click(Sender: TObject);
begin
if adotable1.Eof then
   begin
   Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
   bitbtn1.enabled:=true;
   bitbtn2.enabled:=true;
   bitbtn3.enabled:=false;
   bitbtn4.enabled:=false;
   end
else
   begin
   adotable1.Next;
   bitbtn1.enabled:=true;
   bitbtn2.enabled:=true;
   bitbtn3.enabled:=true;
   bitbtn4.enabled:=true;
   end;
end;

procedure Toperatormanage.BitBtn4Click(Sender: TObject);
begin
if not adotable1.Eof  then
   begin
   adotable1.Last;
   Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
   bitbtn1.enabled:=true;
   bitbtn2.enabled:=true;
   bitbtn3.enabled:=false;
   bitbtn4.enabled:=false;
   end
else
   begin
   Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
   bitbtn1.enabled:=true;
   bitbtn2.enabled:=true;
   bitbtn3.enabled:=false;
   bitbtn4.enabled:=false;
   end;
end;

procedure Toperatormanage.ADOTable1AfterScroll(DataSet: TDataSet);
begin
readformtable;
end;

{procedure Toperatormanage.FormCreate(Sender: TObject);
begin
adotable1.Open;
edit1234andcheckbox12345visibletrue;
edit5678andcheckbox678910visiblefalse;
readformtable;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=true;
radiobutton2.Enabled:=true;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
bitbtn7.Enabled:=true;

end;}

procedure Toperatormanage.RadioButton1Click(Sender: TObject);
begin
if Messagedlg('确定想增加一条新记录！',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
   bitbtn1234enabledfalse;
   bitbtn5.enabled:=true;
   bitbtn6.Caption:='取消增加';
   bitbtn6.enabled:=true;
   initiate;
   edit1234andcheckbox12345visiblefalse;
   edit5678andcheckbox678910visibletrue;
   //edit4.Text:=datetostr(now);
   radiobutton2.Enabled:=false;
   radiobutton3.Enabled:=false;
   end
else
   radiobutton1.checked:=false;
end;

procedure Toperatormanage.RadioButton2Click(Sender: TObject);
begin
if denglu.usename=adotable1.FieldByName('操作员名').AsString then
begin
Application.MessageBox('操作员正在使用中！'+#13+'该记录不能被删除！','提示信息',mb_ok);
radiobutton2.Checked:=false;
exit;
end;
if Messagedlg('确定要删除此条记录！',mtwarning,[mbok,mbcancel],0)=mrok then
   begin
   adotable1.Delete;
   Application.MessageBox('记录已删除！','提示信息',mb_ok);
   radiobutton2.checked:=false;
   end
else
   radiobutton2.checked:=false;
end;

procedure Toperatormanage.RadioButton3Click(Sender: TObject);
begin
edit1savetoedit5;
edit5.Enabled:=false;
edit1234andcheckbox12345visiblefalse;
edit5678andcheckbox678910visibletrue;
radiobutton1.Enabled:=false;
radiobutton2.Enabled:=false;
bitbtn5.enabled:=true;
bitbtn6.Caption:='取消修改';
bitbtn6.enabled:=true;
bitbtn1234enabledfalse;


end;

procedure Toperatormanage.BitBtn5Click(Sender: TObject);
begin
if trim(edit5.Text)='' then
   begin
   Application.MessageBox('用户名不能为空！','提示信息',mb_ok);
   edit5.SetFocus;
   exit;
   end;
if trim(edit6.Text)='' then
   begin
   Application.MessageBox('密码不能为空！','提示信息',mb_ok);
   edit6.SetFocus;
   exit;
   end;
if trim(edit7.Text)='' then
   begin
   Application.MessageBox('所属部门不能为空！','提示信息',mb_ok);
   edit7.SetFocus;
   exit;
   end;
if checkbox6.Checked=true then
   b1:=true
else
   b1:=false;
if checkbox7.Checked=true then
   b2:=true
else
   b2:=false;
if checkbox8.Checked=true then
   b3:=true
else
   b3:=false;
if checkbox9.Checked=true then
   b4:=true
else
   b4:=false;
{if checkbox10.Checked=true then
   b5:=true
else
   b5:=false;}
if not (b1 or b2 or b3 or b4 {or b5}) then
   begin
   Application.MessageBox('请至少选择一个权限！','提示信息',mb_ok);
   exit;
   end;
if radiobutton1.Checked=true then
begin
if adotable1.Locate('操作员名',edit5.Text,[]) then
      begin
      edit5.Text:='';
      edit5.SetFocus;
      Application.MessageBox('该用户存在,请重新输入用户名！','提示信息',mb_ok);
      exit;
      end
   else
      begin
      adotable1.Append;
      edit5savetoedit1;
      savetotable;
      edit5678andcheckbox678910visiblefalse;
      edit1234andcheckbox12345visibletrue;
      bitbtn1234enabledtrue;
      radiobutton1.Checked:=false;
      radiobutton2.Checked:=false;
      radiobutton3.Checked:=false;
      radiobutton2.Enabled:=true;
      radiobutton3.Enabled:=true;
      bitbtn5.Enabled:=false;
      bitbtn6.Enabled:=false;
      Application.MessageBox('新用户添加成功！','提示信息',mb_ok);
      exit;
      end;
   end;

if radiobutton3.Enabled=true then
begin
      edit5savetoedit1;
      savetotable;
      edit5678andcheckbox678910visiblefalse;
      edit1234andcheckbox12345visibletrue;
      bitbtn1234enabledtrue;
      radiobutton1.Checked:=false;
      radiobutton2.Checked:=false;
      radiobutton3.Checked:=false;
      radiobutton1.Enabled:=true;
      radiobutton2.Enabled:=true;
      bitbtn5.Enabled:=false;
      bitbtn6.Enabled:=false;
      Application.MessageBox('用户修改成功！','提示信息',mb_ok);
      exit;
end;

end;

procedure Toperatormanage.BitBtn6Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
initiate;
edit1234andcheckbox12345visibletrue;
edit5678andcheckbox678910visiblefalse;
bitbtn1234enabledtrue;
bitbtn5.Enabled:=false;
bitbtn6.Caption:='取消';
bitbtn6.Enabled:=false;
radiobutton1.Checked:=false;
radiobutton2.Enabled:=true;
radiobutton3.Enabled:=true;
end;
if radiobutton3.Checked then
begin
initiate;
edit1234andcheckbox12345visibletrue;
edit5678andcheckbox678910visiblefalse;
bitbtn1234enabledtrue;
bitbtn5.Enabled:=false;
bitbtn6.Caption:='取消';
bitbtn6.Enabled:=false;
radiobutton3.Checked:=false;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=true;


end;
end;


procedure Toperatormanage.FormActivate(Sender: TObject);
begin
adotable1.Open;
edit1234andcheckbox12345visibletrue;
edit5678andcheckbox678910visiblefalse;
readformtable;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=true;
radiobutton2.Enabled:=true;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
bitbtn7.Enabled:=true;
end;

{procedure Toperatormanage.FormHide(Sender: TObject);
begin
edit1234andcheckbox12345visibletrue;
edit5678andcheckbox678910visiblefalse;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=true;
radiobutton3.Enabled:=true;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
close;
end;}

procedure Toperatormanage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
edit1234andcheckbox12345visibletrue;
edit5678andcheckbox678910visiblefalse;
radiobutton1.Enabled:=true;
radiobutton2.Enabled:=true;
radiobutton3.Enabled:=true;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
adotable1.Close;
close;
end;

end.