operatormanage.~pas

我自己写的一个有关酒店管理系统的代码 大家

unit operatormanage;

interface

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

type
  TOperatorManageForm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADODataSet1: TADODataSet;
    RadioGroup2: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure SaveToTable;
    procedure LoadFromTable;
  end;

var
  OperatorManageForm: TOperatorManageForm;

implementation
  uses main;
{$R *.dfm}

procedure TOperatorManageForm.BitBtn2Click(Sender: TObject);
begin
    adodataset1.Close; 
    close;
end;
procedure TOperatorManageForm.initiate;
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit4.Text:=DateToStr(Date());
    Edit4.Enabled:=false; 
    Edit1.SetFocus;
    RadioButton1.checked:=true;
end;

procedure TOperatorManageForm.FormActivate(Sender: TObject);
begin
      initiate;
end;

procedure TOperatorManageForm.Edit1Exit(Sender: TObject);
begin
      if edit1.text<>'' then
      begin
           AdoDataSet1.Active:=false; 
           AdoDataSet1.Parameters[0].Value:=edit1.text;
           AdoDataSet1.CommandText:='select * from operator where name=:username';
           AdoDataSet1.Open;
           if AdoDataSet1.Recordset.RecordCount=1 then
           begin
                if RadioButton1.Checked then
                begin
                      Application.MessageBox('该用户存在，请检查！','提示信息',mb_ok);
                      edit1.SetFocus
                end
                else
                begin
                      LoadFromTable;
                end;
           end
           else
           begin
                if RadioButton1.Checked then
                      AdoDataSet1.Append
                else
                begin
                   Application.MessageBox('该用户不存在，请检查！','提示信息',mb_ok);
                   edit1.SetFocus; 
                end;
           end;
      end
      else
          Bitbtn2.SetFocus;
end;
procedure TOperatorManageForm.LoadFromTable;
begin
      Edit1.Text:=AdoDataSet1.fieldbyname('name').AsString;
      Edit2.Text:=AdoDataSet1.fieldbyname('password').AsString;
      Edit3.Text:=AdoDataSet1.fieldbyname('department').AsString;
      Edit4.Text:=DateToStr(AdoDataSet1.fieldbyname('date').AsDateTime);
      CheckBox1.Checked:=AdoDataSet1.fieldbyname('right_1').AsBoolean;
      CheckBox2.Checked:=AdoDataSet1.fieldbyname('right_2').AsBoolean;
      CheckBox3.Checked:=AdoDataSet1.fieldbyname('right_3').AsBoolean;
      CheckBox4.Checked:=AdoDataSet1.fieldbyname('right_4').AsBoolean;
      CheckBox5.Checked:=AdoDataSet1.fieldbyname('right_5').AsBoolean;
end;
procedure TOperatorManageForm.SaveToTable;
begin
      AdoDataSet1.Edit;
      if RadioButton1.Checked or RadioButton3.Checked then
      begin
            AdoDataSet1.fieldbyname('name').AsString:=Edit1.Text;
            AdoDataSet1.fieldbyname('password').AsString:=Edit2.Text;
            AdoDataSet1.fieldbyname('department').AsString:=Edit3.Text;
            AdoDataSet1.fieldbyname('date').AsDateTime:=StrtoDate(Edit4.Text);
            AdoDataSet1.fieldbyname('right_1').AsBoolean:=CheckBox1.Checked;
            AdoDataSet1.fieldbyname('right_2').AsBoolean:=CheckBox2.Checked;
            AdoDataSet1.fieldbyname('right_3').AsBoolean:=CheckBox3.Checked;
            AdoDataSet1.fieldbyname('right_4').AsBoolean:=CheckBox4.Checked;
            AdoDataSet1.fieldbyname('right_5').AsBoolean:=CheckBox5.Checked;
            AdoDataSet1.Post;
      end
      else
      begin
            AdodataSet1.Delete;
      end;
end;
procedure TOperatorManageForm.BitBtn1Click(Sender: TObject);
begin
      savetotable;
      initiate;
end;

end.