【delphi开源代码栏目提醒】：网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“MC_CJXXSZ.pas”一文，供大家参考学习

    unit MC_CJXXSZ;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Mask, DBCtrls, Grids, DBGrids, DBActns, ActnList, Buttons,
      ExtCtrls, DB;
    
    type
      TCJXXSZ = class(TForm)
        DBGrid1: TDBGrid;
        GroupBox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        DBEdit2: TDBEdit;
        Label3: TLabel;
        DBEdit3: TDBEdit;
        Label4: TLabel;
        DBEdit4: TDBEdit;
        Label5: TLabel;
        Label6: TLabel;
        DBEdit6: TDBEdit;
        DBText1: TDBText;
        DBLookupComboBox1: TDBLookupComboBox;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        BitBtn3: TBitBtn;
        BitBtn4: TBitBtn;
        ActionList1: TActionList;
        DataSetFirst1: TDataSetFirst;
        DataSetLast1: TDataSetLast;
        DataSetNext1: TDataSetNext;
        DataSetPrior1: TDataSetPrior;
        BitBtn5: TBitBtn;
        BitBtn6: TBitBtn;
        BitBtn7: TBitBtn;
        BitBtn8: TBitBtn;
        BitBtn9: TBitBtn;
        Panel1: TPanel;
        Image1: TImage;
        Panel2: TPanel;
        Panel3: TPanel;
        Panel4: TPanel;
        Panel5: TPanel;
        ComboBox1: TComboBox;
        Edit1: TEdit;
        procedure FormShow(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
        procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
        procedure DBLookupComboBox1KeyPress(Sender: TObject; var Key: Char);
        procedure BitBtn5Click(Sender: TObject);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
        procedure BitBtn6Click(Sender: TObject);
        procedure BitBtn7Click(Sender: TObject);
        procedure BitBtn8Click(Sender: TObject);
        procedure BitBtn9Click(Sender: TObject);
        procedure ComboBox1Change(Sender: TObject);
        procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      CJXXSZ: TCJXXSZ;
    
    implementation
    
    uses MC_TLCYGLXT;
    
    {$R *.DFM}
    
    function Aenabled(key:integer):Boolean ;   //定义控件属性函数
    begin
    If key = 1 Then    //信息浏览状态
     begin
      CJXXSZ.BitBtn1.Enabled:=True;    //“首记录“按钮可用
      CJXXSZ.BitBtn2.Enabled:=True;    //“下一条”按钮可用
      CJXXSZ.BitBtn3.Enabled:=True;    //“上一条”按钮可用
      CJXXSZ.BitBtn4.Enabled:=True;    //“尾记录”按钮可用
      CJXXSZ.BitBtn5.Enabled:=True;    //“查询”按钮可用
      CJXXSZ.BitBtn8.Enabled:=True;    //“删除”按钮可用
      CJXXSZ.BitBtn9.Enabled:=True;    //“退出”按钮可用
      CJXXSZ.Edit1.Enabled:=True;
      CJXXSZ.Combobox1.Enabled:=True;
      CJXXSZ.DBGrid1.Enabled:=True;
      CJXXSZ.DBEdit2.Enabled:=False;
      CJXXSZ.DBEdit3.Enabled:=False;
      CJXXSZ.DBEdit4.Enabled:=False;
      CJXXSZ.DBLookupComboBox1.Enabled:=False;
      CJXXSZ.DBEdit6.Enabled:=False;
     End
     Else     //数据编辑状态
     begin
      CJXXSZ.BitBtn1.Enabled:=False;    //“首记录“按钮不可用
      CJXXSZ.BitBtn2.Enabled:=False;    //“下一条”按钮不可用
      CJXXSZ.BitBtn3.Enabled:=False;
      CJXXSZ.BitBtn4.Enabled:=False;
      CJXXSZ.BitBtn5.Enabled:=False;
      CJXXSZ.BitBtn8.Enabled:=False;
      CJXXSZ.BitBtn9.Enabled:=False;
      CJXXSZ.Edit1.Enabled:=False;
      CJXXSZ.Combobox1.Enabled:=False;
      CJXXSZ.DBGrid1.Enabled:=False;
      CJXXSZ.DBEdit2.Enabled:=True;
      CJXXSZ.DBEdit3.Enabled:=True;
      CJXXSZ.DBEdit4.Enabled:=True;
      CJXXSZ.DBLookupComboBox1.Enabled:=True;
      CJXXSZ.DBEdit6.Enabled:=True;
     end;
    end;
    procedure TCJXXSZ.FormShow(Sender: TObject);   //系统初始化
    begin
     TLCYGLXT.CJFYXXB.Next;
     CJXXSZ.Refresh;
     GroupBox1.Refresh;
     Panel1.Refresh;
     Panel2.Refresh;
     Panel3.Refresh;
     Panel4.Refresh;
     Panel5.Refresh;
     DBGrid1.Refresh;
     DBLookupComBoBox1.Refresh;
     DBText1.RefResh;
     Combobox1.RefResh;
     combobox1.ItemIndex:=0;
    end;
    
    procedure TCJXXSZ.DBEdit2KeyPress(Sender: TObject; var Key: Char);
    begin
     if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);  //焦点移到下一个控件
    end;
    
    procedure TCJXXSZ.DBEdit4KeyPress(Sender: TObject; var Key: Char);
    begin
     if key=#13 then DBLookupCombobox1.SetFocus;   //焦点移到餐具类别输入框
    end;
    
    procedure TCJXXSZ.DBLookupComboBox1KeyPress(Sender: TObject;
    var Key: Char);
    begin
     if key=#13 then DBEdit6.SetFocus;    //焦点移到餐具说明输入框
    end;
    procedure TCJXXSZ.BitBtn5Click(Sender: TObject);   //查询餐具信息
    begin
     If Length(Edit1.Text) = 0 Then   //如果查询输入为空
     begin
      ShowMessage('请输入查找的信息');
      Edit1.SetFocus;
     End
     Else     //如果查询输入不为空
     If TLCYGLXT.CJFYXXB.Locate(combobox1.Text, Edit1.Text, [loCaseInsensitive]) Then  //