setuserunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit SetUserUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, StdCtrls, Mask, DBCtrls, SUIButton, Grids,
  DBGrids, SUIDBCtrls, ExtCtrls, SUIImagePanel;

type
  TSetUserForm = class(TForm)
    suiPanel1: TsuiPanel;
    suiDBGrid2: TsuiDBGrid;
    btn1: TsuiButton;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton7: TsuiButton;
    suiButton8: TsuiButton;
    suiPanel2: TsuiPanel;
    suiDBGrid1: TsuiDBGrid;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiButton6: TsuiButton;
    suiButton9: TsuiButton;
    suiButton10: TsuiButton;
    ds1: TClientDataSet;
    ds2: TDataSource;
    ds3: TClientDataSet;
    ds4: TDataSource;
    wdstrngfldds1depart_bm: TWideStringField;
    wdstrngfldds1depart_mc: TWideStringField;
    lbl1: TLabel;
    dbedtdepart_bm: TDBEdit;
    lbl2: TLabel;
    dbedtdepart_mc: TDBEdit;
    wdstrngfldds3user_bh: TWideStringField;
    wdstrngfldds3user_xm: TWideStringField;
    wdstrngfldds3user_mm: TWideStringField;
    wdstrngfldds3user_zt: TWideStringField;
    ds3user_fby: TFloatField;
    ds3user_groupID: TIntegerField;
    wdstrngfldds3user_departBM: TWideStringField;
    lbl3: TLabel;
    dbedtuser_bh: TDBEdit;
    lbl4: TLabel;
    dbedtuser_xm: TDBEdit;
    lbl5: TLabel;
    dbedtuser_mm: TDBEdit;
    lbl6: TLabel;
    lbl7: TLabel;
    dbedtuser_fby: TDBEdit;
    lbl8: TLabel;
    lbl9: TLabel;
    dbedtuser_departBM: TDBEdit;
    suiDBComboBox1: TsuiDBComboBox;
    img1: TImage;
    dbedtuser_groupID: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ds1AfterScroll(DataSet: TDataSet);
    procedure btn1Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton7Click(Sender: TObject);
    procedure suiButton8Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton10Click(Sender: TObject);
    procedure suiButton9Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dbedtdepart_mcKeyPress(Sender: TObject; var Key: Char);
    procedure dbedtuser_bhKeyPress(Sender: TObject; var Key: Char);
    procedure dbedtuser_mmKeyPress(Sender: TObject; var Key: Char);
    procedure dbedtuser_xmKeyPress(Sender: TObject; var Key: Char);
    procedure dbedtuser_fbyKeyPress(Sender: TObject; var Key: Char);
    procedure suiDBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure suiDBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure img1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetUserForm: TSetUserForm;

implementation

uses MainUnit, LoginUnit, SetGroupUnit;

{$R *.dfm}

procedure TSetUserForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.ds3.Close;
  self.ds1.Close;
  mainform.RefrushRoomState(0);
  mainform.Enabled:=true;
end;

procedure TSetUserForm.ds1AfterScroll(DataSet: TDataSet);
begin
  self.ds3.Close;
  self.ds3.Open;
end;

procedure TSetUserForm.suiButton6Click(Sender: TObject);
begin
  close;
end;

procedure TSetUserForm.FormCreate(Sender: TObject);
begin
  self.ds1.Close;
  self.ds1.Open;
end;

procedure TSetUserForm.btn1Click(Sender: TObject);
var
  deptid:string;
begin
  self.ds1.Append;
  loginform.ExecuteSQL('select max(depart_bm)+1 from depart');
  deptid:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  if length(deptid)=1 then
    deptid:='0'+deptid;
  self.ds1.FieldByName('depart_bm').AsString:=deptid;
  self.dbedtdepart_mc.SetFocus;
end;

procedure TSetUserForm.suiButton1Click(Sender: TObject);
begin
  self.ds1.Edit;
  self.dbedtdepart_mc.SetFocus;
end;

procedure TSetUserForm.suiButton8Click(Sender: TObject);
begin
  self.ds1.Cancel;
end;

procedure TSetUserForm.suiButton2Click(Sender: TObject);
var
  deptname:string;
begin
  deptname:=self.dbedtdepart_mc.Text;
  if self.ds3.RecordCount>0 then
    MessageDlg('部门名称【'+deptname+'】尚存在相关操作员信息,不可执行此操作！',mtConfirmation, [mbYes], 0)
  else
    if MessageDlg('部门名称【'+deptname+'】,真的要执行删除操作吗？',mtConfirmation, [mbYes,mbNo], 0)=mrYes then
      begin
        self.ds1.Delete;
        self.ds1.ApplyUpdates(0);
        loginform.ExecuteSQL('insert into log '+
                             'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                     ''','''+loginform.userid+''','''+LoginForm.username+
                                     ''',''部门名称【'+deptname+'】删除成功'')');
      end;
end;

procedure TSetUserForm.suiButton7Click(Sender: TObject);
var
  deptname:string;
begin
  deptname:=self.dbedtdepart_mc.Text;
  if self.ds1.State in [dsedit,dsinsert] then
    begin
      self.ds1.Post;
      self.ds1.ApplyUpdates(0);
      if self.ds1.State=dsedit then
        loginform.ExecuteSQL('insert into log '+
                             'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                     ''','''+loginform.userid+''','''+LoginForm.username+
                                     ''',''部门名称【'+deptname+'】编辑成功'')')
      else
        loginform.ExecuteSQL('insert into log '+
                             'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                     ''','''+loginform.userid+''','''+LoginForm.username+
                                     ''',''部门名称【'+deptname+'】添加成功'')');
    end
  else
    MessageDlg('当前数据表未处于添加或编辑状态,不可执行相关操作！',mtConfirmation, [mbYes], 0);
end;

procedure TSetUserForm.suiButton3Click(Sender: TObject);
begin
  self.ds3.Append;
  self.ds3.FieldByName('user_departBM').AsString:=self.dbedtdepart_bm.Text;
  self.dbedtuser_bh.SetFocus;
end;

procedure TSetUserForm.suiButton4Click(Sender: TObject);
begin
  self.ds3.Edit;
  self.dbedtuser_bh.SetFocus;
end;

procedure TSetUserForm.suiButton5Click(Sender: TObject);
var
  deptname,username:string;
begin
  deptname:=self.dbedtdepart_mc.Text;
  username:=self.dbedtuser_xm.Text;
  if MessageDlg('部门【'+deptname+'】操作员【'+username+'】,真的要执行删除操作吗？',mtConfirmation, [mbYes,mbNo], 0)=mrYes then
    begin
      self.ds3.Delete;
      self.ds3.ApplyUpdates(0);
      loginform.ExecuteSQL('insert into log '+
                           'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                   ''','''+loginform.userid+''','''+LoginForm.username+
                                   ''',''部门【'+deptname+'】操作员【'+username+'】删除成功'')');
    end;
end;

procedure TSetUserForm.suiButton10Click(Sender: TObject);
var
  deptname,username:string;
begin
  deptname:=self.dbedtdepart_mc.Text;
  username:=self.dbedtuser_xm.Text;
  if self.ds3.State in [dsedit,dsinsert] then
    begin
      self.ds3.Post;
      self.ds3.ApplyUpdates(0);
      if self.ds3.State=dsedit then
        loginform.ExecuteSQL('insert into log '+
                             'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                     ''','''+loginform.userid+''','''+LoginForm.username+
                                     ''',''部门【'+deptname+'】操作员【'+username+'】添加成功'')')
      else
        loginform.ExecuteSQL('insert into log '+
                             'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                     ''','''+loginform.userid+''','''+LoginForm.username+
                                     ''',''部门【'+deptname+'】操作员【'+username+'】添加成功'')');
    end
  else
    MessageDlg('当前数据表未处于添加或编辑状态,不可执行相关操作！',mtConfirmation, [mbYes], 0);
end;

procedure TSetUserForm.suiButton9Click(Sender: TObject);
begin
  self.ds3.Cancel;
end;

procedure TSetUserForm.dbedtdepart_mcKeyPress(Sender: TObject;
  var Key: Char);
var
  count:Integer;
begin
  if key=#13 then
    begin
      loginform.ExecuteSQL('select count(*) from depart where depart_mc='''+self.dbedtdepart_mc.Text+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count=0 then
        self.suiButton7.SetFocus
      else
        begin
          MessageDlg('部门名称【'+self.dbedtdepart_mc.Text+'】信息已存在,请重新输入！',mtConfirmation, [mbYes], 0);
          self.dbedtdepart_mc.Clear;
          self.dbedtdepart_mc.SetFocus;
        end;
    end;
end;

procedure TSetUserForm.dbedtuser_bhKeyPress(Sender: TObject;
  var Key: Char);
var
  count:integer;
begin
  if key=#13 then
    begin
      loginform.ExecuteSQL('select count(*) from users '+
                           'where user_departBM='''+self.dbedtdepart_bm.Text+''' and '+
                                 'user_bh='''+self.dbedtuser_bh.Text+'''');
      count:=loginform.dsQuery.Fields[0].AsInteger;
      loginform.dsQuery.Close;
      if count=0 then
        self.dbedtuser_mm.SetFocus
      else
        begin
          MessageDlg('部门【'+self.dbedtdepart_mc.Text+'】操作员【'+self.dbedtuser_bh.Text+'】信息已存在,请重新输入！',
                     mtConfirmation, [mbYes], 0);
          self.dbedtuser_bh.Clear;
          self.dbedtuser_bh.SetFocus;
        end;
    end;
end;

procedure TSetUserForm.dbedtuser_mmKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
    self.dbedtuser_xm.SetFocus;
end;

procedure TSetUserForm.dbedtuser_xmKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
    self.dbedtuser_fby.SetFocus;
end;

procedure TSetUserForm.dbedtuser_fbyKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in [#48..#57,#13,#8,#46]) then
    key:=#0
  else
    if Key=#13 then
      Self.suiDBComboBox1.SetFocus;
end;

procedure TSetUserForm.suiDBComboBox1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
    self.dbedtuser_groupID.SetFocus;
end;

procedure TSetUserForm.suiDBComboBox2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key=#13 then
    Self.suiButton10.SetFocus;
end;

procedure TSetUserForm.img1Click(Sender: TObject);
begin
  application.CreateForm(TSetGroupForm,SetGroupForm);
  SetGroupForm.Show;
  Enabled:=False;
end;

end.