From eeec0ec912d424474ab2617c8092fdec774234bd Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 19 Aug 2025 17:40:03 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BA=A7=E5=93=81=E7=AE=A1=E7=90=86=E4=BF=AE?= =?UTF-8?q?=E6=94=B9=EF=BC=8C=E6=9D=A5=E6=96=99=E4=BB=93=E5=BA=93=EF=BC=8C?= =?UTF-8?q?=E6=9D=A5=E6=96=99=E5=85=A5=E5=BA=93=EF=BC=8C=E6=9D=A5=E6=96=99?= =?UTF-8?q?=E5=87=BA=E5=BA=93=E5=A2=9E=E5=8A=A0=E5=88=86=E9=A1=B5=E9=9D=A2?= =?UTF-8?q?=EF=BC=8C=E4=BF=AE=E6=94=B9=E6=9F=A5=E8=AF=A2=E6=96=B9=E5=BC=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A00标签打印/U_ClientPrintRmf.dfm | 7 +- A00标签打印/U_ClientPrintRmf.pas | 35 + .../U_KCPBCGRKList_RCDJ.dfm | 64 +- .../U_KCPBCGRKList_RCDJ.pas | 18 +- 云翔生产管理(MYSC.dll)/U_LLCKList.dfm | 982 ++++++++++++---- 云翔生产管理(MYSC.dll)/U_LLCKList.pas | 294 ++++- 云翔生产管理(MYSC.dll)/U_LLKCList.dfm | 999 ++++++++++++---- 云翔生产管理(MYSC.dll)/U_LLKCList.pas | 82 +- 云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm | 42 +- 云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas | 1 + 云翔生产管理(MYSC.dll)/U_LLRKList.dfm | 1016 ++++++++++++----- 云翔生产管理(MYSC.dll)/U_LLRKList.pas | 345 +++++- 云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm | 2 +- 云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas | 14 +- 云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas | 36 +- 云翔生产管理(MYSC.dll)/U_ZHCPList.dfm | 25 +- 云翔生产管理(MYSC.dll)/U_ZHCPList.pas | 66 +- 17 files changed, 3095 insertions(+), 933 deletions(-) diff --git a/A00标签打印/U_ClientPrintRmf.dfm b/A00标签打印/U_ClientPrintRmf.dfm index e23b714..873097a 100644 --- a/A00标签打印/U_ClientPrintRmf.dfm +++ b/A00标签打印/U_ClientPrintRmf.dfm @@ -1,8 +1,8 @@ object frmClientPrintRmf: TfrmClientPrintRmf Left = 874 Top = 483 - Width = 403 - Height = 240 + Width = 419 + Height = 249 Caption = #25253#34920#25171#21360 Color = clBtnFace Font.Charset = DEFAULT_CHARSET @@ -16,6 +16,7 @@ object frmClientPrintRmf: TfrmClientPrintRmf OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow + OnStartDock = FormStartDock PixelsPerInch = 96 TextHeight = 11 object ADOQueryTemp: TADOQuery @@ -3870,7 +3871,7 @@ object frmClientPrintRmf: TfrmClientPrintRmf Top = 153 end object ADOQueryReport: TADOQuery - Connection = DataLink_YXYMT.ADOLink + Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 183 Top = 65503 diff --git a/A00标签打印/U_ClientPrintRmf.pas b/A00标签打印/U_ClientPrintRmf.pas index 9d5c78d..d1777f2 100644 --- a/A00标签打印/U_ClientPrintRmf.pas +++ b/A00标签打印/U_ClientPrintRmf.pas @@ -42,6 +42,7 @@ type procedure FormShow(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure TV1DblClick(Sender: TObject); + procedure FormStartDock(Sender: TObject; var DragObject: TDragDockObject); private IsDebug, FPreviewPrint, fIsPreview: Boolean; FLMType, FLBName: string; @@ -52,6 +53,7 @@ type procedure PrintReport(); procedure ExportReport(); procedure InitAdo(Ado: TADOQuery; SqlStr: string); + procedure TfrmClientPrintRmf.GetQrCode(); procedure InitArgs(); { Private declarations } public @@ -77,6 +79,34 @@ begin FPrintJson := JsonArgs; end; +procedure TfrmClientPrintRmf.GetQrCode(Txt: string; ); +var + fPrintFile: string; + fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + CurRow: Integer; +begin + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(ADOQueryPrint.fieldbyname('MXID').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + Order_Main.EnableControls; + exit; + end; + +end; + procedure TfrmClientPrintRmf.InitArgs; var JSONObject, item: ISuperObject; @@ -281,5 +311,10 @@ begin frmClientPrintRmf := nil; end; +procedure TfrmClientPrintRmf.FormStartDock(Sender: TObject; var DragObject: TDragDockObject); +begin + +end; + end. diff --git a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm index ec89615..7f9a33f 100644 --- a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm +++ b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.dfm @@ -1281,39 +1281,39 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 165 - Top = 148 + Left = 760 + Top = 345 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 205 - Top = 209 + Left = 696 + Top = 313 end object ADOQueryMain: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 205 - Top = 178 + Left = 728 + Top = 313 end object ADOQueryTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 206 - Top = 149 + Left = 792 + Top = 313 end object DataSource1: TDataSource DataSet = Order_Main - Left = 164 - Top = 210 + Left = 792 + Top = 345 end object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 165 - Top = 179 + Left = 728 + Top = 345 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -1331,15 +1331,15 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 1048 - Top = 8 + Left = 728 + Top = 409 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_PRT - Left = 1016 - Top = 8 + Left = 728 + Top = 377 end object RMXLSExport2: TRMXLSExport ShowAfterExport = False @@ -1352,18 +1352,18 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False - Left = 1108 - Top = 8 + Left = 696 + Top = 409 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> - Left = 1080 - Top = 8 + Left = 824 + Top = 313 end object PopupMenu1: TPopupMenu - Left = 164 - Top = 240 + Left = 824 + Top = 345 object N1: TMenuItem Caption = #20462#25913 OnClick = N1Click @@ -1376,15 +1376,15 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ object ClientDataSet1: TClientDataSet Aggregates = <> Params = <> - Left = 773 - Top = 259 + Left = 696 + Top = 345 end object ADOQueryPrint: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 280 - Top = 544 + Left = 760 + Top = 313 end object RM2: TRMGridReport ThreadPrepareReport = True @@ -1403,19 +1403,19 @@ object frmKCPBCGRKList_RCDJ: TfrmKCPBCGRKList_RCDJ CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 344 - Top = 568 + Left = 760 + Top = 417 ReportData = {} end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint - Left = 320 - Top = 528 + Left = 760 + Top = 377 end object PopupMenu2: TPopupMenu - Left = 172 - Top = 392 + Left = 696 + Top = 377 object MenuItem1: TMenuItem Caption = #20840#36873 OnClick = MenuItem1Click diff --git a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas index 22321a6..1736b92 100644 --- a/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas +++ b/云翔生产管理(MYSC.dll)/U_KCPBCGRKList_RCDJ.pas @@ -24,7 +24,19 @@ uses dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, - dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu; + dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, + dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmKCPBCGRKList_RCDJ = class(TForm) @@ -872,8 +884,8 @@ begin begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); - //RM2.ShowReport; - RM2.PrintReport; + RM2.ShowReport; +// RM2.PrintReport; end else begin diff --git a/云翔生产管理(MYSC.dll)/U_LLCKList.dfm b/云翔生产管理(MYSC.dll)/U_LLCKList.dfm index 0acff69..a7d9720 100644 --- a/云翔生产管理(MYSC.dll)/U_LLCKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLCKList.dfm @@ -1,6 +1,6 @@ object frmLLCKList: TfrmLLCKList - Left = 389 - Top = 267 + Left = 381 + Top = 361 Width = 1662 Height = 825 Caption = #21152#24037#30721#21333#30331#35760 @@ -102,215 +102,6 @@ object frmLLCKList: TfrmLLCKList ParentFont = False end end - object cxGrid1: TcxGrid - Left = 0 - Top = 98 - Width = 1654 - Height = 696 - Align = alClient - PopupMenu = PopupMenu1 - TabOrder = 2 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - DataController.DataSource = DataSource1 - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - end - item - Kind = skSum - Column = v1Column1 - end - item - Kind = skSum - Column = v1Column17 - end - item - Kind = skSum - Column = v1Column3 - end - item - Format = #20010#25968':##' - Kind = skCount - Column = v1Column9 - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column2 - end - item - Kind = skSum - Column = Tv1Column3 - end - item - Kind = skSum - Column = Tv1Column4 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - Styles.Content = DataLink_MYSC.Default10 - Styles.Footer = DataLink_MYSC.Default10 - Styles.Header = DataLink_MYSC.Default10 - object v1Column11: TcxGridDBColumn - Caption = #25351#31034#21333#21495 - DataBinding.FieldName = 'MLOrderNo' - PropertiesClassName = 'TcxTextEditProperties' - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Width = 148 - end - object v1Column13: TcxGridDBColumn - Caption = #23458#25143#32534#21495 - DataBinding.FieldName = 'KHNOKH' - PropertiesClassName = 'TcxTextEditProperties' - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Width = 126 - end - object v1Column12: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'KHNameJCZ' - PropertiesClassName = 'TcxTextEditProperties' - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Width = 177 - end - object v1Column9: TcxGridDBColumn - Caption = #26085#26399 - DataBinding.FieldName = 'CRTime' - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 127 - end - object v1Column5: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'MYName' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 160 - end - object Tv1Column5: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'MYColor' - HeaderAlignmentHorz = taCenter - Width = 96 - end - object v1Column4: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'MYTypeFlag' - HeaderAlignmentHorz = taCenter - Width = 81 - end - object Tv1Column1: TcxGridDBColumn - Caption = #22383#24067#32852#31995#21495 - DataBinding.FieldName = 'PBBatchNo' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 176 - end - object v1Column10: TcxGridDBColumn - Caption = #21152#24037#21378#32534#21495 - DataBinding.FieldName = 'GYSNo' - HeaderAlignmentHorz = taCenter - Width = 95 - end - object v1Column7: TcxGridDBColumn - Caption = #21152#24037#21378 - DataBinding.FieldName = 'KHNameJC' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 120 - end - object Tv1Column6: TcxGridDBColumn - Caption = #25910#33719#21333#20301#32534#21495 - DataBinding.FieldName = 'ToGYSNo' - HeaderAlignmentHorz = taCenter - Width = 110 - end - object v1JCDanWeiJC: TcxGridDBColumn - Caption = #25910#36135#21333#20301 - DataBinding.FieldName = 'KHNameJCDH' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 114 - end - object v1filler: TcxGridDBColumn - Caption = #21046#20316#20154 - DataBinding.FieldName = 'filler' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object v1Column1: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'PS' - OnCustomDrawCell = v1Column1CustomDrawCell - HeaderAlignmentHorz = taCenter - Options.Editing = False - Styles.Footer = DataLink_MYSC.Default10 - Width = 68 - end - object v1Column17: TcxGridDBColumn - Caption = #20844#26020#25968 - DataBinding.FieldName = 'KgQty' - OnCustomDrawCell = v1Column17CustomDrawCell - HeaderAlignmentHorz = taCenter - Options.Editing = False - Styles.Footer = DataLink_MYSC.Default10 - Width = 85 - end - object v1Column3: TcxGridDBColumn - Caption = #31859#25968 - DataBinding.FieldName = 'Qty' - OnCustomDrawCell = v1Column3CustomDrawCell - HeaderAlignmentHorz = taCenter - Options.Editing = False - Styles.Footer = DataLink_MYSC.Default10 - Width = 78 - end - object Tv1Column2: TcxGridDBColumn - Caption = #26126#32454#21305#25968 - DataBinding.FieldName = 'MXHZPS' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 84 - end - object Tv1Column4: TcxGridDBColumn - Caption = #26126#32454#20844#26020#25968 - DataBinding.FieldName = 'MXHZKgQty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object Tv1Column3: TcxGridDBColumn - Caption = #26126#32454#31859#25968 - DataBinding.FieldName = 'MXHZQty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 89 - end - object v1Column2: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - HeaderAlignmentHorz = taCenter - Width = 261 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 - end - end object Panel1: TPanel Left = 0 Top = 32 @@ -590,6 +381,13 @@ object frmLLCKList: TfrmLLCKList ParentFont = False TabOrder = 8 OnChange = CustomerNoNameChange + Items.Strings = ( + '' + #38754#26009 + #24213#24067 + #32447 + #26825 + #26080#32442#24067) end object MLOrderNo: TEdit Tag = 2 @@ -652,42 +450,713 @@ object frmLLCKList: TfrmLLCKList OnChange = CustomerNoNameChange end end + object PageControl1: TPageControl + Left = 0 + Top = 98 + Width = 1654 + Height = 696 + ActivePage = TabSheet3 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 2 + TabPosition = tpBottom + object TabSheet1: TTabSheet + Caption = #23458#25143#27719#24635 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1646 + Height = 663 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = TV2PS + end + item + Kind = skSum + Column = TV2KgQty + end + item + Kind = skSum + Column = Tv2Qty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV2Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object TV2KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 129 + end + object TV2KHNo: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV2MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object TV2PS: TcxGridDBColumn + Caption = #21305#25968'/'#25903 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 68 + end + object Tv2Qty: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 78 + end + object TV2KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 85 + end + object TV2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Sorting = False + Width = 182 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object TabSheet2: TTabSheet + Caption = #26126#32454#20449#24687 + ImageIndex = 1 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1646 + Height = 663 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV3Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object TV3MLOrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHCode: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 129 + end + object TV3CRTime: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object TV3PBBatchNo: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3GYSNo: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHNameJC: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 103 + end + object TV3KHNameJCDH: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object TV3MYName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 168 + end + object TV3MYColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object TV3MYColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'MYColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object TV3filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3RCGangNo: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JKGQTY: TcxGridDBColumn + Caption = #21367#20844#26020#25968 + DataBinding.FieldName = 'JKGQTY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JMQTY: TcxGridDBColumn + Caption = #21367#31859#25968 + DataBinding.FieldName = 'JMQTY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3SJKZ: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'SJKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object TV3Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 182 + end + object TV3RCColor: TcxGridDBColumn + Caption = #26579#21378#39068#33394 + DataBinding.FieldName = 'RCColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3ZKZT: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ZKZT' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3CDZSD: TcxGridDBColumn + Caption = #20986#21040#25351#31034#21333 + DataBinding.FieldName = 'CDZSD' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end + object TabSheet3: TTabSheet + Caption = #27719#24635#20449#24687 + ImageIndex = 2 + object cxGrid4: TcxGrid + Left = 0 + Top = 461 + Width = 1646 + Height = 202 + Align = alBottom + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_Sub + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV4RCGangNo: TcxGridDBColumn + Caption = #20837#24211#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4JH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4MQty: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'MQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TV4 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1646 + Height = 461 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_Main + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column3 + end + item + Format = #20010#25968':##' + Kind = skCount + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object v1Column11: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 148 + end + object v1Column13: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHNOKH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column12: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHNameJCZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 177 + end + object v1Column9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 127 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 160 + end + object Tv1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYTypeFlag' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 176 + end + object v1Column10: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column7: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column6: TcxGridDBColumn + Caption = #25910#33719#21333#20301#32534#21495 + DataBinding.FieldName = 'ToGYSNo' + HeaderAlignmentHorz = taCenter + Width = 110 + end + object v1JCDanWeiJC: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v1filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + OnCustomDrawCell = v1Column1CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + OnCustomDrawCell = v1Column17CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty' + OnCustomDrawCell = v1Column3CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 78 + end + object Tv1Column2: TcxGridDBColumn + Caption = #26126#32454#21305#25968 + DataBinding.FieldName = 'MXHZPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object Tv1Column4: TcxGridDBColumn + Caption = #26126#32454#20844#26020#25968 + DataBinding.FieldName = 'MXHZKgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column3: TcxGridDBColumn + Caption = #26126#32454#31859#25968 + DataBinding.FieldName = 'MXHZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 261 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 165 - Top = 148 + Left = 889 + Top = 364 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 205 - Top = 209 + Left = 813 + Top = 326 end object ADOQueryMain: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 205 - Top = 178 + Left = 851 + Top = 326 end object ADOQueryTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 206 - Top = 149 + Left = 889 + Top = 326 end - object DataSource1: TDataSource + object DS_Main: TDataSource DataSet = Order_Main - Left = 164 - Top = 210 + Left = 813 + Top = 402 end object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 165 - Top = 179 + Left = 851 + Top = 364 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -705,15 +1174,15 @@ object frmLLCKList: TfrmLLCKList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 1048 - Top = 8 + Left = 775 + Top = 440 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True - DataSet = CDS_PRT - Left = 1016 - Top = 8 + DataSet = CDS_3 + Left = 737 + Top = 440 end object RMXLSExport2: TRMXLSExport ShowAfterExport = False @@ -726,18 +1195,18 @@ object frmLLCKList: TfrmLLCKList ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False - Left = 1108 - Top = 8 + Left = 813 + Top = 440 end - object CDS_PRT: TClientDataSet + object CDS_3: TClientDataSet Aggregates = <> Params = <> - Left = 1080 - Top = 8 + Left = 775 + Top = 364 end object PopupMenu1: TPopupMenu - Left = 164 - Top = 240 + Left = 889 + Top = 402 object N1: TMenuItem Caption = #20462#25913 OnClick = N1Click @@ -747,10 +1216,45 @@ object frmLLCKList: TfrmLLCKList OnClick = N2Click end end - object ClientDataSet1: TClientDataSet + object CDS_2: TClientDataSet Aggregates = <> Params = <> - Left = 773 - Top = 259 + Left = 737 + Top = 364 + end + object ADOQuery3: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 775 + Top = 326 + end + object ADOQuery2: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 737 + Top = 326 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 737 + Top = 402 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 775 + Top = 402 + end + object DS_Sub: TDataSource + DataSet = CDS_Sub + Left = 851 + Top = 402 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 813 + Top = 364 end end diff --git a/云翔生产管理(MYSC.dll)/U_LLCKList.pas b/云翔生产管理(MYSC.dll)/U_LLCKList.pas index 7268462..c7a3539 100644 --- a/云翔生产管理(MYSC.dll)/U_LLCKList.pas +++ b/云翔生产管理(MYSC.dll)/U_LLCKList.pas @@ -11,20 +11,20 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, dxSkinSpringTime, - dxSkinsDefaultPainters, - - dxSkinscxPCPainter; + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime, + dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, + dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmLLCKList = class(TForm) @@ -40,7 +40,7 @@ type ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; - DataSource1: TDataSource; + DS_Main: TDataSource; TBExport: TToolButton; Order_Main: TClientDataSet; ToolButton1: TToolButton; @@ -55,7 +55,7 @@ type RM1: TRMGridReport; RMDBMain: TRMDBDataSet; RMXLSExport2: TRMXLSExport; - CDS_PRT: TClientDataSet; + CDS_3: TClientDataSet; v1Column17: TcxGridDBColumn; v1Column5: TcxGridDBColumn; Label2: TLabel; @@ -75,7 +75,7 @@ type v1filler: TcxGridDBColumn; Label4: TLabel; filler: TEdit; - ClientDataSet1: TClientDataSet; + CDS_2: TClientDataSet; v1Column4: TcxGridDBColumn; v1Column10: TcxGridDBColumn; Label5: TLabel; @@ -97,6 +97,63 @@ type Label9: TLabel; MYColor: TEdit; Tv1Column6: TcxGridDBColumn; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + TV2Ssel: TcxGridDBColumn; + TV2KHName: TcxGridDBColumn; + TV2KHNo: TcxGridDBColumn; + TV2MYType: TcxGridDBColumn; + TV2PS: TcxGridDBColumn; + Tv2Qty: TcxGridDBColumn; + TV2KgQty: TcxGridDBColumn; + TV2Note: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TabSheet2: TTabSheet; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + TV3Ssel: TcxGridDBColumn; + TV3MLOrderNo: TcxGridDBColumn; + TV3KHCode: TcxGridDBColumn; + TV3KHName: TcxGridDBColumn; + TV3CRTime: TcxGridDBColumn; + TV3PBBatchNo: TcxGridDBColumn; + TV3GYSNo: TcxGridDBColumn; + TV3KHNameJC: TcxGridDBColumn; + TV3KHNameJCDH: TcxGridDBColumn; + TV3MYType: TcxGridDBColumn; + TV3MYName: TcxGridDBColumn; + TV3MYColor: TcxGridDBColumn; + TV3MYColorNo: TcxGridDBColumn; + TV3filler: TcxGridDBColumn; + TV3RCGangNo: TcxGridDBColumn; + TV3JH: TcxGridDBColumn; + TV3JKGQTY: TcxGridDBColumn; + TV3JMQTY: TcxGridDBColumn; + TV3MYMF: TcxGridDBColumn; + TV3MYKZ: TcxGridDBColumn; + TV3SJKZ: TcxGridDBColumn; + TV3Note: TcxGridDBColumn; + TV3RCColor: TcxGridDBColumn; + TV3ZKZT: TcxGridDBColumn; + TV3CDZSD: TcxGridDBColumn; + TV3KW: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + TabSheet3: TTabSheet; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + TV4RCGangNo: TcxGridDBColumn; + TV4JH: TcxGridDBColumn; + TV4KgQty: TcxGridDBColumn; + TV4MQty: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ADOQuery3: TADOQuery; + ADOQuery2: TADOQuery; + DS_2: TDataSource; + DS_3: TDataSource; + DS_Sub: TDataSource; + CDS_Sub: TClientDataSet; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -112,18 +169,21 @@ type procedure CustomerNoNameChange(Sender: TObject); procedure N2Click(Sender: TObject); procedure N1Click(Sender: TObject); - procedure cxTabControl1Change(Sender: TObject); procedure ZJStatusChange(Sender: TObject); procedure Tv1DblClick(Sender: TObject); procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); private FGXName: string; DQdate: TDateTime; procedure InitGrid(); procedure InitForm(); function DelData(): Boolean; + procedure InitGridByCustomer(); + procedure InitMXGrid(); + procedure InitSubGrid(); { Private declarations } public FFInt, FCloth: Integer; @@ -211,11 +271,131 @@ begin end; SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); + InitSubGrid(); finally ADOQueryMain.EnableControls; end; end; +procedure TfrmLLCKList.InitGridByCustomer(); +begin + try + ADOQuery2.DisableControls; + with ADOQuery2 do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' SELECT A.KHName,A.KHCode,A.MYType,SUM(A.PS) as PS,SUM(A.Qty) AS Qty,SUM(A.KgQty) AS KgQty '); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' where 1=1 '); + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(A.CRType,'''')='''' '); + sql.Add(' GROUP BY A.KHName, A.KHCode, A.MYType '); + sql.Add(' ORDER BY MIN(A.CRTime),A.KHName'); + Open; + end; + SCreateCDS20(ADOQuery2, CDS_2); + SInitCDSData20(ADOQuery2, CDS_2); + finally + ADOQuery2.EnableControls; + end; +end; + +procedure TfrmLLCKList.InitMXGrid(); +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select AA.* '); + sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); + sql.Add('from('); + sql.Add(' select A.*,D.KGQTY as JKGQTY ,D.MQTY as JMQTY ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); + sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); + sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)'); + sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')'); + sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO'); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID'); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where 1=1 '); + + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(CRType,'''')='''' '); + sql.Add(')AA'); + sql.Add(' order by AA.CRTime,AA.KHName'); +// ShowMessage(SQL.Text); + Open; + end; + + SCreateCDS20(ADOQuery3, CDS_3); + SInitCDSData20(ADOQuery3, CDS_3); + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmLLCKList.InitSubGrid(); +var + MYID: string; +begin + if Order_Main.IsEmpty then + exit; + + try + ADOQueryTemp.DisableControls; + MYID := Order_Main.FieldByName('MYID').AsString; + + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('SELECT * FROM CK_MYSC_CR_MX WHERE MYID = ''' + MYID + ''''); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Sub); + SInitCDSData20(ADOQueryTemp, CDS_Sub); + finally + ADOQueryTemp.EnableControls; + end; + +end; + procedure TfrmLLCKList.InitForm(); var fsj: string; @@ -223,18 +403,41 @@ begin BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); EndDate.Date := SGetServerDate(ADOQueryTemp); ReadCxGrid('ӹ뵥', Tv1, 'ó'); - fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' '; - SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj); + InitGrid(); + InitGridByCustomer(); + InitMXGrid(); end; procedure TfrmLLCKList.TBFindClick(Sender: TObject); begin + if ADOQueryMain.Active = False then - Exit; - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); - SCreateCDS20(ADOQueryMain, Order_Main); - SInitCDSData20(ADOQueryMain, Order_Main); + Exit + else + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + end; + + if ADOQuery1.Active = False then + Exit + else + begin + SDofilter(ADOQuery2, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery2, CDS_2); + SInitCDSData20(ADOQuery2, CDS_2); + end; + + if ADOQuery3.Active = False then + Exit + else + begin + SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery3, CDS_3); + SInitCDSData20(ADOQuery3, CDS_3); + end; end; function TfrmLLCKList.DelData(): Boolean; @@ -285,6 +488,8 @@ end; procedure TfrmLLCKList.TBRafreshClick(Sender: TObject); begin InitGrid(); + InitGridByCustomer(); + InitMXGrid(); TBFind.Click; end; @@ -298,7 +503,7 @@ begin FMainId := ''; if ShowModal = 1 then begin - InitGrid(); + TBRafresh.Click end; end; finally @@ -313,7 +518,7 @@ end; procedure TfrmLLCKList.CheckBox1Click(Sender: TObject); begin - InitGrid(); + TBRafresh.Click end; procedure TfrmLLCKList.CheckBox2Click(Sender: TObject); @@ -352,6 +557,33 @@ begin SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); + + if ADOQueryMain.Active = False then + Exit + else + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + end; + + if ADOQuery2.Active = False then + Exit + else + begin + SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery2, CDS_2); + SInitCDSData20(ADOQuery2, CDS_2); + end; + + if ADOQuery3.Active = False then + Exit + else + begin + SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery3, CDS_3); + SInitCDSData20(ADOQuery3, CDS_3); + end; end; procedure TfrmLLCKList.N2Click(Sender: TObject); @@ -448,11 +680,6 @@ begin end; } end; -procedure TfrmLLCKList.cxTabControl1Change(Sender: TObject); -begin - InitGrid(); -end; - procedure TfrmLLCKList.ZJStatusChange(Sender: TObject); begin TBFind.Click; @@ -499,5 +726,10 @@ begin end; end; +procedure TfrmLLCKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitSubGrid(); +end; + end. diff --git a/云翔生产管理(MYSC.dll)/U_LLKCList.dfm b/云翔生产管理(MYSC.dll)/U_LLKCList.dfm index b2c6e0c..969428b 100644 --- a/云翔生产管理(MYSC.dll)/U_LLKCList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLKCList.dfm @@ -1,8 +1,8 @@ object frmLLKCList: TfrmLLKCList - Left = 311 - Top = 283 + Left = 419 + Top = 418 Width = 1556 - Height = 781 + Height = 749 Caption = #24211#23384 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -17,6 +17,671 @@ object frmLLKCList: TfrmLLKCList OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 + object PageControl1: TPageControl + Left = 0 + Top = 121 + Width = 1548 + Height = 597 + ActivePage = TabSheet1 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 7 + TabPosition = tpBottom + object TabSheet1: TTabSheet + Caption = #23458#25143#27719#24635 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1540 + Height = 564 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = TV2PS + end + item + Kind = skSum + Column = TV2KgQty + end + item + Kind = skSum + Column = Tv2Qty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV2Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object TV2KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 129 + end + object TV2KHNo: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV2MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object TV2PS: TcxGridDBColumn + Caption = #21305#25968'/'#25903 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 68 + end + object Tv2Qty: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 78 + end + object TV2KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 85 + end + object TV2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Sorting = False + Width = 182 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object TabSheet2: TTabSheet + Caption = #26126#32454#20449#24687 + ImageIndex = 1 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1540 + Height = 564 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV3Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object TV3MLOrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHCode: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 129 + end + object TV3CRTime: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object TV3PBBatchNo: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3GYSNo: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHNameJC: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 103 + end + object TV3KHNameJCDH: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object TV3MYName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 168 + end + object TV3MYColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object TV3MYColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'MYColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object TV3filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3RCGangNo: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JKGQTY: TcxGridDBColumn + Caption = #21367#20844#26020#25968 + DataBinding.FieldName = 'JKGQTY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JMQTY: TcxGridDBColumn + Caption = #21367#31859#25968 + DataBinding.FieldName = 'JMQTY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3SJKZ: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'SJKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object TV3Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 182 + end + object TV3RCColor: TcxGridDBColumn + Caption = #26579#21378#39068#33394 + DataBinding.FieldName = 'RCColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3ZKZT: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ZKZT' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3CDZSD: TcxGridDBColumn + Caption = #20986#21040#25351#31034#21333 + DataBinding.FieldName = 'CDZSD' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end + object TabSheet3: TTabSheet + Caption = #27719#24635#20449#24687 + ImageIndex = 2 + object cxGrid4: TcxGrid + Left = 0 + Top = 362 + Width = 1540 + Height = 202 + Align = alBottom + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_Sub + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV4RCGangNo: TcxGridDBColumn + Caption = #20837#24211#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4JH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4MQty: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'MQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TV4 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1540 + Height = 362 + Align = alClient + PopupMenu = PopupMenu2 + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_Main + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #20010#25968':##' + Kind = skCount + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object Tv1Column7: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 148 + end + object v1Column13: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 110 + end + object v1Column12: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 177 + end + object v1Column9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 127 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 176 + end + object v1Column10: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column7: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 129 + end + object v1JCDanWeiJC: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v1Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYTypeFlag' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 160 + end + object Tv1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column2: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv1Column4: TcxGridDBColumn + Caption = #26126#32454#20844#26020#25968 + DataBinding.FieldName = 'mxKgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column3: TcxGridDBColumn + Caption = #26126#32454#31859#25968 + DataBinding.FieldName = 'mxMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 261 + end + object Tv1Column6: TcxGridDBColumn + Caption = #26579#21378#39068#33394 + DataBinding.FieldName = 'RCColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ZKZT' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv1Column9: TcxGridDBColumn + Caption = #20986#21040#25351#31034#21333 + DataBinding.FieldName = 'CDZSD' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column10: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KW' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end object ToolBar1: TToolBar Left = 0 Top = 0 @@ -161,210 +826,6 @@ object frmLLKCList: TfrmLLKCList Visible = False end end - object cxGrid1: TcxGrid - Left = 0 - Top = 121 - Width = 1548 - Height = 629 - Align = alClient - PopupMenu = PopupMenu2 - TabOrder = 2 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - DataController.DataSource = DataSource1 - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Format = #20010#25968':##' - Kind = skCount - Column = v1Column9 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column3 - end - item - Kind = skSum - Column = Tv1Column4 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - Styles.Content = DataLink_MYSC.Default10 - Styles.Footer = DataLink_MYSC.Default10 - Styles.Header = DataLink_MYSC.Default10 - object Tv1Column7: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'Ssel' - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - HeaderAlignmentHorz = taCenter - Width = 65 - end - object v1Column11: TcxGridDBColumn - Caption = #25351#31034#21333#21495 - DataBinding.FieldName = 'MLOrderNo' - PropertiesClassName = 'TcxTextEditProperties' - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Width = 148 - end - object v1Column13: TcxGridDBColumn - Caption = #23458#25143#32534#21495 - DataBinding.FieldName = 'KHCode' - PropertiesClassName = 'TcxTextEditProperties' - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Width = 110 - end - object v1Column12: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'KHName' - PropertiesClassName = 'TcxTextEditProperties' - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Width = 177 - end - object v1Column9: TcxGridDBColumn - Caption = #26085#26399 - DataBinding.FieldName = 'CRTime' - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 127 - end - object Tv1Column1: TcxGridDBColumn - Caption = #22383#24067#32852#31995#21495 - DataBinding.FieldName = 'PBBatchNo' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 176 - end - object v1Column10: TcxGridDBColumn - Caption = #21152#24037#21378#32534#21495 - DataBinding.FieldName = 'GYSNo' - HeaderAlignmentHorz = taCenter - Width = 90 - end - object v1Column7: TcxGridDBColumn - Caption = #21152#24037#21378 - DataBinding.FieldName = 'KHNameJC' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 129 - end - object v1JCDanWeiJC: TcxGridDBColumn - Caption = #25910#36135#21333#20301 - DataBinding.FieldName = 'KHNameJCDH' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 114 - end - object v1Column4: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'MYTypeFlag' - HeaderAlignmentHorz = taCenter - Width = 81 - end - object v1Column5: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'MYName' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 160 - end - object Tv1Column5: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'MYColor' - HeaderAlignmentHorz = taCenter - Width = 96 - end - object v1filler: TcxGridDBColumn - Caption = #21046#20316#20154 - DataBinding.FieldName = 'filler' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object Tv1Column2: TcxGridDBColumn - Caption = #21367#21495 - DataBinding.FieldName = 'JH' - HeaderAlignmentHorz = taCenter - Width = 65 - end - object Tv1Column4: TcxGridDBColumn - Caption = #26126#32454#20844#26020#25968 - DataBinding.FieldName = 'mxKgQty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object Tv1Column3: TcxGridDBColumn - Caption = #26126#32454#31859#25968 - DataBinding.FieldName = 'mxMQty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 89 - end - object v1Column2: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - HeaderAlignmentHorz = taCenter - Width = 261 - end - object Tv1Column6: TcxGridDBColumn - Caption = #26579#21378#39068#33394 - DataBinding.FieldName = 'RCColor' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #29366#24577 - DataBinding.FieldName = 'ZKZT' - HeaderAlignmentHorz = taCenter - Width = 65 - end - object Tv1Column9: TcxGridDBColumn - Caption = #20986#21040#25351#31034#21333 - DataBinding.FieldName = 'CDZSD' - HeaderAlignmentHorz = taCenter - Width = 90 - end - object Tv1Column10: TcxGridDBColumn - Caption = #24211#20301 - DataBinding.FieldName = 'KW' - HeaderAlignmentHorz = taCenter - Width = 65 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 - end - end object Panel1: TPanel Left = 0 Top = 32 @@ -644,6 +1105,13 @@ object frmLLKCList: TfrmLLKCList ParentFont = False TabOrder = 8 OnChange = CustomerNoNameChange + Items.Strings = ( + '' + #38754#26009 + #24213#24067 + #32447 + #26825 + #26080#32442#24067) end object MLOrderNo: TEdit Tag = 2 @@ -712,7 +1180,7 @@ object frmLLKCList: TfrmLLKCList Width = 509 Height = 379 Color = clSkyBlue - TabOrder = 3 + TabOrder = 2 Visible = False object SpeedButton1: TSpeedButton Left = 36 @@ -979,7 +1447,7 @@ object frmLLKCList: TfrmLLKCList Width = 409 Height = 201 Color = clSkyBlue - TabOrder = 4 + TabOrder = 3 Visible = False object Label10: TLabel Left = 16 @@ -1110,7 +1578,7 @@ object frmLLKCList: TfrmLLKCList Width = 409 Height = 209 Color = clSkyBlue - TabOrder = 5 + TabOrder = 4 Visible = False object Label12: TLabel Left = 40 @@ -1201,7 +1669,7 @@ object frmLLKCList: TfrmLLKCList Width = 1548 Height = 23 Align = alTop - TabOrder = 6 + TabOrder = 5 Properties.CustomButtons.Buttons = <> Properties.Style = 9 Properties.TabIndex = 0 @@ -1219,7 +1687,7 @@ object frmLLKCList: TfrmLLKCList Width = 409 Height = 153 Color = clSkyBlue - TabOrder = 7 + TabOrder = 6 Visible = False object Label15: TLabel Left = 40 @@ -1281,39 +1749,39 @@ object frmLLKCList: TfrmLLKCList object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 165 - Top = 148 + Left = 722 + Top = 345 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 205 - Top = 209 + Left = 760 + Top = 269 end object ADOQueryMain: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 205 - Top = 178 + Left = 798 + Top = 269 end object ADOQueryTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 206 - Top = 149 + Left = 684 + Top = 307 end - object DataSource1: TDataSource + object DS_Main: TDataSource DataSet = Order_Main - Left = 164 - Top = 210 + Left = 836 + Top = 345 end object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 165 - Top = 179 + Left = 684 + Top = 345 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -1331,15 +1799,15 @@ object frmLLKCList: TfrmLLKCList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 1048 - Top = 8 + Left = 684 + Top = 421 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_PRT - Left = 1016 - Top = 8 + Left = 798 + Top = 383 end object RMXLSExport2: TRMXLSExport ShowAfterExport = False @@ -1352,18 +1820,18 @@ object frmLLKCList: TfrmLLKCList ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False - Left = 1108 - Top = 8 + Left = 760 + Top = 421 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> - Left = 1080 - Top = 8 + Left = 798 + Top = 307 end object PopupMenu1: TPopupMenu - Left = 164 - Top = 240 + Left = 722 + Top = 383 object N1: TMenuItem Caption = #20462#25913 OnClick = N1Click @@ -1373,18 +1841,18 @@ object frmLLKCList: TfrmLLKCList OnClick = N2Click end end - object ClientDataSet1: TClientDataSet + object CDS_2: TClientDataSet Aggregates = <> Params = <> - Left = 773 - Top = 259 + Left = 722 + Top = 307 end object ADOQueryPrint: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 280 - Top = 544 + Left = 836 + Top = 269 end object RM2: TRMGridReport ThreadPrepareReport = True @@ -1403,19 +1871,19 @@ object frmLLKCList: TfrmLLKCList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 344 - Top = 568 + Left = 722 + Top = 421 ReportData = {} end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint - Left = 320 - Top = 528 + Left = 836 + Top = 383 end object PopupMenu2: TPopupMenu - Left = 172 - Top = 392 + Left = 760 + Top = 383 object MenuItem1: TMenuItem Caption = #20840#36873 OnClick = MenuItem1Click @@ -1425,4 +1893,43 @@ object frmLLKCList: TfrmLLKCList OnClick = MenuItem2Click end end + object ADOQuery3: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 722 + Top = 269 + end + object ADOQuery2: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 684 + Top = 269 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 760 + Top = 307 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 836 + Top = 307 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 760 + Top = 345 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 798 + Top = 345 + end + object DS_Sub: TDataSource + DataSet = CDS_Sub + Left = 684 + Top = 383 + end end diff --git a/云翔生产管理(MYSC.dll)/U_LLKCList.pas b/云翔生产管理(MYSC.dll)/U_LLKCList.pas index d07d718..4a11034 100644 --- a/云翔生产管理(MYSC.dll)/U_LLKCList.pas +++ b/云翔生产管理(MYSC.dll)/U_LLKCList.pas @@ -24,7 +24,19 @@ uses dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, - dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu; + dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, + dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmLLKCList = class(TForm) @@ -40,7 +52,7 @@ type ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; - DataSource1: TDataSource; + DS_Main: TDataSource; TBExport: TToolButton; Order_Main: TClientDataSet; ToolButton1: TToolButton; @@ -75,7 +87,7 @@ type Label4: TLabel; filler: TEdit; ToolButton2: TToolButton; - ClientDataSet1: TClientDataSet; + CDS_2: TClientDataSet; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; @@ -150,6 +162,64 @@ type Button5: TButton; Button6: TButton; KW: TEdit; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + TV2Ssel: TcxGridDBColumn; + TV2KHName: TcxGridDBColumn; + TV2KHNo: TcxGridDBColumn; + TV2MYType: TcxGridDBColumn; + TV2PS: TcxGridDBColumn; + Tv2Qty: TcxGridDBColumn; + TV2KgQty: TcxGridDBColumn; + TV2Note: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TabSheet2: TTabSheet; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + TV3Ssel: TcxGridDBColumn; + TV3MLOrderNo: TcxGridDBColumn; + TV3KHCode: TcxGridDBColumn; + TV3KHName: TcxGridDBColumn; + TV3CRTime: TcxGridDBColumn; + TV3PBBatchNo: TcxGridDBColumn; + TV3GYSNo: TcxGridDBColumn; + TV3KHNameJC: TcxGridDBColumn; + TV3KHNameJCDH: TcxGridDBColumn; + TV3MYType: TcxGridDBColumn; + TV3MYName: TcxGridDBColumn; + TV3MYColor: TcxGridDBColumn; + TV3MYColorNo: TcxGridDBColumn; + TV3filler: TcxGridDBColumn; + TV3RCGangNo: TcxGridDBColumn; + TV3JH: TcxGridDBColumn; + TV3JKGQTY: TcxGridDBColumn; + TV3JMQTY: TcxGridDBColumn; + TV3MYMF: TcxGridDBColumn; + TV3MYKZ: TcxGridDBColumn; + TV3SJKZ: TcxGridDBColumn; + TV3Note: TcxGridDBColumn; + TV3RCColor: TcxGridDBColumn; + TV3ZKZT: TcxGridDBColumn; + TV3CDZSD: TcxGridDBColumn; + TV3KW: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + TabSheet3: TTabSheet; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + TV4RCGangNo: TcxGridDBColumn; + TV4JH: TcxGridDBColumn; + TV4KgQty: TcxGridDBColumn; + TV4MQty: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + ADOQuery3: TADOQuery; + ADOQuery2: TADOQuery; + CDS_3: TClientDataSet; + CDS_Sub: TClientDataSet; + DS_2: TDataSource; + DS_3: TDataSource; + DS_Sub: TDataSource; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -329,8 +399,6 @@ begin BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); EndDate.Date := SGetServerDate(ADOQueryTemp); ReadCxGrid('', Tv1, 'ó'); - fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' '; - SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj); SetStatus(); InitGrid(); end; @@ -872,8 +940,8 @@ begin begin RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); - //RM2.ShowReport; - RM2.PrintReport; + RM2.ShowReport; +// RM2.PrintReport; end else begin diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm b/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm index 509ffb3..cbf08b2 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm @@ -199,7 +199,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 99 Top = 11 Width = 261 - Height = 31 + Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 @@ -214,7 +214,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 479 Top = 50 Width = 179 - Height = 23 + Height = 21 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -231,7 +231,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 481 Top = 11 Width = 187 - Height = 30 + Height = 28 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 @@ -575,7 +575,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 99 Top = 120 Width = 272 - Height = 23 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -589,7 +589,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 465 Top = 22 Width = 40 - Height = 23 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -603,7 +603,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 554 Top = 22 Width = 71 - Height = 23 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -618,7 +618,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 663 Top = 22 Width = 71 - Height = 23 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -632,7 +632,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 467 Top = 191 Width = 40 - Height = 24 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clBlue @@ -648,7 +648,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 553 Top = 191 Width = 71 - Height = 24 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clBlue @@ -664,7 +664,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 662 Top = 191 Width = 71 - Height = 24 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clBlue @@ -680,7 +680,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 467 Top = 251 Width = 40 - Height = 24 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clRed @@ -696,7 +696,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 553 Top = 251 Width = 71 - Height = 24 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clRed @@ -712,7 +712,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 662 Top = 251 Width = 71 - Height = 24 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clRed @@ -761,7 +761,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 941 Top = 64 Width = 72 - Height = 23 + Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -13 @@ -776,7 +776,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 465 Top = 116 Width = 289 - Height = 30 + Height = 28 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 @@ -792,7 +792,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 99 Top = 21 Width = 60 - Height = 25 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -808,7 +808,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 277 Top = 20 Width = 60 - Height = 25 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -824,7 +824,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 99 Top = 71 Width = 60 - Height = 25 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -840,7 +840,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 277 Top = 71 Width = 60 - Height = 25 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 @@ -856,7 +856,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 465 Top = 73 Width = 59 - Height = 23 + Height = 21 Color = clScrollBar Enabled = False Font.Charset = GB2312_CHARSET @@ -873,7 +873,7 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 641 Top = 71 Width = 111 - Height = 25 + Height = 23 TabOrder = 18 end end diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas index 49abbfc..2f247d8 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas @@ -921,6 +921,7 @@ begin begin Parameters.ParamByName('KGQty').Value := Null; end; + if Trim(MXHZQty.Text) <> '0' then begin Parameters.ParamByName('MQty').Value := FM; diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList.dfm b/云翔生产管理(MYSC.dll)/U_LLRKList.dfm index 9e5ee9c..448227d 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKList.dfm @@ -1,6 +1,6 @@ object frmLLRKList: TfrmLLRKList - Left = 601 - Top = 249 + Left = 1195 + Top = 285 Width = 1361 Height = 698 Caption = #23458#25143#26469#26009#20837#24211#30331#35760 @@ -17,6 +17,685 @@ object frmLLRKList: TfrmLLRKList OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 + object PageControl1: TPageControl + Left = 0 + Top = 104 + Width = 1353 + Height = 563 + ActivePage = TabSheet3 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 5 + TabPosition = tpBottom + object TabSheet1: TTabSheet + Caption = #23458#25143#27719#24635 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1345 + Height = 530 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = TV2PS + end + item + Kind = skSum + Column = TV2KgQty + end + item + Kind = skSum + Column = Tv2Qty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV2Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object TV2KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 129 + end + object TV2KHNo: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV2MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object TV2PS: TcxGridDBColumn + Caption = #21305#25968'/'#25903 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 68 + end + object Tv2Qty: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 78 + end + object TV2KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 85 + end + object TV2Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Sorting = False + Width = 182 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + object TabSheet2: TTabSheet + Caption = #26126#32454#20449#24687 + ImageIndex = 1 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1345 + Height = 530 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV3Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object TV3MLOrderNo: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHCode: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHCode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 129 + end + object TV3CRTime: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object TV3PBBatchNo: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3GYSNo: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KHNameJC: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 103 + end + object TV3KHNameJCDH: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object TV3MYName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 168 + end + object TV3MYColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object TV3MYColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'MYColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object TV3filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3RCGangNo: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JKGQTY: TcxGridDBColumn + Caption = #21367#20844#26020#25968 + DataBinding.FieldName = 'JKGQTY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3JMQTY: TcxGridDBColumn + Caption = #21367#31859#25968 + DataBinding.FieldName = 'JMQTY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYMF: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'MYMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3MYKZ: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'MYKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3SJKZ: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'SJKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object TV3Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 182 + end + object TV3RCColor: TcxGridDBColumn + Caption = #26579#21378#39068#33394 + DataBinding.FieldName = 'RCColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3ZKZT: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ZKZT' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3CDZSD: TcxGridDBColumn + Caption = #20986#21040#25351#31034#21333 + DataBinding.FieldName = 'CDZSD' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV3KW: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KW' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end + object TabSheet3: TTabSheet + Caption = #27719#24635#20449#24687 + ImageIndex = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1345 + Height = 328 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_Main + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column3 + end + item + Kind = skSum + Column = v1MXHZPS + end + item + Kind = skSum + Column = v1MXHZKgQty + end + item + Kind = skSum + Column = v1MXHZQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + SortIndex = 0 + SortOrder = soDescending + Width = 58 + end + object v1Column9: TcxGridDBColumn + Caption = #20837#24211#26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v1MYType: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object v1Column7: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 129 + end + object v1JCDanWei: TcxGridDBColumn + Caption = #26469#36135#21333#20301 + DataBinding.FieldName = 'JCDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 103 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 168 + end + object v1MYColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object v1Column6: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'MYColorNo' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 59 + end + object v1SJKZ: TcxGridDBColumn + Caption = #23454#38469#20811#37325 + DataBinding.FieldName = 'SJKZ' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 74 + end + object v1IFFZ: TcxGridDBColumn + Caption = #38468#20214 + DataBinding.FieldName = 'IFFZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object v1HWType: TcxGridDBColumn + Caption = #36135#29289#31867#22411 + DataBinding.FieldName = 'HWType' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 96 + end + object v1Column1: TcxGridDBColumn + Caption = #21305#25968'/'#25903 + DataBinding.FieldName = 'PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 78 + end + object v1MXHZPS: TcxGridDBColumn + Caption = #26680#23545#21305#25968 + DataBinding.FieldName = 'MXHZPS' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 72 + end + object v1MXHZKgQty: TcxGridDBColumn + Caption = #26680#23545#20844#26020#25968 + DataBinding.FieldName = 'MXHZKgQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object v1MXHZQty: TcxGridDBColumn + Caption = #26680#23545#31859#25968 + DataBinding.FieldName = 'MXHZQty' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object v1PJKG: TcxGridDBColumn + Caption = #24179#22343#20844#26020#25968 + DataBinding.FieldName = 'PJKG' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Options.Sorting = False + Width = 182 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid4: TcxGrid + Left = 0 + Top = 328 + Width = 1345 + Height = 202 + Align = alBottom + PopupMenu = PopupMenu1 + TabOrder = 1 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DS_Sub + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object TV4RCGangNo: TcxGridDBColumn + Caption = #20837#24211#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4JH: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4KgQty: TcxGridDBColumn + Caption = #20844#26020#25968 + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object TV4MQty: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'MQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV4 + end + end + end + end object ToolBar1: TToolBar Left = 0 Top = 0 @@ -83,14 +762,14 @@ object frmLLRKList: TfrmLLRKList Font.Style = [fsBold] ParentFont = False end - object ToolButton1: TToolButton + object TbLook: TToolButton Left = 616 Top = 0 AutoSize = True Caption = #26597#30475 ImageIndex = 55 Visible = False - OnClick = ToolButton1Click + OnClick = TbLookClick end object TBFind: TToolButton Left = 685 @@ -102,219 +781,6 @@ object frmLLRKList: TfrmLLRKList OnClick = TBFindClick end end - object cxGrid1: TcxGrid - Left = 0 - Top = 104 - Width = 1353 - Height = 563 - Align = alClient - PopupMenu = PopupMenu1 - TabOrder = 1 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - DataController.DataSource = DataSource1 - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - end - item - Kind = skSum - Column = v1Column1 - end - item - Kind = skSum - Column = v1Column17 - end - item - Kind = skSum - Column = v1Column3 - end - item - Kind = skSum - Column = v1MXHZPS - end - item - Kind = skSum - Column = v1MXHZKgQty - end - item - Kind = skSum - Column = v1MXHZQty - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - Styles.Content = DataLink_MYSC.Default10 - Styles.Footer = DataLink_MYSC.Default10 - Styles.Header = DataLink_MYSC.Default10 - object v1Ssel: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'Ssel' - PropertiesClassName = 'TcxCheckBoxProperties' - HeaderAlignmentHorz = taCenter - Options.Sorting = False - SortIndex = 0 - SortOrder = soDescending - Width = 58 - end - object v1Column9: TcxGridDBColumn - Caption = #20837#24211#26085#26399 - DataBinding.FieldName = 'CRTime' - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 116 - end - object v1MYType: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'MYType' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 70 - end - object v1Column7: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'KHName' - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 129 - end - object v1JCDanWei: TcxGridDBColumn - Caption = #26469#36135#21333#20301 - DataBinding.FieldName = 'JCDanWei' - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 103 - end - object v1Column5: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'MYName' - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 168 - end - object v1MYColor: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'MYColor' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 74 - end - object v1Column6: TcxGridDBColumn - Caption = #33394#21495 - DataBinding.FieldName = 'MYColorNo' - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 59 - end - object v1SJKZ: TcxGridDBColumn - Caption = #23454#38469#20811#37325 - DataBinding.FieldName = 'SJKZ' - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 74 - end - object v1IFFZ: TcxGridDBColumn - Caption = #38468#20214 - DataBinding.FieldName = 'IFFZ' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 70 - end - object v1HWType: TcxGridDBColumn - Caption = #36135#29289#31867#22411 - DataBinding.FieldName = 'HWType' - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 96 - end - object v1Column1: TcxGridDBColumn - Caption = #21305#25968'/'#25903 - DataBinding.FieldName = 'PS' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Styles.Footer = DataLink_MYSC.Default10 - Width = 68 - end - object v1Column17: TcxGridDBColumn - Caption = #20844#26020#25968 - DataBinding.FieldName = 'KgQty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Styles.Footer = DataLink_MYSC.Default10 - Width = 85 - end - object v1Column3: TcxGridDBColumn - Caption = #31859#25968 - DataBinding.FieldName = 'Qty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Styles.Footer = DataLink_MYSC.Default10 - Width = 78 - end - object v1MXHZPS: TcxGridDBColumn - Caption = #26680#23545#21305#25968 - DataBinding.FieldName = 'MXHZPS' - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 72 - end - object v1MXHZKgQty: TcxGridDBColumn - Caption = #26680#23545#20844#26020#25968 - DataBinding.FieldName = 'MXHZKgQty' - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 70 - end - object v1MXHZQty: TcxGridDBColumn - Caption = #26680#23545#31859#25968 - DataBinding.FieldName = 'MXHZQty' - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Sorting = False - Width = 70 - end - object v1PJKG: TcxGridDBColumn - Caption = #24179#22343#20844#26020#25968 - DataBinding.FieldName = 'PJKG' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object v1Column2: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - Options.Sorting = False - Width = 182 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 - end - end object Panel1: TPanel Left = 0 Top = 32 @@ -324,7 +790,7 @@ object frmLLRKList: TfrmLLRKList BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue - TabOrder = 2 + TabOrder = 1 object Label34: TLabel Left = 198 Top = 15 @@ -627,7 +1093,7 @@ object frmLLRKList: TfrmLLRKList Width = 249 Height = 225 Color = clSkyBlue - TabOrder = 3 + TabOrder = 2 Visible = False object SpeedButton1: TSpeedButton Left = 55 @@ -754,7 +1220,7 @@ object frmLLRKList: TfrmLLRKList Width = 249 Height = 225 Color = clSkyBlue - TabOrder = 4 + TabOrder = 3 Visible = False object SpeedButton6: TSpeedButton Left = 55 @@ -888,7 +1354,7 @@ object frmLLRKList: TfrmLLRKList Style.Font.Name = #24494#36719#38597#40657 Style.Font.Style = [fsBold] Style.IsFontAssigned = True - TabOrder = 5 + TabOrder = 4 Visible = False Height = 202 Width = 327 @@ -1137,39 +1603,39 @@ object frmLLRKList: TfrmLLRKList object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 173 - Top = 143 + Left = 598 + Top = 319 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 204 - Top = 209 + Left = 662 + Top = 255 end object ADOQueryMain: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 204 - Top = 175 + Left = 694 + Top = 255 end object ADOQueryTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 205 - Top = 144 + Left = 726 + Top = 255 end - object DataSource1: TDataSource + object DS_Main: TDataSource DataSet = Order_Main - Left = 172 - Top = 176 + Left = 694 + Top = 319 end object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 173 - Top = 209 + Left = 662 + Top = 287 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -1187,15 +1653,15 @@ object frmLLRKList: TfrmLLRKList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 1049 - Top = 8 + Left = 630 + Top = 383 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_PRT - Left = 1016 - Top = 8 + Left = 598 + Top = 383 end object RMXLSExport2: TRMXLSExport ShowAfterExport = False @@ -1208,18 +1674,18 @@ object frmLLRKList: TfrmLLRKList ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False - Left = 1108 - Top = 8 + Left = 662 + Top = 383 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> - Left = 1080 - Top = 8 + Left = 694 + Top = 287 end object PopupMenu1: TPopupMenu - Left = 110 - Top = 241 + Left = 694 + Top = 351 object N1: TMenuItem Caption = #20462#25913 OnClick = N1Click @@ -1258,8 +1724,8 @@ object frmLLRKList: TfrmLLRKList end end object PopupMenu2: TPopupMenu - Left = 1094 - Top = 174 + Left = 726 + Top = 351 object MenuItem1: TMenuItem Caption = #19978#20256 OnClick = MenuItem1Click @@ -1282,33 +1748,73 @@ object frmLLRKList: TfrmLLRKList ReadTimeout = 0 ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 - Left = 1119 - Top = 174 + Left = 598 + Top = 351 end object ODPat: TOpenDialog Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] - Left = 1148 - Top = 173 + Left = 662 + Top = 351 end object ImageList1: TImageList Height = 32 ShareImages = True Width = 32 - Left = 151 - Top = 743 + Left = 630 + Top = 351 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 156 + Left = 598 Top = 255 end object ADOQuery2: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 200 - Top = 259 + Left = 630 + Top = 255 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 630 + Top = 319 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 662 + Top = 319 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 598 + Top = 287 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 630 + Top = 287 + end + object DS_Sub: TDataSource + DataSet = CDS_Sub + Left = 726 + Top = 319 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 726 + Top = 287 + end + object ADOQuery3: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 702 + Top = 383 end end diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList.pas b/云翔生产管理(MYSC.dll)/U_LLRKList.pas index 4399597..47a8fc0 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKList.pas @@ -13,20 +13,19 @@ uses cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, - dxSkinSpringTime, - dxSkinsDefaultPainters, - dxSkinscxPCPainter; + dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime, + dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, + dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmLLRKList = class(TForm) @@ -42,10 +41,10 @@ type ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; - DataSource1: TDataSource; + DS_Main: TDataSource; TBExport: TToolButton; Order_Main: TClientDataSet; - ToolButton1: TToolButton; + TbLook: TToolButton; Panel1: TPanel; v1Column1: TcxGridDBColumn; Label34: TLabel; @@ -140,6 +139,64 @@ type Filler: TComboBox; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + TabSheet3: TTabSheet; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + TV2Ssel: TcxGridDBColumn; + TV2MYType: TcxGridDBColumn; + TV2KHName: TcxGridDBColumn; + TV2PS: TcxGridDBColumn; + TV2KgQty: TcxGridDBColumn; + Tv2Qty: TcxGridDBColumn; + TV2Note: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + TV3Ssel: TcxGridDBColumn; + TV3CRTime: TcxGridDBColumn; + TV3MYType: TcxGridDBColumn; + TV3KHName: TcxGridDBColumn; + TV3KHNameJC: TcxGridDBColumn; + TV3MYName: TcxGridDBColumn; + TV3MYColor: TcxGridDBColumn; + TV3MYColorNo: TcxGridDBColumn; + TV3SJKZ: TcxGridDBColumn; + TV3Note: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + DS_2: TDataSource; + DS_3: TDataSource; + CDS_2: TClientDataSet; + CDS_3: TClientDataSet; + DS_Sub: TDataSource; + CDS_Sub: TClientDataSet; + TV2KHNo: TcxGridDBColumn; + TV3MLOrderNo: TcxGridDBColumn; + TV3KHCode: TcxGridDBColumn; + TV3PBBatchNo: TcxGridDBColumn; + TV3GYSNo: TcxGridDBColumn; + TV3KHNameJCDH: TcxGridDBColumn; + TV3RCGangNo: TcxGridDBColumn; + TV3filler: TcxGridDBColumn; + TV3JH: TcxGridDBColumn; + TV3JKGQTY: TcxGridDBColumn; + TV3JMQTY: TcxGridDBColumn; + TV3MYMF: TcxGridDBColumn; + TV3MYKZ: TcxGridDBColumn; + TV3RCColor: TcxGridDBColumn; + TV3ZKZT: TcxGridDBColumn; + TV3CDZSD: TcxGridDBColumn; + TV3KW: TcxGridDBColumn; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + cxGridLevel3: TcxGridLevel; + TV4RCGangNo: TcxGridDBColumn; + TV4JH: TcxGridDBColumn; + TV4KgQty: TcxGridDBColumn; + TV4MQty: TcxGridDBColumn; + ADOQuery3: TADOQuery; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -149,13 +206,10 @@ type procedure TBRafreshClick(Sender: TObject); procedure TBAddClick(Sender: TObject); procedure FormShow(Sender: TObject); - procedure CheckBox1Click(Sender: TObject); - procedure CheckBox2Click(Sender: TObject); - procedure ToolButton1Click(Sender: TObject); + procedure TbLookClick(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject); procedure N2Click(Sender: TObject); procedure N1Click(Sender: TObject); - procedure cxTabControl1Change(Sender: TObject); procedure ZJStatusChange(Sender: TObject); procedure Tv1DblClick(Sender: TObject); procedure Image2Click(Sender: TObject); @@ -192,6 +246,8 @@ type procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure N9Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure CheckBox1Click(Sender: TObject); private canshu1: string; DQdate: TDateTime; @@ -199,6 +255,10 @@ type procedure InitForm(); function DelData(): Boolean; procedure Initimage(); + procedure InitFiller(); + procedure InitGridByCustomer(); + procedure InitMXGrid(); + procedure InitSubGrid(); { Private declarations } public FFInt, FCloth: Integer; @@ -289,7 +349,7 @@ begin sql.Add(',PJKG=cast((case when isnull(PS,0)<>0 then KgQty/PS else 0 end) as decimal(18,1))'); SQL.Add(',KHNameQC=(select Top 1 B.KHName from KH_Main B '); sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(B.Valid,'''')=''Y'' and B.KHNameJC=A.KHName)'); - sql.add(',IFFZ=(select Count(B.WBID) from TP_File B where B.WBID=A.MYID and B.TFType='''')'); + sql.add(',IFFZ=(select Count(C.WBID) from TP_File C where C.WBID=A.MYID and C.TFType='''')'); sql.Add(' from CK_MYSC_CR A '); sql.Add(' where 1=1 '); if CheckBox1.Checked = False then @@ -307,16 +367,141 @@ begin EndDate.Visible := true; end; sql.Add(' and isnull(CRType,'''')='''' '); - sql.Add(' order by A.CRTime'); + sql.Add(' order by A.CRTime,A.KHName'); Open; end; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); - TBFind.Click; + InitSubGrid(); finally ADOQueryMain.EnableControls; end; +end; +procedure TfrmLLRKList.InitGridByCustomer(); +begin + try + ADOQuery1.DisableControls; + with ADOQuery1 do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' SELECT A.KHName,A.KHCode,A.MYType,SUM(A.PS) as PS,SUM(A.Qty) AS Qty,SUM(A.KgQty) AS KgQty '); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' where 1=1 '); + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(A.CRType,'''')='''' '); + sql.Add(' GROUP BY A.KHName, A.KHCode, A.MYType '); + sql.Add(' ORDER BY MIN(A.CRTime),A.KHName'); + Open; + end; + SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery1, CDS_2); + SInitCDSData20(ADOQuery1, CDS_2); + finally + ADOQuery1.EnableControls; + end; +end; + +procedure TfrmLLRKList.InitMXGrid(); +begin + try + ADOQuery3.DisableControls; + with ADOQuery3 do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select AA.* '); + sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); + sql.Add('from('); + sql.Add(' select A.*,D.KGQTY as JKGQTY ,D.MQTY as JMQTY ,D.MXID,D.CDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); + sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); + sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)'); + sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')'); + sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO'); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID'); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where 1=1 '); + + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(CRType,'''')='''' '); + sql.Add(')AA'); + sql.Add(' order by AA.CRTime,AA.KHName'); +// ShowMessage(SQL.Text); + Open; + end; + + SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery3, CDS_3); + SInitCDSData20(ADOQuery3, CDS_3); + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmLLRKList.InitSubGrid(); +var + MYID: string; +begin + if Order_Main.IsEmpty then + exit; + + try + ADOQueryTemp.DisableControls; + MYID := Order_Main.FieldByName('MYID').AsString; + + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('SELECT * FROM CK_MYSC_CR_MX WHERE MYID = ''' + MYID + ''''); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Sub); + SInitCDSData20(ADOQueryTemp, CDS_Sub); + finally + ADOQueryTemp.EnableControls; + end; + +end; + +procedure TfrmLLRKList.InitFiller(); +begin with ADOQuery2 do begin Filtered := False; @@ -324,6 +509,7 @@ begin sql.Clear; sql.add(' select DISTINCT A.filler AS Name'); sql.Add(' from CK_MYSC_CR A where 1=1 '); + if CheckBox1.Checked = False then begin sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + ''''); @@ -359,15 +545,39 @@ begin EndDate.Date := SGetServerDate(ADOQueryTemp); ReadCxGrid('111', Tv1, 'ó'); InitGrid(); + InitFiller(); + InitGridByCustomer(); + InitMXGrid(); end; procedure TfrmLLRKList.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active = False then - Exit; - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); - SCreateCDS20(ADOQueryMain, Order_Main); - SInitCDSData20(ADOQueryMain, Order_Main); + Exit + else + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + end; + + if ADOQuery1.Active = False then + Exit + else + begin + SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery1, CDS_2); + SInitCDSData20(ADOQuery1, CDS_2); + end; + + if ADOQuery3.Active = False then + Exit + else + begin + SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery3, CDS_3); + SInitCDSData20(ADOQuery3, CDS_3); + end; end; function TfrmLLRKList.DelData(): Boolean; @@ -415,6 +625,8 @@ end; procedure TfrmLLRKList.TBRafreshClick(Sender: TObject); begin InitGrid(); + InitMXGrid(); + InitGridByCustomer(); end; procedure TfrmLLRKList.TBAddClick(Sender: TObject); @@ -427,17 +639,7 @@ begin InitForm(); end; -procedure TfrmLLRKList.CheckBox1Click(Sender: TObject); -begin - InitGrid(); -end; - -procedure TfrmLLRKList.CheckBox2Click(Sender: TObject); -begin - TBRafresh.Click; -end; - -procedure TfrmLLRKList.ToolButton1Click(Sender: TObject); +procedure TfrmLLRKList.TbLookClick(Sender: TObject); var FFMYType: string; begin @@ -455,7 +657,7 @@ begin frmLLRKInPut.TBSave.Visible := False; if ShowModal = 1 then begin - InitGrid(); +// TBRafresh.Click; end; end; finally @@ -476,7 +678,7 @@ begin FML := 'ײ'; if ShowModal = 1 then begin - InitGrid(); +// TBRafresh.Click; end; end; finally @@ -497,7 +699,7 @@ begin FML := ''; if ShowModal = 1 then begin - InitGrid(); +// TBRafresh.Click; end; end; finally @@ -518,7 +720,7 @@ begin FML := '޷IJ'; if ShowModal = 1 then begin - InitGrid(); +// TBRafresh.Click; end; end; finally @@ -539,7 +741,7 @@ begin FML := ''; if ShowModal = 1 then begin - InitGrid(); +// TBRafresh.Click; end; end; finally @@ -551,10 +753,32 @@ end; procedure TfrmLLRKList.CustomerNoNameChange(Sender: TObject); begin if ADOQueryMain.Active = False then - Exit; - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); - SCreateCDS20(ADOQueryMain, Order_Main); - SInitCDSData20(ADOQueryMain, Order_Main); + Exit + else + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + end; + + if ADOQuery1.Active = False then + Exit + else + begin + SDofilter(ADOQuery1, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery1, CDS_2); + SInitCDSData20(ADOQuery1, CDS_2); + end; + + if ADOQuery3.Active = False then + Exit + else + begin + SDofilter(ADOQuery3, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQuery3, CDS_3); + SInitCDSData20(ADOQuery3, CDS_3); + end; + end; procedure TfrmLLRKList.N2Click(Sender: TObject); @@ -618,7 +842,7 @@ begin FML := ''; if ShowModal = 1 then begin - InitGrid(); + TBRafresh.Click; end; end; finally @@ -638,7 +862,7 @@ begin FML := 'ײ'; if ShowModal = 1 then begin - InitGrid(); + TBRafresh.Click; end; end; finally @@ -658,7 +882,7 @@ begin FML := ''; if ShowModal = 1 then begin - InitGrid(); + TBRafresh.Click; end; end; finally @@ -678,7 +902,7 @@ begin FML := '޷IJ'; if ShowModal = 1 then begin - InitGrid(); + TBRafresh.Click; end; end; finally @@ -698,7 +922,7 @@ begin FML := ''; if ShowModal = 1 then begin - InitGrid(); + TBRafresh.Click; end; end; finally @@ -707,11 +931,6 @@ begin end; end; -procedure TfrmLLRKList.cxTabControl1Change(Sender: TObject); -begin - InitGrid(); -end; - procedure TfrmLLRKList.ZJStatusChange(Sender: TObject); begin TBFind.Click; @@ -725,7 +944,7 @@ begin Initimage(); end else - ToolButton1.Click; + TbLook.Click; end; procedure TfrmLLRKList.Image2Click(Sender: TObject); @@ -1581,5 +1800,15 @@ begin end; end; +procedure TfrmLLRKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitSubGrid(); +end; + +procedure TfrmLLRKList.CheckBox1Click(Sender: TObject); +begin + TBRafresh.Click; +end; + end. diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm index bb054cd..11f01cb 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm @@ -1,5 +1,5 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut - Left = 477 + Left = 478 Top = 184 Width = 1349 Height = 653 diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas index a8ca2b2..7220428 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas @@ -25,7 +25,19 @@ uses dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, - dxSkinscxPCPainter, cxNavigator; + dxSkinscxPCPainter, cxNavigator, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, + dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmLLRKMXInPut = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas index d157494..4873148 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas @@ -132,7 +132,7 @@ type procedure SaveImage(maxnoWB: string; FIMNO: string); procedure ReadINIFile10(); function SaveData(): Boolean; - function BJData(): Boolean; + function BJData(maxno: string): Boolean; function StrFenHang(FStr: string; var FHStr: string): Boolean; { Private declarations } public @@ -153,9 +153,9 @@ uses {$R *.dfm} -function TfrmZHCPInPut.BJData(): Boolean; +function TfrmZHCPInPut.BJData(maxno: string): Boolean; var - BJmaxno, BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string; + BJmaxmxno, FMXID, FBaoJia, FZIID, FZIIDAdd, FAdd, FZIIDYS: string; FXH: Integer; FDate: TDateTime; begin @@ -206,14 +206,13 @@ begin FieldByName('Filler').Value := Trim(DName); FieldByName('FillerCode').Value := Trim(DCode); FieldByName('Valid').Value := 'Y'; - FieldByName('ZIID').Value := Trim(FMainId); + FieldByName('ZIID').Value := maxno; FieldByName('ZIName').Value := Trim(ZIName.text); FieldByName('ZIMF').Value := Trim(ZIMF.text); FieldByName('ZIKZ').Value := Trim(ZIKZ.text); FieldByName('ZICF').Value := Trim(ZICF.text); FieldByName('ZICL').Value := Trim(ZICL.text); - FieldByName('ZIIDYS').Value := Trim(FMainId); - FieldByName('ZDID').Value := Trim(BJmaxno); + FieldByName('ZIIDYS').Value := maxno; FieldByName('ZCID').Value := Trim(BJmaxmxno); // FieldByName('CPFiller').Value := Trim(DName); FieldByName('LeiBie').Value := 'Ǽ'; @@ -267,7 +266,8 @@ begin sql.Add(' and isnull(A.IMNo,'''')='''' and A.Valid=''Y'' '); Open; end; - if adoqueryPicture.IsEmpty = False then + + if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then begin FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString); Edit1.Text := Copy(FStr, 1, Length(FStr) - 4); @@ -299,7 +299,8 @@ begin sql.Add(' and isnull(A.IMNo,''ͼƬ'')=''ͼƬ'' and A.Valid=''Y'' '); Open; end; - if adoqueryPicture.IsEmpty = False then + + if (adoqueryPicture.IsEmpty = False) and (CopyInt <> 99) then begin FStr := Trim(adoqueryPicture.fieldbyname('ImageName').AsString); Edit2.Text := Copy(FStr, 1, Length(FStr) - 4); @@ -321,6 +322,7 @@ begin end; Image2.Visible := True; end; + if TBSave.Visible = False then begin Button1.Visible := False; @@ -332,6 +334,13 @@ begin ZIGY.Color := ZIID.Color; Note.Color := ZIID.Color; end; + + if CopyInt = 99 then + begin + PState := 0; + FMainId := ''; + ZIID.Text := '' + end; end; procedure TfrmZHCPInPut.FormShow(Sender: TObject); @@ -380,6 +389,7 @@ begin SQL.Add('select * from ZH_CP_Info where ZIId=''' + Trim(maxno) + ''''); Open; end; + with ADOCmd do begin if Trim(FMainId) = '' then @@ -392,13 +402,14 @@ begin Edit; end; FieldByName('ZIId').Value := Trim(maxno); + if Trim(FMainId) = '' then begin FieldByName('ZIIdYS').Value := Trim(maxno); FieldByName('Filler').Value := Trim(DName); FieldByName('FillerCode').Value := Trim(DCode); FieldByName('Valid').Value := 'Y'; - FieldByName('ZIDate').Value := SGetServerDate(ADOTemp); + FieldByName('ZIDate').Value := SGetServerDate(ADOTemp); end else begin @@ -411,7 +422,7 @@ begin FieldByName('HXNM').Value := Trim(HXNO.TxtCode); Post; end; - FMainId := Trim(maxno); + if Trim(Image1.Hint) <> '' then begin SaveImage(maxno, ''); @@ -422,7 +433,7 @@ begin end; if trim(FZIType) <> '' then begin - if not BJData() then + if not BJData(maxno) then begin ADOCmd.Connection.RollbackTrans; Application.MessageBox('쳣!', 'ʾ', 0); @@ -920,7 +931,8 @@ begin Image22.Picture.Assign(Bitmap22); Image2.Visible := True; Edit2.Text := Copy(Image2.Hint, 1, Length(Image2.Hint) - 4); - ZIName.Text := Edit2.Text; + if CopyInt <> 99 then + ZIName.Text := Edit2.Text; Panel1.Visible := False; end; diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm b/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm index 14d5e1f..e8f4980 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm +++ b/云翔生产管理(MYSC.dll)/U_ZHCPList.dfm @@ -1,6 +1,6 @@ object frmZHCPList: TfrmZHCPList - Left = 238 - Top = 137 + Left = 312 + Top = 325 Width = 1556 Height = 857 Caption = #20844#21496#20135#21697#31649#29702 @@ -63,16 +63,23 @@ object frmZHCPList: TfrmZHCPList Visible = False OnClick = TBAddClick end - object ToolButton1: TToolButton + object TbCopy: TToolButton Left = 207 Top = 0 + Caption = #22797#21046 + ImageIndex = 25 + OnClick = TbCopyClick + end + object TbLook: TToolButton + Left = 272 + Top = 0 AutoSize = True Caption = #26597#30475 ImageIndex = 55 - OnClick = ToolButton1Click + OnClick = TbLookClick end object ToolButton4: TToolButton - Left = 276 + Left = 341 Top = 0 AutoSize = True Caption = #25171#21360 @@ -80,7 +87,7 @@ object frmZHCPList: TfrmZHCPList OnClick = ToolButton4Click end object Panel3: TPanel - Left = 345 + Left = 410 Top = 0 Width = 113 Height = 30 @@ -104,7 +111,7 @@ object frmZHCPList: TfrmZHCPList end end object Panel8: TPanel - Left = 458 + Left = 523 Top = 0 Width = 115 Height = 30 @@ -161,7 +168,7 @@ object frmZHCPList: TfrmZHCPList end end object TBExport: TToolButton - Left = 573 + Left = 638 Top = 0 AutoSize = True Caption = #23548#20986 @@ -170,7 +177,7 @@ object frmZHCPList: TfrmZHCPList OnClick = TBExportClick end object TBClose: TToolButton - Left = 642 + Left = 707 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPList.pas b/云翔生产管理(MYSC.dll)/U_ZHCPList.pas index 09d8a9f..9f06110 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPList.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHCPList.pas @@ -43,7 +43,7 @@ type DataSource1: TDataSource; TBExport: TToolButton; Order_Main: TClientDataSet; - ToolButton1: TToolButton; + TbLook: TToolButton; Panel11: TPanel; v1Column1: TcxGridDBColumn; v1Column7: TcxGridDBColumn; @@ -143,6 +143,7 @@ type DiBu: TEdit; SpeedButton7: TSpeedButton; Tv1Column9: TcxGridDBColumn; + TbCopy: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -154,7 +155,7 @@ type procedure FormShow(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure CheckBox2Click(Sender: TObject); - procedure ToolButton1Click(Sender: TObject); + procedure TbLookClick(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); @@ -175,6 +176,7 @@ type procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton5Click(Sender: TObject); procedure SpeedButton7Click(Sender: TObject); + procedure TbCopyClick(Sender: TObject); private canshu1: string; DQdate: TDateTime; @@ -272,21 +274,21 @@ end; procedure TfrmZHCPList.TBCloseClick(Sender: TObject); begin - if Trim(Self.Caption) = 'չƷ¼()*' then + if Trim(Self.Caption) = '˾Ʒ¼()*' then begin - WriteCxGrid('չƷ¼()', Tv1, 'չƷ'); + WriteCxGrid('˾Ʒ¼()', Tv1, '˾Ʒ'); end - else if Trim(Self.Caption) = 'չƷ¼*' then + else if Trim(Self.Caption) = '˾Ʒ¼*' then begin - WriteCxGrid('չƷ¼', Tv1, 'չƷ'); + WriteCxGrid('˾Ʒ¼', Tv1, '˾Ʒ'); end - else if Trim(Self.Caption) = 'չƷѯ*' then + else if Trim(Self.Caption) = '˾Ʒѯ*' then begin - WriteCxGrid('չƷѯ', Tv1, 'չƷ'); + WriteCxGrid('˾Ʒѯ', Tv1, '˾Ʒ'); end else if Trim(Self.Caption) = 'ҹѯ*' then begin - WriteCxGrid('ҹѯ', Tv1, 'չƷ'); + WriteCxGrid('ҹѯ', Tv1, '˾Ʒ'); end; Close; end; @@ -511,14 +513,14 @@ begin EndDate.Date := SGetServerDate(ADOQueryTemp); if Trim(Self.Caption) = '˾Ʒ¼()*' then begin - ReadCxGrid('չƷ¼()', Tv1, 'չƷ'); + ReadCxGrid('˾Ʒ¼()', Tv1, '˾Ʒ'); TBAdd.Visible := True; TBEdit.Visible := True; TBDel.Visible := True; end else if Trim(Self.Caption) = '˾Ʒ¼*' then begin - ReadCxGrid('չƷ¼', Tv1, 'չƷ'); + ReadCxGrid('˾Ʒ¼', Tv1, '˾Ʒ'); TBAdd.Visible := True; TBEdit.Visible := True; v1ZICost.Visible := False; @@ -526,17 +528,19 @@ begin end else if Trim(Self.Caption) = '˾Ʒѯ*' then begin - ReadCxGrid('չƷѯ', Tv1, 'չƷ'); + ReadCxGrid('˾Ʒѯ', Tv1, '˾Ʒ'); v1ZICost.Visible := False; v1ZICost.Hidden := True; + TbCopy.Visible := False; end else if Trim(Self.Caption) = 'ҹѯ*' then begin - ReadCxGrid('ҹѯ', Tv1, 'չƷ'); + ReadCxGrid('ҹѯ', Tv1, '˾Ʒ'); v1ZICost.Visible := False; v1ZICost.Hidden := True; canshu1 := ''; Panel5.Visible := False; + TbCopy.Visible := False; end; //InitGrid(); end; @@ -719,7 +723,7 @@ begin TBRafresh.Click; end; -procedure TfrmZHCPList.ToolButton1Click(Sender: TObject); +procedure TfrmZHCPList.TbLookClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; @@ -790,7 +794,7 @@ end; procedure TfrmZHCPList.Tv1DblClick(Sender: TObject); begin - ToolButton1.Click; + TbLook.Click; end; procedure TfrmZHCPList.v1Column2PropertiesEditValueChanged(Sender: TObject); @@ -1611,5 +1615,37 @@ begin Order_Main.EnableControls; end; +procedure TfrmZHCPList.TbCopyClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + +// if not assigned(frmZHCPInPut) then +// begin + try + frmZHCPInPut := TfrmZHCPInPut.Create(Application); + with frmZHCPInPut do + begin + PState := 1; + CopyInt := 99; + FZIType := Trim(Self.Order_Main.fieldbyname('ZIType').AsString); + FMainId := Trim(Self.Order_Main.fieldbyname('ZIID').AsString); +// Show; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmZHCPInPut.Free; + end; +// end +// else +// begin +// frmZHCPInPut.WindowState := wsMaximized; +// frmZHCPInPut.Show; +// end; +end; + end.