mc_jslbsz.pas

异洲酒店管理系统

unit MC_JSLBSZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, DBActns, ActnList, DBCtrls, Mask, Grids,
  DBGrids;

type
  TJSLBSZ = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBText1: TDBText;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPrior1: TDataSetPrior;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Panel1: TPanel;
    Image1: TImage;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JSLBSZ: TJSLBSZ;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

procedure TJSLBSZ.DBEdit2Exit(Sender: TObject);
begin
 TDBEdit(Sender).Color:=ClWindow;
end;

procedure TJSLBSZ.DBEdit2Enter(Sender: TObject);
begin
 TDBEdit(Sender).Color:=ClAqua;
end;

procedure TJSLBSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then BitBtn6.SetFocus;
end;
//系统初始化
procedure TJSLBSZ.FormShow(Sender: TObject);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE);
 TLCYGLXT.JSLBXXB.Edit;
 TLCYGLXT.JSLBXXB.Cancel;
 JSLBSZ.Refresh;
 GroupBox1.Refresh;
 DBGRid1.RefResh;
 Panel1.Refresh;
end;

//添加数据
procedure TJSLBSZ.BitBtn5Click(Sender: TObject);
var a:integer;
begin
 if BitBtn5.Caption='添加' then
 begin
  TLCYGLXT.JSLBXXB.Refresh;
  If TLCYGLXT.JSLBXXB.RecordCount <> 0 Then
   begin
    a:=1;
    TLCYGLXT.JSLBXXB.Last;
    a:=a+TLCYGLXT.JSLBXXB.FieldByName('编号').AsInteger;
   End
   Else
   begin
    a:=1;
   end;
   BitBtn5.Caption:='取消';
   BitBtn6.Caption:='保存';
   bitBtn7.Enabled:=False;
   BitBtn8.enabled:=False;
   bitBtn1.Enabled:=False;
   BitBtn2.enabled:=False;
   bitBtn3.Enabled:=False;
   BitBtn4.enabled:=False;
   DBGrid1.Enabled:=False;
   DBEdit2.Enabled:=True;
   TLCYGLXT.JSLBXXB.Append;
   TLCYGLXT.JSLBXXB.FieldByName('编号').AsInteger:=a;
   DBEdit2.SetFocus;
 End
 Else
 begin
  BitBtn5.Caption:='添加';
  Bitbtn6.Caption:='修改';
  DBEdit2.Enabled:=False;
  BitBtn7.Enabled:=True;
  BitBtn8.Enabled:=True;
  BitBtn1.Enabled:=True;
  BitBtn2.Enabled:=True;
  BitBtn3.Enabled:=True;
  BitBtn4.Enabled:=True;
  DBGrid1.Enabled:=True;
  TLCYGLXT.JSLBXXB.Cancel;
 end;
end;
//修改数据
procedure TJSLBSZ.BitBtn6Click(Sender: TObject);
begin
 if BitBtn6.Caption='修改' then
 begin
  BitBtn5.Caption:='取消';
  Bitbtn6.Caption:='保存';
  bitBtn7.Enabled:=False;
  BitBtn8.Enabled:=False;
  BitBtn1.Enabled:=False;
  BitBtn2.Enabled:=False;
  BitBtn3.Enabled:=False;
  Bitbtn4.Enabled:=False;
  DBEdit2.Enabled:=True;
  DBGrid1.Enabled:=False;
  TLCYGLXT.JSLBXXB.Edit;
  DBEdit2.SetFocus;
 End
 Else
 begin
 if Length(TLCYGLXT.JSLBXXB.FieldByname('类别名称').AsString)<>0 then
 begin
  BitBtn5.Caption:='添加';
  BitBtn6.Caption:='修改';
  BitBtn7.Enabled:=True;
  Bitbtn8.Enabled:=True;
  Bitbtn1.Enabled:=True;
  bitBtn2.Enabled:=True;
  BitBtn3.Enabled:=True;
  Bitbtn4.Enabled:=True;
  DBEdit2.Enabled:=False;
  DBGrid1.Enabled:=True;
  TLCYGLXT.JSLBXXB.Post;
 End
 Else
 begin
  ShowMessage('请输入类别名称');
  DBEdit2.SetFocus;
 end;
end;
end;
//删除数据
procedure TJSLBSZ.BitBtn7Click(Sender: TObject);
begin
 TLCYGLXT.JSLBXXB.Refresh;
 If TLCYGLXT.JSLBXXB.RecordCount <> 1 Then
 begin
  if MessageDLG('确认删除［类别名称='+TLCYGLXT.JSLBXXB
  .FieldByname('类别名称').AsString+']的信息?'
  ,mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
   TLCYGLXT.JSLBXXB.Delete;
   TLCYGLXT.JSLBXXB.Refresh;
  end;
 End
 Else
 begin
  ShowMessage('数据信息中必须有一个记录');
 end;
end;

procedure TJSLBSZ.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 If Bitbtn8.Enabled = False Then
 begin
 ShowMessage('请保存数据');
 Abort;
 end;
end;
//关闭窗体
procedure TJSLBSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE+AW_HIDE);
 TLCYGLXT.JSLBXXB.Close;
 JSLBSZ.Release;
 JSLBSZ:=Nil;
end;
//退出
procedure TJSLBSZ.BitBtn8Click(Sender: TObject);
begin
 Close;
end;
end.