Group_99/D7szYidui
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-12 10:41:08 +08:00
parent 14f3173a13
commit 78accb982b
9 changed files with 108 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
应收应付/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
var var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

42
应收应付/U_GetDllForm.pas
View File

@ -17,7 +17,7 @@ uses
U_YSCRJZC, U_YSCR_Gd, U_SKCR_Gd, U_YFZDList_MX, U_YSZDList_MX, U_YFMXlist, U_YSCRJZC, U_YSCR_Gd, U_SKCR_Gd, U_YFZDList_MX, U_YSZDList_MX, U_YFMXlist,
U_YSMXlist, U_YFCRMXList, U_FDINVOICE, U_FPINVOICE_TJ, U_FDINVOICE_X, U_YSMXlist, U_YFCRMXList, U_FDINVOICE, U_FPINVOICE_TJ, U_FDINVOICE_X,
U_FDINVOICE_XMX, U_FDINVOICE_S, U_YF_Money_LL, U_YF_Money_LL_list, U_FDINVOICE_XMX, U_FDINVOICE_S, U_YF_Money_LL, U_YF_Money_LL_list,
U_XXFPINVOICE_TJ, U_CostCR, U_YSCRMXList, U_FDINVOICE_JMX, U_XXFPINVOICE_TJD; U_XXFPINVOICE_TJ, U_CostCR, U_YSCRMXList, U_FDINVOICE_JMX;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -451,26 +451,26 @@ begin
//句柄 //句柄
mnewHandle := frmXXFPInvoice_TJ.Handle; mnewHandle := frmXXFPInvoice_TJ.Handle;
end; end;
422: //销项发票统计查询(低权限) // 422: //销项发票统计查询(低权限)
begin // begin
if frmXXFPInvoice_TJd = nil then // if frmXXFPInvoice_TJd = nil then
begin // begin
frmXXFPInvoice_TJd := TfrmXXFPInvoice_TJd.Create(application.MainForm); // frmXXFPInvoice_TJd := TfrmXXFPInvoice_TJd.Create(application.MainForm);
with frmXXFPInvoice_TJd do // with frmXXFPInvoice_TJd do
begin // begin
fInvoiceFlag := '1'; // fInvoiceFlag := '1';
caption := Trim(Title); // caption := Trim(Title);
FormStyle := mstyle; // FormStyle := mstyle;
windowState := mstate; // windowState := mstate;
BorderStyle := mborderstyle; // BorderStyle := mborderstyle;
//show; // //show;
end; // end;
end // end
else // else
frmXXFPInvoice_TJd.BringToFront; // frmXXFPInvoice_TJd.BringToFront;
//句柄 // //句柄
mnewHandle := frmXXFPInvoice_TJd.Handle; // mnewHandle := frmXXFPInvoice_TJd.Handle;
end; // end;
511: //费用登记 511: //费用登记
begin begin

15
应收应付/U_XXFPINVOICE_TJ.pas
View File

@ -13,7 +13,20 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
DateUtils; DateUtils, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmXXFPInvoice_TJ = class(TForm) TfrmXXFPInvoice_TJ = class(TForm)

16
应收应付/U_YFMXlist.pas
View File

@ -14,7 +14,21 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, cxCurrencyEdit, DateUtils; cxNavigator, dxBarBuiltInMenu, cxCurrencyEdit, DateUtils, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmYFMXlist = class(TForm) TfrmYFMXlist = class(TForm)

17
应收应付/U_YSMXlist.pas
View File

@ -14,7 +14,20 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxGridDBBandedTableView, BtnEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, cxCurrencyEdit, cxCalc, DateUtils; cxNavigator, dxBarBuiltInMenu, cxCurrencyEdit, cxCalc, DateUtils, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmYSMXlist = class(TForm) TfrmYSMXlist = class(TForm)
@ -215,7 +228,7 @@ procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
Exit; Exit;
TcxGridToExcel(self.Caption + '-' + trim(factoryName.Text), cxgrid2); TcxGridToExcel(self.Caption + '-' + StringReplace(trim(factoryName.Text), '/', '&', [rfReplaceAll]), cxgrid2);
end; end;
procedure TfrmYSMXlist.OrderNoChange(Sender: TObject); procedure TfrmYSMXlist.OrderNoChange(Sender: TObject);

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\乙对\应收应付\testDll.exe HostApplication=D:\D7W\淃커덜쯤\D7szYidui\壇澗壇마\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

23
应收应付/YSYF.dpr
View File

@ -6,6 +6,7 @@ uses
forms, forms,
WinTypes, WinTypes,
WinProcs, WinProcs,
midaslib,
U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule}, U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas', U_GetDllForm in 'U_GetDllForm.pas',
U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
@ -37,7 +38,7 @@ uses
U_BpGdCklist in 'U_BpGdCklist.pas' {frmBpGdCklist}, U_BpGdCklist in 'U_BpGdCklist.pas' {frmBpGdCklist},
U_YSSCList in 'U_YSSCList.pas' {frmYSSCList}, U_YSSCList in 'U_YSSCList.pas' {frmYSSCList},
U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel}, U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel},
U_XXFPINVOICE_TJD in '..\..\..\..\凌志超开发代码\项目代码\卡卡\进度统计查询(Statistics.dll)\U_XXFPINVOICE_TJD.pas' {frmXXFPInvoice_TJd}, // U_XXFPINVOICE_TJD in '..\..\..\..\凌志超开发代码\项目代码\卡卡\进度统计查询(Statistics.dll)\U_XXFPINVOICE_TJD.pas' {frmXXFPInvoice_TJd},
U_FDINVOICE_S in 'U_FDINVOICE_S.pas' {frmFDINVOICE_S}, U_FDINVOICE_S in 'U_FDINVOICE_S.pas' {frmFDINVOICE_S},
U_FDINVOICE_Sub_S in 'U_FDINVOICE_Sub_S.pas' {FrmInvoice_Sub_S}, U_FDINVOICE_Sub_S in 'U_FDINVOICE_Sub_S.pas' {FrmInvoice_Sub_S},
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas', U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
@ -58,7 +59,7 @@ uses
{$R *.res} {$R *.res}
procedure DllEnterPoint(dwReason: DWORD);far;stdcall; procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin begin
DLLProc := @DLLEnterPoint; DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH); DllEnterPoint(DLL_PROCESS_ATTACH);
@ -69,14 +70,16 @@ begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then // if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
// Application:=NewDllApp; // Application:=NewDllApp;
end; end;
exports
GetDllForm;
begin
try
NewDllApp:=Application;
DLLProc := @DLLUnloadProc;
except
end; exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end. end.

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=E:\项目资料\02_梭织厂\乙对\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\testDll.exe HostApplication=D:\D7W\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

27
成品仓库(FinishedClothWarehouse.dll)/U_CPSQSMCK.pas
View File

@ -9,21 +9,20 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmCPSQSMCK = class(TForm) TfrmCPSQSMCK = class(TForm)
@ -304,8 +303,8 @@ begin
sql.Add(' inner join JY_Cloth B on A.P_CODE=B.P_CODE '); sql.Add(' inner join JY_Cloth B on A.P_CODE=B.P_CODE ');
sql.Add(' where A.FHMainID=''' + Trim(CKOrdNo.Text) + ''''); sql.Add(' where A.FHMainID=''' + Trim(CKOrdNo.Text) + '''');
sql.Add(' and B.JYID=''' + Trim(FSMStr) + ''''); sql.Add(' and B.JYID=''' + Trim(FSMStr) + '''');
SQL.Add('AND (CASE WHEN ISXZPH=''ÊÇ'' then A.BatchNo else '''' end )=(CASE WHEN ISXZPH=''ÊÇ'' then b.BatchNo else '''' end ) '); SQL.Add('AND (CASE WHEN ISXZPH=''ÊÇ'' then isnull(A.BatchNo,'''') else '''' end )=(CASE WHEN ISXZPH=''ÊÇ'' then isnull(b.BatchNo,'''') else '''' end ) ');
SQL.Add('AND (CASE WHEN ISXZPH=''ÊÇ'' then A.WXPH else '''' end )=(CASE WHEN ISXZPH=''ÊÇ'' then B.WXPH else '''' end ) '); SQL.Add('AND (CASE WHEN ISXZPH=''ÊÇ'' then isnull(A.WXPH,'''') else '''' end )=(CASE WHEN ISXZPH=''ÊÇ'' then isnull(B.WXPH,'''') else '''' end ) ');
// SQL.Add('and A.BatchNo = B.BatchNo and A.WXPH =B.WXPH'); // SQL.Add('and A.BatchNo = B.BatchNo and A.WXPH =B.WXPH');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;