Group_03/D7djLingxi
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
郑 2025-09-19 16:22:04 +08:00
parent 4867d71b7c
commit 8db5df0d5a
8 changed files with 1058 additions and 924 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\郑丰平开发代码\项目代码\灵汐\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7djLingxi\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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; {数据库连接参数}

2
检验管理/U_GetDllForm.pas
View File

@ -81,6 +81,8 @@ begin
// pswd:='rightsoft'; // pswd:='rightsoft';
// pswd:='numlock'; // pswd:='numlock';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; 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; DConString := DataBaseStr;
// DParameters1:='¸ßȨÏÞ'; // DParameters1:='¸ßȨÏÞ';
// DCode:='002'; // DCode:='002';

34
检验管理/U_JYOrderCDOne.dfm
View File

@ -21,6 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1366
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -94,12 +95,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
ImageIndex = 96 ImageIndex = 96
Wrap = True
Visible = False Visible = False
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 513 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
ImageIndex = 57 ImageIndex = 57
@ -107,8 +109,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 600 Left = 87
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
ImageIndex = 12 ImageIndex = 12
@ -116,16 +118,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 699 Left = 186
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBAftChkHX: TToolButton object TBAftChkHX: TToolButton
Left = 810 Left = 297
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #26816#21518#22238#20462 Caption = #26816#21518#22238#20462
ImageIndex = 54 ImageIndex = 54
@ -133,24 +135,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBAftChkHXClick OnClick = TBAftChkHXClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 897 Left = 384
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 960 Left = 447
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#30721#21333 Caption = #25171#21360#30721#21333
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 1047 Left = 534
Top = 3 Top = 33
Width = 140 Width = 140
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -169,7 +171,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1366 Width = 1366
Height = 65 Height = 65
Align = alTop Align = alTop
@ -674,7 +676,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv1CellClick OnCellClick = Tv1CellClick
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1

61
检验管理/U_JYOrderCDOne.pas
View File

@ -9,7 +9,21 @@ uses
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit; RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -567,7 +581,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject);
var var
fPrintFile: string; fPrintFile: string;
Txt, fImagePath: string; Txt, fImagePath, Txt2, fImagePath2: string;
Moudle: THandle; Moudle: THandle;
Makebar: TMakebar; Makebar: TMakebar;
Mixtext: TMixtext; Mixtext: TMixtext;
@ -611,24 +625,44 @@ begin
Order_Main.EnableControls; Order_Main.EnableControls;
exit; exit;
end; end;
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz '); sql.Add('exec P_Print_Roll ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); // sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz ');
// sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as MJLen '); // sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
//sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),C.PRTCodeName)'); // // sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as MJLen ');
//sql.Add(',Case when isnull(MJType,'''')=''´ÎÆ·'' then ''B''+RTrim(Cast(MJXH as varchar(20))) '); // //sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),C.PRTCodeName)');
//sql.Add('when isnull(MJType,'''')=''¶àÆ´'' then ''C''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH'); // //sql.Add(',Case when isnull(MJType,'''')=''次品'' then ''B''+RTrim(Cast(MJXH as varchar(20))) ');
sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* '); // //sql.Add('when isnull(MJType,'''')=''多拼'' then ''C''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH');
// sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); // sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* ');
sql.Add(' from WFB_MJJY A'); // // sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); // sql.Add(' from WFB_MJJY A');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); // sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
// sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
Open; Open;
end; end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt2 := Trim(ADOQueryPrint.fieldbyname('PRINTCode').AsString);
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath2) then
DeleteFile(fImagePath2);
Makebar(pchar(Txt2), Length(Txt2), 3, 3, 0, PChar(fImagePath2), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
Order_Main.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString)
else else
@ -636,6 +670,7 @@ begin
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RMVariables['QRBARCODE'] := fImagePath; RMVariables['QRBARCODE'] := fImagePath;
RMVariables['QRBARCODE2'] := fImagePath2;
RM2.LoadFromFile(fPrintFile); RM2.LoadFromFile(fPrintFile);
//RM2.ShowReport; //RM2.ShowReport;
RM2.PrintReport; RM2.PrintReport;

29
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 142 Left = 347
Top = 64 Top = 278
Width = 1265 Width = 1265
Height = 738 Height = 738
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -21,11 +21,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 81 Top = 81
Width = 249 Width = 249
Height = 619 Height = 618
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -126,7 +126,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 605 Left = 605
Top = 81 Top = 81
Width = 644 Width = 644
Height = 619 Height = 618
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object SpeedButton13: TSpeedButton object SpeedButton13: TSpeedButton
@ -1115,7 +1115,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 401 Left = 401
Top = 81 Top = 81
Width = 204 Width = 204
Height = 619 Height = 618
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1874,7 +1874,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Button7: TButton object Button7: TButton
Left = 94 Left = 94
Top = 584 Top = 576
Width = 94 Width = 94
Height = 37 Height = 37
Caption = #25171#21253#26631#31614 Caption = #25171#21253#26631#31614
@ -2449,7 +2449,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 249 Left = 249
Top = 81 Top = 81
Width = 152 Width = 152
Height = 619 Height = 618
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2458,11 +2458,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 148 Width = 148
Height = 290 Height = 289
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv2CellClick OnCellClick = Tv2CellClick
OnCellDblClick = Tv2CellDblClick OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DataSource2 DataController.DataSource = DataSource2
@ -2567,7 +2567,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 292 Top = 291
Width = 148 Width = 148
Height = 41 Height = 41
Align = alBottom Align = alBottom
@ -2582,7 +2582,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 332
Width = 148 Width = 148
Height = 284 Height = 284
Align = alBottom Align = alBottom
@ -2795,6 +2795,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 612 Left = 612
Top = 128 Top = 128
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont] AssignedValues = [svColor, svFont]
Color = clBtnFace Color = clBtnFace
@ -2911,6 +2912,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository2: TcxStyleRepository object cxStyleRepository2: TcxStyleRepository
Left = 80 Left = 80
Top = 28 Top = 28
PixelsPerInch = 96
object cxStyle3: TcxStyle object cxStyle3: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace Color = clBtnFace
@ -2925,6 +2927,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository3: TcxStyleRepository object cxStyleRepository3: TcxStyleRepository
Left = 64 Left = 64
Top = 32 Top = 32
PixelsPerInch = 96
object cxStyle4: TcxStyle object cxStyle4: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace Color = clBtnFace
@ -2939,6 +2942,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository4: TcxStyleRepository object cxStyleRepository4: TcxStyleRepository
Left = 8 Left = 8
Top = 68 Top = 68
PixelsPerInch = 96
object cxStyle5: TcxStyle object cxStyle5: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
Color = clBtnFace Color = clBtnFace
@ -2953,6 +2957,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object cxStyleRepository5: TcxStyleRepository object cxStyleRepository5: TcxStyleRepository
Left = 40 Left = 40
Top = 52 Top = 52
PixelsPerInch = 96
object cxStyle6: TcxStyle object cxStyle6: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET

420
检验管理/U_MJManageNewFDNew.pas
View File

File diff suppressed because it is too large Load Diff

16
检验管理/U_ProductOrderNewList.pas
View File

@ -12,7 +12,21 @@ uses
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxButtonEdit, cxContainer, cxImage, cxDBEdit, IdBaseComponent, Menus, cxButtonEdit, cxContainer, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP,shellAPI, cxPC, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,shellAPI, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
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
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)