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

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

@ -11,7 +11,22 @@ uses
cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
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
TfrmPBCKKCList = class(TForm)

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

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

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

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

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

@ -1,6 +1,6 @@
object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 34
Top = 125
Left = 266
Top = 361
Width = 1181
Height = 511
Align = alClient
@ -262,12 +262,12 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Left = 0
Top = 93
Width = 1165
Height = 380
Height = 379
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -340,25 +340,6 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Options.Editing = False
Width = 81
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
Tag = 2
Caption = #22383#24067#20379#24212#21830
@ -405,15 +386,6 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Options.Editing = False
Width = 65
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
Tag = 2
Caption = #38376#24133
@ -462,42 +434,13 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
Caption = #24211#23384#20844#26020#25968
DataBinding.FieldName = 'MXKCQty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
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
Tag = 2
Caption = #22791#27880
@ -505,6 +448,18 @@ object frmSXCKKCSelList: TfrmSXCKKCSelList
Options.Editing = False
Width = 79
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
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

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

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

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

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

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

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

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

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

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

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

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

@ -1,6 +1,6 @@
object frmSXCKOutPut: TfrmSXCKOutPut
Left = 250
Top = 156
Left = 276
Top = 364
Width = 1215
Height = 502
Align = alClient
@ -137,31 +137,11 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#20179#24211#20986#24211
#26579#21378#20986#24211)
#26579#21378#20986#24211
#21152#24037#20986#24211)
HeaderAlignmentHorz = taCenter
Width = 81
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
Tag = 2
Caption = #22383#24067#20379#24212#21830
@ -223,7 +203,6 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Caption = #38376#24133
DataBinding.FieldName = 'SPMF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column10: TcxGridDBColumn
@ -231,7 +210,6 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Caption = #20811#37325
DataBinding.FieldName = 'SPKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column16: TcxGridDBColumn
@ -260,7 +238,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
Caption = #20844#26020#25968
DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
@ -270,6 +248,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -289,21 +268,6 @@ object frmSXCKOutPut: TfrmSXCKOutPut
HeaderAlignmentHorz = taCenter
Width = 122
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
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
@ -313,9 +277,9 @@ object frmSXCKOutPut: TfrmSXCKOutPut
end
object v1Column19: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
DataBinding.FieldName = 'SPColor'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object v1Column17: TcxGridDBColumn
@ -343,6 +307,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column21PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end

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

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

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

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

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

@ -9,7 +9,22 @@ uses
ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
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
TfrmSXCKTHPut = class(TForm)

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

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