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

    unit MC_CHXXLLCK;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, ExtCtrls, Grids, DBGrids, Buttons, Db, DBTables, DBCtrls;
    
    type
      TCHXXLLCK = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        GroupBox1: TGroupBox;
        Label3: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        DBGrid1: TDBGrid;
        Panel1: TPanel;
        Label9: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        BitBtn1: TBitBtn;
        Query1: TQuery;
        DataSource1: TDataSource;
        Query1BDEDesigner: TIntegerField;
        Query1BDEDesigner2: TStringField;
        Query1BDEDesigner3: TDateTimeField;
        Query1BDEDesigner4: TIntegerField;
        Query1BDEDesigner5: TStringField;
        Query1BDEDesigner6: TStringField;
        Query1BDEDesigner7: TIntegerField;
        Query1BDEDesigner8: TFloatField;
        Query1BDEDesigner9: TFloatField;
        Query1BDEDesigner10: TStringField;
        DBText1: TDBText;
        DBText2: TDBText;
        DBText3: TDBText;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure BitBtn1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      CHXXLLCK: TCHXXLLCK;
    
    implementation
    
    {$R *.DFM}
    
    procedure TCHXXLLCK.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
         CHXXLLCK.Release;
         CHXXLLCK:=Nil;
    end;
    
    procedure TCHXXLLCK.BitBtn1Click(Sender: TObject);
    begin
         Close;
    end;
    
    end.