From d5dff01f67899bc1698448f909fcf5293f664abe Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 26 Jul 2025 10:46:46 +0800 Subject: [PATCH] 1 --- 云翔一码通/U_DataLink.dfm | 2 +- 云翔一码通/U_DataLink.pas | 32 +- 云翔一码通/U_GetDllForm.pas | 55 +- 云翔一码通/U_YMTRKInPut.dfm | 679 ++++++++++++++++++++ 云翔一码通/U_YMTRKInPut.pas | 828 ++++++++++++++++++++++++ 云翔一码通/U_YMTRKList.dfm | 838 +++++++++++++++++++++++++ 云翔一码通/U_YMTRKList.pas | 434 +++++++++++++ 云翔一码通/U_ZdyAttachGYS.dfm | 32 +- 云翔一码通/U_ZdyAttachGYS.pas | 17 +- 云翔一码通/U_ZdyAttachment.dfm | 32 +- 云翔一码通/U_ZdyAttachment.pas | 16 +- 云翔一码通/YXYMT.dpr | 2 +- 云翔生产管理(MYSC.dll)/U_MCGRKList.dfm | 11 +- 云翔生产管理(MYSC.dll)/U_MCGRKList.pas | 15 +- 14 files changed, 2921 insertions(+), 72 deletions(-) create mode 100644 云翔一码通/U_YMTRKInPut.dfm create mode 100644 云翔一码通/U_YMTRKInPut.pas create mode 100644 云翔一码通/U_YMTRKList.dfm create mode 100644 云翔一码通/U_YMTRKList.pas diff --git a/云翔一码通/U_DataLink.dfm b/云翔一码通/U_DataLink.dfm index bd09ece..887f8b6 100644 --- a/云翔一码通/U_DataLink.dfm +++ b/云翔一码通/U_DataLink.dfm @@ -1,4 +1,4 @@ -object DataLink_InformationBase: TDataLink_InformationBase +object DataLink_YXYMT: TDataLink_YXYMT OldCreateOrder = False OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy diff --git a/云翔一码通/U_DataLink.pas b/云翔一码通/U_DataLink.pas index a6b12d7..998c967 100644 --- a/云翔一码通/U_DataLink.pas +++ b/云翔一码通/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses; + Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; type TMyThread = class(TThread) @@ -33,7 +47,7 @@ var UserDataFlag: string; type - TDataLink_InformationBase = class(TDataModule) + TDataLink_YXYMT = class(TDataModule) AdoDataLink: TADOQuery; ADOLink: TADOConnection; ThreeImgList: TImageList; @@ -68,7 +82,7 @@ type TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall; var - DataLink_InformationBase: TDataLink_InformationBase; + DataLink_YXYMT: TDataLink_YXYMT; CriticalSection: TCriticalSection; {ٽ} implementation @@ -79,7 +93,7 @@ begin FreeOnTerminate := True; CriticalSection.Enter; try - with DataLink_InformationBase.AdoDataLink do + with DataLink_YXYMT.AdoDataLink do begin close; sql.Clear; @@ -88,7 +102,7 @@ begin end; except try - with DataLink_InformationBase.ADOLink do + with DataLink_YXYMT.ADOLink do begin Connected := false; ConnectionString := DConString; @@ -102,18 +116,18 @@ begin CriticalSection.Leave; end; -procedure TDataLink_InformationBase.DataModuleDestroy(Sender: TObject); +procedure TDataLink_YXYMT.DataModuleDestroy(Sender: TObject); begin CriticalSection.Free; - DataLink_InformationBase := nil; + DataLink_YXYMT := nil; end; -procedure TDataLink_InformationBase.Timer_linkTimer(Sender: TObject); +procedure TDataLink_YXYMT.Timer_linkTimer(Sender: TObject); begin TMyThread.Create(False); end; -procedure TDataLink_InformationBase.DataModuleCreate(Sender: TObject); +procedure TDataLink_YXYMT.DataModuleCreate(Sender: TObject); begin CriticalSection := TCriticalSection.Create; end; diff --git a/云翔一码通/U_GetDllForm.pas b/云翔一码通/U_GetDllForm.pas index d61d58f..7f6e16d 100644 --- a/云翔一码通/U_GetDllForm.pas +++ b/云翔一码通/U_GetDllForm.pas @@ -13,7 +13,7 @@ function ConnData(): Boolean; implementation uses - U_DataLink, U_ZdyAttachment; + U_DataLink, U_YMTRKList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -98,35 +98,44 @@ begin //ģ鴰 case FormID of - 111: //ƻ¼ + 111: //زֵǼ begin - bFound := FALSE; - for i := (App.MainForm.MDIChildCount - 1) downto 0 do + if frmYMTRKList = nil then begin - if App.MainForm.MDIChildren[i].Caption = 'ƻ¼' then + frmYMTRKList := TfrmYMTRKList.Create(application.MainForm); + with frmYMTRKList do begin - BringWindowToTop(frmZdyAttachment.Handle); - bFound := TRUE; - Break; - end; - end; - if not bFound then - begin - frmZdyAttachment := TfrmZdyAttachment.Create(application.MainForm); - with frmZdyAttachment do - begin - Title := 'ƻ¼'; caption := Trim(Title); -// canshu1 := '¼'; FormStyle := mstyle; windowState := mstate; BorderStyle := mborderstyle; + //show; end; end else - frmZdyAttachment.BringToFront; + frmYMTRKList.BringToFront; // - mnewHandle := frmZdyAttachment.Handle; + mnewHandle := frmYMTRKList.Handle; + end; + + 211: // + begin + if frmYMTRKList = nil then + begin + frmYMTRKList := TfrmYMTRKList.Create(application.MainForm); + with frmYMTRKList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYMTRKList.BringToFront; + // + mnewHandle := frmYMTRKList.Handle; end; end; @@ -147,10 +156,10 @@ begin finally IniFile.Free; end; - if not Assigned(DataLink_InformationBase) then - DataLink_InformationBase := TDataLink_InformationBase.Create(Application); + if not Assigned(DataLink_YXYMT) then + DataLink_YXYMT := TDataLink_YXYMT.Create(Application); try - with DataLink_InformationBase.ADOLink do + with DataLink_YXYMT.ADOLink do begin if not Connected then begin @@ -174,7 +183,7 @@ initialization finalization - DataLink_InformationBase.Free; + DataLink_YXYMT.Free; application := NewDllApp; dxUnitsLoader.Finalize; diff --git a/云翔一码通/U_YMTRKInPut.dfm b/云翔一码通/U_YMTRKInPut.dfm new file mode 100644 index 0000000..adaa7f5 --- /dev/null +++ b/云翔一码通/U_YMTRKInPut.dfm @@ -0,0 +1,679 @@ +object frmYMTRKInPut: TfrmYMTRKInPut + Left = 389 + Top = 283 + Width = 1829 + Height = 623 + Align = alClient + Caption = #22238#20179#20837#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object cxGrid2: TcxGrid + Left = 0 + Top = 33 + Width = 1690 + Height = 559 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skCount + Column = v1Column6 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YXYMT.SHuangSe + Styles.IncSearch = DataLink_YXYMT.SHuangSe + Styles.Selection = DataLink_YXYMT.SHuangSe + Styles.Header = DataLink_YXYMT.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #23458#25143#36864#36135 + #37319#36141#20837#24211 + #27425#21697#20837#24211) + HeaderAlignmentHorz = taCenter + Width = 83 + end + object v1Column21: TcxGridDBColumn + Tag = 2 + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v1Column20: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'spcode' + HeaderAlignmentHorz = taCenter + end + object v1Column15: TcxGridDBColumn + Tag = 2 + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Tag = 2 + Caption = #33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column14PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1Column19: TcxGridDBColumn + Tag = 2 + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Width = 74 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v2Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column11PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 84 + end + object v1Column18: TcxGridDBColumn + Tag = 2 + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column18PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Width = 77 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column16PropertiesButtonClick + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1821 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YXYMT.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 15 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + Caption = #22810#34892#26032#22686 + ImageIndex = 22 + end + object TBAdd: TToolButton + Left = 146 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 12 + OnClick = TBAddClick + end + object TBDel: TToolButton + Left = 209 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 13 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 272 + Top = 0 + Caption = #19968#38190#26367#25442 + ImageIndex = 22 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel4: TPanel + Left = 736 + Top = 128 + Width = 225 + Height = 217 + TabOrder = 2 + Visible = False + object Label14: TLabel + Left = 48 + Top = 88 + Width = 6 + Height = 12 + end + object Panel10: TPanel + Left = 1 + Top = 1 + Width = 223 + Height = 23 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = #25253#34920#21517#31216 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object Image2: TImage + Left = 193 + Top = 3 + Width = 22 + Height = 16 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + OnClick = Image2Click + end + end + object Button1: TButton + Left = 29 + Top = 180 + Width = 75 + Height = 25 + Caption = #20840#36873 + TabOrder = 1 + OnClick = Button1Click + end + object GroupBox1: TGroupBox + Left = 24 + Top = 56 + Width = 177 + Height = 121 + Caption = #26367#25442#23383#27573 + TabOrder = 2 + object CheckBox1: TCheckBox + Left = 11 + Top = 16 + Width = 73 + Height = 17 + Caption = #20837#24211#31867#22411 + TabOrder = 0 + end + object CheckBox2: TCheckBox + Left = 11 + Top = 36 + Width = 73 + Height = 17 + Caption = #21152' '#24037' '#21378 + TabOrder = 1 + end + object CheckBox3: TCheckBox + Left = 11 + Top = 56 + Width = 73 + Height = 17 + Caption = #26579#21378#32568#21495 + TabOrder = 2 + end + object CheckBox4: TCheckBox + Left = 11 + Top = 76 + Width = 73 + Height = 17 + Caption = #23384#25918#24037#21378 + TabOrder = 3 + end + object CheckBox5: TCheckBox + Left = 11 + Top = 96 + Width = 73 + Height = 17 + Caption = #24211' '#20301 + TabOrder = 4 + end + object CheckBox6: TCheckBox + Left = 99 + Top = 17 + Width = 73 + Height = 17 + Caption = #21305' '#25968 + TabOrder = 5 + end + object CheckBox7: TCheckBox + Left = 99 + Top = 37 + Width = 73 + Height = 17 + Caption = #25968' '#37327 + TabOrder = 6 + end + object CheckBox8: TCheckBox + Left = 99 + Top = 57 + Width = 73 + Height = 17 + Caption = #25968#37327#21333#20301 + TabOrder = 7 + end + object CheckBox9: TCheckBox + Left = 99 + Top = 77 + Width = 73 + Height = 17 + Caption = #22791' '#27880 + TabOrder = 8 + end + end + object Button2: TButton + Left = 133 + Top = 180 + Width = 75 + Height = 25 + Caption = #30830#23450 + TabOrder = 3 + OnClick = Button2Click + end + end + object Panel2: TPanel + Left = 1690 + Top = 33 + Width = 131 + Height = 559 + Align = alRight + Caption = 'Panel2' + TabOrder = 3 + object cxGrid1: TcxGrid + Left = 1 + Top = 33 + Width = 129 + Height = 525 + Align = alClient + TabOrder = 0 + object TvMX: TcxGridDBTableView + OnKeyDown = TvMXKeyDown + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_MX + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 33 + OnCustomDrawIndicatorCell = TvMXCustomDrawIndicatorCell + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MXQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taCenter + Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TvMX + end + end + object ToolBar2: TToolBar + Left = 1 + Top = 1 + Width = 129 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YXYMT.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 57 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 113 + OnClick = ToolButton4Click + end + end + end + object DataSource3: TDataSource + DataSet = CDS_Sub + Left = 504 + Top = 136 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 344 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 376 + Top = 136 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 136 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 136 + end + object CDS_MX: TClientDataSet + Aggregates = <> + Params = <> + Left = 1136 + Top = 288 + end + object DS_MX: TDataSource + DataSet = CDS_MX + Left = 1170 + Top = 287 + end +end diff --git a/云翔一码通/U_YMTRKInPut.pas b/云翔一码通/U_YMTRKInPut.pas new file mode 100644 index 0000000..ededf05 --- /dev/null +++ b/云翔一码通/U_YMTRKInPut.pas @@ -0,0 +1,828 @@ +unit U_YMTRKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter, cxNavigator; + +type + TfrmYMTRKInPut = class(TForm) + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBAdd: TToolButton; + TBDel: TToolButton; + TBSave: TToolButton; + TBClose: TToolButton; + v1Column4: TcxGridDBColumn; + DataSource3: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + cxGridPopupMenu2: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton1: TToolButton; + v1Column20: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + ToolButton2: TToolButton; + Panel4: TPanel; + Label14: TLabel; + Panel10: TPanel; + Image2: TImage; + Button1: TButton; + GroupBox1: TGroupBox; + CheckBox1: TCheckBox; + CheckBox2: TCheckBox; + CheckBox3: TCheckBox; + CheckBox4: TCheckBox; + CheckBox5: TCheckBox; + CheckBox6: TCheckBox; + CheckBox7: TCheckBox; + CheckBox8: TCheckBox; + CheckBox9: TCheckBox; + Button2: TButton; + Panel2: TPanel; + cxGrid1: TcxGrid; + TvMX: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + ToolBar2: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + CDS_MX: TClientDataSet; + DS_MX: TDataSource; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Button2Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure TvMXKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + private + { Private declarations } + function SaveCKData(): Boolean; + procedure InitMXGrid(MCRNO: string); + public + { Public declarations } + FBCId: string; + end; + +var + frmYMTRKInPut: TfrmYMTRKInPut; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS; + +{$R *.dfm} +procedure TfrmYMTRKInPut.InitMXGrid(MCRNO: string); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_MX where CRNO=' + quotedstr(Trim(MCRNO))); + sql.Add(' order by MXID'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_MX); + SInitCDSData20(ADOQueryTemp, CDS_MX); +end; + +procedure TfrmYMTRKInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmYMTRKInPut.TBAddClick(Sender: TObject); +var + MMaxno: string; +begin + if GetLSNo(ADOQueryCmd, MMaxno, 'DR', 'YMT_CK_CR', 3, 1) = False then + begin + Application.MessageBox('ȡ첼ʧ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.IsEmpty = False then + begin + CopyAddRowCDS(CDS_Sub); + with CDS_Sub do + begin + Edit; + FieldByName('SPID').Value := Trim(MMaxno); + post; + end; + end + else + begin + with CDS_Sub do + begin + Append; + FieldByName('SPID').Value := Trim(MMaxno); + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + Post; + end; + end; +end; + +function TfrmYMTRKInPut.SaveCKData(): Boolean; +var + FCRID, Maxno, FFSPID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + open; + end; + FFSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID) = '' then + begin +// if GetLSNo(ADOQueryCmd, Maxno, 'DR', 'YMT_CK_CR', 3, 1) = False then +// begin +// Result := False; +// ADOQueryCmd.Connection.RollbackTrans; +// Application.MessageBox('ȡ첼ʧ!', 'ʾ', 0); +// Exit; +// end; + Maxno := Trim(CDS_Sub.fieldbyname('SPID').AsString); + end + else + begin + Maxno := Trim(FFSPID); + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_CR where SPID=''' + Trim(Maxno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FFSPID) = '' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('SPID').Value := Trim(Maxno); + FieldByName('FZSPID').Value := Trim(Maxno); + FieldByName('CKName').Value := '첼'; + FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'YMT_CK_CR', 2); + if Trim(FFSPID) = '' then + FieldByName('Filler').Value := Trim(DName) + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then + begin + FieldByName('QCOrderNo').Value := Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + end; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YMT_CK_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from YMT_CK_CR A where A.FZSPID=YMT_CK_CR.SPID)'); + sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from YMT_CK_CR A where A.FZSPID=YMT_CK_CR.SPID)'); + sql.Add(' where SPID=''' + Trim(Maxno) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_CR where SPID=''' + Trim(Maxno) + ''''); + Open; + end; + if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then + begin + CDS_Sub.DisableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('Сڳܱ!', 'ʾ', 0); + Exit; + end; + + Edit; + FieldByName('SPID').Value := Trim(Maxno); + //FieldByName('CRID').Value:=Trim(FCRID); + Post; +// +// if Trim(CDS_Sub.fieldbyname('CRType').AsString)='ͻ˻' then +// begin +// if not YSData(CDS_Sub) then +// begin +// ADOQueryCmd.Connection.RollbackTrans; +// Application.MessageBox('쳣!','ʾ',0); +// exit; +// end; +// end; + + Next; + end; + end; + CDS_Sub.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; + +end; + +procedure TfrmYMTRKInPut.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼Ǽ', Tv1, '첼ֿ'); + Close; +end; + +procedure TfrmYMTRKInPut.FormShow(Sender: TObject); +var + fsj: string; +begin + ReadCxGrid('첼Ǽ', Tv1, '첼ֿ'); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); + sql.Add(' from YMT_CK_CR A'); + sql.Add(' where SPID=''' + Trim(FBCId) + ''''); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_Sub); + SInitCDSData20(ADOQueryTemp, CDS_Sub); + if CDS_Sub.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + v1Column4.Options.Focusing := False; + v1Column14.Options.Focusing := False; + v2Column1.Options.Focusing := False; + v1Column8.Options.Focusing := False; + v1Column7.Options.Focusing := False; + v1Column1.Options.Focusing := False; + v1Column10.Options.Focusing := False; + v1Column11.Options.Focusing := False; + Exit; + end + else + begin + v1Column4.Options.Focusing := True; + v1Column14.Options.Focusing := True; + v2Column1.Options.Focusing := True; + v1Column8.Options.Focusing := True; + v1Column7.Options.Focusing := True; + v1Column1.Options.Focusing := True; + v1Column10.Options.Focusing := True; + v1Column11.Options.Focusing := True; + end; +end; + +procedure TfrmYMTRKInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('г¼ɾ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YMT_CK_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!', 'ʾ', 0); + end; + + end + else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmYMTRKInPut.TBSaveClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if CDS_Sub.Locate('CRTime', null, []) = True then + begin + Application.MessageBox('ʱ䲻Ϊ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('CRType', null, []) = True then + begin + Application.MessageBox('ͲΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('SPName', null, []) = True then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('OrderNo', null, []) = True then + begin + Application.MessageBox('ŲΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('ToFactoryName', null, []) = True then + begin + Application.MessageBox('ŹΪ!', 'ʾ', 0); + Exit; + end; + if trim(CDS_Sub.fieldbyname('CRType').AsString) <> 'ͻ˻' then + begin + if CDS_Sub.Locate('FactoryName', null, []) = True then + begin + Application.MessageBox('ӹΪ!', 'ʾ', 0); + Exit; + end; + end; + if CDS_Sub.Locate('PiQty', null, []) = True then + begin + Application.MessageBox('ƥΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('Qty', null, []) = True then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('QtyUnit', null, []) = True then + begin + Application.MessageBox('λΪ!', 'ʾ', 0); + Exit; + end; + if CDS_Sub.Locate('CRType;FromFactoryName', VarArrayOf(['˻', Null]), [loPartialKey]) = True then + begin + Application.MessageBox('˻صݣԹΪ!', 'ʾ', 0); + Exit; + end; + if SaveCKData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + //ModalResult:=1; + Exit; + end; +end; + +procedure TfrmYMTRKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'SXKuWei'; + flagname := 'λ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYMTRKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coCode').AsString); + FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coName').AsString); + FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coCode').AsString); + FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('coName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; + +end; + +procedure TfrmYMTRKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'WJGName'; + flagname := 'ӹ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYMTRKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'KuWei'; + flagname := 'λ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYMTRKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('COCode').AsString); + FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('COName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmYMTRKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); + with frmZdyAttachGYS do + begin + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + edit; + FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + //Post; + end; + end; + end; + finally + frmZdyAttachGYS.Free; + end; +end; + +procedure TfrmYMTRKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'KuWei'; + flagname := 'λ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYMTRKInPut.Button2Click(Sender: TObject); +var + CRType, FactoryName, RCGangNo, ToFactoryName, KuWei, QtyUnit, Note: string; + i, PiQty: Integer; + qty: Double; +begin + try + if CDS_Sub.IsEmpty then + Exit; + CDS_Sub.DisableControls; + with CDS_Sub do + begin + CRType := Trim(CDS_Sub.fieldbyname('CRType').AsString); + FactoryName := Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + RCGangNo := Trim(CDS_Sub.fieldbyname('RCGangNo').AsString); + ToFactoryName := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + KuWei := Trim(CDS_Sub.fieldbyname('KuWei').AsString); + PiQty := CDS_Sub.fieldbyname('PiQty').AsInteger; + qty := CDS_Sub.fieldbyname('Qty').AsFloat; + QtyUnit := Trim(CDS_Sub.fieldbyname('QtyUnit').AsString); + Note := Trim(CDS_Sub.fieldbyname('Note').AsString); + end; + with CDS_Sub do + begin + First; + while not eof do + begin + Edit; + if CheckBox1.Checked then + FieldByName('CRType').Value := CRType; + if CheckBox2.Checked then + FieldByName('FactoryName').Value := FactoryName; + if CheckBox3.Checked then + FieldByName('RCGangNo').Value := RCGangNo; + if CheckBox4.Checked then + FieldByName('ToFactoryName').Value := ToFactoryName; + if CheckBox5.Checked then + FieldByName('KuWei').Value := KuWei; + if CheckBox6.Checked then + FieldByName('PiQty').Value := PiQty; + if CheckBox7.Checked then + FieldByName('Qty').Value := qty; + if CheckBox8.Checked then + FieldByName('QtyUnit').Value := QtyUnit; + if CheckBox9.Checked then + FieldByName('Note').Value := Note; + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + except + Application.MessageBox('滻쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmYMTRKInPut.ToolButton2Click(Sender: TObject); +begin + Panel4.Visible := True; +end; + +procedure TfrmYMTRKInPut.Image2Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmYMTRKInPut.Button1Click(Sender: TObject); +var + i: Integer; +begin + for i := 0 to GroupBox1.ControlCount - 1 do + begin + if GroupBox1.Controls[i] is TCheckBox then + begin + TCheckBox(GroupBox1.Controls[i]).Checked := true; + end; + end; +end; + +procedure TfrmYMTRKInPut.ToolButton3Click(Sender: TObject); +var + i: Integer; + MaxNo, MMXID, MCRNO: string; +begin + MCRNO := Trim(CDS_Sub.fieldbyname('SPID').AsString); + if GetLSNo(ADOQueryTemp, MaxNo, 'MCM', 'YMT_CK_MX', 3, 1) = False then + begin + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + for i := 1 to 10 do + begin + MMXID := Trim(MaxNo) + Trim(inttostr(i)); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('insert into YMT_CK_MX (MXID,CRNO,MXQty)'); + sql.Add('values(' + quotedstr(MMXID)); + sql.Add(',' + quotedstr(Trim(MCRNO))); + sql.Add(',0'); + sql.Add(')'); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + InitMXGrid(MCRNO); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!', 'ʾ', 0); + end; + +end; + +procedure TfrmYMTRKInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + + InitMXGrid(Trim(CDS_Sub.fieldbyname('SPID').AsString)); + +end; + +procedure TfrmYMTRKInPut.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(TvMX.Controller.FocusedColumn.DataBinding.FilterFieldName); + with CDS_MX do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('update YMT_CK_MX set ' + FFieldName + ' = ' + mvalue); + sql.Add(' where MXID=' + quotedstr(Trim(CDS_MX.FieldByName('MXID').AsString))); + ExecSQL; + end; + TvMX.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmYMTRKInPut.ToolButton4Click(Sender: TObject); +begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete YMT_CK_MX where MXID=' + quotedstr(Trim(CDS_MX.FieldByName('MXID').AsString))); + ExecSQL; + end; + CDS_MX.Delete; +end; + +procedure TfrmYMTRKInPut.TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + InflateRect(FBounds, -1, -1); //Platform specific. May not work on Linux. + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; +end; + +procedure TfrmYMTRKInPut.TvMXKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); +begin + TvMX.OptionsData.Editing := False; + if Key = 13 then + Key := 40; + TvMX.OptionsData.Editing := True; +end; + +end. + diff --git a/云翔一码通/U_YMTRKList.dfm b/云翔一码通/U_YMTRKList.dfm new file mode 100644 index 0000000..4a6a01c --- /dev/null +++ b/云翔一码通/U_YMTRKList.dfm @@ -0,0 +1,838 @@ +object frmYMTRKList: TfrmYMTRKList + Left = 453 + Top = 212 + Width = 1372 + Height = 754 + Caption = #38754#26009#22238#20179#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1364 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YXYMT.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20837#24211 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1364 + Height = 72 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 28 + Top = 12 + Width = 48 + Height = 12 + Caption = #26597#35810#26102#38388 + end + object Label2: TLabel + Left = 64 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 318 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 435 + Top = 12 + Width = 36 + Height = 12 + Caption = #21152#24037#21378 + end + object Label5: TLabel + Left = 178 + Top = 12 + Width = 48 + Height = 12 + Caption = #20837#24211#21333#21495 + end + object Label8: TLabel + Left = 318 + Top = 36 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label6: TLabel + Left = 435 + Top = 36 + Width = 36 + Height = 12 + Caption = #25104' '#20998 + end + object Label7: TLabel + Left = 561 + Top = 36 + Width = 48 + Height = 12 + Caption = #35746' '#21333' '#21495 + end + object Label9: TLabel + Left = 561 + Top = 12 + Width = 48 + Height = 12 + Caption = #23384#25918#24037#21378 + end + object Label12: TLabel + Left = 178 + Top = 36 + Width = 48 + Height = 12 + Caption = #20837#24211#31867#22411 + end + object Label10: TLabel + Left = 702 + Top = 12 + Width = 48 + Height = 12 + Caption = #24211' '#20301 + end + object Label11: TLabel + Left = 703 + Top = 36 + Width = 48 + Height = 12 + Caption = #26579#21378#32568#21495 + end + object Label13: TLabel + Left = 843 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label14: TLabel + Left = 843 + Top = 36 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label15: TLabel + Left = 959 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label16: TLabel + Left = 959 + Top = 36 + Width = 24 + Height = 12 + Caption = #23458#25143 + end + object BegDate: TDateTimePicker + Left = 77 + Top = 9 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 77 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 8 + end + object SPName: TEdit + Tag = 2 + Left = 345 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 472 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = FactoryNameChange + end + object SPID: TEdit + Tag = 2 + Left = 228 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 1 + OnChange = SPIDChange + end + object SPSpec: TEdit + Tag = 2 + Left = 345 + Top = 32 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 10 + OnChange = SPSpecChange + end + object SPCF: TEdit + Tag = 2 + Left = 472 + Top = 32 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 11 + OnChange = FactoryNameChange + end + object OrderNo: TEdit + Tag = 2 + Left = 612 + Top = 33 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 12 + OnChange = FactoryNameChange + end + object ToFactoryName: TEdit + Tag = 2 + Left = 612 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = FactoryNameChange + end + object CRType: TComboBox + Tag = 2 + Left = 228 + Top = 32 + Width = 80 + Height = 20 + Style = csDropDownList + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ItemHeight = 12 + TabOrder = 9 + OnChange = TBFindClick + Items.Strings = ( + '' + #21152#24037#23436#25104 + #22238#20462#23436#25104 + #26816#39564#36864#22238 + #26399#21021#20837#24211 + #23458#25143#36864#36135 + #37319#36141#20837#24211 + #27425#21697#20837#24211) + end + object KuWei: TEdit + Tag = 2 + Left = 754 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = FactoryNameChange + end + object RCGangNo: TEdit + Tag = 2 + Left = 754 + Top = 33 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 13 + OnChange = FactoryNameChange + end + object PRTColor: TEdit + Tag = 2 + Left = 868 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = FactoryNameChange + end + object SOrddefstr1: TEdit + Tag = 2 + Left = 868 + Top = 33 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 14 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 984 + Top = 9 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = FactoryNameChange + end + object CustomerNoName: TEdit + Tag = 2 + Left = 984 + Top = 33 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 15 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 105 + Width = 1224 + Height = 618 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Format = '#,###' + Kind = skSum + Column = v1Column9 + end + item + Format = '#,###' + Kind = skSum + end + item + Format = '#,###' + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = DataLink_YXYMT.SHuangSe + Styles.IncSearch = DataLink_YXYMT.SHuangSe + Styles.Selection = DataLink_YXYMT.SHuangSe + Styles.Header = DataLink_YXYMT.Default + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'SPID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'CRType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21152#24037#23436#25104 + #29983#20135#36864#22238) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column21: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'spcode' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'SPSpec' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object v1Column7: TcxGridDBColumn + Tag = 2 + Caption = #25104#20998 + DataBinding.FieldName = 'SPCF' + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column1: TcxGridDBColumn + Tag = 2 + Caption = #38376#24133 + DataBinding.FieldName = 'SPMF' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column10: TcxGridDBColumn + Tag = 2 + Caption = #20811#37325 + DataBinding.FieldName = 'SPKZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411#33457#21495 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column11: TcxGridDBColumn + Tag = 2 + Caption = #23384#25918#24037#21378 + DataBinding.FieldName = 'ToFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column18: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KuWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object v1Column19: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'RCGangNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 75 + end + object v1Column9: TcxGridDBColumn + Tag = 2 + Caption = #21305#25968 + DataBinding.FieldName = 'PiQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column16: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#24037#21378 + DataBinding.FieldName = 'FromFactoryName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 79 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 79 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid1: TcxGrid + Left = 1224 + Top = 105 + Width = 140 + Height = 618 + Align = alRight + TabOrder = 3 + object TvMX: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + DataController.DataSource = DS_MX + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skCount + Position = spFooter + end + item + Kind = skSum + Position = spFooter + Column = cxGridDBColumn8 + end + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + Column = cxGridDBColumn8 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 33 + OnCustomDrawIndicatorCell = TvMXCustomDrawIndicatorCell + object cxGridDBColumn8: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MXQty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 112 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TvMX + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 504 + Top = 254 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 668 + Top = 254 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 750 + Top = 254 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 504 + Top = 378 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 750 + Top = 316 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 504 + Top = 316 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 504 + Top = 440 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 832 + Top = 378 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 586 + Top = 440 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 750 + Top = 378 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 832 + Top = 254 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 668 + Top = 316 + end + object PopupMenu1: TPopupMenu + Left = 668 + Top = 378 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryImage: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 586 + Top = 254 + end + object CDS_MX: TClientDataSet + Aggregates = <> + Params = <> + Left = 586 + Top = 316 + end + object DS_MX: TDataSource + DataSet = CDS_MX + Left = 586 + Top = 378 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 832 + Top = 316 + end +end diff --git a/云翔一码通/U_YMTRKList.pas b/云翔一码通/U_YMTRKList.pas new file mode 100644 index 0000000..a9d3fb2 --- /dev/null +++ b/云翔一码通/U_YMTRKList.pas @@ -0,0 +1,434 @@ +unit U_YMTRKList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, + cxContainer, cxImage, cxDBEdit, cxLookAndFeels, cxLookAndFeelPainters, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator; + +type + TfrmYMTRKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + TBDel: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + TBAdd: TToolButton; + TBEdit: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + SPName: TEdit; + FactoryName: TEdit; + SPID: TEdit; + SPSpec: TEdit; + Label6: TLabel; + SPCF: TEdit; + Label7: TLabel; + OrderNo: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column16: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label9: TLabel; + ToFactoryName: TEdit; + Label12: TLabel; + CRType: TComboBox; + v1Column18: TcxGridDBColumn; + Label10: TLabel; + KuWei: TEdit; + v1Column19: TcxGridDBColumn; + Label11: TLabel; + RCGangNo: TEdit; + Label13: TLabel; + PRTColor: TEdit; + Label14: TLabel; + SOrddefstr1: TEdit; + Label15: TLabel; + PRTHX: TEdit; + ADOQueryImage: TADOQuery; + v1Column21: TcxGridDBColumn; + Label16: TLabel; + CustomerNoName: TEdit; + cxGrid1: TcxGrid; + TvMX: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + CDS_MX: TClientDataSet; + DS_MX: TDataSource; + cxGridPopupMenu2: TcxGridPopupMenu; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure SPIDChange(Sender: TObject); + procedure SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + private + canshu1, canshu2: string; + procedure InitGrid(); + procedure InitImage(fsubID: string); + procedure InitMXGrid(MCRNO: string); + { Private declarations } + public + { Public declarations } + end; + +var + frmYMTRKList: TfrmYMTRKList; + +implementation + +uses + U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS; + +{$R *.dfm} +procedure TfrmYMTRKList.InitMXGrid(MCRNO: string); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_MX where CRNO=' + quotedstr(Trim(MCRNO))); + sql.Add(' order by MXID'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_MX); + SInitCDSData20(ADOQueryTemp, CDS_MX); +end; + +procedure TfrmYMTRKList.InitImage(fsubID: string); +begin + ADOQueryImage.close; + // IF fwbid='' then exit; + with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('inner join JYOrder_Sub B on B.HXFile=A.WBID'); + sql.Add('where B.SubID=' + quotedstr(trim(fsubID))); + open; + end; +end; + +procedure TfrmYMTRKList.FormDestroy(Sender: TObject); +begin + frmYMTRKList := nil; +end; + +procedure TfrmYMTRKList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmYMTRKList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; +end; + +procedure TfrmYMTRKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from YMT_CK_CR A'); + sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); + sql.Add(' and A.CRTime<=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); + sql.Add(' and isnull(CKName,'''')=''첼'''); + SQL.Add(' and CRFlag='''' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYMTRKList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmYMTRKList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmYMTRKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('첼б', Tv1, '첼ֿ'); + WriteCxGrid('첼б2', TvMX, '첼ֿ'); + Close; +end; + +procedure TfrmYMTRKList.FormShow(Sender: TObject); +begin + if Trim(canshu2) = '鿴' then + begin + TBAdd.Visible := False; + TBDel.Visible := False; + TBEdit.Visible := False; + end + else + begin + TBAdd.Visible := True; + TBDel.Visible := True; + TBEdit.Visible := True; + end; + ReadCxGrid('첼б', Tv1, '첼ֿ'); + ReadCxGrid('첼б2', TvMX, '첼ֿ'); + //InitGrid(); +end; + +procedure TfrmYMTRKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('첼б', cxGrid2); +end; + +procedure TfrmYMTRKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmYMTRKList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmYMTRKList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmYMTRKList.TBDelClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString) <> '' then + begin + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽ' then + begin + Application.MessageBox('ƽΪԶɣɾ!', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_CK_CR where FZSPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('г¼ɾ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + ADOQueryCmd.Connection.BeginTrans; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YMT_CK_CR where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Main.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!', 'ʾ', 0); + end; + end + else + begin + CDS_Main.Delete; + end; +end; + +procedure TfrmYMTRKList.TBAddClick(Sender: TObject); +begin + try + frmYMTRKInPut := TfrmYMTRKInPut.Create(Application); + with frmYMTRKInPut do + begin + FBCId := ''; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmYMTRKInPut.Free; + end; +end; + +procedure TfrmYMTRKList.TBEditClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽ' then + begin + Application.MessageBox('ƽΪԶɣ޸!', 'ʾ', 0); + Exit; + end; + try + frmYMTRKInPut := TfrmYMTRKInPut.Create(Application); + with frmYMTRKInPut do + begin + FBCId := Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible := False; + TBAdd.Visible := False; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmYMTRKInPut.Free; + end; +end; + +procedure TfrmYMTRKList.SPIDChange(Sender: TObject); +begin + if Length(Trim(SPID.Text)) < 4 then + begin + if Trim(SPID.Text) <> '' then + Exit; + end; + TBFind.Click; +end; + +procedure TfrmYMTRKList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYMTRKList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYMTRKList.TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + InflateRect(FBounds, -1, -1); //Platform specific. May not work on Linux. + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; +end; + +procedure TfrmYMTRKList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitMXGrid(Trim(CDS_Main.fieldbyname('SPID').AsString)); +end; + +end. + diff --git a/云翔一码通/U_ZdyAttachGYS.dfm b/云翔一码通/U_ZdyAttachGYS.dfm index 43006f1..460f307 100644 --- a/云翔一码通/U_ZdyAttachGYS.dfm +++ b/云翔一码通/U_ZdyAttachGYS.dfm @@ -19,15 +19,15 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1022 + Width = 1030 Height = 31 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_ShuttleSchedule.ThreeImgList + DisabledImages = DataLink_YXYMT.ThreeImgList Flat = True - Images = DataLink_ShuttleSchedule.ThreeImgList + Images = DataLink_YXYMT.ThreeImgList List = True ParentColor = False ShowCaptions = True @@ -60,7 +60,7 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS object Panel1: TPanel Left = 0 Top = 31 - Width = 1022 + Width = 1030 Height = 39 Align = alTop BevelInner = bvRaised @@ -130,15 +130,15 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS object cxGrid2: TcxGrid Left = 0 Top = 70 - Width = 1022 - Height = 510 + Width = 1030 + Height = 517 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView OnDblClick = Tv2DblClick - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -159,10 +159,10 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Inactive = DataLink_ShuttleSchedule.SHuangSe - Styles.IncSearch = DataLink_ShuttleSchedule.SHuangSe - Styles.Selection = DataLink_ShuttleSchedule.SHuangSe - Styles.Header = DataLink_ShuttleSchedule.Default + Styles.Inactive = DataLink_YXYMT.SHuangSe + Styles.IncSearch = DataLink_YXYMT.SHuangSe + Styles.Selection = DataLink_YXYMT.SHuangSe + Styles.Header = DataLink_YXYMT.Default object v2Column2: TcxGridDBColumn Caption = #20379#24212#21830#32534#21495 DataBinding.FieldName = 'CoCode' @@ -196,20 +196,20 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS end end object ADOQueryTemp: TADOQuery - Connection = DataLink_ShuttleSchedule.ADOLink + Connection = DataLink_YXYMT.ADOLink LockType = ltReadOnly Parameters = <> Left = 789 Top = 9 end object ADOQueryCmd: TADOQuery - Connection = DataLink_ShuttleSchedule.ADOLink + Connection = DataLink_YXYMT.ADOLink Parameters = <> Left = 829 Top = 1 end object ADOQueryMain: TADOQuery - Connection = DataLink_ShuttleSchedule.ADOLink + Connection = DataLink_YXYMT.ADOLink LockType = ltReadOnly Parameters = <> Left = 949 diff --git a/云翔一码通/U_ZdyAttachGYS.pas b/云翔一码通/U_ZdyAttachGYS.pas index 15472d4..ce7fc11 100644 --- a/云翔一码通/U_ZdyAttachGYS.pas +++ b/云翔一码通/U_ZdyAttachGYS.pas @@ -12,7 +12,22 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, - cxTextEdit; + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, + cxNavigator; type TfrmZdyAttachGYS = class(TForm) diff --git a/云翔一码通/U_ZdyAttachment.dfm b/云翔一码通/U_ZdyAttachment.dfm index 7a6586c..9d0d0d8 100644 --- a/云翔一码通/U_ZdyAttachment.dfm +++ b/云翔一码通/U_ZdyAttachment.dfm @@ -19,15 +19,15 @@ object frmZdyAttachment: TfrmZdyAttachment object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1126 + Width = 1134 Height = 31 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_ShuttleSchedule.ThreeImgList + DisabledImages = DataLink_YXYMT.ThreeImgList Flat = True - Images = DataLink_ShuttleSchedule.ThreeImgList + Images = DataLink_YXYMT.ThreeImgList List = True ParentColor = False ShowCaptions = True @@ -60,7 +60,7 @@ object frmZdyAttachment: TfrmZdyAttachment object Panel1: TPanel Left = 0 Top = 31 - Width = 1126 + Width = 1134 Height = 39 Align = alTop BevelInner = bvRaised @@ -103,15 +103,15 @@ object frmZdyAttachment: TfrmZdyAttachment object cxGrid2: TcxGrid Left = 0 Top = 70 - Width = 1126 - Height = 505 + Width = 1134 + Height = 512 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView OnDblClick = Tv2DblClick - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -132,10 +132,10 @@ object frmZdyAttachment: TfrmZdyAttachment OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Inactive = DataLink_ShuttleSchedule.SHuangSe - Styles.IncSearch = DataLink_ShuttleSchedule.SHuangSe - Styles.Selection = DataLink_ShuttleSchedule.SHuangSe - Styles.Header = DataLink_ShuttleSchedule.handBlack + Styles.Inactive = DataLink_YXYMT.SHuangSe + Styles.IncSearch = DataLink_YXYMT.SHuangSe + Styles.Selection = DataLink_YXYMT.SHuangSe + Styles.Header = DataLink_YXYMT.handBlack object v2Column2: TcxGridDBColumn Caption = #23458#25143#32534#21495 DataBinding.FieldName = 'CoCode' @@ -163,20 +163,20 @@ object frmZdyAttachment: TfrmZdyAttachment end end object ADOQueryTemp: TADOQuery - Connection = DataLink_ShuttleSchedule.ADOLink + Connection = DataLink_YXYMT.ADOLink LockType = ltReadOnly Parameters = <> Left = 789 Top = 9 end object ADOQueryCmd: TADOQuery - Connection = DataLink_ShuttleSchedule.ADOLink + Connection = DataLink_YXYMT.ADOLink Parameters = <> Left = 829 Top = 1 end object ADOQueryMain: TADOQuery - Connection = DataLink_ShuttleSchedule.ADOLink + Connection = DataLink_YXYMT.ADOLink LockType = ltReadOnly Parameters = <> Left = 949 diff --git a/云翔一码通/U_ZdyAttachment.pas b/云翔一码通/U_ZdyAttachment.pas index 5ee43ae..06b6a20 100644 --- a/云翔一码通/U_ZdyAttachment.pas +++ b/云翔一码通/U_ZdyAttachment.pas @@ -12,7 +12,21 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, - cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmZdyAttachment = class(TForm) diff --git a/云翔一码通/YXYMT.dpr b/云翔一码通/YXYMT.dpr index b612572..cceaa34 100644 --- a/云翔一码通/YXYMT.dpr +++ b/云翔一码通/YXYMT.dpr @@ -9,7 +9,7 @@ uses U_GetDllForm in 'U_GetDllForm.pas', U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, - U_DataLink in 'U_DataLink.pas' {DataLink_InformationBase: TDataModule}, + U_DataLink in 'U_DataLink.pas' {DataLink_YXYMT: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_iniParam in 'U_iniParam.pas', U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp}, diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm b/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm index 9815ed8..188f89e 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList.dfm @@ -2,7 +2,7 @@ object frmMCGRKList: TfrmMCGRKList Left = 508 Top = 193 Width = 1149 - Height = 649 + Height = 676 Caption = #26825#37319#36141#20837#24211#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -131,7 +131,7 @@ object frmMCGRKList: TfrmMCGRKList Left = 0 Top = 109 Width = 1141 - Height = 509 + Height = 536 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -189,7 +189,6 @@ object frmMCGRKList: TfrmMCGRKList Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Sorting = False SortIndex = 0 SortOrder = soAscending Width = 116 @@ -244,6 +243,12 @@ object frmMCGRKList: TfrmMCGRKList HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1Column3: TcxGridDBColumn + Caption = #22635#21333#26085#26399 + DataBinding.FieldName = 'filltime' + HeaderAlignmentHorz = taCenter + Width = 88 + end object v1editer: TcxGridDBColumn Caption = #20462#25913#20154 DataBinding.FieldName = 'editer' diff --git a/云翔生产管理(MYSC.dll)/U_MCGRKList.pas b/云翔生产管理(MYSC.dll)/U_MCGRKList.pas index 4569edd..681cebd 100644 --- a/云翔生产管理(MYSC.dll)/U_MCGRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_MCGRKList.pas @@ -26,7 +26,19 @@ uses dxSkinSharpPlus, dxSkinSpringTime, dxSkinsDefaultPainters, - dxSkinscxPCPainter; + 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 TfrmMCGRKList = class(TForm) @@ -127,6 +139,7 @@ type MYKZ: TComboBox; ToolButton3: TToolButton; Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject);