1130 lines
30 KiB
ObjectPascal
1130 lines
30 KiB
ObjectPascal
unit U_GetDllForm;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, inifiles,
|
||
dxCore, ActiveX;
|
||
|
||
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
|
||
|
||
function ConnData(): Boolean;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_Fun, U_YFCR, U_FKCR, U_YFFKList, U_YSCR, U_SKCR, U_YSSKList,
|
||
U_ProductOrderCost, U_YFFP, U_YSFP, U_YFCR_SH, U_FKCR_SH, U_YFCRLZ, U_YSCRLZ,
|
||
U_YSHZMX, U_YFCRYCL, U_YSCROL, U_YSCRPB_GZ, U_SKCROLJ, U_YSHZMXOLJ, U_YSCR_SH,
|
||
U_YSCRPB_XN, U_YSFP_WX, U_SKCRLZ, U_YSHZMXDL, U_FKCRLZ, U_YSCRPB_ZHYH,
|
||
U_YSHZMXView, U_YFCRLZView, U_YFCRLZQty, U_SKCR_SH, U_SKCR_YF, U_SKCR_CX,
|
||
U_YSFP_WXCI, U_YSCRJZC, U_YSCR_Gd, U_SKCR_Gd, U_YFZDList_MX, U_YSZDList_MX,
|
||
U_YFMXlist, U_YSMXlist, U_FKCR_GD, U_YFCR_GD, U_YKHXList, U_YSCRPB,
|
||
U_YSCRPB_QT, U_YSCRKP, U_YSCR_PBSH, U_YSFP_WXSH, U_CaiWuHuilV, U_YSCRPB_QTHZ,
|
||
U_YSFP_FHDJ, U_YSCRPB_QTTJ, U_FKCR_DJ, U_YSZDList_YHZ, U_YSFP_SH, U_YSFP_WC,
|
||
U_YSCRPB_SH, U_YSCRPB_FK, U_YSCRPB_GZFK, U_YSCRPB_GZSH, U_YSCRPB_QTWLSH,
|
||
U_YSCRPB_QTWL, U_YSCRPB_QTWLFK, U_YSCRPB_JWLFK, U_YSCRPB_JWLSH, U_YSCRPB_JWL,
|
||
U_YSSKList_FPCX, U_GCFPHZList, U_YSCRPBMgg, U_FKSQList, U_FKChkList,
|
||
U_FKDFKList, U_YSCRPB_QTTJMgg, U_YSCRPB_FKHZ, U_YFHZ_EMX,U_YFHZ_MX;
|
||
|
||
/////////////////////////////////////////////////////////////////
|
||
// 功能说明:取Dll中得窗体 //
|
||
// 参数说明：App>>调用应用程序； //
|
||
// FormH>>调用窗口句柄 ； //
|
||
// FormID>>窗口号; //
|
||
// Language>>语言种类; //
|
||
// WinStyle>>窗口类型； //
|
||
/////////////////////////////////////////////////////////////////
|
||
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
|
||
var
|
||
mnewHandle: hwnd;
|
||
mstyle: TFormStyle; // 0:子窗口; 1：普通窗口
|
||
mstate: TWindowState;
|
||
mborderstyle: TFormBorderStyle;
|
||
begin
|
||
mnewHandle := 0;
|
||
DName := GName;
|
||
DCode := GCode;
|
||
DdataBase := DataBase;
|
||
DTitCaption := Title;
|
||
DParameters1 := Parameters1;
|
||
DParameters2 := Parameters2;
|
||
DParameters3 := Parameters3;
|
||
DParameters4 := Parameters4;
|
||
DParameters5 := Parameters5;
|
||
DParameters6 := Parameters6;
|
||
DParameters7 := Parameters7;
|
||
DParameters8 := Parameters8;
|
||
DParameters9 := Parameters9;
|
||
DParameters10 := Parameters10;
|
||
|
||
MainApplication := App;
|
||
DCurHandle := FormH;
|
||
IsDelphiLanguage := Language;
|
||
|
||
Application := TApplication(App);
|
||
DCurHandle := 0;
|
||
|
||
|
||
//赋值链接字符串
|
||
SetLength(server, 255);
|
||
SetLength(dtbase, 255);
|
||
SetLength(user, 255);
|
||
SetLength(pswd, 255);
|
||
|
||
server := '117.149.181.112,7781';
|
||
// server:='.';
|
||
dtbase := 'ShanFengdata';
|
||
//dtbase:='ShanFeng181013';
|
||
user := 'sa';
|
||
pswd := 'rightsoft@123';
|
||
// pswd:='rightsoft';
|
||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||
if trim(DataBaseStr) <> '' then
|
||
DConString := DataBaseStr;
|
||
//DParameters1:='';
|
||
//DParameters1:='管理';//103
|
||
//DParameters2:='';
|
||
//DParameters1:='高权限';
|
||
// DataBase:='高权限';
|
||
//DataBase:='1';
|
||
//DParameters2:='成品';
|
||
// DCode:='ADMIN';
|
||
|
||
if not ConnData() then
|
||
begin
|
||
result := 0;
|
||
exit;
|
||
end;
|
||
{ if IsINIFile() then
|
||
ReadINIFile()
|
||
else
|
||
WriteINIFile ;}
|
||
// 定义窗口类型 、状态
|
||
if WinStyle = 0 then
|
||
begin
|
||
mstyle := fsMDIChild;
|
||
mstate := wsMaximized;
|
||
mborderstyle := bsSizeable;
|
||
end
|
||
else
|
||
begin
|
||
mstyle := fsNormal;
|
||
mstate := wsNormal;
|
||
mborderstyle := bsSizeable;
|
||
end;
|
||
/////////////////////
|
||
//调用子模块窗口
|
||
case FormID of
|
||
0: //信息价管理
|
||
begin
|
||
if frmCaiWuHuiLV = nil then
|
||
begin
|
||
frmCaiWuHuiLV := TfrmCaiWuHuiLV.Create(application.MainForm);
|
||
with frmCaiWuHuiLV do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmCaiWuHuiLV.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmCaiWuHuiLV.Handle;
|
||
|
||
end;
|
||
|
||
1: //总应付款登记
|
||
begin
|
||
if frmYFCR = nil then
|
||
begin
|
||
frmYFCR := TfrmYFCR.Create(application.MainForm);
|
||
with frmYFCR do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFCR.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFCR.Handle;
|
||
|
||
end;
|
||
|
||
100: //总应付款审核
|
||
begin
|
||
if frmYFCR_SH = nil then
|
||
begin
|
||
frmYFCR_SH := TfrmYFCR_SH.Create(application.MainForm);
|
||
with frmYFCR_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFCR_SH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFCR_SH.Handle;
|
||
|
||
end;
|
||
2001: //付款申请
|
||
begin
|
||
if frmFKSQList = nil then
|
||
begin
|
||
frmFKSQList := TfrmFKSQList.Create(application.MainForm);
|
||
with frmFKSQList do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmFKSQList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmFKSQList.Handle;
|
||
|
||
end;
|
||
2002: //付款审核
|
||
begin
|
||
if frmFKChkList = nil then
|
||
begin
|
||
frmFKChkList := TfrmFKChkList.Create(application.MainForm);
|
||
with frmFKChkList do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmFKChkList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmFKChkList.Handle;
|
||
|
||
end;
|
||
2003: //付款待付款汇总
|
||
begin
|
||
if frmFKDFKList = nil then
|
||
begin
|
||
frmFKDFKList := TfrmFKDFKList.Create(application.MainForm);
|
||
with frmFKDFKList do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmFKDFKList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmFKDFKList.Handle;
|
||
|
||
end;
|
||
433: //付款汇总查询
|
||
begin
|
||
if frmYSCRPB_QTTJMgg = nil then
|
||
begin
|
||
frmYSCRPB_QTTJMgg := TfrmYSCRPB_QTTJMgg.Create(application.MainForm);
|
||
with frmYSCRPB_QTTJMgg do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_QTTJMgg.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_QTTJMgg.Handle;
|
||
|
||
end;
|
||
434: //付款汇总查询(新)（一）
|
||
begin
|
||
if frmYSCRPB_FKHZ = nil then
|
||
begin
|
||
frmYSCRPB_FKHZ := TfrmYSCRPB_FKHZ.Create(application.MainForm);
|
||
with frmYSCRPB_FKHZ do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_FKHZ.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_FKHZ.Handle;
|
||
end;
|
||
435: //付款汇总查询(明细二级费用)
|
||
begin
|
||
if frmYFHZ_EMX = nil then
|
||
begin
|
||
frmYFHZ_EMX := TfrmYFHZ_EMX.Create(application.MainForm);
|
||
with frmYFHZ_EMX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFHZ_EMX.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFHZ_EMX.Handle;
|
||
|
||
end;
|
||
436: //付款汇总查询(明细)
|
||
begin
|
||
if frmYFHZ_MX = nil then
|
||
begin
|
||
frmYFHZ_MX := TfrmYFHZ_MX.Create(application.MainForm);
|
||
with frmYFHZ_MX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFHZ_MX.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFHZ_MX.Handle;
|
||
|
||
end;
|
||
31: //原材料应付款明细账单
|
||
begin
|
||
if frmYFZDList_MX = nil then
|
||
begin
|
||
frmYFZDList_MX := TfrmYFZDList_MX.Create(application.MainForm);
|
||
with frmYFZDList_MX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFZDList_MX.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFZDList_MX.Handle;
|
||
|
||
end;
|
||
4: //应收款登记
|
||
begin
|
||
if frmYSCRPBMgg = nil then
|
||
begin
|
||
frmYSCRPBMgg := TfrmYSCRPBMgg.Create(application.MainForm);
|
||
with frmYSCRPBMgg do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPBMgg.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPBMgg.Handle;
|
||
|
||
end;
|
||
|
||
401: //应收款审核
|
||
begin
|
||
if frmYSCR_PBSH = nil then
|
||
begin
|
||
frmYSCR_PBSH := TfrmYSCR_PBSH.Create(application.MainForm);
|
||
with frmYSCR_PBSH do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCR_PBSH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCR_PBSH.Handle;
|
||
|
||
end;
|
||
|
||
5: //收款登记
|
||
begin
|
||
if frmSKCR = nil then
|
||
begin
|
||
frmSKCR := TfrmSKCR.Create(application.MainForm);
|
||
with frmSKCR do
|
||
begin
|
||
caption := Trim(Title);
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmSKCR.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmSKCR.Handle;
|
||
|
||
end;
|
||
|
||
500: //收款审核
|
||
begin
|
||
if frmSKCR_SH = nil then
|
||
begin
|
||
frmSKCR_SH := TfrmSKCR_SH.Create(application.MainForm);
|
||
with frmSKCR_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmSKCR_SH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmSKCR_SH.Handle;
|
||
|
||
end;
|
||
6: //应收款收款统计
|
||
begin
|
||
if frmYSSKList = nil then
|
||
begin
|
||
frmYSSKList := TfrmYSSKList.Create(application.MainForm);
|
||
with frmYSSKList do
|
||
begin
|
||
caption := Trim(Title);
|
||
fDParameters1 := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSSKList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSSKList.Handle;
|
||
|
||
end;
|
||
61: //应收款对账明细
|
||
begin
|
||
if frmYSZDList_MX = nil then
|
||
begin
|
||
frmYSZDList_MX := TfrmYSZDList_MX.Create(application.MainForm);
|
||
with frmYSZDList_MX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSZDList_MX.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSZDList_MX.Handle;
|
||
|
||
end;
|
||
|
||
62: //应收款对账月统计
|
||
begin
|
||
if frmYSZDList_YHZ = nil then
|
||
begin
|
||
frmYSZDList_YHZ := TfrmYSZDList_YHZ.Create(application.MainForm);
|
||
with frmYSZDList_YHZ do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSZDList_YHZ.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSZDList_YHZ.Handle;
|
||
|
||
end;
|
||
|
||
8: //进项发票登记
|
||
begin
|
||
if frmYFFP = nil then
|
||
begin
|
||
frmYFFP := TfrmYFFP.Create(application.MainForm);
|
||
with frmYFFP do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFFP.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFFP.Handle;
|
||
|
||
end;
|
||
|
||
32: //进项发票汇总查询
|
||
begin
|
||
if frmYSSKList_FPCX = nil then
|
||
begin
|
||
frmYSSKList_FPCX := TfrmYSSKList_FPCX.Create(application.MainForm);
|
||
with frmYSSKList_FPCX do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSSKList_FPCX.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSSKList_FPCX.Handle;
|
||
|
||
end;
|
||
|
||
9: //销项发票申请
|
||
begin
|
||
if frmYSFP = nil then
|
||
begin
|
||
frmYSFP := TfrmYSFP.Create(application.MainForm);
|
||
with frmYSFP do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSFP.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSFP.Handle;
|
||
|
||
end;
|
||
|
||
12: //销项发票审核
|
||
begin
|
||
if frmYSFP_SH = nil then
|
||
begin
|
||
frmYSFP_SH := TfrmYSFP_SH.Create(application.MainForm);
|
||
with frmYSFP_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSFP_SH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSFP_SH.Handle;
|
||
end;
|
||
|
||
13: //销项发票完成
|
||
begin
|
||
if frmYSFP_WC = nil then
|
||
begin
|
||
frmYSFP_WC := TfrmYSFP_WC.Create(application.MainForm);
|
||
with frmYSFP_WC do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSFP_WC.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSFP_WC.Handle;
|
||
end;
|
||
|
||
15: //工程发票统计查询
|
||
begin
|
||
if frmGCFPHZList = nil then
|
||
begin
|
||
frmGCFPHZList := TfrmGCFPHZList.Create(application.MainForm);
|
||
with frmGCFPHZList do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmGCFPHZList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmGCFPHZList.Handle;
|
||
|
||
end;
|
||
|
||
10: //公司利润查询
|
||
begin
|
||
if frmSKCR_YF = nil then
|
||
begin
|
||
frmSKCR_YF := TfrmSKCR_YF.Create(application.MainForm);
|
||
with frmSKCR_YF do
|
||
begin
|
||
caption := Trim(Title);
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmSKCR_YF.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmSKCR_YF.Handle;
|
||
|
||
end;
|
||
|
||
11: //核销管理
|
||
begin
|
||
if frmYKHXList = nil then
|
||
begin
|
||
frmYKHXList := TfrmYKHXList.Create(application.MainForm);
|
||
with frmYKHXList do
|
||
begin
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYKHXList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYKHXList.Handle;
|
||
end;
|
||
|
||
2: //原材料付款申请
|
||
begin
|
||
if frmFKCR = nil then
|
||
begin
|
||
frmFKCR := TfrmFKCR.Create(application.MainForm);
|
||
with frmFKCR do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmFKCR.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmFKCR.Handle;
|
||
|
||
end;
|
||
|
||
200: //原材料付款申请审核
|
||
begin
|
||
if frmFKCR_SH = nil then
|
||
begin
|
||
frmFKCR_SH := TfrmFKCR_SH.Create(application.MainForm);
|
||
with frmFKCR_SH do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmFKCR_SH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmFKCR_SH.Handle;
|
||
|
||
end;
|
||
|
||
201: //原材料付款登记
|
||
begin
|
||
if frmFKCR_DJ = nil then
|
||
begin
|
||
frmFKCR_DJ := TfrmFKCR_DJ.Create(application.MainForm);
|
||
with frmFKCR_DJ do
|
||
begin
|
||
caption := Trim(Title);
|
||
fmanage := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmFKCR_DJ.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmFKCR_DJ.Handle;
|
||
|
||
end;
|
||
|
||
3: //原材料应付款付款统计
|
||
begin
|
||
if frmYFFKList = nil then
|
||
begin
|
||
frmYFFKList := TfrmYFFKList.Create(application.MainForm);
|
||
with frmYFFKList do
|
||
begin
|
||
caption := Trim(Title);
|
||
//fDParameters1:=trim('0');
|
||
fDParameters1 := trim(DParameters1);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYFFKList.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYFFKList.Handle;
|
||
|
||
end;
|
||
43: //行政付款申请登记
|
||
begin
|
||
if frmYSCRPB_QT = nil then
|
||
begin
|
||
frmYSCRPB_QT := TfrmYSCRPB_QT.Create(application.MainForm);
|
||
with frmYSCRPB_QT do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_QT.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_QT.Handle;
|
||
|
||
end;
|
||
|
||
430: //行政付款申请审核
|
||
begin
|
||
if frmYSCRPB_SH = nil then
|
||
begin
|
||
frmYSCRPB_SH := TfrmYSCRPB_SH.Create(application.MainForm);
|
||
with frmYSCRPB_SH do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_SH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_SH.Handle;
|
||
|
||
end;
|
||
|
||
431: //行政付款待付汇总
|
||
begin
|
||
if frmYSCRPB_FK = nil then
|
||
begin
|
||
frmYSCRPB_FK := TfrmYSCRPB_FK.Create(application.MainForm);
|
||
with frmYSCRPB_FK do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_FK.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_FK.Handle;
|
||
|
||
end;
|
||
|
||
450: //工资付款申请登记
|
||
begin
|
||
if frmYSCRPB_GZ = nil then
|
||
begin
|
||
frmYSCRPB_GZ := TfrmYSCRPB_GZ.Create(application.MainForm);
|
||
with frmYSCRPB_GZ do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_GZ.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_GZ.Handle;
|
||
|
||
end;
|
||
|
||
451: //工资付款申请审核
|
||
begin
|
||
if frmYSCRPB_GZSH = nil then
|
||
begin
|
||
frmYSCRPB_GZSH := TfrmYSCRPB_GZSH.Create(application.MainForm);
|
||
with frmYSCRPB_GZSH do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_GZSH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_GZSH.Handle;
|
||
|
||
end;
|
||
|
||
452: //工资付款待付汇总
|
||
begin
|
||
if frmYSCRPB_GZFK = nil then
|
||
begin
|
||
frmYSCRPB_GZFK := TfrmYSCRPB_GZFK.Create(application.MainForm);
|
||
with frmYSCRPB_GZFK do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_GZFK.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_GZFK.Handle;
|
||
|
||
end;
|
||
|
||
453: //其他往来付款申请登记
|
||
begin
|
||
if frmYSCRPB_QTWL = nil then
|
||
begin
|
||
frmYSCRPB_QTWL := TfrmYSCRPB_QTWL.Create(application.MainForm);
|
||
with frmYSCRPB_QTWL do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_QTWL.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_QTWL.Handle;
|
||
|
||
end;
|
||
|
||
454: //其他往来付款申请审核
|
||
begin
|
||
if frmYSCRPB_QTWLSH = nil then
|
||
begin
|
||
frmYSCRPB_QTWLSH := TfrmYSCRPB_QTWLSH.Create(application.MainForm);
|
||
with frmYSCRPB_QTWLSH do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_QTWLSH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_QTWLSH.Handle;
|
||
|
||
end;
|
||
|
||
455: //其他往来付款待付汇总
|
||
begin
|
||
if frmYSCRPB_QTWLFK = nil then
|
||
begin
|
||
frmYSCRPB_QTWLFK := TfrmYSCRPB_QTWLFK.Create(application.MainForm);
|
||
with frmYSCRPB_QTWLFK do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_QTWLFK.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_QTWLFK.Handle;
|
||
|
||
end;
|
||
|
||
456: //机物料付款申请登记
|
||
begin
|
||
if frmYSCRPB_JWL = nil then
|
||
begin
|
||
frmYSCRPB_JWL := TfrmYSCRPB_JWL.Create(application.MainForm);
|
||
with frmYSCRPB_JWL do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_JWL.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_JWL.Handle;
|
||
|
||
end;
|
||
|
||
457: //机物料付款申请审核
|
||
begin
|
||
if frmYSCRPB_JWLSH = nil then
|
||
begin
|
||
frmYSCRPB_JWLSH := TfrmYSCRPB_JWLSH.Create(application.MainForm);
|
||
with frmYSCRPB_JWLSH do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_JWLSH.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_JWLSH.Handle;
|
||
|
||
end;
|
||
|
||
458: //机物料付款待付汇总
|
||
begin
|
||
if frmYSCRPB_JWLFK = nil then
|
||
begin
|
||
frmYSCRPB_JWLFK := TfrmYSCRPB_JWLFK.Create(application.MainForm);
|
||
with frmYSCRPB_JWLFK do
|
||
begin
|
||
fflag := strtointdef(trim(DataBase), 0);
|
||
fmanage := trim(DParameters1);
|
||
caption := Trim(Title);
|
||
FormStyle := mstyle;
|
||
windowState := mstate;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_JWLFK.BringToFront;
|
||
//句柄
|
||
mnewHandle := frmYSCRPB_JWLFK.Handle;
|
||
|
||
end;
|
||
|
||
|
||
{433: //付款汇总查询
|
||
begin
|
||
if frmYSCRPB_QTTJ=nil then
|
||
begin
|
||
frmYSCRPB_QTTJ:= TfrmYSCRPB_QTTJ.Create(application.MainForm);
|
||
with frmYSCRPB_QTTJ do
|
||
begin
|
||
fflag:=strtointdef(trim(DataBase),0);
|
||
fmanage:=trim(DParameters1);
|
||
caption:=Trim(Title);
|
||
FormStyle := mstyle ;
|
||
windowState := mstate ;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB_QTTJ.BringToFront;
|
||
//句柄
|
||
mNewHandle:=frmYSCRPB_QTTJ.Handle;
|
||
|
||
end ; }
|
||
{4: //应收款登记
|
||
begin
|
||
if frmYSCRPB=nil then
|
||
begin
|
||
frmYSCRPB:= TfrmYSCRPB.Create(application.MainForm);
|
||
with frmYSCRPB do
|
||
begin
|
||
fflag:=strtointdef(trim(DataBase),0);
|
||
fmanage:=trim(DParameters1);
|
||
caption:=Trim(Title);
|
||
FormStyle := mstyle ;
|
||
windowState := mstate ;
|
||
BorderStyle := mborderstyle;
|
||
//show;
|
||
end;
|
||
end
|
||
else
|
||
frmYSCRPB.BringToFront;
|
||
//句柄
|
||
mNewHandle:=frmYSCRPB.Handle;
|
||
|
||
end ; }
|
||
end; // end case
|
||
Result := mnewHandle;
|
||
// NewDllApp:=Application ;
|
||
end;
|
||
//===========================================================
|
||
//建立数据库连接池
|
||
//===========================================================
|
||
|
||
function ConnData(): Boolean;
|
||
var
|
||
IniFile: TIniFile;
|
||
begin
|
||
try
|
||
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
|
||
PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
|
||
finally
|
||
IniFile.Free;
|
||
end;
|
||
if not Assigned(DataLink_YSYF) then
|
||
DataLink_YSYF := TDataLink_YSYF.Create(Application);
|
||
try
|
||
with DataLink_YSYF.ADOLink do
|
||
begin
|
||
//if not Connected then
|
||
begin
|
||
Connected := false;
|
||
ConnectionString := DConString;
|
||
LoginPrompt := false;
|
||
Connected := true;
|
||
end;
|
||
end;
|
||
Result := true;
|
||
except
|
||
Result := false;
|
||
application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
|
||
end;
|
||
end;
|
||
|
||
initialization
|
||
CoInitialize(nil);
|
||
dxUnitsLoader.Initialize;
|
||
|
||
|
||
finalization
|
||
DataLink_YSYF.Free;
|
||
application := NewDllApp;
|
||
dxUnitsLoader.Finalize;
|
||
|
||
end.
|
||
|