【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：MC_GZDCBorse.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit MC_GZDCBorse;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      Db, DBTables, ExtCtrls, StdCtrls, Grids, DBGrids;
    
    type
      TGZDCBorse = class(TForm)
        DBGrid1: TDBGrid;
        GroupBox1: TGroupBox;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        Label13: TLabel;
        Label14: TLabel;
        Label23: TLabel;
        Label24: TLabel;
        Label25: TLabel;
        Label26: TLabel;
        Panel1: TPanel;
        Label1: TLabel;
        Label2: TLabel;
        Label15: TLabel;
        Label16: TLabel;
        Label17: TLabel;
        Label18: TLabel;
        Label19: TLabel;
        Label20: TLabel;
        Label21: TLabel;
        Label22: TLabel;
        Label27: TLabel;
        Label28: TLabel;
        Query1: TQuery;
        Query1BDEDesigner: TIntegerField;
        Query1BDEDesigner2: TStringField;
        Query1BDEDesigner3: TIntegerField;
        Query1BDEDesigner4: TStringField;
        Query1BDEDesigner5: TStringField;
        Query1BDEDesigner6: TStringField;
        Query1BDEDesigner7: TIntegerField;
        Query1BDEDesigner8: TFloatField;
        Query1BDEDesigner9: TFloatField;
        Query1BDEDesigner10: TDateTimeField;
        Query1BDEDesigner11: TDateTimeField;
        Query1BDEDesigner12: TIntegerField;
        Query1BDEDesigner13: TStringField;
        Query1BDEDesigner14: TStringField;
        Query1BDEDesigner15: TIntegerField;
        Query1BDEDesigner16: TStringField;
        DataSource1: TDataSource;
        Query2: TQuery;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      GZDCBorse: TGZDCBorse;
    
    implementation
    
    {$R *.DFM}
    
    procedure TGZDCBorse.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
         GZDCBorse.Release;
         GZDCBorse:=Nil;
    end;
    
    end.
    

上一篇：MC_GZ.pas
下一篇：数控回转工作台设计 毕业设计word2003