?? main.pas
字號:
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ComCtrls, ToolWin, Menus, AppEvnts,DBTables, Wwintl;
type
Tmainform = class(TForm)
StatusBar1: TStatusBar;
ImageList1: TImageList;
CoolBar1: TCoolBar;
ToolBar: TToolBar;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton5: TToolButton;
ToolButton8: TToolButton;
ApplicationEvents1: TApplicationEvents;
MainMenu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N17: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
N46: TMenuItem;
N47: TMenuItem;
N48: TMenuItem;
N49: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
N56: TMenuItem;
E1: TMenuItem;
F1: TMenuItem;
G1: TMenuItem;
wwIntl1: TwwIntl;
N18: TMenuItem;
E2: TMenuItem;
A1: TMenuItem;
N27: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
N59: TMenuItem;
N60: TMenuItem;
N61: TMenuItem;
N62: TMenuItem;
N63: TMenuItem;
N64: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N8: TMenuItem;
C1: TMenuItem;
D1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N16: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
N71: TMenuItem;
N72: TMenuItem;
N73: TMenuItem;
N74: TMenuItem;
N75: TMenuItem;
N76: TMenuItem;
procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
procedure N42Click(Sender: TObject);
procedure N48Click(Sender: TObject);
procedure N54Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N43Click(Sender: TObject);
procedure N44Click(Sender: TObject);
procedure N45Click(Sender: TObject);
procedure N46Click(Sender: TObject);
procedure N47Click(Sender: TObject);
procedure N50Click(Sender: TObject);
procedure N51Click(Sender: TObject);
procedure N52Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N49Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure E1Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure N53Click(Sender: TObject);
procedure N55Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure G1Click(Sender: TObject);
procedure F1Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N38Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N39Click(Sender: TObject);
procedure ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
procedure ToolButton8Click(Sender: TObject);
procedure E2Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure N57Click(Sender: TObject);
procedure N59Click(Sender: TObject);
procedure N58Click(Sender: TObject);
procedure N60Click(Sender: TObject);
procedure N61Click(Sender: TObject);
procedure N62Click(Sender: TObject);
procedure N63Click(Sender: TObject);
procedure N64Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N67Click(Sender: TObject);
procedure N68Click(Sender: TObject);
procedure N69Click(Sender: TObject);
procedure N70Click(Sender: TObject);
procedure N71Click(Sender: TObject);
procedure N72Click(Sender: TObject);
procedure N73Click(Sender: TObject);
procedure N75Click(Sender: TObject);
procedure N76Click(Sender: TObject);
private
procedure OpenForm(Formclass:TFormClass;var Myform;
AOwner:Tcomponent;CaptionStr:string;
PrgName:string);
{ Private declarations }
public
{ Public declarations }
end;
var
mainform: Tmainform;
pu_date:tdate;
pu_empid,pu_empname,pu_qx,pu_loginid:string;
implementation
uses Pdlgloading, uezaf001, uezaf007, uezbf005, uezbf009, uezbf010,
uezaf002, uezaf003, uezaf004, uezaf005, uezaf006, uezaf009, uezaf010,
uezaf012, uezbf001, uezbf002, uezbf003, uezbf004, uezbf007, uezcf001,
uezcf002, uezcf003, uezaf008, uezaf011, uezaf015, uezbf011, uezdf001,
uezaf013, uezef001, uezcf005, uezef002, uezef003, uezbf014, uezbf006,
uezbf012, uezbf013, uezbf008, uezcf006, uezdf002, uezdf003, uezdf004,
uezff002, uezff001, uezff003, uezgf001,login_form,htmlhlp, uezdr005,
uezdf006, uezhr001, uezhr004, uezhr003, uezhr005, uezhr002, uezhr006,
uezhr007, uezhr008, uezhr009, uezhr010, uezhr011, uezhr012, uezhr013,
uezhr014, uezhr015, uezaf016, uezhr016, regobj, uezhr020;
{$R *.dfm}
{ Tmainform }
procedure Tmainform.OpenForm(Formclass: TFormClass; var Myform;
AOwner: Tcomponent; CaptionStr, PrgName: string);
var i:integer;
child :Tform;
begin
for i:=0 to Screen.FormCount-1 do
if Screen.Forms[i].ClassType=Formclass then
begin
child:=Screen.Forms[i];
if child.WindowState =wsMinimized then
showWindow(child.handle,SW_SHOWNORMAL)
else
showWindow(child.handle,SW_SHOWNA);
if (not child.Visible ) then child.Visible :=True;
child.BringToFront ;
child.SetFocus ;
Tform(myform):=child;
exit;
end;
Dlgloading:=Tdlgloading.Create(self);
with DlgLoading do
begin
caption:=captionstr;
show;
update;
end;
child:=Tform(FormClass.Newinstance);
Tform(myform):=child;
lockWindowUpdate(handle);
child.Create (Aowner);
LockWindowUpdate(0);
end;
procedure Tmainform.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
var iDBIError: Integer;
iSQLError:integer;
begin
if (E is EDBEngineError) then
with (E as EDBEngineError) do
begin
iDBIError :=Errors[0].Errorcode;
case iDBIError of
9732: MessageDlg('必輸字段不能為空', mtWarning, [mbOK], 0);
9729: MessageDlg('鍵值重復', mtWarning,[mbOK], 0);
9733: MessageDlg('主數據丟失', mtWarning,[mbOK],0);
9734: MessageDlg('主表已有明細，不能刪除或修改',mtWarning, [mbOK], 0);
10000: MessageDlg('不正確的數據類型',mtWarning, [mbOK], 0);
10024: MessageDlg('數據表不存在',mtWarning, [mbOK], 0);
13059: //SQL語句錯誤
begin
iSQLError:=Errors[0].NativeError;
if ErrorCount>=1 then
MessageDlg(Errors[1].Message,mtWarning, [mbOK], 0);
end;
13060: MessageDlg('數據表已存在',mtWarning, [mbOK], 0);
else
MessageDlg('出錯啦！',mtWarning, [mbOK], 0);
end;
end;
end;
procedure Tmainform.FormCreate(Sender: TObject);
var login_form:tlogin_formf;
obj:TRegObj;
begin
login_form:=tlogin_formf.Create(self);
login_form.Showmodal;
if login_form.ModalResult=mrok then
begin
//創建系統參數；
pu_empid:=login_form.emp_id;
pu_empname:=login_form.emp_name;
pu_qx:=login_form.qx;
pu_loginid:=login_form.loginid;
pu_date:=now();
//創建注冊信息;
{ try
Obj := TRegObj.Create;
Obj.MaxTimes := 3;
Obj.Company :='優依軟件公司';
Obj.Email :='biz@uerpcn.com';
Obj.Execute;
finally
Obj.Free;
end;
}
end
else application.Terminate;
end;
procedure Tmainform.N42Click(Sender: TObject);
begin
openform(Tuezaf001f,uezaf001f,self,'證書類型建檔','uezaf001');
end;
procedure Tmainform.N48Click(Sender: TObject);
begin
openform(Tuezaf007f,uezaf007f,self,'等效課程建檔','uezaf007');
end;
procedure Tmainform.N54Click(Sender: TObject);
begin
openform(Tuezbf005f,uezbf005f,self,'免除原因建檔','uezbf005');
end;
procedure Tmainform.N19Click(Sender: TObject);
begin
openform(Tuezbf009f,uezbf009f,self,'培訓計劃信息','uezbf009');
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -