【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,MC_CKJZDJDJCXX.pas,希望对大家有所帮助!
unit MC_CKJZDJDJCXX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Db, Grids, DBGrids, DBTables;
type
TCKJZDJDJCXX = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
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;
GroupBox1: TGroupBox;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Query2: TQuery;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CKJZDJDJCXX: TCKJZDJDJCXX;
implementation
{$R *.DFM}
procedure TCKJZDJDJCXX.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
CKJZDJDJCXX.Release;
CKJZDJDJCXX:=Nil;
end;
end.