setserverunit.pas

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

unit SetServerUnit;

interface

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

type
  TSetServerForm = class(TForm)
    suiPanel2: TsuiPanel;
    lbl12: TLabel;
    lbl13: TLabel;
    lbl14: TLabel;
    lbl15: TLabel;
    lbl16: TLabel;
    suiDBGrid1: TsuiDBGrid;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiButton5: TsuiButton;
    suiButton6: TsuiButton;
    suiButton9: TsuiButton;
    suiButton10: TsuiButton;
    ds1: TClientDataSet;
    ds2: TDataSource;
    ds1id: TIntegerField;
    wdstrngfldds1name: TWideStringField;
    wdstrngfldds1sex: TWideStringField;
    wdstrngfldds1phone: TWideStringField;
    wdstrngfldds1cardname: TWideStringField;
    wdstrngfldds1address: TWideStringField;
    dbedtid: TDBEdit;
    dbedtname: TDBEdit;
    dbedtphone: TDBEdit;
    dbedtcardname: TDBEdit;
    dbedtaddress: TDBEdit;
    Label1: TLabel;
    suiDBComboBox1: TsuiDBComboBox;
    procedure suiButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure suiButton3Click(Sender: TObject);
    procedure dbedtnameKeyPress(Sender: TObject; var Key: Char);
    procedure suiDBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton9Click(Sender: TObject);
    procedure dbedtphoneKeyPress(Sender: TObject; var Key: Char);
    procedure dbedtcardnameKeyPress(Sender: TObject; var Key: Char);
    procedure dbedtaddressKeyPress(Sender: TObject; var Key: Char);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetServerForm: TSetServerForm;

implementation

uses LoginUnit, MainUnit, AbortUnit;

{$R *.dfm}

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

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

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

procedure TSetServerForm.suiButton3Click(Sender: TObject);
var
  id:string;
begin
  self.ds1.Append;
  loginform.ExecuteSQL('select max(id)+1 from server');
  id:=loginform.dsQuery.Fields[0].AsString;
  loginform.dsQuery.Close;
  if length(id)=1 then
    id:='0'+id;
  self.ds1.FieldByName('id').AsString:=id;
  self.dbedtname.SetFocus;
end;

procedure TSetServerForm.dbedtnameKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    self.suiDBComboBox1.SetFocus;
end;

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

procedure TSetServerForm.suiButton4Click(Sender: TObject);
begin
  self.ds1.Edit;
  self.dbedtname.SetFocus;
end;

procedure TSetServerForm.suiButton9Click(Sender: TObject);
begin
  self.ds1.Cancel;
end;

procedure TSetServerForm.dbedtphoneKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in [#48..#57,#45,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      self.dbedtcardname.SetFocus;
end;

procedure TSetServerForm.dbedtcardnameKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (key in [#48..#57,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      self.dbedtaddress.SetFocus;
end;

procedure TSetServerForm.dbedtaddressKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
    self.suiButton10.SetFocus;
end;

procedure TSetServerForm.suiButton5Click(Sender: TObject);
var
  id:string;
  name:string;
begin
  id:=self.dbedtid.Text;
  name:=self.dbedtname.Text;
  if MessageDlg('服务生ID【'+id+'】服务生姓名【'+name+'】,真的要执行删除操作吗？',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+
                                   ''',''服务生ID【'+id+'】服务生姓名【'+name+'】删除成功'')');
   end;
end;

procedure TSetServerForm.suiButton10Click(Sender: TObject);
var
  id:string;
  name:string;
begin
  id:=self.dbedtid.Text;
  name:=self.dbedtname.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+
                                     ''',''服务生ID【'+id+'】服务生姓名【'+name+'】编辑成功'')')
      else
        loginform.ExecuteSQL('insert into log '+
                             'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+
                                     ''','''+loginform.userid+''','''+LoginForm.username+
                                     ''',''服务生ID【'+id+'】服务生姓名【'+name+'】添加成功'')');
    end
  else
    MessageDlg('当前数据表未处于添加或编辑状态,不可执行相关操作！',mtConfirmation, [mbYes], 0);
end;

end.