类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, ImgList, Buttons, StdCtrls;
type
TFormMain = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N2: TMenuItem;
N13: TMenuItem;
N18: TMenuItem;
N14: TMenuItem;
N3: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N4: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N7: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
StatusBar1: TStatusBar;
Timer1: TTimer;
ImageList1: TImageList;
SpeedButton1: TSpeedButton;
BitBtn1: TBitBtn;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ToolButton4: TToolButton;
procedure N34Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TFormMain;
implementation
uses tzd, yptzd_QR;
{$R *.dfm}
procedure TFormMain.N34Click(Sender: TObject);
begin
application.HelpFile:=help/rd.hlp;
application.HelpCommand(HELP_FINDER, 0);
end;
procedure TFormMain.N13Click(Sender: TObject);
begin
if application.FindComponent(formtzd)=nil then
application.CreateForm(tFormTzd,FormTzd);
FormTzd.Show;
end;
procedure TFormMain.Timer1Timer(Sender: TObject);
begin
with StatusBar1 do
begin
Panels[1].Text:=DateToStr(Date);//显示日期
Panels[2].Text:=TimeToStr(Time);//显示时间
end;
end;
procedure TFormMain.ToolButton14Click(Sender: TObject);
begin
FormMain.Close;
end;
procedure TFormMain.N12Click(Sender: TObject);
begin
FormMain.Close;
end;
procedure TFormMain.SpeedButton1Click(Sender: TObject);
begin
QR_yptzd.QuickRep1.Preview;
QR_yptzd.QuickRep1.Destroy;
end;
procedure TFormMain.BitBtn1Click(Sender: TObject);
begin
FormMain.Close;
end;
end.
不理解。找了书上没有做介绍。另外有没有函数库查询呀！
想写东东不知道函数也无从下手呀！
网友回答：