【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,MC_CYXX.pas,希望对大家有所帮助!
unit MC_CYXX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBCtrls, ExtCtrls, StdCtrls, ComCtrls, Mask, ExtDlgs, Db, DBTables;
type
TCYXX = class(TForm)
Label26: TLabel;
Label20: TLabel;
Label21: TLabel;
Label1: TLabel;
Label22: TLabel;
GroupBox1: TGroupBox;
Label2: 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;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label27: TLabel;
GroupBox2: TGroupBox;
Shape1: TShape;
DBImage1: TDBImage;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
DBText5: TDBText;
DBText6: TDBText;
DBText7: TDBText;
DBText8: TDBText;
DBText9: TDBText;
DBText10: TDBText;
DBText11: TDBText;
DBText12: TDBText;
DBText13: TDBText;
DBText14: TDBText;
DBText15: TDBText;
DBText16: TDBText;
DBText17: TDBText;
DBText18: TDBText;
DBText19: TDBText;
DBText20: TDBText;
DBMemo1: TDBMemo;
DBText21: TDBText;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
Bevel8: TBevel;
Bevel9: TBevel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CYXX: TCYXX;
implementation
uses MC_YZEdit;
{$R *.DFM}
procedure TCYXX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CYXX.Release;
CYXX:=Nil;
end;
end.