From ce5209fc371a049b37bcae24953def62508a0eb4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 20 Sep 2025 10:39:47 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E4=BA=91=E7=BF=94=E4=B8=80?= =?UTF-8?q?=E7=A0=81=E9=80=9A?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Z99Dependency/RTFunAndForm/Fun/U_RTFun.pas | 120 ++++-- 云翔一码通/U_GetDllForm.pas | 43 +- 云翔一码通/U_YMTFHDataList.dfm | 480 +++++++++++++++++++++ 云翔一码通/U_YMTFHDataList.pas | 399 +++++++++++++++++ 云翔一码通/U_YMTFHSQInPut.dfm | 33 +- 云翔一码通/U_YMTFHSQInPut.pas | 2 + 云翔一码通/U_YMTFHSQList.dfm | 4 +- 云翔一码通/U_YMTFHSQList.pas | 1 - 云翔一码通/U_YMTJGWCList.dfm | 475 ++++++++++++++++++++ 云翔一码通/U_YMTJGWCList.pas | 352 +++++++++++++++ 云翔一码通/U_YMTRKInPut.pas | 3 +- 云翔一码通/U_YMTRKList.dfm | 208 +++++---- 云翔一码通/U_YMTRKList.pas | 125 +++++- 云翔一码通/YXYMT.dpr | 4 +- 云翔生产管理(MYSC.dll)/U_ZHCPDJList.pas | 304 ++++++------- 云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas | 27 +- 16 files changed, 2263 insertions(+), 317 deletions(-) create mode 100644 云翔一码通/U_YMTFHDataList.dfm create mode 100644 云翔一码通/U_YMTFHDataList.pas create mode 100644 云翔一码通/U_YMTJGWCList.dfm create mode 100644 云翔一码通/U_YMTJGWCList.pas diff --git a/Z99Dependency/RTFunAndForm/Fun/U_RTFun.pas b/Z99Dependency/RTFunAndForm/Fun/U_RTFun.pas index d20338a..db477cd 100644 --- a/Z99Dependency/RTFunAndForm/Fun/U_RTFun.pas +++ b/Z99Dependency/RTFunAndForm/Fun/U_RTFun.pas @@ -18,8 +18,8 @@ type TA = class(TComponent) public S: string; - end; + TStringArray = array of string; // ַ function SGetMaxId(AdoQueryTemp: TADOQuery; MyTable: string; MyField: string; var MaxId: Integer): Boolean; @@ -221,6 +221,8 @@ procedure SelOKNoFilter(Tv1: TcxGridDBTableView; FSel: Boolean); procedure SelOKNoFilterBand(Tv1: TcxGridDBBandedTableView; FSel: Boolean); +function SelCDSKey(CDS_1: TClientDataSet; Keys: array of string): TStringArray; + type TMyF = function(App: TApplication; //Ӧó (Delphi) FormH: HWND; //ڵĸھ (PB) @@ -675,8 +677,7 @@ begin if trim(fieldByName('FilePath').AsString) <> '' then mChildPath := trim(fieldByName('FilePath').AsString) + '\'; end; - end - ////////////////////////////////////// + end ////////////////////////////////////// // else begin @@ -717,7 +718,6 @@ begin ff.SaveToStream(Stream); //OleContainer1.SaveToFile(ExtractFilePath(Paramstr(0))+mfielName) Stream.SaveToFile(mFilePath + mFileName); //+'\tmpFile\' - //OleContainer1.SaveToFile('tmp'); finally Stream.Free; @@ -1910,8 +1910,7 @@ begin else } if Trim(fieldByName(mfield).AsString) <> '' then TRichEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin if Controls[i].Tag = 99 then @@ -1924,8 +1923,7 @@ begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); TComboBox(Controls[i]).ItemIndex := idx; end; - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2023,8 +2021,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); @@ -2039,8 +2036,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TcxRichEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2186,8 +2182,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); @@ -2202,8 +2197,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TcxRichEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2324,8 +2318,7 @@ begin TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString) else TEdit(Controls[i]).Text := ''; - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); @@ -2344,8 +2337,7 @@ begin TcxRichEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString) else TcxRichEdit(Controls[i]).Text := ''; - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Style = csDropDownList then @@ -2440,8 +2432,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); @@ -2456,8 +2447,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TcxRichEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2552,8 +2542,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); @@ -2568,8 +2557,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TcxRichEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2663,8 +2651,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin if Controls[i].Tag = 99 then @@ -2677,8 +2664,7 @@ begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); TComboBox(Controls[i]).ItemIndex := idx; end; - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2738,8 +2724,7 @@ begin else if Controls[i] is TcheckBox then begin TcheckBox(Controls[i]).Checked := fieldByName(mfield).asBoolean; - end - {else if Controls[i] is TcxLookupComboBox then + end {else if Controls[i] is TcxLookupComboBox then begin TcxLookupComboBox(Controls[i]).EditValue:=fieldByName(mfield).AsString; TcxLookupComboBox(Controls[i]).EditingText:=fieldByName(mfield+'name').AsString; @@ -2774,8 +2759,7 @@ begin begin if Trim(fieldByName(mfield).AsString) <> '' then TEdit(Controls[i]).Text := trim(fieldByName(mfield).AsString); - end - //ftcombobox + end //ftcombobox else if Controls[i] is TFTComboBox then begin if Controls[i].Tag = 99 then @@ -2788,8 +2772,7 @@ begin idx := TftComboBox(Controls[i]).IndexOfItem2(trim(fieldByName(mfield).AsString)); TComboBox(Controls[i]).ItemIndex := idx; end; - end - //combobox + end //combobox else if Controls[i] is TComboBox then begin if TComboBox(Controls[i]).Items.Count > 0 then @@ -2849,8 +2832,7 @@ begin else if Controls[i] is TcheckBox then begin TcheckBox(Controls[i]).Checked := fieldByName(mfield).asBoolean; - end - {else if Controls[i] is TcxLookupComboBox then + end {else if Controls[i] is TcxLookupComboBox then begin TcxLookupComboBox(Controls[i]).EditValue:=fieldByName(mfield).AsString; TcxLookupComboBox(Controls[i]).EditingText:=fieldByName(mfield+'name').AsString; @@ -3827,6 +3809,62 @@ begin end; end; +function SelCDSKey(CDS_1: TClientDataSet; Keys: array of string): TStringArray; +var + RTValues: TStringArray; + i, j, CurRow: Integer; +begin + // ʼ + SetLength(RTValues, Length(Keys)); + + // 浱ǰλòÿؼˢ + CurRow := CDS_1.RecNo; + CDS_1.DisableControls; + + try + with CDS_1 do + begin + First; + j := 0; + + // ݼ + while not Eof do + begin + // SSelֶǷΪTrue + if FieldByName('SSel').AsBoolean then + begin + // ÿֶ + for i := 0 to Length(Keys) - 1 do + begin + if j = 0 then + // һƥ¼ʼַ + RTValues[i] := Trim(FieldByName(Keys[i]).AsString) + ',' + else + // ƥ¼׷ӵַ + RTValues[i] := RTValues[i] + Trim(FieldByName(Keys[i]).AsString) + ','; + end; + Inc(j); // ƥ + end; + Next; // ƶһ¼ + end; + end; + finally + // ָλòÿؼ + CDS_1.RecNo := CurRow; + CDS_1.EnableControls; + end; + + // ƳÿַĩβĶ + for i := 0 to Length(RTValues) - 1 do + begin + if Length(RTValues[i]) > 0 then + RTValues[i] := Copy(RTValues[i], 1, Length(RTValues[i]) - 1); + end; + + // ؽ + Result := RTValues; +end; + procedure OneKeyPost(Tv1: TcxGridDBTableView; CDS_Sub: TClientDataSet); var FValue, FFValue, FColumn, FFColumn: string; @@ -4255,7 +4293,6 @@ begin // (tv1.DataController.DataSet.Fields[i] as TNumericField).DisplayFormat := '#,0.00;-#,0.00;#'; //tv1.Columns[i].Summary.FooterFormat:='0.0'; //tv1.Columns[i].Summary.FooterKind := skSum; - //Group RowϵĻͬʱʹʱֻһЧ //зϵĻ @@ -4328,7 +4365,6 @@ begin // (tv1.DataController.DataSet.Fields[i] as TNumericField).DisplayFormat := '#,0.00;-#,0.00;#'; //tv1.Columns[i].Summary.FooterFormat:='0.0'; //tv1.Columns[i].Summary.FooterKind := skSum; - //Group RowϵĻͬʱʹʱֻһЧ //зϵĻ diff --git a/云翔一码通/U_GetDllForm.pas b/云翔一码通/U_GetDllForm.pas index 0e46c89..1a73c7b 100644 --- a/云翔一码通/U_GetDllForm.pas +++ b/云翔一码通/U_GetDllForm.pas @@ -13,7 +13,7 @@ function ConnData(): Boolean; implementation uses - U_DataLink, U_YMTRKList, U_YMTFHSQList; + U_DataLink, U_YMTRKList, U_YMTFHSQList, U_YMTFHDataList, U_YMTJGWCList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -38,7 +38,7 @@ begin DCode := PChar(GCode); DdataBase := DataBase; DTitCaption := Title; - DParameters1 := Parameters1; + DParameters1 := 'Ȩ'; DParameters2 := Parameters2; DParameters3 := Parameters3; DParameters4 := Parameters4; @@ -118,6 +118,26 @@ begin mnewHandle := frmYMTRKList.Handle; end; + 112: //ӹɻز + begin + if frmYMTJGWCList = nil then + begin + frmYMTJGWCList := TfrmYMTJGWCList.Create(application.MainForm); + with frmYMTJGWCList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYMTJGWCList.BringToFront; + // + mnewHandle := frmYMTJGWCList.Handle; + end; + 211: // begin if frmYMTFHSQList = nil then @@ -137,6 +157,25 @@ begin // mnewHandle := frmYMTFHSQList.Handle; end; + 212: // + begin + if frmYMTFHDataList = nil then + begin + frmYMTFHDataList := TfrmYMTFHDataList.Create(application.MainForm); + with frmYMTFHDataList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmYMTFHDataList.BringToFront; + // + mnewHandle := frmYMTFHDataList.Handle; + end; end; Result := mnewHandle; diff --git a/云翔一码通/U_YMTFHDataList.dfm b/云翔一码通/U_YMTFHDataList.dfm new file mode 100644 index 0000000..e7d30e6 --- /dev/null +++ b/云翔一码通/U_YMTFHDataList.dfm @@ -0,0 +1,480 @@ +object frmYMTFHDataList: TfrmYMTFHDataList + Left = 515 + Top = 347 + Width = 1370 + Height = 750 + Caption = #21457#36135#25968#25454 + 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 = 1362 + 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 = 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 TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + Caption = #39044#35272#25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 398 + Top = 0 + Caption = #24555#36895#25171#21360 + ImageIndex = 4 + Visible = False + OnClick = ToolButton2Click + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 40 + 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 = 193 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 480 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label5: TLabel + Left = 322 + Top = 12 + Width = 48 + Height = 12 + Caption = #30003#35831#21333#21495 + end + object Label12: TLabel + Left = 882 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object Label13: TLabel + Left = 614 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label15: TLabel + Left = 748 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object BegDate: TDateTimePicker + Left = 91 + Top = 8 + 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 = 220 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 5 + end + object SPName: TEdit + Tag = 2 + Left = 519 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 2 + OnChange = TBFindClick + end + object FSId: TEdit + Tag = 2 + Left = 385 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object CRType: TComboBox + Tag = 2 + Left = 945 + Top = 8 + Width = 80 + Height = 20 + Style = csDropDownList + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ItemHeight = 12 + TabOrder = 6 + OnChange = TBFindClick + Items.Strings = ( + '' + #21152#24037#20986#24211) + end + object SPColor: TEdit + Tag = 2 + Left = 653 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = FactoryNameChange + end + object PRTHX: TEdit + Tag = 2 + Left = 787 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 73 + Width = 1362 + Height = 646 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + 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 + 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 Tv1FromMXID: TcxGridDBColumn + Tag = 2 + Caption = #32534#21495 + DataBinding.FieldName = 'FromMXID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'FSId' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column13: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'SCConNo' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20986#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 = #20986#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 v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'SPName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v1Column15: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'SPColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object v1Column17: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'SPHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 531 + Top = 277 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 667 + Top = 277 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 735 + Top = 277 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 735 + Top = 345 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 667 + Top = 345 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 531 + Top = 345 + 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 = 667 + Top = 413 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 599 + Top = 413 + 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 = 735 + Top = 413 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 531 + Top = 413 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 803 + Top = 277 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 599 + Top = 345 + end + object PopupMenu1: TPopupMenu + Left = 803 + Top = 345 + 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 = 599 + Top = 277 + end +end diff --git a/云翔一码通/U_YMTFHDataList.pas b/云翔一码通/U_YMTFHDataList.pas new file mode 100644 index 0000000..0486f97 --- /dev/null +++ b/云翔一码通/U_YMTFHDataList.pas @@ -0,0 +1,399 @@ +unit U_YMTFHDataList; + +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, cxCurrencyEdit; + +type + TfrmYMTFHDataList = 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; + Label3: TLabel; + Label5: TLabel; + SPName: TEdit; + FSId: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label12: TLabel; + CRType: TComboBox; + Label13: TLabel; + SPColor: TEdit; + Label15: TLabel; + PRTHX: TEdit; + ADOQueryImage: TADOQuery; + Tv1FromMXID: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + 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 SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + private + canshu1, canshu2: string; + procedure InitGrid(); + procedure InitImage(fsubID: string); + { Private declarations } + public + { Public declarations } + end; + +var + frmYMTFHDataList: TfrmYMTFHDataList; + +implementation + +uses + U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun; + +{$R *.dfm} + + +procedure TfrmYMTFHDataList.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 TfrmYMTFHDataList.FormDestroy(Sender: TObject); +begin + frmYMTFHDataList := nil; +end; + +procedure TfrmYMTFHDataList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmYMTFHDataList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; +end; + +procedure TfrmYMTFHDataList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.*, B.FSId, B.SCConNo'); + sql.Add(' from YMT_CK_CR A'); + sql.Add(' JOIN YMT_FHSQ_Sub B ON B.SSID = A.ToSSID'); + 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 TfrmYMTFHDataList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmYMTFHDataList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmYMTFHDataList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('б', Tv1, ''); + Close; +end; + +procedure TfrmYMTFHDataList.FormShow(Sender: TObject); +begin + if Trim(canshu2) = '鿴' then + begin + TBDel.Visible := False; + end + else + begin + TBDel.Visible := True; + end; + ReadCxGrid('б', Tv1, ''); + InitGrid(); +end; + +procedure TfrmYMTFHDataList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid2); +end; + +procedure TfrmYMTFHDataList.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 TfrmYMTFHDataList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmYMTFHDataList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmYMTFHDataList.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 TfrmYMTFHDataList.TBAddClick(Sender: TObject); +begin + try + frmYMTRKInPut := TfrmYMTRKInPut.Create(Application); + with frmYMTRKInPut do + begin + PState := 0; + FBCId := ''; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmYMTRKInPut.Free; + end; +end; + +procedure TfrmYMTFHDataList.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 + PState := 1; + 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 TfrmYMTFHDataList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYMTFHDataList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYMTFHDataList.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 TfrmYMTFHDataList.ToolButton1Click(Sender: TObject); +var + FPrintJson, JsonResult, MFiltration: string; + RTValues: TStringArray; +begin + if CDS_Main.IsEmpty then + Exit; + if CDS_Main.Locate('SSel', True, []) then + begin + RTValues := SelCDSKey(CDS_Main, ['SPID']); + MFiltration := RTValues[0]; + end + else + begin + MFiltration := Trim(CDS_Main.fieldbyname('SPID').AsString); + end; + FPrintJson := '{ "LMType": "LMType","QrCodeField": "MXID","PreviewPrint": true,"DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '", "PrtArgs": [ { "IsSql": true, "Filtration": " ' + MFiltration + '" }] }'; + + FormPrint(Application, PChar(FPrintJson)); +end; + +procedure TfrmYMTFHDataList.ToolButton2Click(Sender: TObject); +var + MPrintJson, JsonResult, MFiltration: string; +begin + if CDS_Main.IsEmpty then + Exit; + MFiltration := Trim(CDS_Main.fieldbyname('SPID').AsString); + MPrintJson := '{ "LBName": "ǩӡ","QrCodeField": "MXID","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "EXEC P_YMT_CK_MX_Prt1 ''' + MFiltration + ''' " }] }'; + FunPrint(Application, PChar(MPrintJson)); + +end; + +end. + diff --git a/云翔一码通/U_YMTFHSQInPut.dfm b/云翔一码通/U_YMTFHSQInPut.dfm index 5ffaae9..bfd991c 100644 --- a/云翔一码通/U_YMTFHSQInPut.dfm +++ b/云翔一码通/U_YMTFHSQInPut.dfm @@ -1,6 +1,6 @@ object frmFHSQInPut: TfrmFHSQInPut - Left = 615 - Top = 422 + Left = 354 + Top = 585 Width = 1113 Height = 664 Caption = #21457#36135#30003#35831#24405#20837 @@ -138,6 +138,20 @@ object frmFHSQInPut: TfrmFHSQInPut Font.Style = [fsBold] ParentFont = False end + object Label3: TLabel + Tag = 1 + Left = 849 + Top = 12 + Width = 72 + Height = 17 + Caption = #21152#24037#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object CRType: TComboBox Tag = 1 Left = 115 @@ -232,6 +246,21 @@ object frmFHSQInPut: TfrmFHSQInPut OnBtnUpClick = SalesmanBtnUpClick OnBtnDnClick = SalesmanBtnDnClick end + object JGType: TEdit + Tag = 1 + Left = 931 + Top = 8 + Width = 120 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 5 + end end object ToolBar2: TToolBar Left = 0 diff --git a/云翔一码通/U_YMTFHSQInPut.pas b/云翔一码通/U_YMTFHSQInPut.pas index 29d1e36..997b509 100644 --- a/云翔一码通/U_YMTFHSQInPut.pas +++ b/云翔一码通/U_YMTFHSQInPut.pas @@ -62,6 +62,8 @@ type v1Column5: TcxGridDBColumn; v1Column10: TcxGridDBColumn; ToolButton3: TToolButton; + Label3: TLabel; + JGType: TEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/云翔一码通/U_YMTFHSQList.dfm b/云翔一码通/U_YMTFHSQList.dfm index b2cae11..888bf92 100644 --- a/云翔一码通/U_YMTFHSQList.dfm +++ b/云翔一码通/U_YMTFHSQList.dfm @@ -1,6 +1,6 @@ object frmYMTFHSQList: TfrmYMTFHSQList - Left = 635 - Top = 231 + Left = 521 + Top = 198 Width = 1308 Height = 679 Caption = #21457#36135#30003#35831 diff --git a/云翔一码通/U_YMTFHSQList.pas b/云翔一码通/U_YMTFHSQList.pas index ffc0c39..4f63152 100644 --- a/云翔一码通/U_YMTFHSQList.pas +++ b/云翔一码通/U_YMTFHSQList.pas @@ -636,7 +636,6 @@ end; procedure TfrmYMTFHSQList.ToolButton2Click(Sender: TObject); begin - Panel3.Visible := True; end; diff --git a/云翔一码通/U_YMTJGWCList.dfm b/云翔一码通/U_YMTJGWCList.dfm new file mode 100644 index 0000000..5401614 --- /dev/null +++ b/云翔一码通/U_YMTJGWCList.dfm @@ -0,0 +1,475 @@ +object frmYMTJGWCList: TfrmYMTJGWCList + Left = 316 + Top = 278 + Width = 1370 + Height = 750 + Caption = #21152#24037#23436#25104#22238#20179#25968#25454 + 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 = 1362 + 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 TBDel: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object TBExport: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 68 + OnClick = TBExportClick + end + object TBClose: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 33 + Width = 1362 + Height = 48 + 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 = 183 + Top = 12 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label3: TLabel + Left = 450 + Top = 12 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 574 + Top = 12 + Width = 48 + Height = 12 + Caption = #21152#24037#21333#20301 + end + object Label5: TLabel + Left = 302 + Top = 12 + Width = 48 + Height = 12 + Caption = #30003#35831#21333#21495 + end + object Label13: TLabel + Left = 722 + Top = 12 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label15: TLabel + Left = 846 + Top = 12 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object BegDate: TDateTimePicker + Left = 86 + Top = 8 + 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 = 205 + Top = 8 + Width = 87 + Height = 20 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 6 + end + object MXPrtName: TEdit + Tag = 2 + Left = 484 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 2 + OnChange = TBFindClick + end + object FactoryName: TEdit + Tag = 2 + Left = 632 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 3 + OnChange = FactoryNameChange + end + object FSId: TEdit + Tag = 2 + Left = 360 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 1 + end + object MXPrtColor: TEdit + Tag = 2 + Left = 756 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 4 + OnChange = FactoryNameChange + end + object MXPrtHX: TEdit + Tag = 2 + Left = 880 + Top = 8 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = FactoryNameChange + end + end + object cxGrid2: TcxGrid + Left = 0 + Top = 81 + Width = 1362 + Height = 638 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = TV1Qty + end + item + Kind = skSum + end + item + Format = '#,###' + Kind = skSum + 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 Tv1SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 40 + end + object TV1FromMXID: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'FromMXID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object TV1FSId: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'FSId' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object TV1SCConNo: TcxGridDBColumn + Tag = 2 + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'SCConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object TV1CRTime: 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 TV1CRType: 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 TV1SHDanWei: TcxGridDBColumn + Tag = 2 + Caption = #21152#24037#21333#20301 + DataBinding.FieldName = 'SHDanWei' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 101 + end + object TV1MXPrtName: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'MXPrtName' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 97 + end + object TV1MXPrtColor: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MXPrtColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object TV1MXPrtHX: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'MXPrtHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object TV1Qty: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 531 + Top = 277 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 667 + Top = 277 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 735 + Top = 277 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 735 + Top = 345 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 667 + Top = 345 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 531 + Top = 345 + 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 = 667 + Top = 413 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 599 + Top = 413 + 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 = 735 + Top = 413 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 531 + Top = 413 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 803 + Top = 277 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 599 + Top = 345 + end + object PopupMenu1: TPopupMenu + Left = 803 + Top = 345 + 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 = 599 + Top = 277 + end +end diff --git a/云翔一码通/U_YMTJGWCList.pas b/云翔一码通/U_YMTJGWCList.pas new file mode 100644 index 0000000..d1f4904 --- /dev/null +++ b/云翔一码通/U_YMTJGWCList.pas @@ -0,0 +1,352 @@ +unit U_YMTJGWCList; + +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, cxCurrencyEdit, + cxMaskEdit; + +type + TfrmYMTJGWCList = 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; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + MXPrtName: TEdit; + FactoryName: TEdit; + FSId: TEdit; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + TV1FromMXID: TcxGridDBColumn; + TV1CRTime: TcxGridDBColumn; + TV1CRType: TcxGridDBColumn; + TV1FSId: TcxGridDBColumn; + TV1MXPrtColor: TcxGridDBColumn; + TV1MXPrtHX: TcxGridDBColumn; + TV1SHDanWei: TcxGridDBColumn; + TV1MXPrtName: TcxGridDBColumn; + TV1Qty: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Label13: TLabel; + MXPrtColor: TEdit; + Label15: TLabel; + MXPrtHX: TEdit; + ADOQueryImage: TADOQuery; + TV1SCConNo: TcxGridDBColumn; + Tv1SSel: TcxGridDBColumn; + 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 SPSpecChange(Sender: TObject); + procedure FactoryNameChange(Sender: TObject); + procedure TvMXCustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + canshu1, canshu2: string; + procedure InitGrid(); + procedure InitImage(fsubID: string); + + { Private declarations } + public + { Public declarations } + end; + +var + frmYMTJGWCList: TfrmYMTJGWCList; + +implementation + +uses + U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun; + +{$R *.dfm} + +procedure TfrmYMTJGWCList.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 TfrmYMTJGWCList.FormDestroy(Sender: TObject); +begin + frmYMTJGWCList := nil; +end; + +procedure TfrmYMTJGWCList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmYMTJGWCList.FormCreate(Sender: TObject); +begin + //cxGrid1.Align:=alClient; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; +end; + +procedure TfrmYMTJGWCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.FromMXID, A.Qty, A.CRType,A.CRTime,B.*, C.SHDanWei '); + sql.Add(' from YMT_CK_CR A'); + sql.Add(' JOIN YMT_FHSQ_Sub B ON B.SSID = A.ToSSID'); + sql.Add(' JOIN YMT_FHSQ_Main C ON C.FSId = B.FSId'); + 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(A.CKName,'''')='''''); + SQL.Add(' and A.CRType=''ӹ'' '); + Open; + //ShowMessage(SQL.Text); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYMTJGWCList.TBRafreshClick(Sender: TObject); +begin + BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmYMTJGWCList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmYMTJGWCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹɻزб', Tv1, 'ӹϲֿ'); + + Close; +end; + +procedure TfrmYMTJGWCList.FormShow(Sender: TObject); +begin + if Trim(canshu2) = '鿴' then + begin + TBDel.Visible := False; + end + else + begin + TBDel.Visible := True; + end; + ReadCxGrid('ӹɻزб', Tv1, 'ӹϲֿ'); + InitGrid(); +end; + +procedure TfrmYMTJGWCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('ӹɻزб', cxGrid2); +end; + +procedure TfrmYMTJGWCList.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 TfrmYMTJGWCList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmYMTJGWCList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmYMTJGWCList.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 TfrmYMTJGWCList.TBAddClick(Sender: TObject); +begin + try + frmYMTRKInPut := TfrmYMTRKInPut.Create(Application); + with frmYMTRKInPut do + begin + PState := 0; + FBCId := ''; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmYMTRKInPut.Free; + end; +end; + +procedure TfrmYMTJGWCList.SPSpecChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYMTJGWCList.FactoryNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYMTJGWCList.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 TfrmYMTJGWCList.ToolButton2Click(Sender: TObject); +var + MPrintJson, JsonResult, MFiltration: string; +begin + if CDS_Main.IsEmpty then + Exit; + MFiltration := Trim(CDS_Main.fieldbyname('SPID').AsString); + MPrintJson := '{ "LBName": "ǩӡ","QrCodeField": "MXID","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "", "PrtArgs": [ {"SqlStr": "EXEC P_YMT_CK_MX_Prt1 ''' + MFiltration + ''' " }] }'; + FunPrint(Application, PChar(MPrintJson)); + +end; + +end. + diff --git a/云翔一码通/U_YMTRKInPut.pas b/云翔一码通/U_YMTRKInPut.pas index 17aaa78..35bbc15 100644 --- a/云翔一码通/U_YMTRKInPut.pas +++ b/云翔一码通/U_YMTRKInPut.pas @@ -196,9 +196,10 @@ begin end; SCreateCDS20(ADOQueryTemp, CDS_Sub); SInitCDSData20(ADOQueryTemp, CDS_Sub); - if CDS_Sub.IsEmpty then Exit; + + InitMXGrid(CDS_Sub.fieldbyname('SPID').AsString); with ADOQueryTemp do begin Close; diff --git a/云翔一码通/U_YMTRKList.dfm b/云翔一码通/U_YMTRKList.dfm index c70e05a..88d6313 100644 --- a/云翔一码通/U_YMTRKList.dfm +++ b/云翔一码通/U_YMTRKList.dfm @@ -1,6 +1,6 @@ object frmYMTRKList: TfrmYMTRKList - Left = 386 - Top = 376 + Left = 338 + Top = 426 Width = 1370 Height = 750 Caption = #38754#26009#22238#20179#30331#35760 @@ -23,7 +23,7 @@ object frmYMTRKList: TfrmYMTRKList Width = 1362 Height = 33 ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 107 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -70,16 +70,24 @@ object frmYMTRKList: TfrmYMTRKList ImageIndex = 11 OnClick = TBEditClick end - object TBDel: TToolButton + object TbEditKW: TToolButton Left = 252 Top = 0 AutoSize = True + Caption = #25209#37327#20462#25913#24211#20301 + ImageIndex = 11 + OnClick = TbEditKWClick + end + object TBDel: TToolButton + Left = 363 + Top = 0 + AutoSize = True Caption = #21024#38500 ImageIndex = 3 OnClick = TBDelClick end object TBExport: TToolButton - Left = 315 + Left = 426 Top = 0 AutoSize = True Caption = #23548#20986 @@ -87,7 +95,7 @@ object frmYMTRKList: TfrmYMTRKList OnClick = TBExportClick end object TBClose: TToolButton - Left = 378 + Left = 489 Top = 0 AutoSize = True Caption = #20851#38381 @@ -95,14 +103,14 @@ object frmYMTRKList: TfrmYMTRKList OnClick = TBCloseClick end object ToolButton1: TToolButton - Left = 441 + Left = 552 Top = 0 Caption = #39044#35272#25171#21360 ImageIndex = 4 OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 524 + Left = 659 Top = 0 Caption = #24555#36895#25171#21360 ImageIndex = 4 @@ -189,48 +197,27 @@ object frmYMTRKList: TfrmYMTRKList 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 + Left = 823 + Top = 37 Width = 48 Height = 12 Caption = #26579#21378#32568#21495 end object Label13: TLabel - Left = 843 + Left = 704 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 + Left = 704 + Top = 37 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 @@ -249,7 +236,7 @@ object frmYMTRKList: TfrmYMTRKList Date = 40768.458268587970000000 Time = 40768.458268587970000000 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - TabOrder = 8 + TabOrder = 7 end object SPName: TEdit Tag = 2 @@ -288,7 +275,7 @@ object frmYMTRKList: TfrmYMTRKList Width = 80 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - TabOrder = 10 + TabOrder = 9 OnChange = SPSpecChange end object SPCF: TEdit @@ -298,7 +285,7 @@ object frmYMTRKList: TfrmYMTRKList Width = 80 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - TabOrder = 11 + TabOrder = 10 OnChange = FactoryNameChange end object OrderNo: TEdit @@ -308,7 +295,7 @@ object frmYMTRKList: TfrmYMTRKList Width = 80 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - TabOrder = 12 + TabOrder = 11 OnChange = FactoryNameChange end object ToFactoryName: TEdit @@ -330,7 +317,7 @@ object frmYMTRKList: TfrmYMTRKList Style = csDropDownList ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ItemHeight = 12 - TabOrder = 9 + TabOrder = 8 OnChange = TBFindClick Items.Strings = ( '' @@ -342,9 +329,19 @@ object frmYMTRKList: TfrmYMTRKList #37319#36141#20837#24211 #27425#21697#20837#24211) end - object KuWei: TEdit + object RCGangNo: TEdit Tag = 2 - Left = 754 + Left = 874 + Top = 34 + Width = 80 + Height = 20 + ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + TabOrder = 12 + OnChange = FactoryNameChange + end + object SPColor: TEdit + Tag = 2 + Left = 729 Top = 9 Width = 80 Height = 20 @@ -352,61 +349,21 @@ object frmYMTRKList: TfrmYMTRKList TabOrder = 5 OnChange = FactoryNameChange end - object RCGangNo: TEdit + object SPHX: 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 + Left = 729 + Top = 34 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 = 1177 + Width = 1112 Height = 614 Align = alClient TabOrder = 2 @@ -450,6 +407,13 @@ object frmYMTRKList: TfrmYMTRKList Styles.IncSearch = DataLink_YXYMT.SHuangSe Styles.Selection = DataLink_YXYMT.SHuangSe Styles.Header = DataLink_YXYMT.Default + object Tv1SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 40 + end object v1Column6: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'SPID' @@ -662,19 +626,19 @@ object frmYMTRKList: TfrmYMTRKList end end object Panel2: TPanel - Left = 1177 + Left = 1112 Top = 105 - Width = 185 + Width = 250 Height = 614 Align = alRight Caption = 'Panel2' TabOrder = 3 object cxGrid1: TcxGrid - Left = -13 + Left = 1 Top = 71 - Width = 197 + Width = 248 Height = 542 - Align = alRight + Align = alClient TabOrder = 0 object TvMX: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -715,6 +679,13 @@ object frmYMTRKList: TfrmYMTRKList OptionsView.Indicator = True OptionsView.IndicatorWidth = 33 OnCustomDrawIndicatorCell = TvMXCustomDrawIndicatorCell + object TvMXSsel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 50 + end object TvMXMXID: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'MXID' @@ -738,7 +709,7 @@ object frmYMTRKList: TfrmYMTRKList object ToolBar2: TToolBar Left = 1 Top = 42 - Width = 183 + Width = 248 Height = 29 ButtonHeight = 30 ButtonWidth = 71 @@ -767,7 +738,7 @@ object frmYMTRKList: TfrmYMTRKList object Panel3: TPanel Left = 1 Top = 1 - Width = 183 + Width = 248 Height = 41 Align = alTop TabOrder = 2 @@ -797,6 +768,59 @@ object frmYMTRKList: TfrmYMTRKList end end end + object Panel4: TPanel + Left = 560 + Top = 140 + Width = 234 + Height = 125 + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label25: TLabel + Left = 38 + Top = 34 + Width = 24 + Height = 12 + Caption = #24211#20301 + end + object btnChk: TButton + Left = 28 + Top = 81 + Width = 60 + Height = 25 + Caption = #30830#35748 + TabOrder = 0 + OnClick = btnChkClick + end + object btn1: TButton + Left = 160 + Top = 80 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = btn1Click + end + object KuWei: TcxButtonEdit + Left = 75 + Top = 27 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = KuWeiPropertiesButtonClick + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -17 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 2 + Width = 121 + end + end object ADOQueryCmd: TADOQuery Connection = DataLink_YXYMT.ADOLink Parameters = <> diff --git a/云翔一码通/U_YMTRKList.pas b/云翔一码通/U_YMTRKList.pas index b078cba..99f12b7 100644 --- a/云翔一码通/U_YMTRKList.pas +++ b/云翔一码通/U_YMTRKList.pas @@ -24,7 +24,8 @@ uses dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, - dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator, cxCurrencyEdit; + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator, cxCurrencyEdit, + cxMaskEdit; type TfrmYMTRKList = class(TForm) @@ -94,21 +95,15 @@ type Label12: TLabel; CRType: TComboBox; v1Column18: TcxGridDBColumn; - Label10: TLabel; - KuWei: TEdit; v1Column19: TcxGridDBColumn; Label11: TLabel; RCGangNo: TEdit; Label13: TLabel; - PRTColor: TEdit; - Label14: TLabel; - SOrddefstr1: TEdit; + SPColor: TEdit; Label15: TLabel; - PRTHX: TEdit; + SPHX: TEdit; ADOQueryImage: TADOQuery; v1Column21: TcxGridDBColumn; - Label16: TLabel; - CustomerNoName: TEdit; cxGrid1: TcxGrid; TvMX: TcxGridDBTableView; TvMXMXQty: TcxGridDBColumn; @@ -127,6 +122,14 @@ type AddNum: TEdit; Label17: TLabel; Button1: TButton; + TvMXSsel: TcxGridDBColumn; + TbEditKW: TToolButton; + Tv1SSel: TcxGridDBColumn; + Panel4: TPanel; + Label25: TLabel; + btnChk: TButton; + btn1: TButton; + KuWei: TcxButtonEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -151,6 +154,10 @@ type procedure TbAddRowClick(Sender: TObject); procedure TbDeleteRowClick(Sender: TObject); procedure Button1Click(Sender: TObject); + procedure TbEditKWClick(Sender: TObject); + procedure KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure btnChkClick(Sender: TObject); + procedure btn1Click(Sender: TObject); private canshu1, canshu2: string; procedure InitGrid(); @@ -167,7 +174,8 @@ var implementation uses - U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun; + U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun, + U_ZDYHelp; {$R *.dfm} procedure TfrmYMTRKList.InitMXGrid(SPID: string); @@ -380,6 +388,8 @@ begin end; procedure TfrmYMTRKList.TBEditClick(Sender: TObject); +var + OldSPID: string; // ڱ浱ǰеSPID begin if CDS_Main.IsEmpty then Exit; @@ -389,18 +399,27 @@ begin Exit; end; try + OldSPID := Trim(CDS_Main.fieldbyname('SPID').AsString); frmYMTRKInPut := TfrmYMTRKInPut.Create(Application); with frmYMTRKInPut do begin PState := 1; - FBCId := Trim(CDS_Main.fieldbyname('SPID').AsString); + FBCId := OldSPID; TBDel.Visible := False; TBAdd.Visible := False; if ShowModal = 1 then begin - Self.InitGrid(); + end; end; + InitGrid(); + // ¶λԭ + if not CDS_Main.Locate('SPID', OldSPID, []) then + begin + // Ҳԭ¼类ɾλһ¼ + if not CDS_Main.IsEmpty then + CDS_Main.First; + end; finally frmYMTRKInPut.Free; end; @@ -453,10 +472,19 @@ end; procedure TfrmYMTRKList.ToolButton1Click(Sender: TObject); var FPrintJson, JsonResult, MFiltration: string; + RTValues: TStringArray; begin if CDS_Main.IsEmpty then Exit; - MFiltration := Trim(CDS_Main.fieldbyname('SPID').AsString); + if CDS_MX.Locate('SSel', True, []) then + begin + RTValues := SelCDSKey(CDS_MX, ['MXID']); + MFiltration := RTValues[0]; + end + else + begin + MFiltration := Trim(CDS_Main.fieldbyname('SPID').AsString); + end; FPrintJson := '{ "LMType": "LMType","QrCodeField": "MXID","PreviewPrint": true,"DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '", "PrtArgs": [ { "IsSql": true, "Filtration": " ' + MFiltration + '" }] }'; FormPrint(Application, PChar(FPrintJson)); @@ -576,5 +604,76 @@ begin end; end; +procedure TfrmYMTRKList.TbEditKWClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + Panel4.Visible := True; +end; + +procedure TfrmYMTRKList.KuWeiPropertiesButtonClick(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_Main do + begin + Edit; + KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmYMTRKList.btnChkClick(Sender: TObject); +begin + if CDS_Main.IsEmpty then + exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + application.MessageBox('ѡݣ', 'ʾϢ'); + exit; + end; + + try + while CDS_Main.Locate('SSel', True, []) do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YMT_CK_CR SET KuWei=' + quotedstr(trim(KuWei.Text))); + sql.Add('where SPID=' + quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString))); + execsql; + end; + with CDS_Main do + begin + Edit; + FieldByName('SSel').Value := False; + FieldByName('KuWei').Value := trim(KuWei.Text); + Post; + end; + end; + + Panel4.Visible := False; + application.MessageBox('޸ijɹ', 'ʾϢ'); + except + application.MessageBox('޸ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmYMTRKList.btn1Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + end. diff --git a/云翔一码通/YXYMT.dpr b/云翔一码通/YXYMT.dpr index 84a51f1..5b236ae 100644 --- a/云翔一码通/YXYMT.dpr +++ b/云翔一码通/YXYMT.dpr @@ -24,7 +24,9 @@ uses U_LabelMapSet in '..\A00ǩӡ\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelPrint in '..\A00ǩӡ\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrintFun in '..\A00ǩӡ\U_LabelPrintFun.pas', - U_QrCodeFun in '..\A00ǩӡ\U_QrCodeFun.pas'; + U_QrCodeFun in '..\A00ǩӡ\U_QrCodeFun.pas', + U_YMTFHDataList in 'U_YMTFHDataList.pas' {frmYMTFHDataList}, + U_YMTJGWCList in 'U_YMTJGWCList.pas' {frmYMTJGWCList}; {$R *.res} diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPDJList.pas b/云翔生产管理(MYSC.dll)/U_ZHCPDJList.pas index 1e9da71..701aaf1 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPDJList.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHCPDJList.pas @@ -6,26 +6,26 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage,StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, - dxSkinSpringTime, - dxSkinsDefaultPainters, - dxSkinscxPCPainter; + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, + cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxImage, StrUtils, cxLookAndFeels, + 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 TfrmZHCPDJList = class(TForm) @@ -105,15 +105,15 @@ type procedure BJClick(Sender: TObject); procedure KHNameChange(Sender: TObject); private - canshu1,canshu2:string; - DQdate:TDateTime; + canshu1, canshu2: string; + DQdate: TDateTime; procedure InitGrid(); procedure InitForm(); - function DelData():Boolean; - function StrFenHang(FStr:string;var FHStr:String):Boolean; + function DelData(): Boolean; + function StrFenHang(FStr: string; var FHStr: string): Boolean; { Private declarations } public - FFInt,FCloth:Integer; + FFInt, FCloth: Integer; { Public declarations } end; @@ -122,8 +122,9 @@ type //frmZHCPList: TfrmZHCPList; implementation + uses - U_DataLink,U_RTFun,U_ZHDJInPut,U_KWView; + U_DataLink, U_RTFun, U_ZHDJInPut, U_KWView; {$R *.dfm} @@ -132,108 +133,107 @@ begin //frmZHCPList:=nil; end; -procedure TfrmZHCPDJList.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmZHCPDJList.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmZHCPDJList.FormCreate(Sender: TObject); begin - cxgrid1.Align:=alClient; + cxgrid1.Align := alClient; end; procedure TfrmZHCPDJList.TBCloseClick(Sender: TObject); begin - if Trim(Self.Caption)='չǼ*' then + if Trim(Self.Caption) = 'չǼ*' then begin - WriteCxGrid('չǼYX',Tv1,'չƷ'); - end else - if Trim(Self.Caption)='չᱨ*' then + WriteCxGrid('չǼYX', Tv1, 'չƷ'); + end + else if Trim(Self.Caption) = 'չᱨ*' then begin - WriteCxGrid('չᱨYX',Tv1,'չƷ'); - end else - if Trim(Self.Caption)='չǼ(Ȩ)*' then + WriteCxGrid('չᱨYX', Tv1, 'չƷ'); + end + else if Trim(Self.Caption) = 'չǼ(Ȩ)*' then begin - WriteCxGrid('չǼ(Ȩ)YX',Tv1,'չƷ'); + WriteCxGrid('չǼ(Ȩ)YX', Tv1, 'չƷ'); end; Close; end; procedure TfrmZHCPDJList.InitGrid(); begin - Panel2.Visible:=True; + Panel2.Visible := True; Panel2.Refresh; try ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add(' select A.* '); sql.Add(' from ZH_KH_DJ A '); sql.Add(' where Valid=''Y'' '); - sql.Add(' and ZDDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); - sql.Add(' and ZDDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); - if Trim(canshu2)<>'Ȩ' then + sql.Add(' and ZDDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and ZDDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + if Trim(canshu2) <> 'Ȩ' then begin - SQL.Add(' and (isnull(YWY,'''')='''+Trim(DName)+''' or isnull(LiDan,'''')='''+Trim(DName)+''' or isnull(Filler,'''')='''+Trim(DName)+''')'); + SQL.Add(' and (isnull(YWY,'''')=''' + Trim(DName) + ''' or isnull(LiDan,'''')=''' + Trim(DName) + ''' or isnull(Filler,'''')=''' + Trim(DName) + ''')'); end; Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; - Panel2.Visible:=False; + Panel2.Visible := False; end; - procedure TfrmZHCPDJList.InitForm(); begin - BegDate.Date:=SGetServerDateMBeg(ADOQueryTemp); - EndDate.Date:=SGetServerDate(ADOQueryTemp); - if Trim(Self.Caption)='۵Ǽ*' then + BegDate.Date := SGetServerDateMBeg(ADOQueryTemp); + EndDate.Date := SGetServerDate(ADOQueryTemp); + if Trim(Self.Caption) = '۵Ǽ*' then begin - ReadCxGrid('չǼYX',Tv1,'չƷ'); - TBAdd.Visible:=True; - TBEdit.Visible:=True; + ReadCxGrid('չǼYX', Tv1, 'չƷ'); + TBAdd.Visible := True; + TBEdit.Visible := True; // TBDel.Visible:=True; - end else - if Trim(Self.Caption)='۹*' then + end + else if Trim(Self.Caption) = '۹*' then begin - ReadCxGrid('չᱨYX',Tv1,'չƷ'); - TBAdd.Visible:=True; - TBEdit.Visible:=True; - TBDel.Visible:=True; - BJ.Visible:=True; - canshu2:='Ȩ'; - end else - if Trim(Self.Caption)='۵Ǽ(Ȩ)*' then + ReadCxGrid('չᱨYX', Tv1, 'չƷ'); + TBAdd.Visible := True; + TBEdit.Visible := True; + TBDel.Visible := True; + BJ.Visible := True; + canshu2 := 'Ȩ'; + end + else if Trim(Self.Caption) = '۵Ǽ(Ȩ)*' then begin - ReadCxGrid('չǼ(Ȩ)YX',Tv1,'չƷ'); - TBAdd.Visible:=True; - TBEdit.Visible:=True; - TBDel.Visible:=True; - canshu2:='Ȩ'; + ReadCxGrid('չǼ(Ȩ)YX', Tv1, 'չƷ'); + TBAdd.Visible := True; + TBEdit.Visible := True; + TBDel.Visible := True; + canshu2 := 'Ȩ'; end; //InitGrid(); end; procedure TfrmZHCPDJList.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; -function TfrmZHCPDJList.DelData():Boolean; +function TfrmZHCPDJList.DelData(): Boolean; begin try - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; Order_Main.DisableControls; with Order_Main do @@ -245,8 +245,8 @@ begin begin Close; sql.Clear; - sql.Add(' UPdate ZH_KH_DJ Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+''', Valid=''N'' '); - sql.Add(' where ZDID='''+Trim(Order_Main.fieldbyname('ZDID').AsString)+''''); + sql.Add(' UPdate ZH_KH_DJ Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + ''', Valid=''N'' '); + sql.Add(' where ZDID=''' + Trim(Order_Main.fieldbyname('ZDID').AsString) + ''''); ExecSQL; end; Order_Main.Delete; @@ -254,63 +254,68 @@ begin end; Order_Main.EnableControls; - ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except ADOQueryCmd.Connection.RollbackTrans; - Result:=False; - Application.MessageBox('ɾ쳣','ʾ',0); + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; -function TfrmZHCPDJList.StrFenHang(FStr:string;var FHStr:String):Boolean; + +function TfrmZHCPDJList.StrFenHang(FStr: string; var FHStr: string): Boolean; var - i,j:Integer; - LSStr:String; + i, j: Integer; + LSStr: string; begin - Result:=False; - FStr:=Trim(FStr); - FHStr:=''; - j:=1; - i:=Pos(' ',FStr); - while i>0 do + Result := False; + FStr := Trim(FStr); + FHStr := ''; + j := 1; + i := Pos(' ', FStr); + while i > 0 do begin - if j=1 then + if j = 1 then begin - LSStr:=Copy(FStr,1,i-1); //'1234 5678 456' - FHStr:='1:'+LSStr; - end else + LSStr := Copy(FStr, 1, i - 1); //'1234 5678 456' + FHStr := '1:' + LSStr; + end + else begin - LSStr:=Copy(FStr,1,i-1); - if Trim(LSStr)='' then + LSStr := Copy(FStr, 1, i - 1); + if Trim(LSStr) = '' then begin - Fstr:=Copy(Fstr,i+1,Length(Fstr)-i); - end else - FHStr:=FHStr+#13+#10+inttostr(j)+':'+LSStr; + FStr := Copy(FStr, i + 1, Length(FStr) - i); + end + else + FHStr := FHStr + #13 + #10 + inttostr(j) + ':' + LSStr; end; - if Trim(LSStr)<>'' then + if Trim(LSStr) <> '' then begin - j:=j+1; - Fstr:=Copy(Fstr,i+1,Length(Fstr)-i); + j := j + 1; + FStr := Copy(FStr, i + 1, Length(FStr) - i); end; - i:=Pos(' ',FStr); + i := Pos(' ', FStr); end; - if j=1 then + if j = 1 then begin - FHStr:=FStr; - end else + FHStr := FStr; + end + else begin - if Trim(FStr)<>'' then + if Trim(FStr) <> '' then begin - FHStr:=FHStr+#13+#10+inttostr(j)+':'+FStr; + FHStr := FHStr + #13 + #10 + inttostr(j) + ':' + FStr; end; end; - Result:=True; + Result := True; end; + procedure TfrmZHCPDJList.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(Self.Caption,cxGrid1); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(Self.Caption, cxGrid1); end; procedure TfrmZHCPDJList.TBRafreshClick(Sender: TObject); @@ -318,17 +323,16 @@ begin InitGrid(); end; - procedure TfrmZHCPDJList.TBAddClick(Sender: TObject); begin try - frmZHDJInPut:=TfrmZHDJInPut.Create(Application); + frmZHDJInPut := TfrmZHDJInPut.Create(Application); with frmZHDJInPut do begin - PState:=0; - FMainId:=''; - frmZHDJInPut.canshu2:=Self.canshu2; - if ShowModal=1 then + PState := 0; + FMainId := ''; + frmZHDJInPut.canshu2 := Self.canshu2; + if ShowModal = 1 then begin InitGrid(); end; @@ -354,21 +358,21 @@ begin end; procedure TfrmZHCPDJList.ToolButton1Click(Sender: TObject); - begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmZHDJInPut:=TfrmZHDJInPut.Create(Application); + frmZHDJInPut := TfrmZHDJInPut.Create(Application); with frmZHDJInPut do begin - PState:=1; - FMainId:=Trim(Order_Main.fieldbyname('ZDID').AsString); - TBSave.Visible:=False; - if Trim(self.Caption)='չᱨ*' then + PState := 1; + FMainId := Trim(Order_Main.fieldbyname('ZDID').AsString); + TBSave.Visible := False; + if Trim(self.Caption) = 'չᱨ*' then begin - frmZHDJInPut.canshu1:=''; + frmZHDJInPut.canshu1 := ''; end; - if ShowModal=1 then + if ShowModal = 1 then begin //InitGrid(); end; @@ -380,16 +384,19 @@ end; procedure TfrmZHCPDJList.CustomerNoNameChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmZHCPDJList.TBDelClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Order_Main.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; if DelData() then begin //Order_Main.Delete; @@ -418,18 +425,19 @@ end; procedure TfrmZHCPDJList.TBEditClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmZHDJInPut:=TfrmZHDJInPut.Create(Application); + frmZHDJInPut := TfrmZHDJInPut.Create(Application); with frmZHDJInPut do begin - PState:=1; - FMainId:=Trim(Order_Main.fieldbyname('ZDID').AsString); - frmZHDJInPut.canshu2:=Self.canshu2; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Order_Main.fieldbyname('ZDID').AsString); + frmZHDJInPut.canshu2 := Self.canshu2; + if ShowModal = 1 then begin InitGrid(); - Self.Order_Main.Locate('ZDID',FMainId,[]); + Self.Order_Main.Locate('ZDID', FMainId, []); end; end; finally @@ -439,23 +447,24 @@ end; procedure TfrmZHCPDJList.BJClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmZHDJInPut:=TfrmZHDJInPut.Create(Application); + frmZHDJInPut := TfrmZHDJInPut.Create(Application); with frmZHDJInPut do begin - PState:=1; - FMainId:=Trim(Order_Main.fieldbyname('ZDID').AsString); - frmZHDJInPut.canshu1:=''; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Order_Main.fieldbyname('ZDID').AsString); + frmZHDJInPut.canshu1 := ''; + if ShowModal = 1 then begin InitGrid(); - Self.Order_Main.Locate('ZDID',FMainId,[]); + Self.Order_Main.Locate('ZDID', FMainId, []); end; end; finally frmZHDJInPut.Free; - end; + end; end; procedure TfrmZHCPDJList.KHNameChange(Sender: TObject); @@ -464,3 +473,4 @@ begin end; end. + diff --git a/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas b/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas index d198836..5abe10e 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas @@ -13,20 +13,19 @@ uses IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IniFiles, cxImage, Menus, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxSkinsCore, - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, dxSkinSpringTime, - dxSkinsDefaultPainters, - - dxSkinscxPCPainter; + 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 TfrmZHDJInPut = class(TForm)