?? f_main.pas
字號:
unit f_main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ExtCtrls, StdCtrls, ToolWin, ImgList;
type
TForm3 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
StatusBar1: TStatusBar;
Timer1: TTimer;
ToolBar1: TToolBar;
ImageList1: TImageList;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
j1: TMenuItem;
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure j1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1, f_xgmm, f_yhgl, Unit6, Unit5, Unit7, Unit8, Unit10, Unit9,
data_2;
{$R *.dfm}
function whatweek:string;
var
i_week:integer;
begin
i_week:=dayofweek(date());
case i_week of
1:result:=' 星期日';
2:result:='星期一';
3:result:='星期二';
4:result:='星期三';
5:result:='星期四';
6:result:='星期五';
7:result:='星期六';
end;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
var
s_date,strl,str2:string;
begin
strl:= formatdatetime('yyyy/mm/dd ',date());
str2:=' 今天是 '+copy(strl,1,4)+ '年' +copy(strl,6,2)+ '月' +copy(strl,9,2)+ '日' ;
s_date:=' '+str2+' '+whatweek();
StatusBar1.Panels[0].Text:=s_date;
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('確認要退出程序嗎?','提示',mb_okcancel)=idok then
begin
action:=cafree;
application.Terminate;
end
else
action:=caNone;
end;
procedure TForm3.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
f_xgmima.show;
end;
procedure TForm3.N2Click(Sender: TObject);
begin
form4.Show;
end;
procedure TForm3.N8Click(Sender: TObject);
begin
f_wsqk.show;
end;
procedure TForm3.N9Click(Sender: TObject);
begin
f_cxqs:=tf_cxqs.Create(self);
f_cxqs.show;
end;
procedure TForm3.N15Click(Sender: TObject);
begin
f_login.ShowModal;
end;
procedure TForm3.N12Click(Sender: TObject);
begin
f_cxws.Show;
end;
procedure TForm3.N7Click(Sender: TObject);
begin
form10.Show;
end;
procedure TForm3.ToolButton1Click(Sender: TObject);
begin
f_cxqs:=tf_cxqs.Create(self);
f_cxqs.show;
end;
procedure TForm3.ToolButton2Click(Sender: TObject);
begin
f_cxws.Show;
end;
procedure TForm3.N11Click(Sender: TObject);
begin
data4.frreport1.showreport;
end;
procedure TForm3.ToolButton3Click(Sender: TObject);
begin
data4.frreport1.showreport;
end;
procedure TForm3.N13Click(Sender: TObject);
begin
data4.frreport2.showreport;
end;
procedure TForm3.ToolButton4Click(Sender: TObject);
begin
data4.frreport2.showreport;
end;
procedure TForm3.N17Click(Sender: TObject);
begin
winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);
end;
procedure TForm3.N18Click(Sender: TObject);
begin
f_bz.show;
end;
procedure TForm3.j1Click(Sender: TObject);
begin
winexec('calc.exe',1);
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -