Group_DJD/D7DJpengda
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-12 14:23:55 +08:00
parent 532cf9fd62
commit d169cd56df
15 changed files with 163 additions and 208 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm
View File

@ -1,6 +1,6 @@
object frmPBCKKCList: TfrmPBCKKCList object frmPBCKKCList: TfrmPBCKKCList
Left = 92 Left = 377
Top = 124 Top = 220
Width = 1181 Width = 1181
Height = 511 Height = 511
Caption = #22383#24067#24211#23384#21015#34920 Caption = #22383#24067#24211#23384#21015#34920
@ -267,11 +267,11 @@ object frmPBCKKCList: TfrmPBCKKCList
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1165 Width = 1165
Height = 380 Height = 379
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -342,12 +342,14 @@ object frmPBCKKCList: TfrmPBCKKCList
Properties.Items.Strings = ( Properties.Items.Strings = (
#33258#24049 #33258#24049
#23458#25143) #23458#25143)
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #35746#21333#21495 Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 95 Width = 95
end end
@ -398,6 +400,7 @@ object frmPBCKKCList: TfrmPBCKKCList
Tag = 2 Tag = 2
Caption = #31216#21628 Caption = #31216#21628
DataBinding.FieldName = 'SPCF' DataBinding.FieldName = 'SPCF'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 73 Width = 73
@ -447,7 +450,7 @@ object frmPBCKKCList: TfrmPBCKKCList
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#20844#26020#25968
DataBinding.FieldName = 'MXKCQty' DataBinding.FieldName = 'MXKCQty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -463,6 +466,7 @@ object frmPBCKKCList: TfrmPBCKKCList
'Kg' 'Kg'
'M' 'M'
'Y') 'Y')
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
@ -477,6 +481,7 @@ object frmPBCKKCList: TfrmPBCKKCList
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end

17
坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas
View File

@ -11,7 +11,22 @@ uses
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
cxCalendar, cxButtonEdit, cxTextEdit; cxCalendar, cxButtonEdit, 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
TfrmPBCKKCList = class(TForm) TfrmPBCKKCList = class(TForm)

22
坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKInPut: TfrmSXCKInPut object frmSXCKInPut: TfrmSXCKInPut
Left = 203 Left = 251
Top = 152 Top = 427
Width = 1283 Width = 1283
Height = 502 Height = 502
Align = alClient Align = alClient
@ -79,8 +79,9 @@ object frmSXCKInPut: TfrmSXCKInPut
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#24213#24067#20837#24211 #25104#21697#20837#24211
#22383#24067#20837#24211) #22383#24067#20837#24211
#21152#24037#20837#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 81
end end
@ -93,6 +94,7 @@ object frmSXCKInPut: TfrmSXCKInPut
Properties.Items.Strings = ( Properties.Items.Strings = (
#33258#24049 #33258#24049
#23458#25143) #23458#25143)
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 75
end end
@ -107,6 +109,7 @@ object frmSXCKInPut: TfrmSXCKInPut
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = v1Column13PropertiesButtonClick Properties.OnButtonClick = v1Column13PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 95 Width = 95
end end
@ -180,6 +183,7 @@ object frmSXCKInPut: TfrmSXCKInPut
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = v1Column7PropertiesButtonClick Properties.OnButtonClick = v1Column7PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 73 Width = 73
@ -237,7 +241,7 @@ object frmSXCKInPut: TfrmSXCKInPut
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #20844#26020#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -253,6 +257,7 @@ object frmSXCKInPut: TfrmSXCKInPut
'Kg' 'Kg'
'M' 'M'
'Y') 'Y')
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
@ -268,6 +273,7 @@ object frmSXCKInPut: TfrmSXCKInPut
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = v1Column5PropertiesButtonClick Properties.OnButtonClick = v1Column5PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
@ -299,6 +305,12 @@ object frmSXCKInPut: TfrmSXCKInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'SPColor'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

19
坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas
View File

@ -60,6 +60,7 @@ type
v1Column16: TcxGridDBColumn; v1Column16: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -259,7 +260,9 @@ begin
FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString);
FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString); FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString);
FieldByName('CRFlag').Value := 'Èë¿â'; FieldByName('CRFlag').Value := 'Èë¿â';
FieldByName('SPColor').Value := Trim(CDS_Sub.fieldbyname('SPColor').AsString);
FieldByName('CRQtyFlag').Value := 1; FieldByName('CRQtyFlag').Value := 1;
FieldByName('qtyunit').value:='KG';
FieldByName('price').Value := CDS_Sub.fieldbyname('price').asfloat; FieldByName('price').Value := CDS_Sub.fieldbyname('price').asfloat;
FieldByName('money').Value := cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat; FieldByName('money').Value := cds_sub.fieldbyname('price').AsFloat * cds_sub.fieldbyname('Qty').AsFloat;
//FieldByName('CRID').Value:=FCRID; //FieldByName('CRID').Value:=FCRID;
@ -345,14 +348,14 @@ begin
end; end;
end; end;
if Trim(cds_sub.fieldbyname('CRType').AsString) = '加工入库' then // if Trim(cds_sub.fieldbyname('CRType').AsString) = '加工入库' then
begin // begin
if not YFData() then // if not YFData() then
begin // begin
ADOQueryCmd.Connection.RollbackTrans; // ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('生成应付款失败！', '提示信息', 0); // application.MessageBox('生成应付款失败！', '提示信息', 0);
end; // end;
end; // end;
//FieldByName('CRID').Value:=Trim(FCRID); //FieldByName('CRID').Value:=Trim(FCRID);
Post; Post;

79
坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKKCSelList: TfrmSXCKKCSelList object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 34 Left = 266
Top = 125 Top = 361
Width = 1181 Width = 1181
Height = 511 Height = 511
Align = alClient Align = alClient
@ -262,12 +262,12 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 0 Left = 0
Top = 93 Top = 93
Width = 1165 Width = 1165
Height = 380 Height = 379
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -340,25 +340,6 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end end
object v1Column15: TcxGridDBColumn
Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#33258#24049
#23458#25143)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column13: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22383#24067#20379#24212#21830 Caption = #22383#24067#20379#24212#21830
@ -405,15 +386,6 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Options.Editing = False Options.Editing = False
Width = 65 Width = 65
end end
object v1Column7: TcxGridDBColumn
Tag = 2
Caption = #31216#21628
DataBinding.FieldName = 'SPCF'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #38376#24133 Caption = #38376#24133
@ -462,42 +434,13 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#20844#26020#25968
DataBinding.FieldName = 'MXKCQty' DataBinding.FieldName = 'MXKCQty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 85 Width = 85
end end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
@ -505,6 +448,18 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object Tv1Column1: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'qty'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'spcolor'
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

24
坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas
View File

@ -11,7 +11,22 @@ uses
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
cxCalendar, cxButtonEdit, cxTextEdit; cxCalendar, cxButtonEdit, 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
TfrmSXCKKCSelList = class(TForm) TfrmSXCKKCSelList = class(TForm)
@ -41,19 +56,14 @@ type
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn; v1Column11: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
Label3: TLabel; Label3: TLabel;
@ -79,6 +89,8 @@ type
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
Label14: TLabel; Label14: TLabel;
SPCode: TEdit; SPCode: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

16
坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm
View File

@ -255,8 +255,9 @@ object frmSXCKNewList: TfrmSXCKNewList
TabOrder = 6 TabOrder = 6
OnChange = TBFindClick OnChange = TBFindClick
Items.Strings = ( Items.Strings = (
#24213#24067#20837#24211 #25104#21697#20837#24211
#22383#24067#20837#24211 #22383#24067#20837#24211
#21152#24037#20837#24211
'' ''
'' ''
'') '')
@ -392,12 +393,14 @@ object frmSXCKNewList: TfrmSXCKNewList
Properties.Items.Strings = ( Properties.Items.Strings = (
#33258#24049 #33258#24049
#23458#25143) #23458#25143)
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #35746#21333#21495 Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 95 Width = 95
end end
@ -448,6 +451,7 @@ object frmSXCKNewList: TfrmSXCKNewList
Tag = 2 Tag = 2
Caption = #31216#21628 Caption = #31216#21628
DataBinding.FieldName = 'SPCF' DataBinding.FieldName = 'SPCF'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 73 Width = 73
@ -490,7 +494,7 @@ object frmSXCKNewList: TfrmSXCKNewList
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #20844#26020#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -506,6 +510,7 @@ object frmSXCKNewList: TfrmSXCKNewList
'Kg' 'Kg'
'M' 'M'
'Y') 'Y')
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
@ -527,6 +532,7 @@ object frmSXCKNewList: TfrmSXCKNewList
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
@ -548,6 +554,12 @@ object frmSXCKNewList: TfrmSXCKNewList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'SPColor'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

1
坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas
View File

@ -102,6 +102,7 @@ type
ToFactoryName: TEdit; ToFactoryName: TEdit;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

44
坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKOutList: TfrmSXCKOutList object frmSXCKOutList: TfrmSXCKOutList
Left = 157 Left = 200
Top = 131 Top = 283
Width = 1314 Width = 1314
Height = 572 Height = 572
Caption = #22383#24067#20986#24211#21015#34920 Caption = #22383#24067#20986#24211#21015#34920
@ -278,7 +278,7 @@ object frmSXCKOutList: TfrmSXCKOutList
Items.Strings = ( Items.Strings = (
#20179#24211#20986#24211 #20179#24211#20986#24211
#26579#21378#20986#24211 #26579#21378#20986#24211
'' #21152#24037#20986#24211
'' ''
'' ''
'' ''
@ -440,16 +440,11 @@ object frmSXCKOutList: TfrmSXCKOutList
Properties.Items.Strings = ( Properties.Items.Strings = (
#33258#24049 #33258#24049
#23458#25143) #23458#25143)
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 75 Width = 75
end end
object v1Column13: TcxGridDBColumn
Caption = #26469#33258#35746#21333#21495
DataBinding.FieldName = 'QCOrderNo'
HeaderAlignmentHorz = taCenter
Width = 95
end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22383#24067#20379#24212#21830 Caption = #22383#24067#20379#24212#21830
@ -496,21 +491,11 @@ object frmSXCKOutList: TfrmSXCKOutList
Options.Editing = False Options.Editing = False
Width = 65 Width = 65
end end
object v1Column7: TcxGridDBColumn
Tag = 2
Caption = #31216#21628
DataBinding.FieldName = 'SPCF'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'SPMF' DataBinding.FieldName = 'SPMF'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73 Width = 73
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
@ -518,7 +503,6 @@ object frmSXCKOutList: TfrmSXCKOutList
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'SPKZ' DataBinding.FieldName = 'SPKZ'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90 Width = 90
end end
object v1Column16: TcxGridDBColumn object v1Column16: TcxGridDBColumn
@ -546,7 +530,7 @@ object frmSXCKOutList: TfrmSXCKOutList
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #20844#26020#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -556,6 +540,7 @@ object frmSXCKOutList: TfrmSXCKOutList
Tag = 2 Tag = 2
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -574,19 +559,6 @@ object frmSXCKOutList: TfrmSXCKOutList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 122 Width = 122
end end
object v1Column5: TcxGridDBColumn
Caption = #20986#21040#35746#21333#21495
DataBinding.FieldName = 'CKorderNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1' DataBinding.FieldName = 'SOrddefstr1'
@ -596,9 +568,8 @@ object frmSXCKOutList: TfrmSXCKOutList
end end
object v1Column19: TcxGridDBColumn object v1Column19: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'PRTColor' DataBinding.FieldName = 'SPColor'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68 Width = 68
end end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
@ -611,6 +582,7 @@ object frmSXCKOutList: TfrmSXCKOutList
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #20844#26020'/'#31859' '#31995#25968 Caption = #20844#26020'/'#31859' '#31995#25968
DataBinding.FieldName = 'xs' DataBinding.FieldName = 'xs'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 93 Width = 93
end end

4
坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas
View File

@ -64,11 +64,9 @@ type
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
v1Column15: TcxGridDBColumn; v1Column15: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column16: TcxGridDBColumn; v1Column16: TcxGridDBColumn;
@ -76,7 +74,6 @@ type
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
v1Column11: TcxGridDBColumn; v1Column11: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
@ -192,6 +189,7 @@ begin
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmSXCKOutList.TBRafreshClick(Sender: TObject); procedure TfrmSXCKOutList.TBRafreshClick(Sender: TObject);

53
坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm
View File

@ -1,6 +1,6 @@
object frmSXCKOutPut: TfrmSXCKOutPut object frmSXCKOutPut: TfrmSXCKOutPut
Left = 250 Left = 276
Top = 156 Top = 364
Width = 1215 Width = 1215
Height = 502 Height = 502
Align = alClient Align = alClient
@ -137,31 +137,11 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#20179#24211#20986#24211 #20179#24211#20986#24211
#26579#21378#20986#24211) #26579#21378#20986#24211
#21152#24037#20986#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 81
end end
object v1Column15: TcxGridDBColumn
Tag = 2
Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#33258#24049
#23458#25143)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1Column13: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#35746#21333#21495
DataBinding.FieldName = 'QCOrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22383#24067#20379#24212#21830 Caption = #22383#24067#20379#24212#21830
@ -223,7 +203,6 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'SPMF' DataBinding.FieldName = 'SPMF'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73 Width = 73
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
@ -231,7 +210,6 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'SPKZ' DataBinding.FieldName = 'SPKZ'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90 Width = 90
end end
object v1Column16: TcxGridDBColumn object v1Column16: TcxGridDBColumn
@ -260,7 +238,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #20844#26020#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -270,6 +248,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Tag = 2 Tag = 2
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -289,21 +268,6 @@ object frmSXCKOutPut: TfrmSXCKOutPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 122 Width = 122
end end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #20986#21040#35746#21333#21495
DataBinding.FieldName = 'CKOrderNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1' DataBinding.FieldName = 'SOrddefstr1'
@ -313,9 +277,9 @@ object frmSXCKOutPut: TfrmSXCKOutPut
end end
object v1Column19: TcxGridDBColumn object v1Column19: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'PRTColor' DataBinding.FieldName = 'SPColor'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68 Width = 68
end end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
@ -343,6 +307,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = v1Column21PropertiesButtonClick Properties.OnButtonClick = v1Column21PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end

40
坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas
View File

@ -42,8 +42,6 @@ type
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn; v1Column2: TcxGridDBColumn;
v1CRType: TcxGridDBColumn; v1CRType: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
@ -57,7 +55,6 @@ type
v1Column16: TcxGridDBColumn; v1Column16: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
v1Column5: TcxGridDBColumn;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn;
@ -363,6 +360,7 @@ begin
FieldByName('PiQty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value; FieldByName('PiQty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCPiQty').Value;
FieldByName('Qty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value; FieldByName('Qty').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('MXKCQty').Value;
FieldByName('FZSPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value; FieldByName('FZSPID').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPID').Value;
FieldByName('SPColor').Value := frmSXCKKCSelList.CDS_Main.fieldbyname('SPColor').Value;
Post; Post;
end; end;
frmSXCKKCSelList.CDS_Main.Delete; frmSXCKKCSelList.CDS_Main.Delete;
@ -449,6 +447,7 @@ begin
FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString); FieldByName('CPID').Value := Trim(CDS_Sub.fieldbyname('CPID').AsString);
//FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value; //FieldByName('CRID').Value:=CDS_Sub.fieldbyname('CRID').Value;
FieldByName('CRFlag').Value := '出库'; FieldByName('CRFlag').Value := '出库';
FieldByName('qtyunit').Value:='KG';
FieldByName('CRQtyFlag').Value := -1; FieldByName('CRQtyFlag').Value := -1;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2);
FieldByName('CKName').Value := '坯布'; FieldByName('CKName').Value := '坯布';
@ -725,26 +724,16 @@ begin
Application.MessageBox('匹数不能为空!', '提示', 0); Application.MessageBox('匹数不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_Sub.Locate('CRType;CKOrderNo', VarArrayOf(['加工出库', Null]), [loPartialKey]) = True then // if CDS_Sub.Locate('CRType;CKOrderNo', VarArrayOf(['加工出库', Null]), [loPartialKey]) = True then
begin // begin
Application.MessageBox('加工出库的数据出到订单号不能为空!', '提示', 0); // Application.MessageBox('加工出库的数据出到订单号不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
if CDS_Sub.Locate('CRType;CKOrderNo', VarArrayOf(['加工出库', '']), [loPartialKey]) = True then // if CDS_Sub.Locate('CRType;CKOrderNo', VarArrayOf(['加工出库', '']), [loPartialKey]) = True then
begin // begin
Application.MessageBox('加工出库的数据出到订单号不能为空!', '提示', 0); // Application.MessageBox('加工出库的数据出到订单号不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
if CDS_Sub.Locate('CRType;ToFactoryName', VarArrayOf(['加工出库', Null]), [loPartialKey]) = True then
begin
Application.MessageBox('加工出库的数据出到加工厂不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('CRType;ToFactoryName', VarArrayOf(['加工出库', '']), [loPartialKey]) = True then
begin
Application.MessageBox('加工出库的数据出到出到加工厂不能为空!', '提示', 0);
Exit;
end;
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
@ -826,8 +815,9 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag := 'CustomerNoName'; flag := 'ToFactoryName';
flagname := '客户'; // flagname := '客户';
flagname := '出到加工厂';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do

18
坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm
View File

@ -32,7 +32,7 @@ object frmSXCKTHPut: TfrmSXCKTHPut
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
Images = DataLink_DDMD.ThreeImgList Images = DataLink_PBMDDJ.ThreeImgList
List = True List = True
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -79,7 +79,7 @@ object frmSXCKTHPut: TfrmSXCKTHPut
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -104,10 +104,10 @@ object frmSXCKTHPut: TfrmSXCKTHPut
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Inactive = DataLink_DDMD.SHuangSe Styles.Inactive = DataLink_PBMDDJ.SHuangSe
Styles.IncSearch = DataLink_DDMD.SHuangSe Styles.IncSearch = DataLink_PBMDDJ.SHuangSe
Styles.Selection = DataLink_DDMD.SHuangSe Styles.Selection = DataLink_PBMDDJ.SHuangSe
Styles.Header = DataLink_DDMD.Default Styles.Header = DataLink_PBMDDJ.Default
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'SPID' DataBinding.FieldName = 'SPID'
@ -245,20 +245,20 @@ object frmSXCKTHPut: TfrmSXCKTHPut
Top = 136 Top = 136
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink Connection = DataLink_PBMDDJ.ADOLink
Parameters = <> Parameters = <>
Left = 344 Left = 344
Top = 136 Top = 136
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_DDMD.ADOLink Connection = DataLink_PBMDDJ.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 368 Left = 368
Top = 136 Top = 136
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_DDMD.ADOLink Connection = DataLink_PBMDDJ.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 408 Left = 408

17
坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas
View File

@ -9,7 +9,22 @@ uses
ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
cxTextEdit, cxSpinEdit; cxTextEdit, cxSpinEdit, 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
TfrmSXCKTHPut = class(TForm) TfrmSXCKTHPut = class(TForm)

2
坯布码单待检(PBMDDJ.dll)/testDll.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe HostApplication=D:\Dp7Repo\淃커덜쯤\D7DJpengda\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=