unit3.~pas

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

//操作员管理
//operatormanage

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls;

type
  Toperatormanage = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    BitBtn7: TBitBtn;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
//    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
//    procedure FormHide(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
    procedure edit1234andcheckbox12345visiblefalse;
    procedure edit1234andcheckbox12345visibletrue;
    procedure edit5678andcheckbox678910visiblefalse;
    procedure edit5678andcheckbox678910visibletrue;
    procedure initiate;
    procedure readformtable;
    procedure savetotable;
    procedure edit1savetoedit5;
    procedure edit5savetoedit1;
    procedure bitbtn1234enabledfalse;
    procedure bitbtn1234enabledtrue;

  end;

var
  operatormanage: Toperatormanage;
  a1,a2,a3,a4,b1,b2,b3,b4{,b5}:boolean;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure Toperatormanage.bitbtn1234enabledtrue;
begin
bitbtn1.Enabled:=true;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
end;
procedure Toperatormanage.bitbtn1234enabledfalse;
begin
bitbtn1.Enabled:=false;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
end;
procedure Toperatormanage.edit5savetoedit1;
begin
edit1.Text:=edit5.Text;
edit2.Text:=edit6.Text;
edit3.Text:=edit7.Text;
edit4.Text:=edit8.Text;
if checkbox6.Checked=true then
checkbox1.Checked:=true
else
checkbox1.Checked:=false;
if checkbox7.Checked=true then
checkbox2.Checked:=true
else
checkbox2.Checked:=false;
if checkbox8.Checked=true then
checkbox3.Checked:=true
else
checkbox3.Checked:=false;
if checkbox9.Checked=true then
checkbox4.Checked:=true
else
checkbox4.Checked:=false;
{if checkbox10.Checked=true then
checkbox5.Checked:=true
else
checkbox5.Checked:=false;  }

end;
procedure Toperatormanage.edit1savetoedit5;
begin
edit5.Text:=edit1.Text;
edit6.Text:=edit2.Text;
edit7.Text:=edit3.Text;
edit8.Text:=edit4.Text;
if checkbox1.Checked=true then
checkbox6.Checked:=true
else
checkbox6.Checked:=false;
if checkbox2.Checked=true then
checkbox7.Checked:=true
else
checkbox7.Checked:=false;
if checkbox3.Checked=true then
checkbox8.Checked:=true
else
checkbox8.Checked:=false;
if checkbox4.Checked=true then
checkbox9.Checked:=true
else
checkbox9.Checked:=false;
{if checkbox5.Checked=true then
checkbox10.Checked:=true
else
checkbox10.Checked:=false; }
end;
procedure Toperatormanage.savetotable;
begin
adotable1.Edit;
adotable1.FieldByName('操作员名').AsString:=edit1.Text;
adotable1.FieldByName('密码').AsString:=edit2.Text;
adotable1.FieldByName('所属部门').AsString:=edit3.Text;
adotable1.FieldByName('日期').AsDateTime:=strtodate(edit4.Text);
if checkbox1.Checked=true then
adotable1.FieldByName('权限一').AsBoolean:=true
else
adotable1.FieldByName('权限一').AsBoolean:=false;
if checkbox2.Checked=true then
adotable1.FieldByName('权限二').AsBoolean:=true
else
adotable1.FieldByName('权限二').AsBoolean:=false;
if checkbox3.Checked=true then
adotable1.FieldByName('权限三').AsBoolean:=true
else
adotable1.FieldByName('权限三').AsBoolean:=false;
if checkbox4.Checked=true then
adotable1.FieldByName('权限四').AsBoolean:=true
else
adotable1.FieldByName('权限四').AsBoolean:=false;
{if checkbox5.Checked=true then
adotable1.FieldByName('权限五').AsBoolean:=true
else
adotable1.FieldByName('权限五').AsBoolean:=false; }
adotable1.Post;

end;
procedure Toperatormanage.readformtable;
begin
edit1.Text:=adotable1.FieldByName('操作员名').AsString;
edit2.Text:=adotable1.FieldByName('密码').AsString;
edit3.Text:=adotable1.FieldByName('所属部门').AsString;
edit4.Text:=datetostr(adotable1.FieldByName('日期').AsDateTime);
if adotable1.FieldByName('权限一').AsBoolean then
checkbox1.Checked:=true
else
checkbox1.Checked:=false;
if adotable1.FieldByName('权限二').AsBoolean then
checkbox2.Checked:=true
else
checkbox2.Checked:=false;
if adotable1.FieldByName('权限三').AsBoolean then
checkbox3.Checked:=true
else
checkbox3.Checked:=false;
if adotable1.FieldByName('权限四').AsBoolean then
checkbox4.Checked:=true
else
checkbox4.Checked:=false;
{if adotable1.FieldByName('权限五').AsBoolean then
checkbox5.Checked:=true
else
checkbox5.Checked:=false; }
end;
procedure Toperatormanage.initiate;
begin
edit5.Text:='';
edit5.Enabled:=true;
edit6.Text:='';
edit7.Text:='';
edit8.Text:=datetostr(now);
edit8.Enabled:=false;
checkbox6.Checked:=false;
checkbox7.Checked:=false;
checkbox8.Checked:=false;
checkbox9.Checked:=false;
{checkbox10.Checked:=false;}

end;
procedure Toperatormanage.edit5678andcheckbox678910visibletrue;
begin
edit5.Visible:=true;
edit6.Visible:=true;
edit7.Visible:=true;
edit8.Visible:=true;
checkbox6.Visible:=true;
checkbox7.Visible:=true;
checkbox8.Visible:=true;
checkbox9.Visible:=true;
{checkbox10.Visible:=true;}
end;
procedure Toperatormanage.edit5678andcheckbox678910visiblefalse;
begin
edit5.Visible:=false;
edit6.Visible:=false;
edit7.Visible:=false;
edit8.Visible:=false;
checkbox6.Visible:=false;
checkbox7.Visible:=false;
checkbox8.Visible:=false;
checkbox9.Visible:=false;
{checkbox10.Visible:=false;}
end;



procedure Toperatormanage.edit1234andcheckbox12345visibletrue;
begin
edit1.Visible:=true;
edit2.Visible:=true;
edit3.Visible:=true;
edit4.Visible:=true;
checkbox1.Visible:=true;
checkbox2.Visible:=true;
checkbox3.Visible:=true;
checkbox4.Visible:=true;
{checkbox5.Visible:=true;}
end;
procedure Toperatormanage.edit1234andcheckbox12345visiblefalse;
begin
edit1.Visible:=false;
edit2.Visible:=false;
edit3.Visible:=false;
edit4.Visible:=false;
checkbox1.Visible:=false;
checkbox2.Visible:=false;
checkbox3.Visible:=false;
checkbox4.Visible:=false;
{checkbox5.Visible:=false; }
end;

















































procedure Toperatormanage.BitBtn7Click(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;

adotable1.Close;
close;
end;