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
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
DConString: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_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_XXFPINVOICE_TJ, U_CostCR, U_YSCRMXList, U_FDINVOICE_JMX, U_XXFPINVOICE_TJD;
U_XXFPINVOICE_TJ, U_CostCR, U_YSCRMXList, U_FDINVOICE_JMX;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -451,26 +451,26 @@ begin
//句柄
mnewHandle := frmXXFPInvoice_TJ.Handle;
end;
422: //销项发票统计查询(低权限)
begin
if frmXXFPInvoice_TJd = nil then
begin
frmXXFPInvoice_TJd := TfrmXXFPInvoice_TJd.Create(application.MainForm);
with frmXXFPInvoice_TJd do
begin
fInvoiceFlag := '1';
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmXXFPInvoice_TJd.BringToFront;
//句柄
mnewHandle := frmXXFPInvoice_TJd.Handle;
end;
// 422: //销项发票统计查询(低权限)
// begin
// if frmXXFPInvoice_TJd = nil then
// begin
// frmXXFPInvoice_TJd := TfrmXXFPInvoice_TJd.Create(application.MainForm);
// with frmXXFPInvoice_TJd do
// begin
// fInvoiceFlag := '1';
// caption := Trim(Title);
// FormStyle := mstyle;
// windowState := mstate;
// BorderStyle := mborderstyle;
// //show;
// end;
// end
// else
// frmXXFPInvoice_TJd.BringToFront;
// //句柄
// mnewHandle := frmXXFPInvoice_TJd.Handle;
// end;
511: //费用登记
begin

15
应收应付/U_XXFPINVOICE_TJ.pas
View File

@ -13,7 +13,20 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
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
TfrmXXFPInvoice_TJ = class(TForm)

16
应收应付/U_YFMXlist.pas
View File

@ -14,7 +14,21 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
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
TfrmYFMXlist = class(TForm)

17
应收应付/U_YSMXlist.pas
View File

@ -14,7 +14,20 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
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
TfrmYSMXlist = class(TForm)
@ -215,7 +228,7 @@ procedure TfrmYSMXlist.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption + '-' + trim(factoryName.Text), cxgrid2);
TcxGridToExcel(self.Caption + '-' + StringReplace(trim(factoryName.Text), '/', '&', [rfReplaceAll]), cxgrid2);
end;
procedure TfrmYSMXlist.OrderNoChange(Sender: TObject);

2
应收应付/YSYF.dof
View File

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

9
应收应付/YSYF.dpr
View File

@ -6,6 +6,7 @@ uses
forms,
WinTypes,
WinProcs,
midaslib,
U_DataLink in 'U_DataLink.pas' {DataLink_YSYF: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas',
U_ZDYHelpSel in '..\Z99Dependency\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
@ -37,7 +38,7 @@ uses
U_BpGdCklist in 'U_BpGdCklist.pas' {frmBpGdCklist},
U_YSSCList in 'U_YSSCList.pas' {frmYSSCList},
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_Sub_S in 'U_FDINVOICE_Sub_S.pas' {FrmInvoice_Sub_S},
U_Fun in '..\Z99Dependency\ThreeFun\Fun\U_Fun.pas',
@ -58,7 +59,7 @@ uses
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
@ -69,11 +70,13 @@ begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
// Application:=NewDllApp;
end;
exports
GetDllForm;
begin
try
NewDllApp:=Application;
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except

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

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

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

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