unt_operatormanage.pas

酒店资源管理的软件

unit unt_OperatorManage;

interface

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

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

var
  OperatorManageForm: TOperatorManageForm;

implementation
uses Main;
{$R *.dfm}

procedure TOperatorManageForm.LoadFromTable();
begin
  Edit1.Text := mainForm.query1.fieldbyname('name').AsString;
  Edit2.Text := mainForm.query1.fieldbyname('loginpass').AsString;
  Edit3.Text := mainForm.query1.fieldbyname('department').AsString;
  Edit4.Text := Datetimetostr(mainForm.query1.fieldbyname('oper_date').AsDateTime);
  CheckBox1.Checked := mainForm.query1.fieldbyname('right_1').AsBoolean;
  CheckBox2.Checked := mainForm.query1.fieldbyname('right_2').AsBoolean;
  CheckBox3.Checked := mainForm.query1.fieldbyname('right_3').AsBoolean;
  CheckBox4.Checked := mainForm.query1.fieldbyname('right_4').AsBoolean;
  CheckBox5.Checked := mainForm.query1.fieldbyname('right_5').AsBoolean;
end;

procedure TOperatorManageForm.SaveToTable();
var
  sSql,i,j,k,l,m: String;
begin
  if CheckBox1.Checked then i := '1' else i := '0';
  if CheckBox2.Checked then j := '1' else j := '0';
  if CheckBox3.Checked then k := '1' else k := '0';
  if CheckBox4.Checked then l := '1' else l := '0';
  if CheckBox5.Checked then m := '1' else m := '0';
  if RadioButton1.Checked then
  begin
    sSql := 'insert into operator (name,loginpass,department,oper_date,right_1,right_2,right_3,right_4,right_5,operator) values('
          + '''' + Edit1.Text + ''',''' + Edit2.Text + ''',''' + Edit3.Text
          + ''',''' + Edit4.Text +''',' + i + ',' + j + ',' + k + ','
          + l + ',' + m + ',''' + username + ''')';
  end
  else if Radiobutton3.checked then
  begin
    sSql := 'update operator set loginpass='''  + Edit2.Text + ''',department='''
          + Edit3.Text + ''',oper_date=''' + Edit4.Text + ''',right_1=' + i
          + ',right_2=' + j + ',right_3=' + k + ',right_4=' + l + ',right_5='
          + m + ',operator=''' + username + ''' where name=''' + Edit1.Text + '''';
    ShowMessage(sSql);
  end
  else
  begin
    sSql := 'delete from operator where name=''' + Edit1.Text + '''';
  end;
  mainForm.exeSql(mainForm.query1,sSql,'2');
end;

procedure TOperatorManageForm.BitBtn2Click(Sender: TObject);
begin
  OperatorManageForm.Close;
end;

procedure TOperatorManageForm.Edit1Exit(Sender: TObject);
var
  sSql: String;
begin
   if Edit1.text <> '' then
   begin
     sSql := 'select * from operator where name=''' + Edit1.Text + '''';
     mainForm.exeSql(mainForm.query1,sSql,'1');
     if mainForm.query1.RecordCount = 1 then
     begin
       if RadioButton1.Checked then
       //在增加情况下输入
       begin
         MessageDlg('该用户存在，请检查！',mtinformation,[mbok],0);
         Edit1.SetFocus;
       end
       else
       begin
         //在修改和删除的情况下，读出数据表的信息
         LoadFromTable;
       end;
     end
     else
     begin
       if RadioButton2.Checked or radiobutton3.checked then
       begin
         MessageDlg('该用户不存在，请检查！',mtinformation,[mbok],0);
         Edit1.SetFocus;
       end;
     end;
   end;
end;

procedure TOperatorManageForm.BitBtn1Click(Sender: TObject);
begin
  try
    SaveToTable;
    ShowMessage('你所做的修改保存成功,谢谢使用!');
    OperatorManageForm.Close;
  Except
    ShowMessage('保存过程种出现未知的异常,请重新添加用户');
    OperatorManageForm.Close;
  end;
end;

end.