📄 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 + -