mc_cxlbsz.~pas

腾龙餐饮管理软件

unit MC_CXLBSZ;

interface

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

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

var
  CXLBSZ: TCXLBSZ;

implementation

uses MC_TLCYGLXT;

{$R *.DFM}

procedure TCXLBSZ.FormShow(Sender: TObject);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE);
 TLCYGLXT.CXLBXXB.Edit;
 TLCYGLXT.CXLBXXB.Cancel;
 CXLBSZ.Refresh;
 GroupBox1.Refresh;
 DBGRid1.RefResh;
 Panel1.Refresh;
end;
//删除信息
procedure TCXLBSZ.BitBtn7Click(Sender: TObject);
begin
 TLCYGLXT.CXLBXXB.Refresh;
 If TLCYGLXT.CXLBXXB.RecordCount <> 1 Then
 begin
  if MessageDLG('确认删除［菜系名称='+TLCYGLXT.CXLBXXB
  .FieldByname('菜系名称').AsString+']的信息?'
  ,mtCustom,[mbYes,mbNO],0)=mrYes then
  begin
    TLCYGLXT.CXLBXXB.Delete;
    TLCYGLXT.CXLBXXB.Refresh;
  end;
  End
  Else
  begin
   ShowMessage('数据信息中必须有一个记录');
 end;
end;
//信息添加
procedure TCXLBSZ.BitBtn5Click(Sender: TObject);
var a:integer;
begin
 if BitBtn5.Caption='添加' then
 begin
  TLCYGLXT.CXLBXXB.Refresh;
  If TLCYGLXT.CXLBXXB.RecordCount <> 0 Then
  begin
   a:=1;
   TLCYGLXT.CXLBXXB.Last;
   a:=a+TLCYGLXT.CXLBXXB.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.CXLBXXB.Append;
  TLCYGLXT.CXLBXXB.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.CXLBXXB.Cancel;
 end;
end;
//信息修改
procedure TCXLBSZ.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.CXLBXXB.Edit;
  DBEdit2.SetFocus;
 End
 Else
 begin
  if Length(TLCYGLXT.CXLBXXB.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.CXLBXXB.Post;
  End
 Else
 begin
  ShowMessage('请输入菜系名称');
  DBEdit2.SetFocus;
 end;
 end;
end;

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

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

procedure TCXLBSZ.DBEdit2Exit(Sender: TObject);
begin
 TDBEdit(Sender).Color:=ClWindow;
end;
//回车焦点移动到下一控件
procedure TCXLBSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then BitBtn6.SetFocus;
end;
//关闭窗体
procedure TCXLBSZ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ANimateWindow(Handle,200,AW_CENTER+AW_SLIDE+AW_HIDE);
 TLCYGLXT.CXLBXXB.Close;
 CXLBSZ.Release;
 CXLBSZ:=Nil;
end;
//退出
procedure TCXLBSZ.BitBtn8Click(Sender: TObject);
begin
 Close;
end;


end.