diff --git a/云翔一码通/U_GetDllForm.pas b/云翔一码通/U_GetDllForm.pas index 7f6e16d..0e46c89 100644 --- a/云翔一码通/U_GetDllForm.pas +++ b/云翔一码通/U_GetDllForm.pas @@ -13,7 +13,7 @@ function ConnData(): Boolean; implementation uses - U_DataLink, U_YMTRKList; + U_DataLink, U_YMTRKList, U_YMTFHSQList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -120,10 +120,10 @@ begin 211: // begin - if frmYMTRKList = nil then + if frmYMTFHSQList = nil then begin - frmYMTRKList := TfrmYMTRKList.Create(application.MainForm); - with frmYMTRKList do + frmYMTFHSQList := TfrmYMTFHSQList.Create(application.MainForm); + with frmYMTFHSQList do begin caption := Trim(Title); FormStyle := mstyle; @@ -133,9 +133,9 @@ begin end; end else - frmYMTRKList.BringToFront; + frmYMTFHSQList.BringToFront; // - mnewHandle := frmYMTRKList.Handle; + mnewHandle := frmYMTFHSQList.Handle; end; end; diff --git a/云翔一码通/U_YMTFHSQInPut.dfm b/云翔一码通/U_YMTFHSQInPut.dfm new file mode 100644 index 0000000..c3cee3b --- /dev/null +++ b/云翔一码通/U_YMTFHSQInPut.dfm @@ -0,0 +1,437 @@ +object frmFHSQInPut: TfrmFHSQInPut + Left = 566 + Top = 255 + Width = 1113 + Height = 664 + Caption = #21457#36135#30003#35831#24405#20837 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1105 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Images = DataLink_YXYMT.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object TBClose: TToolButton + Left = 79 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 29 + Width = 1105 + Height = 111 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Color = clBtnFace + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label1: TLabel + Tag = 1 + Left = 33 + Top = 12 + Width = 90 + Height = 17 + Caption = #20986#24211#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Tag = 1 + Left = 39 + Top = 78 + Width = 84 + Height = 17 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Tag = 1 + Left = 380 + Top = 12 + Width = 90 + Height = 17 + Caption = #25910#36135#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Tag = 1 + Left = 380 + Top = 43 + Width = 90 + Height = 17 + Caption = #30003#35831#26085#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Tag = 1 + Left = 51 + Top = 43 + Width = 72 + Height = 17 + Caption = #19994#21153#21592#65306 + 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 + Top = 8 + Width = 250 + Height = 25 + Style = csDropDownList + 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 + ItemHeight = 17 + ParentFont = False + TabOrder = 0 + Items.Strings = ( + #38144#21806#20869#38144 + #21152#24037#20869#38144 + #38144#21806#22806#38144 + #21152#24037#22806#38144 + #21152#24037#20986#24211 + #20854#20182#20986#24211) + end + object Note: TEdit + Tag = 1 + Left = 115 + Top = 75 + Width = 714 + 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 = 4 + end + object SHDanWei: TBtnEditC + Tag = 1 + Left = 455 + Top = 7 + Width = 373 + Height = 26 + Hint = 'KHNo' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 1 + OnBtnUpClick = SHDanWeiBtnUpClick + OnBtnDnClick = SHDanWeiBtnDnClick + end + object SQDate: TDateTimePicker + Tag = 1 + Left = 455 + Top = 39 + Width = 130 + Height = 25 + BevelInner = bvNone + Date = 43473.670856296290000000 + Format = 'yyyy-MM-dd' + Time = 43473.670856296290000000 + Checked = False + 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 = 2 + end + object Salesman: TBtnEditC + Tag = 1 + Left = 115 + Top = 38 + Width = 135 + Height = 26 + 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 = 3 + OnBtnUpClick = SalesmanBtnUpClick + OnBtnDnClick = SalesmanBtnDnClick + end + end + object ToolBar2: TToolBar + Left = 0 + Top = 140 + Width = 1105 + Height = 29 + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Images = DataLink_YXYMT.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #35745#21010#21333 + ImageIndex = 57 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 99 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 113 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 169 + Width = 1105 + Height = 464 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1PRTColor + end + item + Kind = skSum + Column = v1Column5 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_YXYMT.Default + Styles.Inactive = DataLink_YXYMT.SHuangSe + Styles.IncSearch = DataLink_YXYMT.SHuangSe + Styles.Selection = DataLink_YXYMT.SHuangSe + Styles.Header = DataLink_YXYMT.Default + object v1Column14: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'SCConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 130 + end + object v1Column6: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MXPrtName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 110 + end + object v1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MXPrtColor' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column2: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'MXPrtHX' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1PRTColor: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Styles.Header = DataLink_YXYMT.Default + Width = 115 + end + object v1Column4: TcxGridDBColumn + Caption = #30003#35831#25968#37327'(M)' + DataBinding.FieldName = 'SQQtyM' + Width = 125 + end + object v1Column3: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column10: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v1Column10PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 107 + end + object v1Column5: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + Width = 106 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOTemp: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 200 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 168 + Top = 65533 + end + object DataSource1: TDataSource + DataSet = Order_Sub + Left = 768 + Top = 392 + end + object Order_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 728 + Top = 392 + end + object ADOQuery1: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 136 + Top = 65533 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 688 + Top = 392 + end +end diff --git a/云翔一码通/U_YMTFHSQInPut.pas b/云翔一码通/U_YMTFHSQInPut.pas new file mode 100644 index 0000000..29d1e36 --- /dev/null +++ b/云翔一码通/U_YMTFHSQInPut.pas @@ -0,0 +1,545 @@ +unit U_YMTFHSQInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, 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 + TfrmFHSQInPut = class(TForm) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + v1PRTColor: TcxGridDBColumn; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DataSource1: TDataSource; + Order_Sub: TClientDataSet; + ADOQuery1: TADOQuery; + v1Column14: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; + Label1: TLabel; + CRType: TComboBox; + Note: TEdit; + Label12: TLabel; + Label11: TLabel; + SHDanWei: TBtnEditC; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + SQDate: TDateTimePicker; + Label5: TLabel; + Salesman: TBtnEditC; + v1Column1: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + ToolButton3: TToolButton; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure SHDanWeiBtnUpClick(Sender: TObject); + procedure SHDanWeiBtnDnClick(Sender: TObject); + procedure ShouKuanKeyPress(Sender: TObject; var Key: Char); + procedure SalesmanBtnUpClick(Sender: TObject); + procedure SalesmanBtnDnClick(Sender: TObject); + procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton3Click(Sender: TObject); + private + fuserName: string; + procedure InitData(); + procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); + function SaveData(): Boolean; + { Private declarations } + public + PState, CopyInt: Integer; + FMainId, FFMainId, ChkStr, ConPriceStr: string; + FXS: Integer; + FZZType: string; + { Public declarations } + end; + +var + frmFHSQInPut: TfrmFHSQInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_RTFun, U_YMTKHList, U_YMTOrderSel, U_YMTGYSList; + +{$R *.dfm} + +procedure TfrmFHSQInPut.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('¼1', Tv1, ''); +end; + +procedure TfrmFHSQInPut.InitData(); +var + fsj: string; +begin +// fsj:='select Name=ZdyName from KH_Zdy where Type=''ClothType'' '; +// SInitComBoxBySql(ADOTemp,ClothType,False,fsj); + if PState = 0 then + begin + Salesman.Text := dname; + SQDate.DateTime := SGetServerDate10(ADOTemp); + end; + with ADOQuery1 do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from YMT_FHSQ_Sub A'); + if PState = 1 then + begin + sql.Add('where FSId=''' + Trim(FMainId) + ''''); + end; + if PState = 0 then + begin + sql.Add(' where 1<>1'); + + end; + Open; + end; + SCreateCDS20(ADOQuery1, Order_Sub); + SInitCDSData20(ADOQuery1, Order_Sub); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select A.* from YMT_FHSQ_Main A'); + sql.Add(' where FSId=''' + Trim(FMainId) + ''' '); + Open; + end; + SCSHDataNew(ADOQuery1, ScrollBox1, 1); +end; + +procedure TfrmFHSQInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string); +var + FType, ZDYName, FText: string; +begin +end; + +procedure TfrmFHSQInPut.FormShow(Sender: TObject); +begin + readCxGrid('¼1', Tv1, ''); + InitData(); +end; + +function TfrmFHSQInPut.SaveData(): Boolean; +var + maxno, maxmnno, FSSId: string; + fconNO, fmxType: string; +begin + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId) = '' then + begin + if GetLSNoHZ(ADOCmd, maxno, 'NK', 'YMT_FHSQ_Main', 3, 1, 3) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from YMT_FHSQ_Main where FSID=''' + Trim(FMainId) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMainId) = '' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('SQType').Value := 'Ʒ'; + FieldByName('FSID').Value := Trim(maxno); + RTSetsavedata(ADOCmd, 'YMT_FHSQ_Main', ScrollBox1, 1); + + if Trim(FMainId) = '' then + begin + FieldByName('Filler').Value := Trim(DName); + + end + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + + Post; + end; + + FMainId := Trim(maxno); + ///ӱ + Order_Sub.DisableControls; + with Order_Sub do + begin + First; + while not Eof do + begin + if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then + begin + if GetLSNo(ADOCmd, maxno, 'SS', 'YMT_FHSQ_Sub', 4, 1) = False then + begin + Order_Sub.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(Order_Sub.fieldbyname('SSId').AsString); + end; + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YMT_FHSQ_Sub '); + sql.Add(' where SSId=''' + Trim(maxno) + ''''); + Open; + end; + if ADOCmd.IsEmpty then + begin + FSSId := ''; + end + else + begin + FSSId := Trim(maxno); + end; + with ADOCmd do + begin + if Trim(FSSId) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('FSID').Value := Trim(FMainId); + FieldByName('SSID').Value := Trim(maxno); + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'YMT_FHSQ_Sub', 0); + FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value; + FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value; + FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value; + FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value; + FieldByName('FHPrice').Value := Order_Sub.fieldbyname('FHPrice').Value; + FieldByName('BZType').Value := Order_Sub.fieldbyname('BZType').Value; + Post; + end; + Order_Sub.Edit; + Order_Sub.FieldByName('SSID').Value := Trim(maxno); + Next; + end; + end; + Order_Sub.EnableControls; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YMT_FHSQ_Main Set '); + sql.Add('SQPSHZ=(select Sum(SQPS) from YMT_FHSQ_Sub A where A.FSID=YMT_FHSQ_Main.FSID)'); + sql.Add(',SQQtyHZM=(select Sum(SQQtyM) from YMT_FHSQ_Sub A where A.FSID=YMT_FHSQ_Main.FSID)'); + sql.Add('where FSID=''' + Trim(FMainId) + ''''); + ExecSQL; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + Result := False; + end; +end; + +procedure TfrmFHSQInPut.TBSaveClick(Sender: TObject); +var + Freal: Double; +begin + ToolBar1.SetFocus; + + if Trim(CRType.Text) = '' then + begin + Application.MessageBox('ͲΪգ', 'ʾ', 0); + Exit; + end; + + if Order_Sub.IsEmpty then + begin + Application.MessageBox('ϸΪգ', 'ʾ', 0); + Exit; + end; + if Order_Sub.Locate('SQPS', null, []) = True then + begin + Application.MessageBox('ƥΪգ', 'ʾ', 0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + end; +end; + +procedure TfrmFHSQInPut.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + ''''); + sql.add(' and isnull(FHPS,0)>0'); + Open; + end; + if ADOTemp.IsEmpty = False then + begin + Application.MessageBox('ѷɾ!', 'ʾ', 0); + exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete YMT_FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + ''''); + ExecSQL; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('Update YMT_FHSQ_Main Set '); + sql.Add('SQPSHZ=(select Sum(SQPS) from YMT_FHSQ_Sub A where A.FSID=YMT_FHSQ_Main.FSID)'); + sql.Add('where FSID=''' + Trim(FMainId) + ''''); + ExecSQL; + end; + end; + Order_Sub.Delete; +end; + +procedure TfrmFHSQInPut.SHDanWeiBtnUpClick(Sender: TObject); +begin + + if CRType.Text = 'ӹ' then + begin + try + frmGYSList := TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal = 1 then + begin + Self.SHDanWei.Text := Trim(Order_Main.fieldbyname('KHNameJC').AsString); + Self.SHDanWei.TxtCode := Trim(Order_Main.fieldbyname('KHNo').AsString); + Self.Salesman.Text := Trim(Order_Main.fieldbyname('YWY').AsString); + end; + end; + finally + frmGYSList.Free; + end; + end + else + begin + try + frmKHList_CX := TfrmKHList_CX.Create(Application); + with frmKHList_CX do + begin +// if self.canshu1 <> 'Ȩ' then +// canshu1 := 'ҵԱ'; + if ShowModal = 1 then + begin + Self.SHDanWei.Text := Trim(CDS_HZ.fieldbyname('KHNameJC').AsString); + Self.SHDanWei.TxtCode := Trim(CDS_HZ.fieldbyname('KHNo').AsString); + Self.Salesman.Text := Trim(CDS_HZ.fieldbyname('YWY').AsString); + end; + end; + finally + frmKHList_CX.Free; + end; + end; +end; + +procedure TfrmFHSQInPut.SHDanWeiBtnDnClick(Sender: TObject); +begin + SHDanWei.Text := ''; +end; + +procedure TfrmFHSQInPut.ShouKuanKeyPress(Sender: TObject; var Key: Char); +begin + if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then + begin + Key := #0; + end + else if (pos('.', TEdit(Sender).text) <> 0) then + begin + if Key = '.' then + begin + Key := #0; + end; + end; +end; + +procedure TfrmFHSQInPut.SalesmanBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'Salesman'; + flagname := 'ҵԱ'; + if ShowModal = 1 then + begin + Self.Salesman.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFHSQInPut.SalesmanBtnDnClick(Sender: TObject); +begin + Salesman.Text := ''; +end; + +procedure TfrmFHSQInPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'FeeName'; + flagname := ''; + if ShowModal = 1 then + begin + with Order_Sub do + begin + Edit; + FieldByName('FeeName').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmFHSQInPut.ToolButton3Click(Sender: TObject); +begin + + try + frmOrderSel := TfrmOrderSel.Create(Application); + with frmOrderSel do + begin + + FKHNo := Trim(SHDanWei.TxtCode); +// FTT := Trim(FHTaiTou.text); + + if ShowModal = 1 then + begin + while frmOrderSel.CDS_Main.Locate('SSel', true, []) do + begin + if Trim(Self.SHDanWei.Text) = '' then + begin + SHDanWei.TxtCode := Trim(frmOrderSel.CDS_Main.fieldbyname('KHNO').AsString); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Main where KHNO=''' + Trim(SHDanWei.TxtCode) + ''''); + open; + end; + SHDanWei.Text := Trim(ADOQueryTemp.fieldbyname('KHNameJC').AsString); + end; + +// if Trim(Self.FHTaiTou.Text) = '' then +// begin +// FHTaiTou.Text := Trim(frmOrderSel.CDS_Main.fieldbyname('SYRName').AsString); +// end; + + if Self.Order_Sub.Locate('SubId;CPType', VarArrayOf([Trim(frmOrderSel.CDS_Main.fieldbyname('SubId').AsString), Trim(frmOrderSel.CDS_Main.fieldbyname('CPType').AsString)]), []) = False then + begin + with Self.Order_Sub do + begin + Append; + FieldByName('MainId').Value := frmOrderSel.CDS_Main.fieldbyname('MainId').Value; + FieldByName('SubId').Value := frmOrderSel.CDS_Main.fieldbyname('SubId').Value; + FieldByName('MXPrtName').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLCodeName').AsString); + FieldByName('MXPrtColor').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLColor').AsString); + FieldByName('MXPrtHX').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLHX').AsString); + FieldByName('SCConNo').Value := Trim(frmOrderSel.CDS_Main.fieldbyname('MLOrderNo').AsString); +// CRType.Text := Trim(frmOrderSel.CDS_Main.fieldbyname('CRType').AsString); + + CRType.ItemIndex := CRType.Items.IndexOf(trim(frmOrderSel.CDS_Main.fieldbyname('CRType').AsString)); + FieldByName('CPType').Value := 'Ʒ'; + FieldByName('SQPS').Value := 0; + FieldByName('SQQtyM').Value := 0; + FieldByName('BZType').Value := frmOrderSel.CDS_Main.fieldbyname('BZType').Value; + FieldByName('FHPrice').Value := frmOrderSel.CDS_Main.fieldbyname('MLPrice').Value; + FieldByName('FeeName').Value := frmOrderSel.CDS_Main.fieldbyname('FeeName').Value; + FieldByName('FeeMoney').Value := frmOrderSel.CDS_Main.fieldbyname('FeeMoney').Value; + Post; + end; + end; + frmOrderSel.CDS_Main.Delete; + end; + end; + end; + finally + frmOrderSel.Free; + end; +end; + +end. + diff --git a/云翔一码通/U_YMTFHSQList.dfm b/云翔一码通/U_YMTFHSQList.dfm new file mode 100644 index 0000000..e65224a --- /dev/null +++ b/云翔一码通/U_YMTFHSQList.dfm @@ -0,0 +1,886 @@ +object frmYMTFHSQList: TfrmYMTFHSQList + Left = 635 + Top = 231 + Width = 1308 + Height = 679 + Caption = #21457#36135#30003#35831 + 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 = 1300 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 115 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + 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 TBAdd: TToolButton + Left = 79 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 158 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 11 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #25209#37327#20462#25913 + ImageIndex = 11 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 356 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBDel: TToolButton + Left = 435 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 3 + OnClick = TBDelClick + end + object tchk: TToolButton + Left = 514 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 75 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 593 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 52 + OnClick = TnochkClick + end + object TBPrint: TToolButton + Left = 712 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 4 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 791 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 109 + Width = 1300 + Height = 281 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column18 + end + item + Kind = skSum + Column = v1Column19 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.Indicator = True + Styles.Content = DataLink_YXYMT.Default + Styles.Inactive = DataLink_YXYMT.SHuangSe + Styles.IncSearch = DataLink_YXYMT.SHuangSe + Styles.Selection = DataLink_YXYMT.SHuangSe + Styles.Header = DataLink_YXYMT.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 58 + end + object v1Column8: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'FSID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column21: TcxGridDBColumn + Caption = #21457#36135#25260#22836 + DataBinding.FieldName = 'FHTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 106 + end + object v1Column3: TcxGridDBColumn + Caption = #20986#24211#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object v1Column10: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'SHDanWei' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 107 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Salesman' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_YXYMT.Default + Width = 81 + end + object v1OrdDate: TcxGridDBColumn + Caption = #30003#35831#21457#36135#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Styles.Header = DataLink_YXYMT.Default + Width = 141 + end + object v1Column2: TcxGridDBColumn + Caption = #23454#38469#21457#36135#26085#26399 + DataBinding.FieldName = 'FHDate' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 146 + end + object v1Column11: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPSHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column1: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 78 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#26680#26085#26399 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column18: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPSHZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1Column19: TcxGridDBColumn + Caption = #21457#36135#31859#25968 + DataBinding.FieldName = 'FHQtyHZM' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Options.Editing = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1300 + Height = 77 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 15 + Width = 72 + Height = 17 + Caption = #30003#35831#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 274 + Top = 15 + Width = 72 + Height = 17 + Caption = #25910#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 292 + Top = 45 + Width = 54 + Height = 17 + Caption = #19994#21153#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 85 + Top = 45 + Width = 10 + Height = 17 + Caption = '-' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 469 + Top = 45 + Width = 72 + Height = 17 + Caption = #23457#26680#29366#24577 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 94 + Top = 11 + Width = 125 + Height = 25 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + 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 = 0 + OnChange = BegDateChange + end + object EndDate: TDateTimePicker + Left = 94 + Top = 41 + Width = 126 + Height = 25 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + 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 = 1 + OnChange = BegDateChange + end + object SHDanWei: TEdit + Tag = 2 + Left = 348 + Top = 11 + Width = 98 + Height = 25 + 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 = 2 + OnKeyPress = SHDanWeiKeyPress + end + object Salesman: TEdit + Tag = 2 + Left = 348 + Top = 41 + Width = 96 + Height = 25 + 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 = 3 + OnKeyPress = SHDanWeiKeyPress + end + object ComboBox1: TComboBox + Tag = 7 + Left = 543 + Top = 41 + Width = 101 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 17 + ItemIndex = 0 + ParentFont = False + TabOrder = 4 + OnChange = ComboBox1Change + Items.Strings = ( + '' + #26410#23457#26680 + #24050#23457#26680) + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 390 + Width = 1300 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Control = cxGrid2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 398 + Width = 1300 + Height = 250 + Align = alBottom + TabOrder = 4 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + Styles.Content = DataLink_YXYMT.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 = #25351#31034#21333#21495 + DataBinding.FieldName = 'SCConNo' + HeaderAlignmentHorz = taCenter + Width = 102 + end + object v2Column12: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MXPrtName' + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v2Column9: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MXPrtColor' + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v2Column10: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'MXPrtHX' + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v2Column6: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'CPType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + HeaderAlignmentHorz = taCenter + Width = 107 + end + object v2Column1: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + HeaderAlignmentHorz = taCenter + Width = 105 + end + object v2Column3: TcxGridDBColumn + Caption = #21457#36135#31859#25968 + DataBinding.FieldName = 'FHMQty' + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v2Column4: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v2Column5: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + Width = 98 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object Panel3: TPanel + Left = 488 + Top = 188 + Width = 234 + Height = 97 + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label25: TLabel + Left = 24 + Top = 12 + Width = 48 + Height = 12 + Caption = #20986#24211#31867#22411 + end + object btnChk: TButton + Left = 28 + Top = 57 + Width = 60 + Height = 25 + Caption = #30830#35748 + TabOrder = 0 + OnClick = btnChkClick + end + object Button3: TButton + Left = 160 + Top = 57 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button3Click + end + object CRType: TComboBox + Tag = 1 + Left = 79 + Top = 8 + Width = 139 + Height = 25 + Style = csDropDownList + 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 + ItemHeight = 17 + ParentFont = False + TabOrder = 2 + Items.Strings = ( + #38144#21806#20869#38144 + #21152#24037#20869#38144 + #38144#21806#22806#38144 + #21152#24037#22806#38144 + #21152#24037#20986#24211 + #20854#20182#20986#24211) + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1000 + Top = 184 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 488 + Top = 152 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 684 + Top = 144 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 968 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 532 + Top = 320 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 312 + Top = 256 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 375 + Top = 184 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_YXYMT.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 256 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 216 + Top = 200 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_YXYMT.ADOLink + Parameters = <> + Left = 720 + Top = 144 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 464 + Top = 504 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 496 + Top = 504 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 528 + Top = 504 + end + object CDS_Note: TClientDataSet + Aggregates = <> + Params = <> + Left = 408 + Top = 184 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 256 + ReportData = {} + end + object CDSUser: TClientDataSet + Aggregates = <> + Params = <> + Left = 440 + Top = 240 + end + object IdHTTP1: TIdHTTP + MaxLineAction = maException + ReadTimeout = 0 + AllowCookies = True + ProxyParams.BasicAuthentication = False + ProxyParams.ProxyPort = 0 + Request.ContentLength = -1 + Request.ContentRangeEnd = 0 + Request.ContentRangeStart = 0 + Request.ContentType = 'text/html' + Request.Accept = 'text/html, */*' + Request.BasicAuthentication = False + Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)' + HTTPOptions = [hoForceEncodeParams] + Left = 660 + Top = 308 + end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end +end diff --git a/云翔一码通/U_YMTFHSQList.pas b/云翔一码通/U_YMTFHSQList.pas new file mode 100644 index 0000000..36fbea1 --- /dev/null +++ b/云翔一码通/U_YMTFHSQList.pas @@ -0,0 +1,722 @@ +unit U_YMTFHSQList; + +interface + +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, cxPC, cxButtonEdit, + RM_E_llPDF, cxDropDownEdit, cxTextEdit, IdBaseComponent, IdComponent, + IdTCPConnection, IdTCPClient, IdHTTP, 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 + TfrmYMTFHSQList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + v1OrdDate: TcxGridDBColumn; + v1OrdPerson1: TcxGridDBColumn; + Order_Main: TClientDataSet; + RMDB_Main: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton1: TToolButton; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + SHDanWei: TEdit; + Salesman: TEdit; + tchk: TToolButton; + Tnochk: TToolButton; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + v1Column8: TcxGridDBColumn; + Label2: TLabel; + //RMllPDFExport1: TRMllPDFExport; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v1Column5: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_Note: TClientDataSet; + v2Column2: TcxGridDBColumn; + RM1: TRMGridReport; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + CDSUser: TClientDataSet; + IdHTTP1: TIdHTTP; + v2Column6: TcxGridDBColumn; + ComboBox1: TComboBox; + Label3: TLabel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + v1Column3: TcxGridDBColumn; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + ToolButton2: TToolButton; + Panel3: TPanel; + Label25: TLabel; + btnChk: TButton; + Button3: TButton; + CRType: TComboBox; + v1Column6: TcxGridDBColumn; + //RMllPDFExport1: TRMllPDFExport; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ComboBox1Change(Sender: TObject); + procedure BegDateChange(Sender: TObject); + procedure SHDanWeiKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton2Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure btnChkClick(Sender: TObject); + private + procedure InitGrid(); + procedure InitSubGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure SendMessage(Mfsid: string); + { Private declarations } + public + FFInt: Integer; + canshu1, FZZType: string; + { Public declarations } + end; + +var + frmYMTFHSQList: TfrmYMTFHSQList; + +implementation + +uses + U_DataLink, U_YMTFHSQInPut, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmYMTFHSQList.SendMessage(Mfsid: string); +begin + if FZZType = 'γ' then + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from SY_User A where ISNULL(wxid,'''')<>'''''); + SQL.Add(' and exists( select * from SY_Purview X where A.UserID=X.UserID and ModuleID=''09'' and ModuleSubID=''03'' ) '); + Open; + end; + end + else + begin + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from SY_User A where ISNULL(wxid,'''')<>'''''); + SQL.Add(' and exists( select * from SY_Purview X where A.UserID=X.UserID and ModuleID=''09'' and ModuleSubID=''13'' ) '); + Open; + end; + end; + SCreateCDS20(ADOQueryTemp, CDSUser); + SInitCDSData20(ADOQueryTemp, CDSUser); + +// if ADOQueryTmp.IsEmpty then +// begin +// Application.MessageBox('ͻδ΢,ύʧܣ','ʾϢ',0); +// Exit; +// end; + + CDSUser.First; + while not CDSUser.Eof do + begin + try + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('select * from WeixinMessage where 1<>1'); + Open; + Append; + FieldByName('MessageType').Value := 'DeliverApplyToAudit'; + FieldByName('MessageName').Value := ''; + FieldByName('Title').Value := 'µķҪ'; + FieldByName('URL').Value := 'pages/delivery-apply/view?id=' + Trim(Mfsid); + FieldByName('OpenId').Value := Trim(CDSUser.FieldByName('wxid').AsString); + FieldByName('Status').Value := '0'; + FieldByName('CreateDate').Value := FormatDateTime('yyyymmdd', SGetServerDateTime(ADOQueryTemp)); + FieldByName('CreateTime').Value := FormatDateTime('HH:mm:ss', SGetServerDateTime(ADOQueryTemp)); + FieldByName('BusinessId').Value := Trim(Mfsid); + FieldByName('KeyWord1').Value := Trim(Mfsid); + FieldByName('KeyWord2').Value := ''; + Post; + end; + //GetHTTP(IdHTTP1, 'http://www.rightsoft.top/linghui/api/Message/Send/DeliverApplyToAudit'); + except + Application.MessageBox('ʧ', 'ʾ', 0); + Exit; + end; + CDSUser.Next; + end; +end; + +procedure TfrmYMTFHSQList.FormDestroy(Sender: TObject); +begin + frmYMTFHSQList := nil; +end; + +procedure TfrmYMTFHSQList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmYMTFHSQList.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; + canshu1 := DParameters1; +end; + +procedure TfrmYMTFHSQList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('YX', Tv1, ''); + WriteCxGrid('YXMX', Tv2, ''); +end; + +procedure TfrmYMTFHSQList.InitGrid(); +var + fwhere, Pwhere: string; +begin + Pwhere := SGetFilters(Panel1, 1, 2); + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + Sql.Add(' select A.* from YMT_FHSQ_Main A'); + sql.Add(' where 1=1 '); + + sql.Add(' and filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and filltime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + + if ComboBox1.Text = 'δ' then + begin + SQL.Add(' and isnull(A.Chker,'''')='''' '); + end + else if ComboBox1.Text = '' then + begin + SQL.Add(' and isnull(A.Chker,'''')<>'''' '); + end; + + if Trim(canshu1) <> 'Ȩ' then + begin + sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); + end; + if Pwhere <> '' then + sql.Add(' and ' + Pwhere); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYMTFHSQList.InitForm(); +begin + + ReadCxGrid('YX', Tv1, ''); + ReadCxGrid('YXMX', Tv2, ''); + + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + InitGrid(); + +end; + +procedure TfrmYMTFHSQList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if trim(Order_Main.fieldbyname('Chker').AsString) <> '' then + begin + application.MessageBox('޷ɾ', 'ʾϢ'); + exit; + end; + if Trim(canshu1) <> 'Ȩ' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YMT_FHSQ_Main'); + sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then + begin + Application.MessageBox('Ӧ˿޸!', 'ʾ', 0); + Exit; + end; + try + frmFHSQInPut := TfrmFHSQInPut.Create(Application); + with frmFHSQInPut do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString); + FZZType := trim(self.FZZType); + if ShowModal = 1 then + begin + + end; + end; + finally + frmFHSQInPut.Free; + end; +end; + +procedure TfrmYMTFHSQList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if trim(Order_Main.fieldbyname('Chker').AsString) <> '' then + begin + application.MessageBox('޷ɾ', 'ʾϢ'); + exit; + end; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YMT_FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + sql.add(' and isnull(FHPS,0)>0'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('ѷɾ!', 'ʾ', 0); + exit; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YMT_FHSQ_Main'); + sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then + begin + Application.MessageBox('Ӧ˿ɾ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + Order_Main.Delete; + InitSubGrid(); + end; +end; + +function TfrmYMTFHSQList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YMT_FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YMT_FHSQ_Main where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmYMTFHSQList.TBPrintClick(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + Sql.Add(' select A.*,B.* '); + sql.Add(' from YMT_FHSQ_Main A inner join YMT_FHSQ_Sub B on A.FSId=B.FSId '); + sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + open; +// showmessage(sql.text); + end; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\뵥.rmf'; + if FileExists(fPrintFile) then + begin + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(Order_Main.fieldbyname('FSID').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + RMVariables['QRBARCODE'] := fImagePath; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\뵥.rmf'), 'ʾ', 0); + end; +end; + +procedure TfrmYMTFHSQList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + InitSubGrid(); +end; + +procedure TfrmYMTFHSQList.TBAddClick(Sender: TObject); +var + maxno: string; +begin + try + frmFHSQInPut := TfrmFHSQInPut.Create(Application); + with frmFHSQInPut do + begin + PState := 0; + FMainId := ''; + FZZType := trim(self.FZZType); + if ShowModal = 1 then + begin + + end; + end; + finally + frmFHSQInPut.Free; + end; + InitGrid(); +end; + +procedure TfrmYMTFHSQList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmYMTFHSQList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYMTFHSQList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmYMTFHSQList.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmFHSQInPut := TfrmFHSQInPut.Create(Application); + with frmFHSQInPut do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString); + FZZType := trim(self.FZZType); + ToolBar2.Visible := False; + TBSave.Visible := False; + ScrollBox1.Enabled := False; + Tv1.OptionsSelection.CellSelect := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmFHSQInPut.Free; + end; +end; + +procedure TfrmYMTFHSQList.tchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if trim(Order_Main.fieldbyname('Chker').AsString) <> '' then + begin + application.MessageBox('ˣ', 'ʾϢ'); + exit; + end; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from KH_Main '); + sql.Add('where KHNO=' + quotedstr(trim(Order_Main.fieldbyname('KHNO').AsString))); + open; + end; + + if trim(ADOQueryTemp.fieldbyname('status').AsString) <> '1' then + begin + application.MessageBox('ͻδ', 'ʾϢ'); + exit; + end; + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YMT_FHSQ_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),ChkStatus=''ͨ'' '); + sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); + execsql; + end; + Order_Main.Delete; + InitSubGrid(); + application.MessageBox('˳ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmYMTFHSQList.InitSubGrid(); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + if Order_Main.IsEmpty = False then + sql.Add('select * from YMT_FHSQ_Sub A where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''') + else + sql.Add('select * from YMT_FHSQ_Sub A where 1=2'); + Open; + end; + SCreateCDS20(ADOQueryTemp, ClientDataSet2); + SInitCDSData20(ADOQueryTemp, ClientDataSet2); +end; + +procedure TfrmYMTFHSQList.TnochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if trim(Order_Main.fieldbyname('Chker').AsString) = '' then + begin + application.MessageBox('ǰδˣ', 'ʾϢ'); + exit; + end; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from YMT_FHSQ_Main'); + sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); + Open; + end; + if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then + begin + Application.MessageBox('Ӧ˿ܳ!', 'ʾ', 0); + Exit; + end; + try + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YMT_FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null '); + sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); + execsql; + end; + Order_Main.Delete; + InitSubGrid(); + application.MessageBox('ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmYMTFHSQList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from YMT_FHSQ_Sub A '); + sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + Open; + end; + SCreateCDS20(ADOQueryTemp, ClientDataSet2); + SInitCDSData20(ADOQueryTemp, ClientDataSet2); +end; + +procedure TfrmYMTFHSQList.ComboBox1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYMTFHSQList.BegDateChange(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYMTFHSQList.SHDanWeiKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + InitGrid(); +end; + +procedure TfrmYMTFHSQList.ToolButton2Click(Sender: TObject); +begin + + Panel3.Visible := True; +end; + +procedure TfrmYMTFHSQList.Button3Click(Sender: TObject); +begin + Panel3.Visible := False; +end; + +procedure TfrmYMTFHSQList.btnChkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + application.MessageBox('ѡݣ', 'ʾϢ'); + exit; + end; + + try + while Order_Main.Locate('SSel', True, []) do + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update YMT_FHSQ_Main SET CRType=' + quotedstr(trim(CRType.Text))); + sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); + execsql; + end; + with Order_Main do + begin + Edit; + FieldByName('SSel').Value := False; + FieldByName('CRType').Value := trim(CRType.Text); + Post; + end; + end; + + Panel3.Visible := False; + application.MessageBox('˳ɹ', 'ʾϢ'); + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +end. + diff --git a/云翔一码通/U_YMTGYSList.dfm b/云翔一码通/U_YMTGYSList.dfm new file mode 100644 index 0000000..01a969f --- /dev/null +++ b/云翔一码通/U_YMTGYSList.dfm @@ -0,0 +1,289 @@ +object frmGYSList: TfrmGYSList + Left = 189 + Top = 135 + Width = 1125 + Height = 686 + Caption = #20379#24212#21830#26597#35810 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1117 + 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_DeliveryApplication.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 ToolButton3: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 10 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 72 + Width = 1117 + Height = 583 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Inactive = cxStyle1 + Styles.IncSearch = cxStyle1 + Styles.Selection = cxStyle1 + Styles.Header = DataLink_DeliveryApplication.Default + object v1KHNo: TcxGridDBColumn + Caption = #20379#24212#21830#32534#21495 + DataBinding.FieldName = 'KHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 134 + end + object v1Column6: TcxGridDBColumn + Caption = #20379#24212#21830#31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Width = 145 + end + object v1KHLXR: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'KHLXR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object v1Column1: TcxGridDBColumn + Caption = #20379#24212#21830#31867#22411 + DataBinding.FieldName = 'KHType' + HeaderAlignmentHorz = taCenter + Width = 114 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1117 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 2 + object Label9: TLabel + Left = 227 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 19 + Top = 15 + Width = 65 + Height = 12 + Caption = #20379#24212#21830#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label34: TLabel + Left = 437 + Top = 15 + Width = 78 + Height = 12 + Caption = #20379#24212#21830#31867#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameJC: TEdit + Tag = 2 + Left = 294 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object KHNo: TEdit + Tag = 2 + Left = 86 + Top = 11 + Width = 125 + Height = 20 + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object KHType: TBtnEditC + Tag = 1 + Left = 510 + Top = 11 + Width = 121 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnUpClick = KHTypeBtnUpClick + OnBtnDnClick = KHTypeBtnDnClick + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 488 + Top = 160 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + Parameters = <> + Left = 552 + Top = 160 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 520 + Top = 160 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 352 + Top = 160 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 416 + Top = 160 + 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 320 + Top = 160 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + Left = 384 + Top = 160 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 456 + Top = 160 + end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = 4707838 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end +end diff --git a/云翔一码通/U_YMTGYSList.pas b/云翔一码通/U_YMTGYSList.pas new file mode 100644 index 0000000..2fcb3ea --- /dev/null +++ b/云翔一码通/U_YMTGYSList.pas @@ -0,0 +1,329 @@ +unit U_YMTGYSList; + +interface + +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, BtnEdit, 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 + TfrmGYSList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ToolButton3: TToolButton; + Panel1: TPanel; + Label9: TLabel; + KHNameJC: TEdit; + v1KHNo: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + Label2: TLabel; + KHNo: TEdit; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + KHType: TBtnEditC; + v1KHLXR: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure KHTypeBtnDnClick(Sender: TObject); + procedure KHTypeBtnUpClick(Sender: TObject); + private + DQdate: TDateTime; + XZKHTYpe, canshu1: string; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + FFInt, FCloth: Integer; + + { Public declarations } + end; + +var + frmGYSList: TfrmGYSList; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmGYSList.FormDestroy(Sender: TObject); +begin + frmGYSList := nil; +end; + +procedure TfrmGYSList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmGYSList.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; + +end; + +procedure TfrmGYSList.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('Ӧ̵Ǽ', Tv1, 'Ӧ̹'); + +end; + +procedure TfrmGYSList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select *,zjm=dbo.getpinyin(KHName) '); + sql.Add(' from KH_Main A '); + sql.Add(' where isnull(KHFlag,'''')=''GYS'' and isnull(Valid,'''')=''Y'''); + {if Trim(canshu1)<>'Ȩ' then + begin + SQL.Add(' and A.FZR like '''+'%'+trim(DName)+'%'+''''); + end;} + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + TBFind.Click; + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmGYSList.InitForm(); +begin + ReadCxGrid(self.Caption, Tv1, 'ó'); + KHType.Visible := true; + label34.Visible := true; + canshu1 := Trim(DParameters1); + + InitGrid(); + +end; + +procedure TfrmGYSList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmGYSList.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) = '' then + begin + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + end; +end; + +procedure TfrmGYSList.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmGYSList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId=''' + Trim(Order_Main.fieldbyname('ZKId').AsString) + ''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmGYSList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmGYSList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmGYSList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmGYSList.N1Click(Sender: TObject); +var + fPrintFile: string; + Porderno: string; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ10.rmf'; + SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + ''''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ10.rmf'), 'ʾ', 0); + end; + SDofilter(ADOQueryMain, ''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Order_Main.Locate('ordernoM', Porderno, []); +end; + +procedure TfrmGYSList.N2Click(Sender: TObject); +var + fPrintFile: string; + Porderno: string; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'; + SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + ''''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString); + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'), 'ʾ', 0); + end; + SDofilter(ADOQueryMain, ''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Order_Main.Locate('ordernoM', Porderno, []); +end; + +procedure TfrmGYSList.ToolButton3Click(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmGYSList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmGYSList.Tv1DblClick(Sender: TObject); +begin + ToolButton3.Click; +end; + +procedure TfrmGYSList.KHTypeBtnDnClick(Sender: TObject); +begin + KHType.Text := ''; + KHType.TxtCode := ''; +end; + +procedure TfrmGYSList.KHTypeBtnUpClick(Sender: TObject); +begin + + TBFind.Click; +end; + +end. + diff --git a/云翔一码通/U_YMTKHList.dfm b/云翔一码通/U_YMTKHList.dfm new file mode 100644 index 0000000..a5a8f26 --- /dev/null +++ b/云翔一码通/U_YMTKHList.dfm @@ -0,0 +1,605 @@ +object frmKHList_CX: TfrmKHList_CX + Left = 467 + Top = 330 + Width = 1222 + Height = 672 + Caption = #23458#25143#20449#24687#31649#29702 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1214 + Height = 31 + ButtonHeight = 30 + ButtonWidth = 65 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_DeliveryApplication.ThreeImgList + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_DeliveryApplication.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object Tadd: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 31 + Visible = False + OnClick = TaddClick + end + object TBRafresh: TToolButton + Left = 69 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 138 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 207 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1214 + Height = 35 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + object Label5: TLabel + Left = 172 + Top = 10 + Width = 32 + Height = 15 + Caption = #31616#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 16 + Top = 7 + Width = 44 + Height = 21 + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 507 + Top = 10 + Width = 64 + Height = 15 + Caption = #23457#26680#29366#24577 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object LabKHType: TLabel + Left = 674 + Top = 10 + Width = 32 + Height = 15 + Caption = #31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 811 + Top = 10 + Width = 48 + Height = 15 + Caption = #19994#21153#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 961 + Top = 10 + Width = 48 + Height = 15 + Caption = #29702#21333#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 317 + Top = 10 + Width = 82 + Height = 15 + Caption = #21306#22495'('#22269#23478')' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object zjm: TEdit + Tag = 2 + Left = 60 + Top = 6 + Width = 90 + Height = 23 + TabOrder = 0 + OnChange = zjmChange + end + object KHNameJC: TEdit + Tag = 2 + Left = 205 + Top = 6 + Width = 89 + Height = 23 + TabOrder = 1 + OnChange = zjmChange + end + object SHStatus: TComboBox + Tag = 2 + Left = 571 + Top = 6 + Width = 81 + Height = 23 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 15 + ParentFont = False + TabOrder = 2 + OnChange = zjmChange + Items.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + '') + end + object KHType: TComboBox + Tag = 1 + Left = 710 + Top = 6 + Width = 79 + Height = 23 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 15 + ParentFont = False + TabOrder = 3 + Items.Strings = ( + #22806#38144 + #20869#38144 + '') + end + object YWY: TComboBox + Tag = 1 + Left = 861 + Top = 6 + Width = 79 + Height = 23 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 15 + ParentFont = False + TabOrder = 4 + Items.Strings = ( + #22806#38144 + #20869#38144 + '') + end + object LiDan: TComboBox + Tag = 1 + Left = 1010 + Top = 6 + Width = 79 + Height = 23 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 15 + ParentFont = False + TabOrder = 5 + Items.Strings = ( + #22806#38144 + #20869#38144 + '') + end + object KHQuYu: TEdit + Tag = 2 + Left = 398 + Top = 6 + Width = 89 + Height = 23 + TabOrder = 6 + OnChange = zjmChange + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 66 + Width = 1214 + Height = 413 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object TV1: TcxGridDBTableView + OnMouseDown = TV1MouseDown + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + OnCellDblClick = TV1CellDblClick + DataController.DataSource = DS_HZ + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_DeliveryApplication.Default + Styles.Inactive = DataLink_DeliveryApplication.SHuangSe + Styles.IncSearch = DataLink_DeliveryApplication.SHuangSe + Styles.Selection = DataLink_DeliveryApplication.SHuangSe + Styles.Header = DataLink_DeliveryApplication.Default + object V1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 57 + end + object V1Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'KHType' + OnCustomDrawCell = V1Column2CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle1 + Width = 70 + end + object V1Column1: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'KHNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 80 + end + object cxGYSName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 200 + end + object cxGridDBGYSNameZC: TcxGridDBColumn + Caption = #31616#31216 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 92 + end + object V1Column3: TcxGridDBColumn + Caption = #21306#22495'('#22269#23478')' + DataBinding.FieldName = 'KHQuYu' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 181 + end + object B1GYSFZRen: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'KHLXR' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 74 + end + object cxGridDBGYSTel: TcxGridDBColumn + Caption = #25163#26426 + DataBinding.FieldName = 'KHTel' + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 173 + end + object V1SHStatus: TcxGridDBColumn + Caption = #23457#26680#29366#24577 + DataBinding.FieldName = 'SHStatus' + OnCustomDrawCell = V1SHStatusCustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 101 + end + object V1FZR: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'YWY' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 76 + end + object V1Column5: TcxGridDBColumn + Caption = #29702#21333#21592 + DataBinding.FieldName = 'LiDan' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 82 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV1 + end + end + object cxGrid3: TcxGrid + Left = 0 + Top = 479 + Width = 1214 + Height = 162 + Align = alBottom + PopupMenu = PopupMenu3 + TabOrder = 3 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + OnCellDblClick = TV3CellDblClick + DataController.DataSource = DS_HZ3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsSelection.CellSelect = False + OptionsView.GroupByBox = False + Styles.Content = DataLink_DeliveryApplication.Default + Styles.Inactive = DataLink_DeliveryApplication.SHuangSe + Styles.IncSearch = DataLink_DeliveryApplication.SHuangSe + Styles.Selection = DataLink_DeliveryApplication.SHuangSe + Styles.Header = DataLink_DeliveryApplication.Default + object V3Column2: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'BankType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 127 + end + object V3BankName: TcxGridDBColumn + Caption = #25143#21517 + DataBinding.FieldName = 'HuMing' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 211 + end + object V3BankNo: TcxGridDBColumn + Caption = #36134#21495 + DataBinding.FieldName = 'BankNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 229 + end + object V3Column3: TcxGridDBColumn + Caption = #24320#25143#34892 + DataBinding.FieldName = 'BankName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 250 + end + object V3Column1: TcxGridDBColumn + Caption = #31246#21495 + DataBinding.FieldName = 'ShuiHao' + HeaderAlignmentHorz = taCenter + Width = 226 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV3 + end + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 786 + Top = 112 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + Parameters = <> + Left = 794 + Top = 103 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 787 + Top = 96 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 780 + Top = 145 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 814 + Top = 144 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 848 + Top = 144 + end + object DS_HZ3: TDataSource + DataSet = CDS_HZ3 + Left = 855 + Top = 486 + end + object CDS_HZ3: TClientDataSet + Aggregates = <> + Params = <> + Left = 886 + Top = 489 + end + object cxGridPopupMenu4: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 918 + Top = 491 + end + object PopupMenu1: TPopupMenu + Left = 750 + Top = 144 + object TBAddBank: TMenuItem + Caption = #22686#21152#36134#21495 + end + object MainEdit: TMenuItem + Caption = #20462#25913 + end + object MainView: TMenuItem + Caption = #26597#30475 + end + end + object PopupMenu3: TPopupMenu + Left = 824 + Top = 488 + object BankEdit: TMenuItem + Caption = #20462#25913#36134#21495 + end + object BankDel: TMenuItem + Caption = #21024#38500#36134#21495 + end + object BankView: TMenuItem + Caption = #26597#30475#36134#21495 + end + object TBFJUp: TMenuItem + Caption = #19978#20256#24320#31080#36164#26009 + Visible = False + end + object TBFJView: TMenuItem + Caption = #26597#30475#24320#31080#36164#26009 + Visible = False + end + end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end +end diff --git a/云翔一码通/U_YMTKHList.pas b/云翔一码通/U_YMTKHList.pas new file mode 100644 index 0000000..f843c37 --- /dev/null +++ b/云翔一码通/U_YMTKHList.pas @@ -0,0 +1,339 @@ +unit U_YMTKHList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, + dxSkinDarkRoom, + + + + + + + + dxSkinOffice2013White, + dxSkinSharpPlus, + dxSkinSpringTime, + dxSkinsDefaultPainters, + dxSkinscxPCPainter, + cxNavigator, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, + dxSkinWhiteprint, dxSkinXmas2008Blue; + +type + TfrmKHList_CX = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + zjm: TEdit; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_HZ: TDataSource; + CDS_HZ: TClientDataSet; + Tadd: TToolButton; + Label5: TLabel; + KHNameJC: TEdit; + DS_HZ3: TDataSource; + CDS_HZ3: TClientDataSet; + cxGridPopupMenu4: TcxGridPopupMenu; + Label2: TLabel; + Label4: TLabel; + SHStatus: TComboBox; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + V1Column4: TcxGridDBColumn; + V1Column1: TcxGridDBColumn; + cxGYSName: TcxGridDBColumn; + cxGridDBGYSNameZC: TcxGridDBColumn; + B1GYSFZRen: TcxGridDBColumn; + cxGridDBGYSTel: TcxGridDBColumn; + V1SHStatus: TcxGridDBColumn; + V1FZR: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + PopupMenu1: TPopupMenu; + MainEdit: TMenuItem; + MainView: TMenuItem; + PopupMenu3: TPopupMenu; + BankEdit: TMenuItem; + BankDel: TMenuItem; + BankView: TMenuItem; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + V3Column2: TcxGridDBColumn; + V3BankName: TcxGridDBColumn; + V3BankNo: TcxGridDBColumn; + V3Column3: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + V1Column2: TcxGridDBColumn; + LabKHType: TLabel; + KHType: TComboBox; + V1Column3: TcxGridDBColumn; + V1Column5: TcxGridDBColumn; + Label3: TLabel; + YWY: TComboBox; + Label8: TLabel; + LiDan: TComboBox; + TBAddBank: TMenuItem; + V3Column1: TcxGridDBColumn; + Label1: TLabel; + KHQuYu: TEdit; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + TBFJUp: TMenuItem; + TBFJView: TMenuItem; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure zjmChange(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure V1Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure TaddClick(Sender: TObject); + procedure TV3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + private + { Private declarations } + ColorInt: Integer; + procedure InitGrid(); + procedure setstatus(); + procedure InitGridBankMain(); + procedure InitGridBankMainID(FID: string); + public + canshu1, canshu2, FGYSType: string; + end; + +var + frmKHList_CX: TfrmKHList_CX; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} +procedure TfrmKHList_CX.setstatus(); +begin + +end; + +procedure TfrmKHList_CX.InitGrid(); +begin + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select *,zjm=dbo.getpinyin(KHName) '); + sql.add(',SHStatus=(case when isnull(status,''0'')=''0'' then ''δ'' else '''' end)'); + sql.Add(' from KH_Main A '); + sql.add(' where isnull(KHFlag,'''')=''KH'' and isnull(Valid,'''')=''Y'' '); + if Trim(canshu1) = '¼' then + begin + sql.Add(' and exists(select * from KH_Owner B where B.KHMainId=A.KHMainId and B.UserName=''' + Trim(DName) + ''')'); + end; + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(CDS_HZ.fieldbyname('KHMainid').asstring) + ''' and isnull(Valid,'''')=''Y'''); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ3); + SInitCDSData20(ADOQueryTemp, CDS_HZ3); +end; + +procedure TfrmKHList_CX.FormDestroy(Sender: TObject); +begin + frmKHList_CX := nil; +end; + +procedure TfrmKHList_CX.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmKHList_CX.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('PBGYS11YX', Tv1, 'ͻ'); + WriteCxGrid('PBGYS31YX', Tv3, 'ͻ'); + Close; +end; + +procedure TfrmKHList_CX.FormShow(Sender: TObject); +var + fsj: string; +begin + fsj := 'select Name=YWY from KH_Main where isnull(YWY,'''')<>'''' and Valid=''Y'' and isnull(KHFlag,'''')=''KH'' Group by YWY'; + SInitComBoxBySql(ADOQueryTemp, YWY, False, fsj); + fsj := 'select Name=LiDan from KH_Main where isnull(LiDan,'''')<>'''' and Valid=''Y'' and isnull(KHFlag,'''')=''KH'' Group by LiDan'; + SInitComBoxBySql(ADOQueryTemp, LiDan, False, fsj); + ReadCxGrid('PBGYS11YX', Tv1, 'ͻ'); + ReadCxGrid('PBGYS31YX', Tv3, 'ͻ'); + setstatus(); + InitGrid(); +end; + +procedure TfrmKHList_CX.TBRafreshClick(Sender: TObject); +begin + ToolBar1.SetFocus; + InitGrid(); +end; + +procedure TfrmKHList_CX.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_HZ); + SInitCDSData20(ADOQueryMain, CDS_HZ); + end; +end; + +procedure TfrmKHList_CX.zjmChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmKHList_CX.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmKHList_CX.cxTabControl1Change(Sender: TObject); +begin + setstatus(); + InitGrid(); +end; + +procedure TfrmKHList_CX.TV1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + InitGridBankMain(); +end; + +procedure TfrmKHList_CX.InitGridBankMain(); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(CDS_HZ.fieldbyname('KHMainid').asstring) + ''''); + if CDS_HZ.IsEmpty then + begin + sql.Add(' and 1=2'); + end + else + begin + sql.Add(' and valid=''Y'' '); + end; + sql.Add(' order by XH'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ3); + SInitCDSData20(ADOQueryTemp, CDS_HZ3); +end; + +procedure TfrmKHList_CX.InitGridBankMainID(FID: string); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from KH_Sub_Bank where KHMainid=''' + Trim(FID) + ''''); + if CDS_HZ.IsEmpty then + begin + sql.Add(' and 1=2'); + end + else + begin + sql.Add(' and valid=''Y'' '); + end; + sql.Add(' order by XH'); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ3); + SInitCDSData20(ADOQueryTemp, CDS_HZ3); +end; + +procedure TfrmKHList_CX.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ.IsEmpty then + Exit; + if CDS_HZ3.IsEmpty then + begin + Tadd.Click; + end; +end; + +procedure TfrmKHList_CX.V1Column2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + id: Integer; +begin + id := TV1.GetColumnByFieldName('KHType').Index; + if AViewInfo.GridRecord.Values[id] = '' then + begin + ACanvas.Font.Color := clBlue; + end; +end; + +procedure TfrmKHList_CX.V1SHStatusCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + id: Integer; +begin + id := TV1.GetColumnByFieldName('SHStatus').Index; + if AViewInfo.GridRecord.Values[id] = 'δ' then + begin + ACanvas.Font.Color := clRed; + end; +end; + +procedure TfrmKHList_CX.TaddClick(Sender: TObject); +begin + if CDS_HZ.IsEmpty then + exit; + ModalResult := 1; +end; + +procedure TfrmKHList_CX.TV3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if CDS_HZ3.IsEmpty = false then + TADD.Click; +end; + +end. + diff --git a/云翔一码通/U_YMTOrderSel.dfm b/云翔一码通/U_YMTOrderSel.dfm new file mode 100644 index 0000000..9e9e7e7 --- /dev/null +++ b/云翔一码通/U_YMTOrderSel.dfm @@ -0,0 +1,461 @@ +object frmOrderSel: TfrmOrderSel + Left = 603 + Top = 319 + Width = 1328 + Height = 687 + Caption = #35745#21010#21333#36873#25321 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1320 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 73 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -18 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Images = DataLink_DeliveryApplication.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 24 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 77 + Top = 0 + AutoSize = True + Caption = #30830#35748 + ImageIndex = 10 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 154 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1320 + Height = 70 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 25 + Top = 14 + Width = 72 + Height = 17 + Caption = #19979#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 473 + Top = 41 + Width = 72 + Height = 17 + Caption = #25351#31034#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 239 + Top = 14 + Width = 76 + Height = 17 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 473 + Top = 14 + Width = 74 + Height = 17 + Caption = #21512' '#21516' '#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 613 + Top = 119 + Width = 26 + Height = 12 + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 239 + Top = 41 + Width = 72 + Height = 17 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 525 + Top = 88 + Width = 52 + Height = 12 + Caption = #23457#26680#29366#24577 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object BegDate: TDateTimePicker + Left = 100 + Top = 10 + Width = 123 + Height = 25 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 100 + Top = 37 + Width = 123 + Height = 25 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object MLOrderNo: TEdit + Tag = 2 + Left = 552 + Top = 37 + Width = 120 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnChange = KHNameHZChange + OnKeyPress = MLOrderNoKeyPress + end + object KHNameHZ: TEdit + Tag = 2 + Left = 317 + Top = 10 + Width = 140 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnChange = KHNameHZChange + end + object MLConNo: TEdit + Tag = 2 + Left = 552 + Top = 10 + Width = 120 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnChange = KHNameHZChange + OnKeyPress = MLConNoKeyPress + end + object MPRTKZ: TEdit + Tag = 2 + Left = 654 + Top = 99 + Width = 56 + Height = 20 + TabOrder = 5 + end + object MLCodeName: TEdit + Tag = 2 + Left = 317 + Top = 37 + Width = 139 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnChange = KHNameHZChange + OnKeyPress = MLCodeNameKeyPress + end + object status: TComboBox + Tag = 2 + Left = 581 + Top = 87 + Width = 103 + Height = 20 + ItemHeight = 12 + TabOrder = 7 + Visible = False + Items.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #24050#23436#25104 + '') + end + end + object cxSplitter1: TcxSplitter + Left = 0 + Top = 648 + Width = 1320 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + Visible = False + end + object cxGrid2: TcxGrid + Left = 0 + Top = 102 + Width = 1320 + Height = 546 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_DeliveryApplication.Default + Styles.Inactive = DataLink_DeliveryApplication.SHuangSe + Styles.IncSearch = DataLink_DeliveryApplication.SHuangSe + Styles.Selection = DataLink_DeliveryApplication.SHuangSe + Styles.Header = DataLink_DeliveryApplication.Default + object v1Column2: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column5: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 160 + end + object v1Column1: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 108 + end + object v2Column1: TcxGridDBColumn + Caption = #20013#25991#21517#31216 + DataBinding.FieldName = 'MLCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 101 + end + object v2Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MLColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 95 + end + object v1Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'MLHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object v1Column7: TcxGridDBColumn + Caption = #36153#29992#21517#31216 + DataBinding.FieldName = 'FeeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object v1Column8: TcxGridDBColumn + Caption = #36153#29992#37329#39069 + DataBinding.FieldName = 'FeeMoney' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object Tv1Column1: TcxGridDBColumn + Caption = #38144#21806#31867#22411 + DataBinding.FieldName = 'CRType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column2: TcxGridDBColumn + Caption = #21457#36135#25260#22836 + DataBinding.FieldName = 'SYRName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 493 + Top = 249 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + Parameters = <> + Left = 393 + Top = 240 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 305 + Top = 232 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DeliveryApplication.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 240 + Top = 255 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 625 + Top = 353 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 573 + Top = 352 + end + object PopupMenu1: TPopupMenu + Left = 366 + Top = 179 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N1: TMenuItem + Caption = #20840#24323 + OnClick = N1Click + end + object N3: TMenuItem + Caption = #25490#21333 + end + end +end diff --git a/云翔一码通/U_YMTOrderSel.pas b/云翔一码通/U_YMTOrderSel.pas new file mode 100644 index 0000000..94d20e4 --- /dev/null +++ b/云翔一码通/U_YMTOrderSel.pas @@ -0,0 +1,314 @@ +unit U_YMTOrderSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls, + RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu, + cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, + IdFTP, ShellAPI, cxCheckBox, 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 + TfrmOrderSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + MLOrderNo: TEdit; + CDS_Main: TClientDataSet; + Label4: TLabel; + KHNameHZ: TEdit; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + Label9: TLabel; + MLConNo: TEdit; + Label12: TLabel; + MPRTKZ: TEdit; + cxSplitter1: TcxSplitter; + MLCodeName: TEdit; + Label5: TLabel; + N1: TMenuItem; + Label7: TLabel; + status: TComboBox; + N3: TMenuItem; + ToolButton1: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure MLCodeNameKeyPress(Sender: TObject; var Key: Char); + procedure MLConNoKeyPress(Sender: TObject; var Key: Char); + procedure MLOrderNoKeyPress(Sender: TObject; var Key: Char); + procedure KHNameHZChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + + { Private declarations } + public + FFInt, FCloth: Integer; + canshu1, canshu2, canshu3: string; + fFlileFlag: string; + FKHNo, FTT: string; + { Public declarations } + end; + +var + frmOrderSel: TfrmOrderSel; + +implementation + +uses + U_DataLink, U_Fun; +{$R *.dfm} + +procedure TfrmOrderSel.FormDestroy(Sender: TObject); +begin + frmOrderSel := nil; +end; + +procedure TfrmOrderSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmOrderSel.FormCreate(Sender: TObject); +begin + DQdate := SGetServerDate(ADOQueryTemp); + canshu1 := trim(DParameters1); + canshu2 := trim(DdataBase); +end; + +procedure TfrmOrderSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('ָʾYX', Tv1, 'ָʾ'); +end; + +procedure TfrmOrderSel.InitGrid(); +var + fwhere, Pwhere: string; +begin + Pwhere := SGetFilters(Panel1, 1, 2); + + fwhere := ' where OrdDate>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + fwhere := fwhere + ' and OrdDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + if trim(Pwhere) <> '' then + fwhere := fwhere + ' and ' + trim(Pwhere); + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('SELECT AA.* FROM('); + sql.add('select A.* ,CPType=''Ʒ'', C.NewMLID MainId, C. NewSubid SubId,C.MLColor,C.MLColorNo,C.MLHX,C.MLPrice,C.FeeName,C.FeeMoney'); + sql.Add(',KHConNo=(select TOP 1 X.KHConNo from ML_ConMain X where X.MLConID=A.ConMainId)'); + sql.Add(',CRType=(select TOP 1 X.ConType from ML_ConMain X where X.MLConID=A.ConMainId)'); + sql.Add(',SYRName=(select TOP 1 X.SYRName from ML_ConMain X where X.MLConID=A.ConMainId)'); + sql.Add(' from ML_OrderMainNew A '); + sql.Add(' inner join ML_OrderSubidNew C on A.NewMLID=C.NewMLID '); + sql.Add(' left join KH_Main KM on KM.KHNO=A.KHNO '); + sql.Add(')AA'); + sql.Add(fwhere); + // ShowMessage(SQL.Text); + Open; + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmOrderSel.InitForm(); +begin + ReadCxGrid('ָʾYX', Tv1, 'ָʾ'); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + InitGrid(); + +end; + +procedure TfrmOrderSel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + SelExportData(Tv1, ADOQueryMain, 'Ⱦɫƻ'); +end; + +procedure TfrmOrderSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmOrderSel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmOrderSel.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmOrderSel.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmOrderSel.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, false); +end; + +procedure TfrmOrderSel.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmOrderSel.MLCodeNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + InitGrid(); +end; + +procedure TfrmOrderSel.MLConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + InitGrid(); +end; + +procedure TfrmOrderSel.MLOrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + InitGrid(); +end; + +procedure TfrmOrderSel.KHNameHZChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); +end; + +procedure TfrmOrderSel.ToolButton1Click(Sender: TObject); +var + FFKHName, FFTT: string; +begin + with CDS_Main do + begin + First; + FFKHName := ''; + FFTT := ''; + while not Eof do + begin + if CDS_Main.fieldbyname('SSel').AsBoolean = True then + begin + + if (Trim(FFTT) = '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then + begin + FFTT := Trim(CDS_Main.fieldbyname('SYRName').AsString); + end; + + if Trim(FFKHName) = '' then + begin + FFKHName := Trim(CDS_Main.fieldbyname('KHName').AsString); + end; + + + //ͬʱѡ̧ܰͷ + if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FFTT) and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then + begin + Application.MessageBox('ѡ̧ͷ!', 'ʾ', 0); + exit; + end; + + //ѡ̧ͷܺѾѡ̧ͷͬ + if (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> FTT) and (FTT <> '') and (Trim(CDS_Main.fieldbyname('SYRName').AsString) <> '') then + begin + Application.MessageBox('ѡ̧ͷ!', 'ʾ', 0); + exit; + end; + + + //ͬʱѡܰͻ + if (Trim(CDS_Main.fieldbyname('KHName').AsString) <> FFKHName) then + begin + Application.MessageBox('ѡͻ!', 'ʾ', 0); + exit; + end; + + //ѡܺѾѡĿͻͬ + if (Trim(CDS_Main.fieldbyname('KHNo').AsString) <> FKHNo) and (FKHNo <> '') then + begin + Application.MessageBox('ѡͻ!', 'ʾ', 0); + exit; + end; + + end; + + Next; + end; + end; + + ModalResult := 1; +end; + +end. + diff --git a/云翔一码通/U_YMTRKList.dfm b/云翔一码通/U_YMTRKList.dfm index 4a6a01c..a82ac4c 100644 --- a/云翔一码通/U_YMTRKList.dfm +++ b/云翔一码通/U_YMTRKList.dfm @@ -1,6 +1,6 @@ object frmYMTRKList: TfrmYMTRKList - Left = 453 - Top = 212 + Left = 478 + Top = 392 Width = 1372 Height = 754 Caption = #38754#26009#22238#20179#30331#35760 diff --git a/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof b/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof index 76084d7..f3da8a8 100644 --- a/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof +++ b/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\ֿ\Ŀ\D7WMyunxiang\(DeliveryApplication.dll)\testDll.exe +HostApplication=E:\Ŀ\00_صͻ\\D7myYunxiang\(DeliveryApplication.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/发货申请(DeliveryApplication.dll)/DeliveryApplication.dpr b/发货申请(DeliveryApplication.dll)/DeliveryApplication.dpr index 89d459b..f2e8763 100644 --- a/发货申请(DeliveryApplication.dll)/DeliveryApplication.dpr +++ b/发货申请(DeliveryApplication.dll)/DeliveryApplication.dpr @@ -7,7 +7,7 @@ uses WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_DataLink in 'U_DataLink.pas' {DataLink_DeliveryApplication: TDataModule}, U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel}, diff --git a/发货申请(DeliveryApplication.dll)/U_DataLink.pas b/发货申请(DeliveryApplication.dll)/U_DataLink.pas index a2fa15a..55ff152 100644 --- a/发货申请(DeliveryApplication.dll)/U_DataLink.pas +++ b/发货申请(DeliveryApplication.dll)/U_DataLink.pas @@ -4,39 +4,41 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore, - - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, - dxSkinSpringTime, - dxSkinsDefaultPainters, - ; + Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore, + dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime, + dxSkinsDefaultPainters, 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; + var - DConString:String; {ȫַ} - server, dtbase, user, pswd: String; {ݿӲ} - DCurHandle:hwnd; //ǰ - DName:string ; //#û#// - DCode:string ; //#û#// - Ddatabase:string; //#ݿ#// - DTitCaption:string; //##// - UserDataFlag:string; - DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// ⲿ - DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//ⲿ - OldDllApp:Tapplication; //ԭо - NewDllApp: Tapplication;//ǰ - MainApplication: Tapplication ; - DFormCode:integer; //ǰں - IsDelphiLanguage:integer; - DServerDate:TdateTime; //ʱ - DCompany:string; //˾ + DConString: string; {ȫַ} + server, dtbase, user, pswd: string; {ݿӲ} + DCurHandle: hwnd; //ǰ + DName: string; //#û#// + DCode: string; //#û#// + Ddatabase: string; //#ݿ#// + DTitCaption: string; //##// + UserDataFlag: string; + DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // ⲿ + DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //ⲿ + OldDllApp: Tapplication; //ԭо + NewDllApp: Tapplication; //ǰ + MainApplication: Tapplication; + DFormCode: integer; //ǰں + IsDelphiLanguage: integer; + DServerDate: TdateTime; //ʱ + DCompany: string; //˾ + type TDataLink_DeliveryApplication = class(TDataModule) AdoDataLink: TADOQuery; @@ -64,22 +66,21 @@ type public { Public declarations } end; - TMakebar = procedure(ucData:pchar;nDataLen:integer;nErrLevel:integer;nMask:integer;nBarEdition:integer;szBmpFileName:pchar;nScale:integer);stdcall; - TMixtext = procedure( szSrcBmpFileName:PChar;szDstBmpFileName:PChar;sztext:PChar;fontsize,txtheight,hmargin,vmargin,txtcntoneline:integer);stdcall; + + TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall; + + TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall; + var DataLink_DeliveryApplication: TDataLink_DeliveryApplication; implementation {$R *.dfm} - procedure TDataLink_DeliveryApplication.DataModuleDestroy(Sender: TObject); begin - DataLink_DeliveryApplication:=nil; + DataLink_DeliveryApplication := nil; end; end. - - - diff --git a/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas b/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas index c4f93e0..34518dd 100644 --- a/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas +++ b/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas @@ -10,20 +10,21 @@ uses cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, dxSkinSpringTime, - dxSkinsDefaultPainters, - - dxSkinscxPCPainter; + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime, + dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, + dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmFHSQInPut = class(TForm) diff --git a/发货申请(DeliveryApplication.dll)/U_FHSQList.pas b/发货申请(DeliveryApplication.dll)/U_FHSQList.pas index 50fe940..68c47a9 100644 --- a/发货申请(DeliveryApplication.dll)/U_FHSQList.pas +++ b/发货申请(DeliveryApplication.dll)/U_FHSQList.pas @@ -12,20 +12,20 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, RM_E_llPDF, cxDropDownEdit, cxTextEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, 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 TfrmFHSQList = class(TForm) diff --git a/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof b/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof index aa0f4d5..ae93de7 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof +++ b/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\ֿ\Ŀ\D7WMyunxiang\ƻ(DyeingFinishingPlan.dll)\testDll.exe +HostApplication=E:\Ŀ\00_صͻ\\D7myYunxiang\ƻ(DyeingFinishingPlan.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr b/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr index 63a6faa..4345d10 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr +++ b/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr @@ -26,7 +26,7 @@ uses U_SCColor in 'U_SCColor.pas' {frmSCColor}, U_ZdyAttachCP_HX_sel in 'U_ZdyAttachCP_HX_sel.pas' {frmZdyAttachCP_HX_Sel}, U_JYOrdColorList in 'U_JYOrdColorList.pas' {frmJYOrdColorList}, - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_BPZdy_LRM in 'U_BPZdy_LRM.pas' {frmBPZDY_LRM}; {$R *.res} diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_DataLink.pas b/生产计划单(DyeingFinishingPlan.dll)/U_DataLink.pas index c4016b9..cb099d6 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_DataLink.pas +++ b/生产计划单(DyeingFinishingPlan.dll)/U_DataLink.pas @@ -5,20 +5,20 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore, - - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, - dxSkinSpringTime, - dxSkinsDefaultPainters, - ; + dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime, + dxSkinsDefaultPainters, 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; var DConString: string; {ȫַ} diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas b/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas index df41a6c..918bee8 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas +++ b/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas @@ -74,7 +74,7 @@ begin if trim(DataBaseStr) <> '' then DConString := DataBaseStr; // DParameters1 := 'Ȩ'; -// DParameters3:='1'; +// DParameters3:='1'; if not ConnData() then @@ -88,7 +88,7 @@ begin mstyle := fsMDIChild; mstate := wsMaximized; mborderstyle := bsSizeable; - end + end else begin mstyle := fsNormal; diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.dfm b/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.dfm index fc463df..ebe825d 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.dfm +++ b/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.dfm @@ -1,6 +1,6 @@ object frmJYJT_New: TfrmJYJT_New - Left = -61 - Top = 3 + Left = 426 + Top = 157 Width = 1556 Height = 823 Caption = #26816#39564#20449#24687#31649#29702 @@ -20,7 +20,7 @@ object frmJYJT_New: TfrmJYJT_New object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 AutoSize = True ButtonHeight = 30 ButtonWidth = 115 @@ -191,7 +191,7 @@ object frmJYJT_New: TfrmJYJT_New object Panel1: TPanel Left = 0 Top = 32 - Width = 1540 + Width = 1548 Height = 60 Align = alTop BevelInner = bvRaised @@ -678,8 +678,8 @@ object frmJYJT_New: TfrmJYJT_New object cxGrid1: TcxGrid Left = 0 Top = 162 - Width = 1540 - Height = 622 + Width = 1548 + Height = 630 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -1150,13 +1150,13 @@ object frmJYJT_New: TfrmJYJT_New object Panel6: TPanel Left = 0 Top = 92 - Width = 1540 + Width = 1548 Height = 44 Align = alTop BorderStyle = bsSingle TabOrder = 5 DesignSize = ( - 1536 + 1544 40) object LBCPAP: TLabel Left = 398 @@ -1344,7 +1344,7 @@ object frmJYJT_New: TfrmJYJT_New object cxTabControl1: TcxTabControl Left = 0 Top = 136 - Width = 1540 + Width = 1548 Height = 26 Align = alTop Font.Charset = GB2312_CHARSET @@ -1365,7 +1365,7 @@ object frmJYJT_New: TfrmJYJT_New ' '#20840#37096' ') OnChange = cxTabControl1Change ClientRectBottom = 28 - ClientRectRight = 1540 + ClientRectRight = 1548 ClientRectTop = 28 end object Panel5: TPanel diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.pas b/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.pas index 5fb44b4..638ebb1 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.pas +++ b/生产计划单(DyeingFinishingPlan.dll)/U_JYJT_New.pas @@ -12,7 +12,20 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv, RM_E_llPDF, Math, cxPC, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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 TfrmJYJT_New = class(TForm) @@ -400,7 +413,7 @@ begin sql.Add(fwhere + ') temp_row'); sql.Add(' where rownumber> ' + inttostr((CurrentPage - 1) * RecordsNumber)); sql.Add(' order by LBID,Filltime desc'); -// ShowMessage(SQL.Text); + ShowMessage(SQL.Text); Open; end; diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm b/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm index d4f5c1d..b3408d2 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm +++ b/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm @@ -21,7 +21,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 112 @@ -93,19 +94,20 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New AutoSize = True Caption = #23548#20986 ImageIndex = 75 + Wrap = True OnClick = TBExportClick end object TBPrint: TToolButton - Left = 539 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 4 OnClick = TBPrintClick end object Panel7: TPanel - Left = 616 - Top = 0 + Left = 77 + Top = 30 Width = 76 Height = 30 BevelInner = bvRaised @@ -122,24 +124,24 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New end end object ToolButton4: TToolButton - Left = 692 - Top = 0 + Left = 153 + Top = 30 AutoSize = True Caption = #25171#21360'('#23567')' ImageIndex = 14 OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 808 - Top = 0 + Left = 269 + Top = 30 AutoSize = True Caption = #25171#21360'2' ImageIndex = 14 OnClick = ToolButton5Click end object Tchk: TToolButton - Left = 895 - Top = 0 + Left = 356 + Top = 30 AutoSize = True Caption = #23457#26680 ImageIndex = 31 @@ -147,8 +149,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New OnClick = TchkClick end object Tnochk: TToolButton - Left = 972 - Top = 0 + Left = 433 + Top = 30 AutoSize = True Caption = #25764#38144#23457#26680 ImageIndex = 101 @@ -156,16 +158,16 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New OnClick = TnochkClick end object ToolButton3: TToolButton - Left = 1087 - Top = 0 + Left = 548 + Top = 30 AutoSize = True Caption = #25490#21333 ImageIndex = 102 OnClick = ToolButton3Click end object TBClose: TToolButton - Left = 1164 - Top = 0 + Left = 625 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 21 @@ -174,8 +176,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New end object Panel1: TPanel Left = 0 - Top = 32 - Width = 1540 + Top = 62 + Width = 1548 Height = 73 Align = alTop BevelInner = bvRaised @@ -588,8 +590,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New end object cxSplitter1: TcxSplitter Left = 0 - Top = 781 - Width = 1540 + Top = 789 + Width = 1548 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -598,8 +600,8 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New end object Panel2: TPanel Left = 0 - Top = 789 - Width = 1540 + Top = 797 + Width = 1548 Height = 50 Align = alBottom BevelOuter = bvNone @@ -608,7 +610,7 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 1540 + Width = 1548 Height = 50 Align = alClient TabOrder = 0 @@ -738,10 +740,10 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New end end object Panel3: TPanel - Left = 1444 - Top = 105 + Left = 1452 + Top = 135 Width = 96 - Height = 676 + Height = 654 Align = alRight Caption = 'Panel3' TabOrder = 5 @@ -773,7 +775,7 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New Left = 1 Top = 62 Width = 94 - Height = 613 + Height = 591 Align = alClient PopupMenu = PopupMenu2 TabOrder = 1 @@ -1045,9 +1047,9 @@ object frmProductOrderNewList_New: TfrmProductOrderNewList_New end object Cxgrid1: TcxGrid Left = 0 - Top = 105 - Width = 1444 - Height = 676 + Top = 135 + Width = 1452 + Height = 654 Align = alClient PopupMenu = PopupMenu1 TabOrder = 6 diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas b/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas index 69b1ffd..898c412 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas +++ b/生产计划单(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.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 TfrmProductOrderNewList_New = class(TForm)