【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MaimForm.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit MaimForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ImgList, ComCtrls, ToolWin, ExtCtrls, DB, ADODB;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N9: TMenuItem;
N15: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N23: TMenuItem;
ADQIsExists: TADOQuery;
ADQSyIsExists: TADOQuery;
N24: TMenuItem;
N27: TMenuItem;
N25: TMenuItem;
N33: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses Fwgl, rzgl, Kfdj, Zjgl,Zfcx, Tfgl;
{$R *.dfm}
procedure TMainForm.N2Click(Sender: TObject);
begin
if fwform=nil then
fwform:=Tfwform.Create(nil);
fwform.ShowModal;
end;
procedure TMainForm.N4Click(Sender: TObject);
begin
if rzform=nil then
rzform:=Trzform.Create(nil);
rzform.ShowModal;
end;
procedure TMainForm.N20Click(Sender: TObject);
begin
if zjform=nil then
zjform:=Tzjform.Create(nil);
zjform.ShowModal;
end;
procedure TMainForm.N25Click(Sender: TObject);
begin
if ZfKfCxform=nil then
ZfKfCxform:=TZfKfCxform.Create(nil);
ZfKfCxform.ShowModal;
end;
procedure TMainForm.N5Click(Sender: TObject);
begin
if TfglForm=nil then
TfglForm:=TTfglForm.Create(nil);
TfglForm.ShowModal;
end;
procedure TMainForm.N15Click(Sender: TObject);
begin
close;
end;
procedure TMainForm.N9Click(Sender: TObject);
begin
if khForm=nil then
khForm:=TkhForm.Create(nil);
khForm.ShowModal;
end;
end.
上一篇:
GradientProgressCtrl.cpp
下一篇:
扛起年轻化大旗,哈弗F系玩转行业新风潮