mc_cjlbsz.pas

异洲酒店管理系统

unit MC_CJLBSZ;

interface

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

type
  TCJLBSZ = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    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;
    DBEdit2: TDBEdit;
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2Exit(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CJLBSZ: TCJLBSZ;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

procedure TCJLBSZ.FormShow(Sender: TObject);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE);
 TLCYGLXT.CJLBXXB.Edit;
 TLCYGLXT.CJLBXXB.Cancel;
 CJLBSZ.Refresh;
 GroupBox1.Refresh;
 DBGRid1.RefResh;
 Panel1.Refresh;
end;

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

procedure TCJLBSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then BitBtn6.SetFocus;
end;

procedure TCJLBSZ.DBEdit2Exit(Sender: TObject);
begin
 TDBEdit(Sender).Color:=ClWindow;
end;
//添加餐具信息
procedure TCJLBSZ.BitBtn5Click(Sender: TObject);
var a:integer;
begin
 if BitBtn5.Caption='添加' then
 begin
  TLCYGLXT.CJLBXXB.Refresh;
  If TLCYGLXT.CJLBXXB.RecordCount <> 0 Then
   begin
    a:=1;
    TLCYGLXT.CJLBXXB.Last;
    a:=a+TLCYGLXT.CJLBXXB.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.CJLBXXB.Append;
   TLCYGLXT.CJLBXXB.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.CJLBXXB.Cancel;
 end;
end;
//修改餐具信息
procedure TCJLBSZ.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.CJLBXXB.Edit;
  DBEdit2.SetFocus;
 End
Else
begin
  if Length(TLCYGLXT.CJLBXXB.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.CJLBXXB.Post;
  End
  Else
  begin
   ShowMessage('请输入类别名称');
   DBEdit2.SetFocus;
  end;
 end;
end;
//删除餐具信息
procedure TCJLBSZ.BitBtn7Click(Sender: TObject);
begin
 TLCYGLXT.CJLBXXB.Refresh;
 If TLCYGLXT.CJLBXXB.RecordCount <> 1 Then
 begin
 if MessageDLG('确认删除［类别名称='+TLCYGLXT.CJLBXXB
  .FieldByname('类别名称').AsString+']的信息?'
  ,mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
   TLCYGLXT.CJLBXXB.Delete;
   TLCYGLXT.CJLBXXB.Refresh;
  end;
 End
 Else
 begin
 ShowMessage('数据信息中必须有一个记录');
 end;
end;
//退出
procedure TCJLBSZ.BitBtn8Click(Sender: TObject);
begin
 Close;
end;
//关闭窗体
procedure TCJLBSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE+AW_HIDE);
 TLCYGLXT.CJLBXXB.Close;
 CJLBSZ.Release;
 CJLBSZ:=Nil;
end;

procedure TCJLBSZ.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
If Bitbtn8.Enabled = False Then
begin
  ShowMessage('请保存数据');
  Abort;
end;
end;

end.