From d169cd56df992b684d0a68f1fb1745b344fe1ad5 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 12 Dec 2025 14:23:55 +0800 Subject: [PATCH] ~ --- 坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm | 15 ++-- 坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas | 17 ++++- 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm | 22 ++++-- 坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas | 19 +++-- 坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm | 79 +++++--------------- 坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas | 24 ++++-- 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm | 16 +++- 坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas | 1 + 坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm | 44 ++--------- 坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas | 4 +- 坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm | 53 +++---------- 坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas | 40 ++++------ 坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm | 18 ++--- 坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas | 17 ++++- 坯布码单待检(PBMDDJ.dll)/testDll.dof | 2 +- 15 files changed, 163 insertions(+), 208 deletions(-) diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm index 15ce8a6..7afb218 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas index d4d2e6e..016ba35 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_PBCKKCList.pas @@ -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) diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm index bef878c..eca5426 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas index b44fe90..288d092 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKInPut.pas @@ -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; diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm index 2a61bcd..8ccefd9 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas index 34d3f82..d69d3a2 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKKCSelList.pas @@ -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); diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm index 441a417..6dbdd99 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas index 29afcbb..a1e1540 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKNewList.pas @@ -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); diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm index c1f4ead..f2f7d47 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas index f2162ae..ca74908 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas @@ -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); diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm index 2aaa965..bca9bf3 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas index 1f8e2af..e9ae748 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.pas @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm index eda73dd..111fdd3 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.dfm @@ -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 diff --git a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas index ac7473e..0e0501b 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_SXCKTHPut.pas @@ -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) diff --git a/坯布码单待检(PBMDDJ.dll)/testDll.dof b/坯布码单待检(PBMDDJ.dll)/testDll.dof index d454d72..31cba6f 100644 --- a/坯布码单待检(PBMDDJ.dll)/testDll.dof +++ b/坯布码单待检(PBMDDJ.dll)/testDll.dof @@ -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=