operatormanage.~pas

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

unit operatormanage;

interface

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

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;
    RadioGroup2: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Query1: TQuery;
    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
    close;
end;
procedure TOperatorManageForm.initiate;
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit4.Text:=DateToStr(Date());
    Edit4.Enabled:=false; 
    Edit1.SetFocus;
    RadioButton1.checked:=true;
    checkbox1.Checked:=false;
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    checkbox4.Checked:=false;
    checkbox5.Checked:=false;
end;

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

procedure TOperatorManageForm.Edit1Exit(Sender: TObject);
begin
      if edit1.text<>'' then
      begin
           query1.Active:=false;
           query1.SQL.clear;
           query1.sql.add('select * from operator where name=:username');
           query1.ParamByName('username').asstring:=edit1.text;
           query1.Open;
           if query1.RecordCount=1 then
           begin
                if RadioButton1.Checked then
                begin
                      Application.MessageBox('该用户存在，请检查！','提示信息',mb_ok);
                      edit1.SetFocus
                end
                else
                begin
                      LoadFromTable;
                end;
           end
           else
           begin
                if RadioButton2.Checked or radiobutton3.checked then
                begin
                   Application.MessageBox('该用户不存在，请检查！','提示信息',mb_ok);
                   edit1.SetFocus;
                end;
           end;
      end
      else
          Bitbtn2.SetFocus;
end;
procedure TOperatorManageForm.LoadFromTable;
begin
      Edit1.Text:=query1.fieldbyname('name').AsString;
      Edit2.Text:=query1.fieldbyname('password').AsString;
      Edit3.Text:=query1.fieldbyname('department').AsString;
      Edit4.Text:=Datetimetostr(query1.fieldbyname('oper_date').AsDateTime);
      CheckBox1.Checked:=query1.fieldbyname('right_1').AsBoolean;
      CheckBox2.Checked:=query1.fieldbyname('right_2').AsBoolean;
      CheckBox3.Checked:=query1.fieldbyname('right_3').AsBoolean;
      CheckBox4.Checked:=query1.fieldbyname('right_4').AsBoolean;
      CheckBox5.Checked:=query1.fieldbyname('right_5').AsBoolean;
end;
procedure TOperatorManageForm.SaveToTable;
begin
      query1.RequestLive:=true;
      if RadioButton1.Checked then
      begin
            query1.Close;
            query1.SQL.Clear;
            query1.SQL.add('insert into operator(name,password,department,oper_date,right_1,right_2,right_3,right_4,right_5,operator)');
            query1.SQL.add('values(:name,:password,:department,:oper_date,:right_1,:right_2,:right_3,:right_4,:right_5,:operator)');
            query1.ParamByName('name').AsString:=Edit1.Text;
            query1.parambyname('password').AsString:=Edit2.Text;
            query1.parambyname('department').AsString:=Edit3.Text;
            query1.parambyname('oper_date').AsDateTime:=StrtoDate(Edit4.Text);
            query1.parambyname('right_1').AsBoolean:=CheckBox1.Checked;
            query1.parambyname('right_2').AsBoolean:=CheckBox2.Checked;
            query1.parambyname('right_3').AsBoolean:=CheckBox3.Checked;
            query1.parambyname('right_4').AsBoolean:=CheckBox4.Checked;
            query1.parambyname('right_5').AsBoolean:=CheckBox5.Checked;
            query1.parambyname('operator').Asstring:=username;
            query1.ExecSQL;
      end
      else if radiobutton3.checked then
      begin
            query1.Close; 
            query1.SQL.Clear;
            query1.SQL.add('update operator set password=:password,department=:department,oper_date=:oper_date,right_1=:right_1,');
            query1.SQL.add('right_2=:right_2,right_3=:right_3,right_4=:right_4,right_5=:right_5,operator=:operator');
            query1.sql.add('where name=:name');
            query1.ParamByName('name').AsString:=Edit1.Text;
            query1.parambyname('password').AsString:=Edit2.Text;
            query1.parambyname('department').AsString:=Edit3.Text;
            query1.parambyname('oper_date').AsDateTime:=StrtoDate(Edit4.Text);
            query1.parambyname('right_1').AsBoolean:=CheckBox1.Checked;
            query1.parambyname('right_2').AsBoolean:=CheckBox2.Checked;
            query1.parambyname('right_3').AsBoolean:=CheckBox3.Checked;
            query1.parambyname('right_4').AsBoolean:=CheckBox4.Checked;
            query1.parambyname('right_5').AsBoolean:=CheckBox5.Checked;
            query1.parambyname('operator').Asstring:=username;
            query1.ExecSQL;
      end
      else
      begin
            query1.sql.clear;
            query1.SQL.add('delete from operator where name=:name');
            query1.ParamByName('name').AsString:=Edit1.Text;
            query1.ExecSQL;
      end;
      initiate;
end;
procedure TOperatorManageForm.BitBtn1Click(Sender: TObject);
begin
      savetotable;
      initiate;
end;

end.                 '