From cc81ebbd152c1f0fb06e1e0dfb0660cf32a61cd4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 9 May 2025 16:21:19 +0800 Subject: [PATCH] 1 --- 云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm | 14 +- 云翔生产管理(MYSC.dll)/U_CPXiaoShouList.pas | 16 +- 云翔生产管理(MYSC.dll)/U_FHSQListSel.dfm | 792 ++++++++++++++++++ 云翔生产管理(MYSC.dll)/U_FHSQListSel.pas | 349 ++++++++ 云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm | 57 +- 云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas | 35 +- 云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm | 26 +- 云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.pas | 334 ++++---- .../U_XiaoShouDataNewListQB.dfm | 16 +- .../U_XiaoShouDataNewListQB.pas | 18 +- .../DeliveryApplication.dof | 2 +- .../U_DataLink.pas | 16 +- .../U_FHSQInPut.dfm | 20 +- .../U_FHSQInPut.pas | 61 +- .../U_FHSQList.dfm | 20 +- .../U_FHSQList.pas | 15 +- .../U_GYSList.dfm | 289 +++++++ .../U_GYSList.pas | 328 ++++++++ .../U_GetDllForm.pas | 20 +- .../U_KHList_CX.dfm | 29 +- .../U_KHList_CX.pas | 17 +- .../U_PBSQSMCK.dfm | 15 +- .../U_PBSQSMCK.pas | 17 +- .../U_ZdyAttachment.dfm | 14 +- .../U_ZdyAttachment.pas | 17 +- 25 files changed, 2245 insertions(+), 292 deletions(-) create mode 100644 云翔生产管理(MYSC.dll)/U_FHSQListSel.dfm create mode 100644 云翔生产管理(MYSC.dll)/U_FHSQListSel.pas create mode 100644 发货申请(DeliveryApplication.dll)/U_GYSList.dfm create mode 100644 发货申请(DeliveryApplication.dll)/U_GYSList.pas diff --git a/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm b/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm index d61f69d..1623e0d 100644 --- a/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm +++ b/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.dfm @@ -1,6 +1,6 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList - Left = 74 - Top = 62 + Left = 520 + Top = 194 Width = 1385 Height = 676 Caption = #38144#21806#30721#21333#30331#35760 @@ -20,7 +20,7 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1369 + Width = 1377 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -130,7 +130,7 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList object Panel1: TPanel Left = 0 Top = 32 - Width = 1369 + Width = 1377 Height = 40 Align = alTop BevelInner = bvRaised @@ -257,8 +257,8 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList object cxGrid1: TcxGrid Left = 451 Top = 72 - Width = 918 - Height = 565 + Width = 926 + Height = 573 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -391,7 +391,7 @@ object frmCPXiaoShouList: TfrmCPXiaoShouList Left = 0 Top = 72 Width = 451 - Height = 565 + Height = 573 Align = alLeft TabOrder = 3 object Tv2: TcxGridDBTableView diff --git a/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.pas b/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.pas index 1168d65..ecb6b60 100644 --- a/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.pas +++ b/云翔生产管理(MYSC.dll)/U_CPXiaoShouList.pas @@ -11,7 +11,21 @@ uses cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + 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 TfrmCPXiaoShouList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_FHSQListSel.dfm b/云翔生产管理(MYSC.dll)/U_FHSQListSel.dfm new file mode 100644 index 0000000..6a94648 --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_FHSQListSel.dfm @@ -0,0 +1,792 @@ +object frmFHSQListSel: TfrmFHSQListSel + Left = 527 + Top = 287 + Width = 1308 + Height = 679 + Caption = #21457#36135#30003#35831#36873#25321 + 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 = 75 + 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_MYSC.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 31 + OnClick = ToolButton2Click + end + object TBRafresh: TToolButton + Left = 79 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 158 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + OnClick = TBFindClick + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 127 + Width = 1300 + Height = 263 + Align = alClient + TabOrder = 3 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + OnCustomDrawCell = Tv1CustomDrawCell + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.Indicator = True + Styles.Content = DataLink_MYSC.Default + Styles.Inactive = DataLink_MYSC.SHuangSe + Styles.IncSearch = DataLink_MYSC.SHuangSe + Styles.Selection = DataLink_MYSC.SHuangSe + Styles.Header = DataLink_MYSC.Default + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 49 + end + object v1Column8: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'FSID' + HeaderAlignmentHorz = taCenter + Width = 93 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_MYSC.Default + Width = 87 + end + object v1Column21: TcxGridDBColumn + Caption = #21457#36135#25260#22836 + DataBinding.FieldName = 'FHTaiTou' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 118 + end + object v1Column10: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'SHDanWei' + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1OrdPerson1: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Salesman' + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_MYSC.Default + Width = 91 + end + object v1OrdDate: TcxGridDBColumn + Caption = #30003#35831#21457#36135#26085#26399 + DataBinding.FieldName = 'SQDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Focusing = False + Styles.Header = DataLink_MYSC.Default + Width = 70 + end + object v1Column11: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPSHZ' + HeaderAlignmentHorz = taCenter + Width = 72 + end + object v1Column1: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column13: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column17: TcxGridDBColumn + Caption = #23457#26680#26085#26399 + DataBinding.FieldName = 'ChkTime' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column18: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPSHZ' + HeaderAlignmentHorz = taCenter + Width = 66 + end + object v1Column19: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQtyHZ' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1300 + Height = 73 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 12 + 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 = 263 + Top = 12 + Width = 36 + 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 Label5: TLabel + Left = 245 + Top = 44 + 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 Label8: TLabel + Left = 430 + Top = 99 + Width = 52 + Height = 12 + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 455 + Top = 12 + Width = 54 + 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 = 303 + Top = 99 + 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 Label13: TLabel + Left = 303 + Top = 123 + Width = 26 + Height = 12 + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 85 + Top = 44 + 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 BegDate: TDateTimePicker + Left = 96 + Top = 8 + 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 + end + object EndDate: TDateTimePicker + Left = 96 + Top = 40 + 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 + end + object CustomerNoName: TEdit + Tag = 2 + Left = 301 + Top = 8 + Width = 114 + 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 + OnChange = CustomerNoNameChange + end + object ConPerson1: TEdit + Tag = 2 + Left = 301 + Top = 40 + Width = 114 + 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 + OnChange = CustomerNoNameChange + end + object MPRTCodeName: TEdit + Tag = 2 + Left = 483 + Top = 95 + Width = 76 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object ConNo: TEdit + Tag = 2 + Left = 513 + Top = 8 + Width = 107 + 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 = 4 + OnChange = CustomerNoNameChange + end + object MPRTKZ: TEdit + Tag = 2 + Left = 332 + Top = 95 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object MPRTMF: TEdit + Tag = 2 + Left = 332 + Top = 119 + Width = 56 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 7 + OnChange = CustomerNoNameChange + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 105 + Width = 1300 + Height = 22 + Align = alTop + Enabled = False + TabOrder = 2 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 1 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1300 + ClientRectTop = 19 + 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 = 5 + 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_MYSC.Default + Styles.Inactive = DataLink_MYSC.SHuangSe + Styles.IncSearch = DataLink_MYSC.SHuangSe + Styles.Selection = DataLink_MYSC.SHuangSe + Styles.Header = DataLink_MYSC.Default + object v2Column4: TcxGridDBColumn + Caption = #25152#23646#23458#25143 + DataBinding.FieldName = 'SSKHName' + HeaderAlignmentHorz = taCenter + Width = 123 + end + object v2Column5: TcxGridDBColumn + Caption = #25152#23646#21512#21516#21495 + DataBinding.FieldName = 'SSConNo' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column2: TcxGridDBColumn + Caption = #30333#22383#21333#21495 + DataBinding.FieldName = 'SCConNo' + HeaderAlignmentHorz = taCenter + Width = 91 + end + object v1Column5: TcxGridDBColumn + Caption = #30003#35831#21305#25968 + DataBinding.FieldName = 'SQPS' + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v2Column1: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'FHPS' + HeaderAlignmentHorz = taCenter + Width = 105 + end + object v2Column3: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + HeaderAlignmentHorz = taCenter + Width = 97 + end + object v2Column8: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'PrtCode' + HeaderAlignmentHorz = taCenter + Width = 86 + end + object v2Column12: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'PrtCodeName' + HeaderAlignmentHorz = taCenter + Width = 78 + end + object v2Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'prtmf' + HeaderAlignmentHorz = taCenter + Width = 76 + end + object v2Column10: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'prtkz' + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1000 + Top = 184 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 504 + Top = 184 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 640 + Top = 176 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 704 + Top = 176 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 968 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 936 + Top = 184 + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = ClientDataSet2 + Left = 464 + Top = 192 + 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 = 376 + Top = 184 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 176 + end + object CDS_Print: TClientDataSet + Aggregates = <> + Params = <> + Left = 344 + Top = 184 + end + object ADOQuerySub: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 740 + Top = 176 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 464 + Top = 504 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 496 + Top = 504 + end + object cxGridPopupMenu2: TcxGridPopupMenu + 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 = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 312 + Top = 184 + ReportData = {} + end +end diff --git a/云翔生产管理(MYSC.dll)/U_FHSQListSel.pas b/云翔生产管理(MYSC.dll)/U_FHSQListSel.pas new file mode 100644 index 0000000..528a61a --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_FHSQListSel.pas @@ -0,0 +1,349 @@ +unit U_FHSQListSel; + +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, cxLookAndFeels, cxLookAndFeelPainters, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator, dxBarBuiltInMenu; + +type + TfrmFHSQListSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: 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; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1CustomerNoName: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + CDS_Print: TClientDataSet; + v1Column4: TcxGridDBColumn; + Panel1: TPanel; + Label1: TLabel; + Label4: TLabel; + Label5: TLabel; + Label8: TLabel; + Label9: TLabel; + Label12: TLabel; + Label13: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CustomerNoName: TEdit; + ConPerson1: TEdit; + MPRTCodeName: TEdit; + ConNo: TEdit; + MPRTKZ: TEdit; + MPRTMF: TEdit; + cxTabControl1: TcxTabControl; + cxSplitter1: TcxSplitter; + ADOQuerySub: TADOQuery; + DataSource2: TDataSource; + v1Column8: TcxGridDBColumn; + Label2: TLabel; + ClientDataSet2: TClientDataSet; + cxGridPopupMenu2: TcxGridPopupMenu; + CDS_Note: TClientDataSet; + RM1: TRMGridReport; + v1Column11: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + v2Column4: TcxGridDBColumn; + v2Column5: TcxGridDBColumn; + v2Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column3: TcxGridDBColumn; + v2Column8: TcxGridDBColumn; + v2Column12: TcxGridDBColumn; + v2Column9: TcxGridDBColumn; + v2Column10: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + //RMllPDFExport1: TRMllPDFExport; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + private + procedure InitGrid(); + procedure InitSubGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + FFInt: Integer; + canshu1: string; + { Public declarations } + end; + +var + frmFHSQListSel: TfrmFHSQListSel; + +implementation + +uses + U_DataLink, U_Fun, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmFHSQListSel.FormDestroy(Sender: TObject); +begin + frmFHSQListSel := nil; +end; + +procedure TfrmFHSQListSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmFHSQListSel.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; +end; + +procedure TfrmFHSQListSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid('', Tv1, ''); + WriteCxGrid('ӱ', Tv2, ''); +end; + +procedure TfrmFHSQListSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + Sql.Add(' select A.* '); + + sql.Add(' from FHSQ_Main A'); + + sql.Add(' where CRType=''ӹ'' '); + + if cxTabControl1.TabIndex <> 0 then + begin + sql.Add(' and filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and filltime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + end; + if cxTabControl1.TabIndex = 0 then + begin + SQL.Add(' and isnull(A.Chker,'''')='''' '); + end + else if cxTabControl1.TabIndex = 1 then + begin + SQL.Add(' and isnull(A.Chker,'''')<>'''' '); + end; +// if Trim(canshu1)<>'Ȩ' then +// begin +// sql.Add(' and isnull(A.Filler,'''')='''+Trim(DName)+''''); +// end; + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmFHSQListSel.InitForm(); +begin +// if Self.Caption='' then +// begin +// +// Tnochk.Visible:=False; +// canshu1:=''; +// end else +// if Self.Caption='(Ȩ)' then +// begin +// tchk.Visible:=False; +// Tnochk.Visible:=False; +// canshu1:='Ȩ'; +// end else +// if Self.Caption='' then +// begin +// canshu1:='Ȩ'; +// end; + ReadCxGrid('', Tv1, ''); + ReadCxGrid('ӱ', Tv2, ''); + + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; + InitGrid(); + +end; + +procedure TfrmFHSQListSel.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; + +function TfrmFHSQListSel.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete 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 TfrmFHSQListSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + TBFind.Click; + InitSubGrid(); +end; + +procedure TfrmFHSQListSel.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmFHSQListSel.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmFHSQListSel.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmFHSQListSel.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 TfrmFHSQListSel.InitSubGrid(); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + if Order_Main.IsEmpty = False then + sql.Add('select * from FHSQ_Sub A where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''') + else + sql.Add('select * from FHSQ_Sub A where 1=2'); + Open; + end; + SCreateCDS20(ADOQueryTemp, ClientDataSet2); + SInitCDSData20(ADOQueryTemp, ClientDataSet2); +end; + +procedure TfrmFHSQListSel.cxTabControl1Change(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmFHSQListSel.ToolButton2Click(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmFHSQListSel.Tv1DblClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmFHSQListSel.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('SQPSHZ').Index]) = (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('FHPSHZ').Index]) then + ACanvas.Brush.Color := $FFFF00; +end; + +procedure TfrmFHSQListSel.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from FHSQ_Sub A '); + sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + ''''); + Open; + end; + SCreateCDS20(ADOQueryTemp, ClientDataSet2); + SInitCDSData20(ADOQueryTemp, ClientDataSet2); +end; + +end. + diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm index 88c9d26..7171f56 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm @@ -19,7 +19,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1156 + Width = 1164 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -100,8 +100,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object Panel3: TPanel Left = 0 Top = 30 - Width = 1156 - Height = 738 + Width = 1164 + Height = 746 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -109,7 +109,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object Panel4: TPanel Left = 2 Top = 2 - Width = 1152 + Width = 1160 Height = 246 Align = alTop BevelInner = bvRaised @@ -142,7 +142,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG ParentFont = False end object Label22: TLabel - Left = 27 + Left = 28 Top = 54 Width = 94 Height = 17 @@ -221,7 +221,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object Label11: TLabel Left = 403 - Top = 87 + Top = 85 Width = 74 Height = 17 Caption = #39068' '#33394#65306 @@ -259,7 +259,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG ParentFont = False end object Label3: TLabel - Left = 29 + Left = 28 Top = 118 Width = 90 Height = 17 @@ -272,7 +272,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG ParentFont = False end object Label5: TLabel - Left = 32 + Left = 28 Top = 161 Width = 84 Height = 17 @@ -337,8 +337,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG ParentFont = False end object Label25: TLabel - Left = 115 - Top = 87 + Left = 179 + Top = 85 Width = 74 Height = 17 Caption = #20851#32852'ID'#65306 @@ -443,7 +443,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object MYColor: TEdit Tag = 2 Left = 473 - Top = 82 + Top = 81 Width = 140 Height = 25 Font.Charset = GB2312_CHARSET @@ -590,8 +590,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG Width = 141 end object btn1: TButton - Left = 32 - Top = 80 + Left = 28 + Top = 77 Width = 73 Height = 33 Caption = #25968#25454#36873#25321 @@ -606,8 +606,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object scdsubid: TEdit Tag = 2 - Left = 179 - Top = 82 + Left = 243 + Top = 81 Width = 140 Height = 25 Enabled = False @@ -637,11 +637,26 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG TabOrder = 17 Visible = False end + object Button1: TButton + Left = 104 + Top = 77 + Width = 73 + Height = 33 + Caption = #21457#36135#30003#35831 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 18 + OnClick = Button1Click + end end object Panel5: TPanel Left = 2 Top = 248 - Width = 1152 + Width = 1160 Height = 100 Align = alTop TabOrder = 1 @@ -1030,8 +1045,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object Panel8: TPanel Left = 2 Top = 348 - Width = 1152 - Height = 388 + Width = 1160 + Height = 396 Align = alClient Caption = 'Panel8' TabOrder = 2 @@ -1039,7 +1054,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG Left = 1 Top = 1 Width = 316 - Height = 386 + Height = 394 Align = alLeft TabOrder = 0 object Label18: TLabel @@ -1144,8 +1159,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object cxGrid1: TcxGrid Left = 317 Top = 1 - Width = 834 - Height = 386 + Width = 842 + Height = 394 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas index 0c3122b..50b53cc 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas @@ -139,6 +139,7 @@ type Tv1Column5: TcxGridDBColumn; ZKZT: TComboBox; LXHSL: TEdit; + Button1: TButton; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -159,6 +160,7 @@ type procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure MLConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure btn1Click(Sender: TObject); + procedure Button1Click(Sender: TObject); private procedure InitData(); function SaveData(): Boolean; @@ -181,7 +183,7 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_GYSList, U_OrderListSel, U_PBCGRKListSel, - U_MLConTract_NXSel, U_OrderMXSelist, U_MLSCDXZ; + U_MLConTract_NXSel, U_OrderMXSelist, U_MLSCDXZ, U_FHSQListSel; {$R *.dfm} function TfrmLLRKInPutMH_RCCG.YFData(): Boolean; @@ -676,10 +678,13 @@ begin exit; end; end; - if Trim(PBBatchNo.Text) = '' then + if Trim(FMYType) <> 'Ʒټӹ' then begin - Application.MessageBox('ϵŲΪ!', 'ʾ', 0); - Exit; + if Trim(PBBatchNo.Text) = '' then + begin + Application.MessageBox('ϵŲΪ!', 'ʾ', 0); + Exit; + end; end; if ClientDataSet1.IsEmpty then begin @@ -713,7 +718,7 @@ begin // First; // while not Eof do // begin -// X := X + StrToFloatDef(Trim(ClientDataSet1.fieldbyname('MQty').AsString), 0); +// X := X + StrToFloatDef(Trim(ClientDataSet1.fieldbyname('MQty').AsString), 0); // Next; // end; // @@ -1066,5 +1071,25 @@ begin end; end; +procedure TfrmLLRKInPutMH_RCCG.Button1Click(Sender: TObject); +begin + try + frmFHSQListSel := TfrmFHSQListSel.Create(Application); + with frmFHSQListSel do + begin + if ShowModal = 1 then + begin +// InitGrid(); +// Self.MYName.Text := Trim(frmmlscdxz.Order_Main.fieldbyname('CPName').AsString); +// Self.RCColor.Text := Trim(frmmlscdxz.Order_Main.fieldbyname('CPColor').AsString); +// Self.MYColorNo.Text := Trim(frmmlscdxz.Order_Main.fieldbyname('SeHao').AsString); + Self.scdsubid.Text := Trim(frmFHSQListSel.ClientDataSet2.fieldbyname('FSId').AsString); + end; + end; + finally + frmFHSQListSel.Free; + end; +end; + end. diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm index e215218..a2ab3c6 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm @@ -1,6 +1,6 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ - Left = 291 - Top = 163 + Left = 599 + Top = 280 Width = 1556 Height = 781 Caption = #21152#24037#30721#21333#30331#35760 @@ -20,7 +20,7 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -113,8 +113,8 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ object cxGrid1: TcxGrid Left = 0 Top = 98 - Width = 1540 - Height = 644 + Width = 1548 + Height = 652 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -335,6 +335,20 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ HeaderAlignmentHorz = taCenter Width = 261 end + object Tv1Column8: TcxGridDBColumn + Caption = #21457#36135#25968#37327 + DataBinding.FieldName = 'FHQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 108 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20851#32852'ID' + DataBinding.FieldName = 'scdsubid' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end object Tv1Column6: TcxGridDBColumn Caption = #26579#21378#39068#33394 DataBinding.FieldName = 'RCColor' @@ -350,7 +364,7 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ object Panel1: TPanel Left = 0 Top = 32 - Width = 1540 + Width = 1548 Height = 66 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.pas b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.pas index 6ec62f4..6417216 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.pas +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.pas @@ -6,26 +6,25 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, - dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, - dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, - dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, + cxDropDownEdit, cxPC, Buttons, cxTextEdit, 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; + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmPBCGRKList_RCDJ = class(TForm) @@ -120,6 +119,8 @@ type Label9: TLabel; MYColor: TEdit; Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -141,26 +142,20 @@ type procedure Image2Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); - procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); private - FGXName:string; - DQdate:TDateTime; + FGXName: string; + DQdate: TDateTime; procedure InitGrid(); procedure InitForm(); - function DelData():Boolean; + function DelData(): Boolean; procedure initGX(); { Private declarations } public - FFInt,FCloth:Integer; - canshu1:string; + FFInt, FCloth: Integer; + canshu1: string; { Public declarations } end; @@ -169,8 +164,9 @@ type //frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ; implementation + uses - U_DataLink,U_RTFun,U_ZDYHelp,U_LLRKInPutMH_RCCG; + U_DataLink, U_RTFun, U_ZDYHelp, U_LLRKInPutMH_RCCG; {$R *.dfm} @@ -179,21 +175,20 @@ begin //frmPBCGRKList_RCDJ:=nil; end; -procedure TfrmPBCGRKList_RCDJ.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmPBCGRKList_RCDJ.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmPBCGRKList_RCDJ.FormCreate(Sender: TObject); begin - cxgrid1.Align:=alClient; - canshu1:=Trim(DParameters1); + cxgrid1.Align := alClient; + canshu1 := Trim(DParameters1); end; procedure TfrmPBCGRKList_RCDJ.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ӹ뵥',Tv1,'ó'); + WriteCxGrid('ӹ뵥', Tv1, 'ó'); Close; end; @@ -203,8 +198,8 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; - Close; + Filtered := False; + Close; sql.Clear; sql.Add('select AA.* '); sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); @@ -217,34 +212,40 @@ begin sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')'); sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO'); // sql.Add(',PS1=(select count(MXID) from CK_MYSC_CR_MX D where D.MYID=A.MYID )'); + + + sql.Add(',FHQty=(select X.FHQty from FHSQ_Sub X where X.FSId=A.scdsubid)'); +// sql.Add(',FHPS=(select X.FHPS from FHSQ_Sub X where X.FSId=A.scdsubid)'); + + sql.Add(' from CK_MYSC_CR A '); sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); sql.Add(' where 1=1 '); - if CheckBox1.Checked=False then + if CheckBox1.Checked = False then begin - sql.Add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM',now)+'-01')+''''); - sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',now+1))+''''); - BegDate.Visible:=false; - EndDate.Visible:=false; + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM', now) + '-01') + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; end else begin - sql.Add(' and A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+''''); - sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+''''); - BegDate.Visible:=true; - EndDate.Visible:=true; + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; end; sql.Add(' and isnull(CRType,'''')=''ӹ뵥'' '); - if canshu1<>'Ȩ' then + if canshu1 <> 'Ȩ' then begin - sql.add(' and A.filler='''+trim(DName)+''''); + sql.add(' and A.filler=''' + trim(DName) + ''''); end; sql.Add(')AA'); Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; @@ -252,28 +253,29 @@ end; procedure TfrmPBCGRKList_RCDJ.InitForm(); var - fsj:string; + fsj: string; begin - BegDate.Date:=StrToDate(formatdatetime('yyyy-MM',SGetServerDate(ADOQueryTemp))+'-01'); - EndDate.Date:=SGetServerDate(ADOQueryTemp); - ReadCxGrid('ӹ뵥',Tv1,'ó'); - fsj:='select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' '; - SInitComBoxBySql(ADOQueryTemp,MYTypeFlag,False,fsj); + BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); + EndDate.Date := SGetServerDate(ADOQueryTemp); + ReadCxGrid('ӹ뵥', Tv1, 'ó'); + fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' '; + SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj); InitGrid(); end; procedure TfrmPBCGRKList_RCDJ.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; -function TfrmPBCGRKList_RCDJ.DelData():Boolean; +function TfrmPBCGRKList_RCDJ.DelData(): Boolean; begin try - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; Order_Main.DisableControls; with Order_Main do @@ -285,13 +287,13 @@ begin begin Close; sql.Clear; - sql.Add(' delete YS_Money_CR where YFTypeId='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); + sql.Add(' delete YS_Money_CR where YFTypeId=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); sql.Add(' insert into CK_MYSC_CR_Log '); - sql.Add(' select * from CK_MYSC_CR where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); - sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+''''); - sql.Add(' where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); - sql.Add(' Delete CK_MYSC_CR where MYId='''+Trim(Order_Main.fieldbyname('MYId').AsString)+''''); - sql.Add(' delete from TP_File where WBID='''+trim(Order_Main.fieldbyname('MYId').AsString)+''' '); + sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + ''''); + sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' Delete CK_MYSC_CR where MYId=''' + Trim(Order_Main.fieldbyname('MYId').AsString) + ''''); + sql.Add(' delete from TP_File where WBID=''' + trim(Order_Main.fieldbyname('MYId').AsString) + ''' '); sql.Add(' and TFType=''ӹ뵥'''); ExecSQL; end; @@ -300,39 +302,40 @@ begin end; Order_Main.EnableControls; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except ADOQueryCmd.Connection.RollbackTrans; - Result:=False; - Application.MessageBox('ɾ쳣','ʾ',0); + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; procedure TfrmPBCGRKList_RCDJ.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel(Self.Caption,cxGrid1); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(Self.Caption, cxGrid1); end; procedure TfrmPBCGRKList_RCDJ.TBRafreshClick(Sender: TObject); begin - InitGrid(); + InitGrid(); TBFind.Click; end; procedure TfrmPBCGRKList_RCDJ.TBAddClick(Sender: TObject); begin - Panel2.Visible:=True; + Panel2.Visible := True; initGX(); end; procedure TfrmPBCGRKList_RCDJ.initGX(); var - BB:array[0..100] of string; - i,j:Integer; + BB: array[0..100] of string; + i, j: Integer; begin - with ADOQueryTemp do + with ADOQueryTemp do begin Close; sql.Clear; @@ -341,31 +344,31 @@ begin end; if ADOQueryTemp.IsEmpty then begin - Application.MessageBox('ûжݣ','ʾ',0); + Application.MessageBox('ûжݣ', 'ʾ', 0); Exit; end; with ADOQueryTemp do begin First; - i:=0; + i := 0; while not Eof do begin - BB[i]:=Trim(fieldbyname('ZDYName').AsString); - i:=i+1; + BB[i] := Trim(fieldbyname('ZDYName').AsString); + i := i + 1; Next; end; end; - i:=i-1; - if i>14 then + i := i - 1; + if i > 14 then begin - i:=14; + i := 14; end; - for j:=0 to i do + for j := 0 to i do begin with Panel2 do begin - TSpeedButton(Controls[j]).Visible:=True; - TSpeedButton(Controls[j]).Caption:=BB[j]; + TSpeedButton(Controls[j]).Visible := True; + TSpeedButton(Controls[j]).Caption := BB[j]; end; end; end; @@ -387,19 +390,19 @@ end; procedure TfrmPBCGRKList_RCDJ.ToolButton1Click(Sender: TObject); var - FFMYType:String; + FFMYType: string; begin - FFMYType:=Trim(Order_Main.fieldbyname('MYType').AsString); + FFMYType := Trim(Order_Main.fieldbyname('MYType').AsString); try - frmLLRKInPutMH_RCCG:=TfrmLLRKInPutMH_RCCG.Create(Application); + frmLLRKInPutMH_RCCG := TfrmLLRKInPutMH_RCCG.Create(Application); with frmLLRKInPutMH_RCCG do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MYId').AsString); - FMYType:=Trim(Self.Order_Main.fieldbyname('MYType').AsString); - FMYTypeFlag:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); - labMYType.Caption:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MYId').AsString); + FMYType := Trim(Self.Order_Main.fieldbyname('MYType').AsString); + FMYTypeFlag := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + labMYType.Caption := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + if ShowModal = 1 then begin end; @@ -411,16 +414,18 @@ end; procedure TfrmPBCGRKList_RCDJ.CustomerNoNameChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmPBCGRKList_RCDJ.N2Click(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if Trim(canshu1)<>'Ȩ' then + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) <> 'Ȩ' then begin // if Order_Main.FieldByName('filltime').AsDateTime+1'''' '); sql.Add(' or isnull(ChkerQ,'''')<>'''') '); Open; end; - if ADOQueryTemp.IsEmpty=false then + if ADOQueryTemp.IsEmpty = false then begin - Application.MessageBox('Ӧ,ɾ','ʾ'); + Application.MessageBox('Ӧ,ɾ', 'ʾ'); exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; if DelData() then begin @@ -464,10 +470,11 @@ end; procedure TfrmPBCGRKList_RCDJ.N1Click(Sender: TObject); var - FFMYType:String; + FFMYType: string; begin - if Order_Main.IsEmpty then Exit; - if Trim(canshu1)<>'Ȩ' then + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) <> 'Ȩ' then begin // if Order_Main.FieldByName('filltime').AsDateTime+1(AViewInfo.GridRecord.Values[id10]) then + Id := TV1.GetColumnByFieldName('PS').Index; + Id10 := TV1.GetColumnByFieldName('MXHZPS').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then begin - ACanvas.Brush.Color:=clRed; + ACanvas.Brush.Color := clRed; end; end; -procedure TfrmPBCGRKList_RCDJ.v1Column17CustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmPBCGRKList_RCDJ.v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var - Id,Id10:Integer; + Id, Id10: Integer; begin - Id:=TV1.GetColumnByFieldName('KgQty').Index; - Id10:=TV1.GetColumnByFieldName('MXHZKgQty').Index; - if (AViewInfo.GridRecord.Values[id])<>(AViewInfo.GridRecord.Values[id10]) then + Id := TV1.GetColumnByFieldName('KgQty').Index; + Id10 := TV1.GetColumnByFieldName('MXHZKgQty').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then begin - ACanvas.Brush.Color:=clRed; + ACanvas.Brush.Color := clRed; end; end; -procedure TfrmPBCGRKList_RCDJ.v1Column3CustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmPBCGRKList_RCDJ.v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var - Id,Id10:Integer; + Id, Id10: Integer; begin - Id:=TV1.GetColumnByFieldName('Qty').Index; - Id10:=TV1.GetColumnByFieldName('MXHZQty').Index; - if (AViewInfo.GridRecord.Values[id])<>(AViewInfo.GridRecord.Values[id10]) then + Id := TV1.GetColumnByFieldName('Qty').Index; + Id10 := TV1.GetColumnByFieldName('MXHZQty').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then begin - ACanvas.Brush.Color:=clRed; + ACanvas.Brush.Color := clRed; end; end; end. + diff --git a/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.dfm b/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.dfm index af8e54d..4b4bdfa 100644 --- a/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.dfm +++ b/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.dfm @@ -1,6 +1,6 @@ object frmXiaoShouDataNewListQB: TfrmXiaoShouDataNewListQB - Left = -6 - Top = 36 + Left = 611 + Top = 249 Width = 1547 Height = 788 Align = alClient @@ -22,7 +22,7 @@ object frmXiaoShouDataNewListQB: TfrmXiaoShouDataNewListQB object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1531 + Width = 1539 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -140,8 +140,8 @@ object frmXiaoShouDataNewListQB: TfrmXiaoShouDataNewListQB object cxGrid1: TcxGrid Left = 0 Top = 108 - Width = 1531 - Height = 641 + Width = 1539 + Height = 649 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 @@ -373,7 +373,7 @@ object frmXiaoShouDataNewListQB: TfrmXiaoShouDataNewListQB object Panel1: TPanel Left = 0 Top = 32 - Width = 1531 + Width = 1539 Height = 48 Align = alTop BevelInner = bvRaised @@ -552,7 +552,7 @@ object frmXiaoShouDataNewListQB: TfrmXiaoShouDataNewListQB object cxTabControl1: TcxTabControl Left = 0 Top = 80 - Width = 1531 + Width = 1539 Height = 28 Align = alTop Font.Charset = GB2312_CHARSET @@ -570,7 +570,7 @@ object frmXiaoShouDataNewListQB: TfrmXiaoShouDataNewListQB #24050#30331#35760) OnChange = cxTabControl1Change ClientRectBottom = 30 - ClientRectRight = 1531 + ClientRectRight = 1539 ClientRectTop = 30 end object cxGrid2: TcxGrid diff --git a/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.pas b/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.pas index 1f4993c..9dbbc04 100644 --- a/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.pas +++ b/云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, BtnEdit, cxTextEdit, 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 TfrmXiaoShouDataNewListQB = class(TForm) @@ -220,7 +233,7 @@ begin SQL.Add(' inner join ML_OrderMainNew D on A.MainId=D.NewMLID'); if cxTabControl1.TabIndex = 0 then begin - sql.Add('where A.CWFlag=0 and isnull(A.FHMQty,0)<>0'); + sql.Add('where A.CWFlag=0 and isnull(A.FHMQty,0)<>0 and CRType not in (''ӹ'') '); end else begin @@ -647,7 +660,6 @@ begin // Application.MessageBox('۲Ϊ0!', 'ʾ', 0); // exit; // end; - // if Order_Main.Locate('SSel;FHMoney', VarArrayOf(['True', 0]), [loPartialKey]) then // begin // Application.MessageBox('Ϊ0!', 'ʾ', 0); diff --git a/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof b/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof index d38408e..76084d7 100644 --- a/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof +++ b/发货申请(DeliveryApplication.dll)/DeliveryApplication.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\\Ŀ\\(DeliveryApplication.dll)\testDll.exe +HostApplication=D:\ֿ\Ŀ\D7WMyunxiang\(DeliveryApplication.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/发货申请(DeliveryApplication.dll)/U_DataLink.pas b/发货申请(DeliveryApplication.dll)/U_DataLink.pas index c977be0..81e0681 100644 --- a/发货申请(DeliveryApplication.dll)/U_DataLink.pas +++ b/发货申请(DeliveryApplication.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/发货申请(DeliveryApplication.dll)/U_FHSQInPut.dfm b/发货申请(DeliveryApplication.dll)/U_FHSQInPut.dfm index 4046d12..5dc5d9c 100644 --- a/发货申请(DeliveryApplication.dll)/U_FHSQInPut.dfm +++ b/发货申请(DeliveryApplication.dll)/U_FHSQInPut.dfm @@ -1,6 +1,6 @@ object frmFHSQInPut: TfrmFHSQInPut - Left = 357 - Top = 123 + Left = 566 + Top = 255 Width = 1113 Height = 664 Caption = #21457#36135#30003#35831#24405#20837 @@ -18,7 +18,7 @@ object frmFHSQInPut: TfrmFHSQInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1097 + Width = 1105 Height = 29 ButtonHeight = 30 ButtonWidth = 75 @@ -58,7 +58,7 @@ object frmFHSQInPut: TfrmFHSQInPut object ScrollBox1: TScrollBox Left = 0 Top = 29 - Width = 1097 + Width = 1105 Height = 111 Align = alTop BevelInner = bvNone @@ -98,11 +98,11 @@ object frmFHSQInPut: TfrmFHSQInPut end object Label11: TLabel Tag = 1 - Left = 390 + Left = 380 Top = 11 - Width = 74 + Width = 90 Height = 17 - Caption = #23458' '#25143#65306 + Caption = #25910#36135#21333#20301#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -17 @@ -268,7 +268,7 @@ object frmFHSQInPut: TfrmFHSQInPut object ToolBar2: TToolBar Left = 0 Top = 140 - Width = 1097 + Width = 1105 Height = 29 ButtonHeight = 30 ButtonWidth = 95 @@ -316,8 +316,8 @@ object frmFHSQInPut: TfrmFHSQInPut object cxGrid1: TcxGrid Left = 0 Top = 169 - Width = 1097 - Height = 456 + Width = 1105 + Height = 464 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView diff --git a/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas b/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas index 70477f3..9f0cddf 100644 --- a/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas +++ b/发货申请(DeliveryApplication.dll)/U_FHSQInPut.pas @@ -10,7 +10,20 @@ uses cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator; + 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 TfrmFHSQInPut = class(TForm) @@ -88,7 +101,7 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_GSListSel, U_SQKCHZSelList, - U_ProductOrderSel, U_ZdyAttachment, U_KHList_CX, U_OrderSel; + U_ProductOrderSel, U_ZdyAttachment, U_KHList_CX, U_OrderSel, U_GYSList; {$R *.dfm} @@ -434,23 +447,43 @@ end; procedure TfrmFHSQInPut.SHDanWeiBtnUpClick(Sender: TObject); begin - try - frmKHList_CX := TfrmKHList_CX.Create(Application); - with frmKHList_CX do - 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); + 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; - finally - frmKHList_CX.Free; end; - end; procedure TfrmFHSQInPut.SHDanWeiBtnDnClick(Sender: TObject); diff --git a/发货申请(DeliveryApplication.dll)/U_FHSQList.dfm b/发货申请(DeliveryApplication.dll)/U_FHSQList.dfm index f0de70e..2dbb48f 100644 --- a/发货申请(DeliveryApplication.dll)/U_FHSQList.dfm +++ b/发货申请(DeliveryApplication.dll)/U_FHSQList.dfm @@ -1,6 +1,6 @@ object frmFHSQList: TfrmFHSQList - Left = 275 - Top = 70 + Left = 635 + Top = 231 Width = 1308 Height = 679 Caption = #21457#36135#30003#35831 @@ -20,7 +20,7 @@ object frmFHSQList: TfrmFHSQList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1292 + Width = 1300 AutoSize = True ButtonHeight = 30 ButtonWidth = 115 @@ -122,8 +122,8 @@ object frmFHSQList: TfrmFHSQList object cxGrid1: TcxGrid Left = 0 Top = 109 - Width = 1292 - Height = 273 + Width = 1300 + Height = 281 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -365,7 +365,7 @@ object frmFHSQList: TfrmFHSQList object Panel1: TPanel Left = 0 Top = 32 - Width = 1292 + Width = 1300 Height = 77 Align = alTop BevelInner = bvRaised @@ -529,8 +529,8 @@ object frmFHSQList: TfrmFHSQList end object cxSplitter1: TcxSplitter Left = 0 - Top = 382 - Width = 1292 + Top = 390 + Width = 1300 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -538,8 +538,8 @@ object frmFHSQList: TfrmFHSQList end object cxGrid2: TcxGrid Left = 0 - Top = 390 - Width = 1292 + Top = 398 + Width = 1300 Height = 250 Align = alBottom TabOrder = 4 diff --git a/发货申请(DeliveryApplication.dll)/U_FHSQList.pas b/发货申请(DeliveryApplication.dll)/U_FHSQList.pas index e4a8764..efd2c50 100644 --- a/发货申请(DeliveryApplication.dll)/U_FHSQList.pas +++ b/发货申请(DeliveryApplication.dll)/U_FHSQList.pas @@ -12,7 +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; + 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 TfrmFHSQList = class(TForm) diff --git a/发货申请(DeliveryApplication.dll)/U_GYSList.dfm b/发货申请(DeliveryApplication.dll)/U_GYSList.dfm new file mode 100644 index 0000000..f04ec02 --- /dev/null +++ b/发货申请(DeliveryApplication.dll)/U_GYSList.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 = 23 + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object KHNo: TEdit + Tag = 2 + Left = 86 + Top = 11 + Width = 125 + Height = 23 + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object KHType: TBtnEditC + Tag = 1 + Left = 510 + Top = 11 + Width = 121 + Height = 23 + 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/发货申请(DeliveryApplication.dll)/U_GYSList.pas b/发货申请(DeliveryApplication.dll)/U_GYSList.pas new file mode 100644 index 0000000..31913ff --- /dev/null +++ b/发货申请(DeliveryApplication.dll)/U_GYSList.pas @@ -0,0 +1,328 @@ +unit U_GYSList; + +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, 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 + 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/发货申请(DeliveryApplication.dll)/U_GetDllForm.pas b/发货申请(DeliveryApplication.dll)/U_GetDllForm.pas index 49a99c2..7d629e2 100644 --- a/发货申请(DeliveryApplication.dll)/U_GetDllForm.pas +++ b/发货申请(DeliveryApplication.dll)/U_GetDllForm.pas @@ -66,15 +66,21 @@ begin SetLength(dtbase, 255); SetLength(user, 255); SetLength(pswd, 255); + if Trim(DataBaseStr) <> '' then + begin + DConString := DataBaseStr; + + end + else + begin + server := '106.14.113.234,7781'; + dtbase := 'yunxiangdata'; + user := 'sa'; + pswd := 'rightsoft@123'; + DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - server := '106.14.113.234,7781'; - dtbase := 'yunxiangdata'; - user := 'sa'; - pswd := 'rightsoft@123'; - DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; // DParameters1 := 'Ȩ'; - + end; if not ConnData() then begin result := 0; diff --git a/发货申请(DeliveryApplication.dll)/U_KHList_CX.dfm b/发货申请(DeliveryApplication.dll)/U_KHList_CX.dfm index fb9da71..9ecde8b 100644 --- a/发货申请(DeliveryApplication.dll)/U_KHList_CX.dfm +++ b/发货申请(DeliveryApplication.dll)/U_KHList_CX.dfm @@ -1,6 +1,6 @@ object frmKHList_CX: TfrmKHList_CX - Left = -69 - Top = 4 + Left = 459 + Top = 450 Width = 1222 Height = 672 Caption = #23458#25143#20449#24687#31649#29702 @@ -20,7 +20,7 @@ object frmKHList_CX: TfrmKHList_CX object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1206 + Width = 1214 Height = 31 ButtonHeight = 30 ButtonWidth = 65 @@ -76,7 +76,7 @@ object frmKHList_CX: TfrmKHList_CX object Panel1: TPanel Left = 0 Top = 31 - Width = 1206 + Width = 1214 Height = 35 Align = alTop BevelInner = bvRaised @@ -292,16 +292,16 @@ object frmKHList_CX: TfrmKHList_CX object cxGrid1: TcxGrid Left = 0 Top = 66 - Width = 1206 - Height = 406 + Width = 1214 + Height = 413 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object TV1: TcxGridDBTableView OnMouseDown = TV1MouseDown - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + 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] @@ -424,16 +424,16 @@ object frmKHList_CX: TfrmKHList_CX end object cxGrid3: TcxGrid Left = 0 - Top = 472 - Width = 1206 + Top = 479 + Width = 1214 Height = 162 Align = alBottom PopupMenu = PopupMenu3 TabOrder = 3 object TV3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + 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] @@ -592,6 +592,7 @@ object frmKHList_CX: TfrmKHList_CX end end object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET diff --git a/发货申请(DeliveryApplication.dll)/U_KHList_CX.pas b/发货申请(DeliveryApplication.dll)/U_KHList_CX.pas index 06ccdc1..0f28fe9 100644 --- a/发货申请(DeliveryApplication.dll)/U_KHList_CX.pas +++ b/发货申请(DeliveryApplication.dll)/U_KHList_CX.pas @@ -12,7 +12,22 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, - cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons; + cxTextEdit, cxPC, cxDropDownEdit, Menus, BtnEdit, Buttons, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, + cxNavigator; type TfrmKHList_CX = class(TForm) diff --git a/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.dfm b/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.dfm index c0226d7..0102f05 100644 --- a/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.dfm +++ b/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.dfm @@ -1,6 +1,6 @@ object frmPBSQSMCK: TfrmPBSQSMCK - Left = 503 - Top = 23 + Left = 563 + Top = 234 Width = 1109 Height = 787 Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')' @@ -19,12 +19,12 @@ object frmPBSQSMCK: TfrmPBSQSMCK object cxGrid3: TcxGrid Left = 505 Top = 0 - Width = 588 - Height = 749 + Width = 596 + Height = 756 Align = alClient TabOrder = 1 object Tv3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_MainSel DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -101,7 +101,7 @@ object frmPBSQSMCK: TfrmPBSQSMCK Left = 0 Top = 0 Width = 505 - Height = 749 + Height = 756 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -241,7 +241,7 @@ object frmPBSQSMCK: TfrmPBSQSMCK TabOrder = 1 object TV2: TcxGridDBTableView OnMouseDown = TV2MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_FHSQ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -387,6 +387,7 @@ object frmPBSQSMCK: TfrmPBSQSMCK object cxStyleRepository1: TcxStyleRepository Left = 792 Top = 336 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET diff --git a/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.pas b/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.pas index 86c95db..9541037 100644 --- a/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.pas +++ b/发货申请(DeliveryApplication.dll)/U_PBSQSMCK.pas @@ -8,7 +8,22 @@ uses cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, - cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit; + cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, + cxNavigator; type TfrmPBSQSMCK = class(TForm) diff --git a/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.dfm b/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.dfm index 78644d7..0e21a9a 100644 --- a/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.dfm +++ b/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.dfm @@ -19,7 +19,7 @@ object frmZdyAttachment: TfrmZdyAttachment object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1126 + Width = 1134 Height = 31 ButtonHeight = 30 ButtonWidth = 59 @@ -60,7 +60,7 @@ object frmZdyAttachment: TfrmZdyAttachment object Panel1: TPanel Left = 0 Top = 31 - Width = 1126 + Width = 1134 Height = 39 Align = alTop BevelInner = bvRaised @@ -103,15 +103,15 @@ object frmZdyAttachment: TfrmZdyAttachment object cxGrid2: TcxGrid Left = 0 Top = 70 - Width = 1126 - Height = 505 + Width = 1134 + Height = 512 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView OnDblClick = Tv2DblClick - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < diff --git a/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.pas b/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.pas index 8eeede6..a6de0cb 100644 --- a/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.pas +++ b/发货申请(DeliveryApplication.dll)/U_ZdyAttachment.pas @@ -12,7 +12,22 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, - cxButtonEdit, cxTextEdit; + cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, + cxNavigator; type TfrmZdyAttachment = class(TForm)