【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了: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.
    
    

上一篇：MC_CHXXTJ.pas
下一篇：加强公路桥梁施工质量、成本及进度的管理对策