~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
55f2ab5454
commit
64d2df2a3b
|
|
@ -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; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -1,25 +1,24 @@
|
|||
|
||||
unit U_GetDllForm;
|
||||
interface
|
||||
uses
|
||||
Windows,Messages,forms,OleCtnrs,DateUtils,SysUtils,ADODB,ActiveX,dxCore;
|
||||
|
||||
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;
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, ActiveX,
|
||||
dxCore;
|
||||
|
||||
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_YFCRLZ,U_YSCRLZ,U_YSHZMX,U_YFCRYCL,U_YSCROL,U_SKCROLJ,U_YSHZMXOLJ
|
||||
,U_SKCRLZ,U_YSHZMXDL,U_FKCRLZ,U_YSHZMXView,U_YFCRLZView,U_YFCRLZQty,
|
||||
U_YSCRJZC,U_YSCR_Gd,U_SKCR_Gd,U_YFZDList_MX,U_YSZDList_MX,U_YFMXlist,U_YSMXlist,
|
||||
U_YKHXList,U_FDINVOICE,U_FPINVOICE_TJ;
|
||||
U_DataLink, U_Fun, U_YFCR, U_FKCR, U_YFFKList, U_YSCR, U_SKCR, U_YSSKList,
|
||||
U_ProductOrderCost, U_YFFP, U_YSFP, U_YFCRLZ, U_YSCRLZ, U_YSHZMX, U_YFCRYCL,
|
||||
U_YSCROL, U_SKCROLJ, U_YSHZMXOLJ, U_SKCRLZ, U_YSHZMXDL, U_FKCRLZ, U_YSHZMXView,
|
||||
U_YFCRLZView, U_YFCRLZQty, U_YSCRJZC, U_YSCR_Gd, U_SKCR_Gd, U_YFZDList_MX,
|
||||
U_YSYGGJList, U_YSZDList_MX, U_YFMXlist, U_YSMXlist, U_YKHXList, U_FDINVOICE,
|
||||
U_FPINVOICE_TJ;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 묘콘綱츠:혤Dll櫓돤눗竟 //
|
||||
|
|
@ -29,21 +28,14 @@ uses
|
|||
// 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;
|
||||
|
||||
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;
|
||||
mnewHandle := 0;
|
||||
DName := GName;
|
||||
DCode := GCode;
|
||||
DdataBase := DataBase;
|
||||
|
|
@ -59,7 +51,6 @@ begin
|
|||
DParameters9 := Parameters9;
|
||||
DParameters10 := Parameters10;
|
||||
|
||||
|
||||
MainApplication := App;
|
||||
DCurHandle := FormH;
|
||||
IsDelphiLanguage := Language;
|
||||
|
|
@ -134,7 +125,7 @@ begin
|
|||
end; }
|
||||
/////////////////////
|
||||
//딧痰綾친욥눗왯
|
||||
case FormId of
|
||||
case FormID of
|
||||
1: //壇마운되션
|
||||
begin
|
||||
if frmYFCR = nil then
|
||||
|
|
@ -152,7 +143,27 @@ begin
|
|||
else
|
||||
frmYFCR.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFCR.Handle;
|
||||
mnewHandle := frmYFCR.Handle;
|
||||
|
||||
end;
|
||||
221: //Ô±¹¤¹¤¼Û¶ÔÕ˵¥
|
||||
begin
|
||||
if frmYSYGGJList = nil then
|
||||
begin
|
||||
frmYSYGGJList := TfrmYSYGGJList.Create(application.MainForm);
|
||||
with frmYSYGGJList do
|
||||
begin
|
||||
caption := Trim(Title);
|
||||
FormStyle := mstyle;
|
||||
windowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
//show;
|
||||
end;
|
||||
end
|
||||
else
|
||||
frmYSYGGJList.BringToFront;
|
||||
//¾ä±ú
|
||||
mnewHandle := frmYSYGGJList.Handle;
|
||||
|
||||
end;
|
||||
15: //壇마운되션 툰꼈 횡롤 속묏롤
|
||||
|
|
@ -172,7 +183,7 @@ begin
|
|||
else
|
||||
frmYFCRLZ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFCRLZ.Handle;
|
||||
mnewHandle := frmYFCRLZ.Handle;
|
||||
|
||||
end;
|
||||
12: //壇마운되션 覩꼼죕꾑욋
|
||||
|
|
@ -192,7 +203,7 @@ begin
|
|||
else
|
||||
frmYFCRYCL.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFCRYCL.Handle;
|
||||
mnewHandle := frmYFCRYCL.Handle;
|
||||
|
||||
end;
|
||||
11: //壇마운되션 覩꼼죕꾑욋
|
||||
|
|
@ -212,7 +223,7 @@ begin
|
|||
else
|
||||
frmYFCRLZQty.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFCRLZQty.Handle;
|
||||
mnewHandle := frmYFCRLZQty.Handle;
|
||||
|
||||
end;
|
||||
13: //壇마운되션 툰꼈 횡롤 속묏롤꿴璂
|
||||
|
|
@ -232,7 +243,7 @@ begin
|
|||
else
|
||||
frmYFCRLZView.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFCRLZView.Handle;
|
||||
mnewHandle := frmYFCRLZView.Handle;
|
||||
|
||||
end;
|
||||
2: //마운되션
|
||||
|
|
@ -252,7 +263,7 @@ begin
|
|||
else
|
||||
frmFKCR.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmFKCR.Handle;
|
||||
mnewHandle := frmFKCR.Handle;
|
||||
|
||||
end;
|
||||
21: //마운되션(쨌嵐 憩庫)
|
||||
|
|
@ -272,7 +283,7 @@ begin
|
|||
else
|
||||
frmFKCRLZ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmFKCRLZ.Handle;
|
||||
mnewHandle := frmFKCRLZ.Handle;
|
||||
|
||||
end;
|
||||
3: //壇마운마운固셕
|
||||
|
|
@ -292,7 +303,7 @@ begin
|
|||
else
|
||||
frmYFFKList.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFFKList.Handle;
|
||||
mnewHandle := frmYFFKList.Handle;
|
||||
|
||||
end;
|
||||
31: //壇마운츠玖瑯데
|
||||
|
|
@ -312,7 +323,7 @@ begin
|
|||
else
|
||||
frmYFZDList_MX.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFZDList_MX.Handle;
|
||||
mnewHandle := frmYFZDList_MX.Handle;
|
||||
|
||||
end;
|
||||
4: //壇澗운되션
|
||||
|
|
@ -332,7 +343,7 @@ begin
|
|||
else
|
||||
frmYSCR.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSCR.Handle;
|
||||
mnewHandle := frmYSCR.Handle;
|
||||
|
||||
end;
|
||||
41: //壇澗운되션
|
||||
|
|
@ -352,7 +363,7 @@ begin
|
|||
else
|
||||
frmYSCRLZ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSCRLZ.Handle;
|
||||
mnewHandle := frmYSCRLZ.Handle;
|
||||
|
||||
end;
|
||||
42: //壇澗운되션
|
||||
|
|
@ -372,7 +383,7 @@ begin
|
|||
else
|
||||
frmYSCROL.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSCROL.Handle;
|
||||
mnewHandle := frmYSCROL.Handle;
|
||||
|
||||
end;
|
||||
43: //壇澗운되션(쏩廉꽈)
|
||||
|
|
@ -392,7 +403,7 @@ begin
|
|||
else
|
||||
frmYSCRJZC.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSCRJZC.Handle;
|
||||
mnewHandle := frmYSCRJZC.Handle;
|
||||
|
||||
end;
|
||||
44: //壇澗운되션(밤땜)
|
||||
|
|
@ -412,7 +423,7 @@ begin
|
|||
else
|
||||
frmYSCR_Gd.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSCR_Gd.Handle;
|
||||
mnewHandle := frmYSCR_Gd.Handle;
|
||||
|
||||
end;
|
||||
5: //澗운되션
|
||||
|
|
@ -424,7 +435,7 @@ begin
|
|||
begin
|
||||
caption := Trim(Title);
|
||||
// IsHx:=1;
|
||||
IsHx:=strtointdef(database,0);
|
||||
IsHx := strtointdef(DataBase, 0);
|
||||
FormStyle := mstyle;
|
||||
windowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
|
|
@ -434,7 +445,7 @@ begin
|
|||
else
|
||||
frmSKCR.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmSKCR.Handle;
|
||||
mnewHandle := frmSKCR.Handle;
|
||||
|
||||
end;
|
||||
51: //澗운되션
|
||||
|
|
@ -454,7 +465,7 @@ begin
|
|||
else
|
||||
frmSKCROLJ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmSKCROLJ.Handle;
|
||||
mnewHandle := frmSKCROLJ.Handle;
|
||||
|
||||
end;
|
||||
52: //澗운되션(쨌嵐)
|
||||
|
|
@ -474,7 +485,7 @@ begin
|
|||
else
|
||||
frmSKCRLZ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmSKCRLZ.Handle;
|
||||
mnewHandle := frmSKCRLZ.Handle;
|
||||
|
||||
end;
|
||||
54: //澗운되션(밤땜)
|
||||
|
|
@ -494,7 +505,7 @@ begin
|
|||
else
|
||||
frmSKCR_Gd.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmSKCR_Gd.Handle;
|
||||
mnewHandle := frmSKCR_Gd.Handle;
|
||||
|
||||
end;
|
||||
6: //壇澗운澗운固셕
|
||||
|
|
@ -514,7 +525,7 @@ begin
|
|||
else
|
||||
frmYSSKList.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSSKList.Handle;
|
||||
mnewHandle := frmYSSKList.Handle;
|
||||
|
||||
end;
|
||||
61: //壇澗운澗운固셕
|
||||
|
|
@ -534,7 +545,7 @@ begin
|
|||
else
|
||||
frmYSZDList_MX.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSZDList_MX.Handle;
|
||||
mnewHandle := frmYSZDList_MX.Handle;
|
||||
|
||||
end;
|
||||
7: //땐데뵙炬固셕꿴璂
|
||||
|
|
@ -554,7 +565,7 @@ begin
|
|||
else
|
||||
frmProductOrderCost.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmProductOrderCost.Handle;
|
||||
mnewHandle := frmProductOrderCost.Handle;
|
||||
|
||||
end;
|
||||
|
||||
|
|
@ -575,7 +586,7 @@ begin
|
|||
else
|
||||
frmYFFP.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFFP.Handle;
|
||||
mnewHandle := frmYFFP.Handle;
|
||||
|
||||
end;
|
||||
81: //饋淃랙튿되션
|
||||
|
|
@ -595,7 +606,7 @@ begin
|
|||
else
|
||||
frmYSFP.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSFP.Handle;
|
||||
mnewHandle := frmYSFP.Handle;
|
||||
|
||||
end;
|
||||
9:
|
||||
|
|
@ -615,7 +626,7 @@ begin
|
|||
else
|
||||
frmYKHXList.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYKHXList.Handle;
|
||||
mnewHandle := frmYKHXList.Handle;
|
||||
|
||||
end;
|
||||
10: //壇澗瑯운츠玖
|
||||
|
|
@ -635,7 +646,7 @@ begin
|
|||
else
|
||||
frmYSHZMX.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSHZMX.Handle;
|
||||
mnewHandle := frmYSHZMX.Handle;
|
||||
|
||||
end;
|
||||
|
||||
|
|
@ -656,7 +667,7 @@ begin
|
|||
else
|
||||
frmYSHZMXDL.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSHZMXDL.Handle;
|
||||
mnewHandle := frmYSHZMXDL.Handle;
|
||||
|
||||
end;
|
||||
103: //壇澗瑯운츠玖꿴璂
|
||||
|
|
@ -676,7 +687,7 @@ begin
|
|||
else
|
||||
frmYSHZMXView.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSHZMXView.Handle;
|
||||
mnewHandle := frmYSHZMXView.Handle;
|
||||
|
||||
end;
|
||||
101: //壇澗瑯운츠玖OLJ
|
||||
|
|
@ -696,7 +707,7 @@ begin
|
|||
else
|
||||
frmYSHZMXOLJ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSHZMXOLJ.Handle;
|
||||
mnewHandle := frmYSHZMXOLJ.Handle;
|
||||
|
||||
end;
|
||||
20: //壇澗瑯운츠玖OLJ
|
||||
|
|
@ -716,7 +727,7 @@ begin
|
|||
else
|
||||
frmYFMXlist.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYFMXlist.Handle;
|
||||
mnewHandle := frmYFMXlist.Handle;
|
||||
|
||||
end;
|
||||
201: //壇澗瑯운츠玖OLJ
|
||||
|
|
@ -736,7 +747,7 @@ begin
|
|||
else
|
||||
frmYSMXlist.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmYSMXlist.Handle;
|
||||
mnewHandle := frmYSMXlist.Handle;
|
||||
|
||||
end;
|
||||
202: //랙튿밗잿
|
||||
|
|
@ -758,7 +769,7 @@ begin
|
|||
else
|
||||
frmFDINVOICE.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmFDINVOICE.Handle;
|
||||
mnewHandle := frmFDINVOICE.Handle;
|
||||
end;
|
||||
|
||||
203: //랙튿固셕꿴璂
|
||||
|
|
@ -780,7 +791,7 @@ begin
|
|||
else
|
||||
frmFPInvoice_TJ.BringToFront;
|
||||
//얌깨
|
||||
mNewHandle:=frmFPInvoice_TJ.Handle;
|
||||
mnewHandle := frmFPInvoice_TJ.Handle;
|
||||
end;
|
||||
end; // end case
|
||||
|
||||
|
|
@ -790,11 +801,12 @@ end;
|
|||
//===========================================================
|
||||
//쉔접鑒앴욋젯쌈넥
|
||||
//===========================================================
|
||||
|
||||
function ConnData(): Boolean;
|
||||
begin
|
||||
if not Assigned(DataLink_YSYF) then
|
||||
DataLink_YSYF := TDataLink_YSYF.Create(Application);
|
||||
Try
|
||||
try
|
||||
with DataLink_YSYF.ADOLink do
|
||||
begin
|
||||
//if not Connected then
|
||||
|
|
@ -806,20 +818,22 @@ begin
|
|||
end;
|
||||
end;
|
||||
Result := true;
|
||||
Except
|
||||
except
|
||||
Result := false;
|
||||
application.MessageBox('鑒앴욋젯쌈呵겨！', '댄轎', mb_Ok + MB_ICONERROR);
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
initialization
|
||||
CoInitialize(nil);
|
||||
dxUnitsLoader.Initialize;
|
||||
|
||||
finalization
|
||||
|
||||
finalization
|
||||
DataLink_YSYF.Free;
|
||||
application := NewDllApp;
|
||||
dxUnitsLoader.Finalize;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -13,7 +13,21 @@ uses
|
|||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
|
||||
dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit;
|
||||
dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, 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
|
||||
TfrmYFCR = class(TForm)
|
||||
|
|
@ -1355,8 +1369,8 @@ end;
|
|||
|
||||
procedure TfrmYFCR.ToolButton6Click(Sender: TObject);
|
||||
begin
|
||||
frmCKJYList := TfrmCKJYList.create(self);
|
||||
with frmCKJYList do
|
||||
frmYSYGGJList := TfrmYSYGGJList.create(self);
|
||||
with frmYSYGGJList do
|
||||
begin
|
||||
show;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
object frmCKJYList: TfrmCKJYList
|
||||
object frmYSYGGJList: TfrmYSYGGJList
|
||||
Left = 403
|
||||
Top = 314
|
||||
Width = 1333
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@ uses
|
|||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmCKJYList = class(TForm)
|
||||
TfrmYSYGGJList = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBFind: TToolButton;
|
||||
|
|
@ -113,7 +113,7 @@ type
|
|||
end;
|
||||
|
||||
var
|
||||
frmCKJYList: TfrmCKJYList;
|
||||
frmYSYGGJList: TfrmYSYGGJList;
|
||||
|
||||
implementation
|
||||
|
||||
|
|
@ -122,24 +122,24 @@ uses
|
|||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmCKJYList.FormDestroy(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmCKJYList := nil;
|
||||
frmYSYGGJList := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TfrmYSYGGJList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.FormCreate(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
//cxGrid1.Align:=alClient;
|
||||
BegDate.DateTime := SGetServerDateTime(ADOQueryTemp)-30;
|
||||
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.InitGrid();
|
||||
procedure TfrmYSYGGJList.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
|
@ -167,7 +167,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBRafreshClick(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
//BegDate.SetFocus;
|
||||
MovePanel2.Visible := True;
|
||||
|
|
@ -176,7 +176,7 @@ begin
|
|||
MovePanel2.Visible := False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.ConNoMChange(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
|
|
@ -184,13 +184,13 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBCloseClick(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库1');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.FormShow(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
ReadCxGrid(self.Caption + tv1.Name, Tv1, '成品仓库1');
|
||||
|
|
@ -205,14 +205,14 @@ begin
|
|||
//InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBExportClick(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel('库存汇总列表', cxGrid2);
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.TBFindClick(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.TBFindClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
|
|
@ -222,12 +222,12 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.MPRTCodeNameChange(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.MPRTCodeNameChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure TfrmYSYGGJList.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
|
|
@ -257,18 +257,18 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.PRTColorChange(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.PRTColorChange(Sender: TObject);
|
||||
begin
|
||||
TBFind.Click;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
procedure TfrmYSYGGJList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
FLeft := X;
|
||||
FTop := Y;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
procedure TfrmYSYGGJList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
Panel4.Left := FLeft;
|
||||
Panel4.Top := FTop + 110;
|
||||
|
|
@ -278,12 +278,12 @@ begin
|
|||
application.ProcessMessages;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.Image2Click(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.Image2Click(Sender: TObject);
|
||||
begin
|
||||
Panel4.Visible := False;
|
||||
end;
|
||||
|
||||
procedure TfrmCKJYList.cxTabControl1Change(Sender: TObject);
|
||||
procedure TfrmYSYGGJList.cxTabControl1Change(Sender: TObject);
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -101,7 +101,7 @@ DebugSourceDirs=
|
|||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\갔되\갔되처弄밗잿\testDll.exe
|
||||
HostApplication=D:\Dp7Repo\项目代码\D7FZaideng\艾登贸易管理\testDll.exe
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
|
|
|
|||
521
艾登贸易管理/U_BpkclistZSD.dfm
Normal file
521
艾登贸易管理/U_BpkclistZSD.dfm
Normal file
|
|
@ -0,0 +1,521 @@
|
|||
object frmBpkclistZSD: TfrmBpkclistZSD
|
||||
Left = 378
|
||||
Top = 334
|
||||
Width = 1416
|
||||
Height = 588
|
||||
Caption = #24211#23384#20449#24687#34920
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
WindowState = wsMaximized
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1400
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 59
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TradeManage.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object TBRafresh: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#35810
|
||||
ImageIndex = 2
|
||||
OnClick = TBRafreshClick
|
||||
end
|
||||
object TOk: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #30830#23450
|
||||
ImageIndex = 41
|
||||
Visible = False
|
||||
OnClick = TOkClick
|
||||
end
|
||||
object TBExport: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 75
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
ImageIndex = 12
|
||||
Visible = False
|
||||
OnClick = TBPrintClick
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 32
|
||||
Width = 1400
|
||||
Height = 65
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
object Label1: TLabel
|
||||
Left = 23
|
||||
Top = 15
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20837#24211#26085#26399
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 64
|
||||
Top = 40
|
||||
Width = 13
|
||||
Height = 12
|
||||
Caption = #33267
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 228
|
||||
Top = 40
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 440
|
||||
Top = 40
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #21152#24037#21378
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 228
|
||||
Top = 16
|
||||
Width = 52
|
||||
Height = 12
|
||||
Caption = #20837#24211#31867#22411
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 288
|
||||
Top = 72
|
||||
Width = 24
|
||||
Height = 12
|
||||
Caption = #20179#24211
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 440
|
||||
Top = 16
|
||||
Width = 39
|
||||
Height = 12
|
||||
Caption = #20379#24212#21830
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 616
|
||||
Top = 16
|
||||
Width = 26
|
||||
Height = 12
|
||||
Caption = #32568#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 11
|
||||
Width = 100
|
||||
Height = 20
|
||||
Date = 40675.464742650460000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464742650460000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 0
|
||||
end
|
||||
object EndDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 35
|
||||
Width = 100
|
||||
Height = 20
|
||||
Date = 40675.464761099540000000
|
||||
Format = 'yyyy-MM-dd'
|
||||
Time = 40675.464761099540000000
|
||||
ShowCheckbox = True
|
||||
TabOrder = 1
|
||||
end
|
||||
object P_CodeName: TEdit
|
||||
Tag = 2
|
||||
Left = 284
|
||||
Top = 36
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 2
|
||||
OnChange = P_CodeNameChange
|
||||
end
|
||||
object factoryName: TEdit
|
||||
Tag = 2
|
||||
Left = 484
|
||||
Top = 36
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 3
|
||||
OnChange = P_CodeNameChange
|
||||
end
|
||||
object CRType: TComboBox
|
||||
Tag = 2
|
||||
Left = 284
|
||||
Top = 12
|
||||
Width = 100
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
ItemIndex = 0
|
||||
TabOrder = 4
|
||||
OnChange = P_CodeNameChange
|
||||
Items.Strings = (
|
||||
''
|
||||
#29983#20135#20837#24211)
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 772
|
||||
Top = 12
|
||||
Width = 97
|
||||
Height = 17
|
||||
Caption = #21547#24211#23384#20026#38646
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
end
|
||||
object ckName: TComboBox
|
||||
Left = 320
|
||||
Top = 68
|
||||
Width = 100
|
||||
Height = 20
|
||||
Style = csDropDownList
|
||||
ItemHeight = 12
|
||||
ItemIndex = 0
|
||||
TabOrder = 6
|
||||
Text = #26679#21697#20179#24211
|
||||
Items.Strings = (
|
||||
#26679#21697#20179#24211)
|
||||
end
|
||||
object cust: TEdit
|
||||
Tag = 2
|
||||
Left = 484
|
||||
Top = 12
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 7
|
||||
OnChange = P_CodeNameChange
|
||||
end
|
||||
object gangNO: TEdit
|
||||
Tag = 2
|
||||
Left = 648
|
||||
Top = 12
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = P_CodeNameChange
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1400
|
||||
Height = 316
|
||||
Align = alTop
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = 'C_Code'
|
||||
Column = v1P_CodeName
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1RollNum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = v1Qty
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsBehavior.FocusCellOnCycle = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.Indicator = True
|
||||
Styles.Header = DataLink_TradeManage.Default
|
||||
object v1Ssel: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'Ssel'
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
end
|
||||
object v1Column2: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830
|
||||
DataBinding.FieldName = 'cust'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1Column3: TcxGridDBColumn
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'factoryName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object v1CRTime: TcxGridDBColumn
|
||||
Caption = #20837#24211#26085#26399
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object v1CRType: TcxGridDBColumn
|
||||
Caption = #20837#24211#31867#22411
|
||||
DataBinding.FieldName = 'CRType'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 79
|
||||
end
|
||||
object v1MJID: TcxGridDBColumn
|
||||
Caption = #21367#26465#30721
|
||||
DataBinding.FieldName = 'MJID'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 60
|
||||
end
|
||||
object v1MJXH: TcxGridDBColumn
|
||||
Caption = #21367#21495
|
||||
DataBinding.FieldName = 'MJXH'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 60
|
||||
end
|
||||
object v1P_CodeName: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'P_CodeName'
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object v1P_SPEC: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'P_SPEC'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Sorting = False
|
||||
Width = 90
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'P_Color'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1Column4: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'gangNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 60
|
||||
end
|
||||
object v1P_MF: TcxGridDBColumn
|
||||
Caption = #38376#24133'(cm)'
|
||||
DataBinding.FieldName = 'P_MF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object v1P_KZ: TcxGridDBColumn
|
||||
Caption = #20811#37325'(g/'#13217')'
|
||||
DataBinding.FieldName = 'P_KZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object v1CPType: TcxGridDBColumn
|
||||
Caption = #31561#32423
|
||||
DataBinding.FieldName = 'CPType'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
VisibleForCustomization = False
|
||||
Width = 60
|
||||
end
|
||||
object v1RollNum: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'RollNum'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Content = DataLink_TradeManage.FontBlue
|
||||
Styles.Footer = DataLink_TradeManage.FontBlue
|
||||
Styles.Header = DataLink_TradeManage.FontBlue
|
||||
Width = 59
|
||||
end
|
||||
object v1Qty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Styles.Content = DataLink_TradeManage.FontBlue
|
||||
Styles.Footer = DataLink_TradeManage.FontBlue
|
||||
Styles.Header = DataLink_TradeManage.FontBlue
|
||||
Width = 59
|
||||
end
|
||||
object v1QtyUnit: TcxGridDBColumn
|
||||
Caption = #25968#37327#21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
PropertiesClassName = 'TcxComboBoxProperties'
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
'M'
|
||||
'Kg')
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object v1Note: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #39044#25187#38500#25968#37327
|
||||
DataBinding.FieldName = 'PreBPqty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 680
|
||||
Top = 8
|
||||
end
|
||||
object ADOQueryTmp: TADOQuery
|
||||
Connection = DataLink_TradeManage.ADOLink
|
||||
Parameters = <>
|
||||
Left = 536
|
||||
Top = 4
|
||||
end
|
||||
object DataSource1: TDataSource
|
||||
DataSet = CDS_Main
|
||||
Left = 576
|
||||
Top = 1
|
||||
end
|
||||
object CDS_Main: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 612
|
||||
Top = 5
|
||||
end
|
||||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 504
|
||||
Top = 12
|
||||
end
|
||||
end
|
||||
264
艾登贸易管理/U_BpkclistZSD.pas
Normal file
264
艾登贸易管理/U_BpkclistZSD.pas
Normal file
|
|
@ -0,0 +1,264 @@
|
|||
unit U_BpkclistZSD;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
|
||||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
|
||||
cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView,
|
||||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||||
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox,
|
||||
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;
|
||||
|
||||
type
|
||||
TfrmBpkclistZSD = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBRafresh: TToolButton;
|
||||
TBExport: TToolButton;
|
||||
TBPrint: TToolButton;
|
||||
TBClose: TToolButton;
|
||||
Panel1: TPanel;
|
||||
Label1: TLabel;
|
||||
BegDate: TDateTimePicker;
|
||||
EndDate: TDateTimePicker;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1P_CodeName: TcxGridDBColumn;
|
||||
v1P_SPEC: TcxGridDBColumn;
|
||||
v1P_MF: TcxGridDBColumn;
|
||||
v1P_KZ: TcxGridDBColumn;
|
||||
v1RollNum: TcxGridDBColumn;
|
||||
v1Qty: TcxGridDBColumn;
|
||||
v1QtyUnit: TcxGridDBColumn;
|
||||
v1Note: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
v1CRType: TcxGridDBColumn;
|
||||
v1CRTime: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
P_CodeName: TEdit;
|
||||
factoryName: TEdit;
|
||||
CRType: TComboBox;
|
||||
Label5: TLabel;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryTmp: TADOQuery;
|
||||
DataSource1: TDataSource;
|
||||
CDS_Main: TClientDataSet;
|
||||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||
TOk: TToolButton;
|
||||
v1Ssel: TcxGridDBColumn;
|
||||
CheckBox1: TCheckBox;
|
||||
v1MJID: TcxGridDBColumn;
|
||||
v1MJXH: TcxGridDBColumn;
|
||||
v1CPType: TcxGridDBColumn;
|
||||
ckName: TComboBox;
|
||||
Label6: TLabel;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
v1Column2: TcxGridDBColumn;
|
||||
v1Column3: TcxGridDBColumn;
|
||||
cust: TEdit;
|
||||
Label7: TLabel;
|
||||
gangNO: TEdit;
|
||||
Label8: TLabel;
|
||||
v1Column4: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure P_CodeNameChange(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure TBPrintClick(Sender: TObject);
|
||||
procedure TBExportClick(Sender: TObject);
|
||||
procedure TOkClick(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
procedure SetComboBox();
|
||||
{ Private declarations }
|
||||
public
|
||||
fType: integer;
|
||||
fCKName, FMainid: string;
|
||||
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmBpkclistZSD: TfrmBpkclistZSD;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun10, U_ZDYHelp; //, U_BpRk
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmBpkclistZSD.SetComboBox();
|
||||
begin
|
||||
ckName.Items.Clear;
|
||||
with adoQueryTmp do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from KH_ZDY where Type=''BPCK'' ');
|
||||
if trim(fCKName) <> '' then
|
||||
sql.Add('and zdyName=' + quotedstr(trim(fCKName)));
|
||||
open;
|
||||
while not eof do
|
||||
begin
|
||||
ckName.Items.Add(trim(fieldbyname('zdyName').AsString));
|
||||
next;
|
||||
end;
|
||||
end;
|
||||
if ckName.Items.Count > 0 then
|
||||
ckName.ItemIndex := 0;
|
||||
|
||||
CRType.Items.Clear;
|
||||
CRType.Items.Add('');
|
||||
with adoQueryTmp do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from KH_ZDY where Type=''BPRKTYPE''');
|
||||
if trim(fCKName) <> '' then
|
||||
sql.Add('and note=' + quotedstr(trim(fCKName)));
|
||||
open;
|
||||
while not eof do
|
||||
begin
|
||||
CRType.Items.Add(trim(fieldbyname('zdyName').AsString));
|
||||
next;
|
||||
end;
|
||||
end;
|
||||
if CRType.Items.Count > 0 then
|
||||
CRType.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.InitGrid();
|
||||
begin
|
||||
try
|
||||
with adoqueryTmp do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
// sql.Add('select A.*,B.cust,B.factoryName from BP_KC A');
|
||||
// sql.Add('inner join BP_inout B on B.KCID=A.KCID and B.CRFlag=''Èë¿â'' ');
|
||||
// sql.Add('where 1=1'); sum(([dbo].[Get_ShuZi](defstr3)) sum((cast(ISNULL(defstr2,0) as float))
|
||||
// SQL.Add('SELECT count(A.mxid) as RollNum,sum(A.kcqty2) as qty,B.cust,B.factoryName,B.CRTime,B.CRType,B.P_CodeName,B.P_SPEC,B.P_Color,B.gangNo,B.P_KZ,B.P_MF,B.QtyUnit,B.ckName ');
|
||||
// SQL.Add(',PreBPqty=(select sum(([dbo].[Get_ShuZi](defstr2))*(isnull(prtorderqty,0))) from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid ');
|
||||
// SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''A'' and N.Status=''0'')'); // M.CBColor in (B.P_Color)
|
||||
// SQL.Add('+(select sum(([dbo].[Get_ShuZi](defstr3))*(isnull(prtorderqty,0)))from JYOrder_Sub X inner join KH_Zdy_CPCB M on M.ZdyCode=X.PRTCode left join JYOrder_Main N on N.mainid=X.mainid ');
|
||||
// SQL.Add(' where M.defstr1=B.P_CodeName and M.CBColor=X.prtcolor and left(SOrddefstr5,1)=''C'' and N.Status=''0'' )'); //and M.CBColor=B.P_Color
|
||||
// sql.Add('FROM CK_SXPB_CRMX A inner join BP_InOut B on A.crnos=B.crnos ');
|
||||
// sql.Add(' where A.crzt=''Èë¿â'' ');
|
||||
// SQL.Add('and exists(select crnoS from BP_KC d where D.crnos=A.crnos)');
|
||||
// if begdate.Checked then
|
||||
// sql.Add('and B.CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
|
||||
// if enddate.Checked then
|
||||
// sql.Add('and B.CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
|
||||
//// if not CheckBox1.Checked then
|
||||
//// sql.Add('and (A.RollNum<>0 or A.qty<>0 ) ');
|
||||
// if trim(FckName) <> '' then
|
||||
// sql.Add('and B.ckName=' + quotedstr(trim(FckName)));
|
||||
// sql.Add(' GROUP BY A.crnoS,B.cust,B.factoryName,B.CRTime,B.CRType,B.P_CodeName,B.P_SPEC,B.P_Color,B.gangNo,B.P_KZ,B.P_MF,B.QtyUnit,B.ckName ');
|
||||
sql.Add('exec P_Get_BPKC_ZSD ');
|
||||
sql.Add('@mainid=''' + Trim(FMainid) + ''' ');
|
||||
// ShowMessage(SQL.text);
|
||||
open;
|
||||
end;
|
||||
SCreateCDS20(adoqueryTmp, CDS_Main);
|
||||
SInitCDSData20(adoqueryTmp, CDS_Main);
|
||||
finally
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
writeCxGrid(self.Caption, Tv1, '²¼Æ¥²Ö¿â');
|
||||
if fType = 10 then
|
||||
Action := cahide
|
||||
else
|
||||
Action := cafree;
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmBpkclistZSD := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.P_CodeNameChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryTmp.Active = False then
|
||||
Exit;
|
||||
SDofilter(ADOQueryTmp, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS20(ADOQueryTmp, CDS_Main);
|
||||
SInitCDSData20(ADOQueryTmp, CDS_Main);
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.FormShow(Sender: TObject);
|
||||
begin
|
||||
if fType = 10 then
|
||||
begin
|
||||
TOk.Visible := true;
|
||||
v1Ssel.Visible := true;
|
||||
end;
|
||||
readCxGrid(self.Caption, Tv1, '²¼Æ¥²Ö¿â');
|
||||
SetComboBox();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.FormCreate(Sender: TObject);
|
||||
begin
|
||||
BegDate.Date := DServerDate - 7;
|
||||
EndDate.Date := DServerDate;
|
||||
cxGrid1.Align := alclient;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
close;
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
initGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.TBPrintClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
TcxGridToExcel(self.Caption, cxgrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
TcxGridToExcel(self.Caption, cxgrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmBpkclistZSD.TOkClick(Sender: TObject);
|
||||
begin
|
||||
if CDS_Main.IsEmpty then
|
||||
Exit;
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -244,6 +244,14 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
ImageIndex = 57
|
||||
OnClick = TnochkClick
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 909
|
||||
Top = 30
|
||||
AutoSize = True
|
||||
Caption = #26597#30475#36741#26009#24211#23384
|
||||
ImageIndex = 9
|
||||
OnClick = ToolButton9Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
|
|
@ -478,6 +486,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
OnCellDblClick = Tv1CellDblClick
|
||||
OnCustomDrawCell = Tv1CustomDrawCell
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
|
|
@ -631,6 +640,11 @@ object frmProductOrderNewList: TfrmProductOrderNewList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'MLKCStatus'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 20
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -177,6 +177,8 @@ type
|
|||
ToolButton14: TToolButton;
|
||||
Tchk: TToolButton;
|
||||
Tnochk: TToolButton;
|
||||
ToolButton9: TToolButton;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
|
|
@ -227,6 +229,8 @@ type
|
|||
procedure ToolButton14Click(Sender: TObject);
|
||||
procedure TchkClick(Sender: TObject);
|
||||
procedure TnochkClick(Sender: TObject);
|
||||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
private
|
||||
DQdate: TDateTime;
|
||||
procedure InitGrid();
|
||||
|
|
@ -252,7 +256,8 @@ var
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_OrderInPut, U_Fun, U_LabelList, U_LabelListts, U_FjList_RZ;
|
||||
U_DataLink, U_OrderInPut, U_Fun, U_LabelList, U_LabelListts, U_FjList_RZ,
|
||||
U_BpkclistZSD;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmProductOrderNewList.SetStatus();
|
||||
|
|
@ -1910,5 +1915,28 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderNewList.ToolButton9Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmBpkclistZSD := TfrmBpkclistZSD.Create(Application);
|
||||
with frmBpkclistZSD do
|
||||
begin
|
||||
FMainid := Trim(Order_Main.fieldbyname('Mainid').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmBpkclistZSD.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmProductOrderNewList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
begin
|
||||
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('MLKCStatus').Index] = '2' then
|
||||
ACanvas.Brush.Color := clRed;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user