【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供MC_CWBSJDY.pas参考,解决您在MC_CWBSJDY.pas学习中工作中的难题,参考学习。
unit MC_CWBSJDY;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls;
type
TCWBSJDY = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn7: TBitBtn;
Bevel1: TBevel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CWBSJDY: TCWBSJDY;
implementation
uses MC_SDMQFDY, MC_CNFDY, MC_FZXXDY, MC_FYHZDY;
{$R *.DFM}
procedure TCWBSJDY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CWBSJDY.Release;
CWBSJDY:=Nil;
end;
procedure TCWBSJDY.BitBtn7Click(Sender: TObject);
begin
Close;
end;
procedure TCWBSJDY.BitBtn1Click(Sender: TObject);
begin
if Not Assigned(SDMQFDY) then
begin
SDMQFDY:=TSDMQFDY.Create(self);
SDMQFDY.ShowModal;
end;
end;
procedure TCWBSJDY.BitBtn4Click(Sender: TObject);
begin
if not Assigned(CNFDY) then
begin
CNFDY:=TCNFDY.Create(Self);
CNFDY.ShowModal;
end;
end;
procedure TCWBSJDY.BitBtn5Click(Sender: TObject);
begin
if not Assigned(FZXXDY) then
begin
FZXXDY:=TFZXXDY.Create(Self);
FZXXDY.ShowModal;
end;
end;
procedure TCWBSJDY.BitBtn2Click(Sender: TObject);
begin
if Not Assigned(FYHZDY) then
begin
FYHZDY:=TFYHZDY.Create(Self);
FYHZDY.ShowModal;
end;
end;
end.
上一篇:
MC_CSHBZFY.pas
下一篇:
法律专业开题报告范文