From 03249e9d0acdef8dcdabd180b308802c53ddbedd Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 5 Feb 2026 17:24:12 +0800 Subject: [PATCH] ~ --- 打卷检验管理/TradeManage.dof | 2 +- 打卷检验管理/TradeManage.skincfg | 50 ++ 打卷检验管理/U_ClothContractList_TpSel.dfm | 861 +++++++++++++++++++++ 打卷检验管理/U_ClothContractList_TpSel.pas | 813 +++++++++++++++++++ 打卷检验管理/U_JYOrderCDOne.dfm | 20 +- 打卷检验管理/U_OrderInPut.dfm | 6 + 打卷检验管理/U_OrderInPut.pas | 16 +- 打卷检验管理/U_ProductOrderNewList.dfm | 6 + 打卷检验管理/U_ProductOrderNewList.pas | 3 +- 9 files changed, 1765 insertions(+), 12 deletions(-) create mode 100644 打卷检验管理/TradeManage.skincfg create mode 100644 打卷检验管理/U_ClothContractList_TpSel.dfm create mode 100644 打卷检验管理/U_ClothContractList_TpSel.pas diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index d75cb0f..e87f6b2 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\ٴ\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJrongchuang\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/打卷检验管理/TradeManage.skincfg b/打卷检验管理/TradeManage.skincfg new file mode 100644 index 0000000..89edbfe --- /dev/null +++ b/打卷检验管理/TradeManage.skincfg @@ -0,0 +1,50 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=1 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkRoom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringTime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinsDefaultPainters=1 +dxSkinValentine=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinXmas2008Blue=1 diff --git a/打卷检验管理/U_ClothContractList_TpSel.dfm b/打卷检验管理/U_ClothContractList_TpSel.dfm new file mode 100644 index 0000000..692b5ea --- /dev/null +++ b/打卷检验管理/U_ClothContractList_TpSel.dfm @@ -0,0 +1,861 @@ +object frmClothContractList_TpSel: TfrmClothContractList_TpSel + Left = 310 + Top = 319 + Width = 1222 + Height = 663 + Caption = #22383#24067#25237#22383#35745#21010 + 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 = 1206 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 59 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 3 + OnClick = TBAddClick + end + object ToolButton2: TToolButton + Left = 189 + Top = 0 + Caption = #22238#20462#26032#22686 + ImageIndex = 57 + Visible = False + OnClick = ToolButton2Click + end + object TBEdit: TToolButton + Left = 272 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 54 + Visible = False + OnClick = TBEditClick + end + object TBDel: TToolButton + Left = 335 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 17 + Visible = False + OnClick = TBDelClick + end + object Tchk: TToolButton + Left = 398 + Top = 0 + AutoSize = True + Caption = #30830#35748#23436#25104 + ImageIndex = 41 + Visible = False + OnClick = TchkClick + end + object TNochk: TToolButton + Left = 485 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 48 + Visible = False + OnClick = TNochkClick + end + object ToolButton1: TToolButton + Left = 572 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 58 + OnClick = ToolButton1Click + end + object TBExport: TToolButton + Left = 635 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 75 + OnClick = TBExportClick + end + object TBPrint: TToolButton + Left = 698 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 12 + OnClick = TBPrintClick + end + object TBClose: TToolButton + Left = 761 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1206 + Height = 53 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 23 + Top = 22 + Width = 52 + Height = 12 + Caption = #30331#35760#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 161 + Top = 22 + Width = 6 + Height = 12 + Caption = '-' + end + object Label3: TLabel + Left = 271 + Top = 22 + Width = 52 + Height = 12 + Caption = #25237#22383#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 420 + Top = 22 + 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 Label4: TLabel + Left = 572 + Top = 22 + Width = 26 + Height = 12 + Caption = #39068#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 704 + Top = 22 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 76 + Top = 18 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 167 + Top = 18 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object ConNo: TEdit + Tag = 2 + Left = 329 + Top = 18 + Width = 81 + Height = 20 + TabOrder = 2 + OnChange = ConNoChange + end + object C_CodeName: TEdit + Tag = 2 + Left = 473 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 3 + OnChange = ConNoChange + end + object C_Color: TEdit + Tag = 2 + Left = 600 + Top = 18 + Width = 83 + Height = 20 + TabOrder = 4 + OnChange = ConNoChange + end + object FactoryNoName: TEdit + Tag = 2 + Left = 748 + Top = 18 + Width = 80 + Height = 20 + TabOrder = 5 + OnChange = ConNoChange + end + end + object ScrollBox1: TScrollBox + Left = 0 + Top = 107 + Width = 1206 + Height = 497 + Align = alTop + BorderStyle = bsNone + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1206 + Height = 497 + Align = alClient + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnMouseDown = Tv1MouseDown + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1H_gs + end + item + Kind = skSum + Column = v1Column7 + end + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + Column = v1Column9 + end + item + Kind = skSum + Column = v1Qty2 + end + item + Kind = skSum + Column = v1Qty1 + end + item + Kind = skSum + Column = v1Column14 + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 20 + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1Ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v1OrderNo: TcxGridDBColumn + Caption = #25237#22383#21333#21495 + DataBinding.FieldName = 'ConNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 65 + end + object v1DeliveryDate: TcxGridDBColumn + Caption = #25237#22383#26085#26399 + DataBinding.FieldName = 'DeliveryDate' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1Column2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_CodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 73 + end + object v1Column5: TcxGridDBColumn + Caption = #31614#35746#26085#26399 + DataBinding.FieldName = 'QDTime' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 70 + end + object v1FactoryNo1Name: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'FactoryNoName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 60 + end + object v1PRTSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 66 + end + object v1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1PRTMF: TcxGridDBColumn + Caption = #38376#24133'(cm)' + DataBinding.FieldName = 'MFQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 61 + end + object v1PRTKZ: TcxGridDBColumn + Caption = #20811#37325'(g/'#13217')' + DataBinding.FieldName = 'KZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 83 + end + object v1Qty2: TcxGridDBColumn + Caption = #32568#25968 + DataBinding.FieldName = 'Qty2' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 60 + end + object v1Qty1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Qty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 46 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'C_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclBlue + Styles.Footer = cxStyle_fontclBlue + Styles.Header = cxStyle_fontclBlue + Width = 58 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'C_Unit' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 47 + end + object v1C_Unit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'C_Unit' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'C_Note' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 68 + end + object v1Column3: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'LXPerson' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1Column6: TcxGridDBColumn + Caption = #32852#31995#26041#24335 + DataBinding.FieldName = 'LXTel' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_TradeManage.Default + Width = 63 + end + object v1H_gs: TcxGridDBColumn + Caption = #22238#20179#32568#25968 + DataBinding.FieldName = 'H_gs' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column7: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'H_PS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column8: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'H_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclPurple + Styles.Footer = cxStyle_fontclPurple + Styles.Header = cxStyle_fontclPurple + Width = 60 + end + object v1Column9: TcxGridDBColumn + Caption = #26410#23436#25104#25968#37327 + DataBinding.FieldName = 'N_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclFuchsia + Styles.Footer = cxStyle_fontclFuchsia + Styles.Header = cxStyle_fontclFuchsia + Width = 70 + end + object v1Column10: TcxGridDBColumn + Caption = #21046#21333#20154 + DataBinding.FieldName = 'Filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column11: TcxGridDBColumn + Caption = #21046#21333#26102#38388 + DataBinding.FieldName = 'FillTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #20462#25913#20154 + DataBinding.FieldName = 'editer' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v1Column13: TcxGridDBColumn + Caption = #20462#25913#26102#38388 + DataBinding.FieldName = 'editTime' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column14: TcxGridDBColumn + Caption = #26816#39564#21305#25968 + DataBinding.FieldName = 'J_ps' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column15: TcxGridDBColumn + Caption = #26816#39564#25968#37327 + DataBinding.FieldName = 'J_Qty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle_fontclTeal + Styles.Footer = cxStyle_fontclTeal + Styles.Header = cxStyle_fontclTeal + Width = 60 + end + object v1Column1: TcxGridDBColumn + DataBinding.FieldName = 'IsZt' + Visible = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 85 + Width = 1206 + Height = 22 + Align = alTop + TabOrder = 3 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23436#25104 + #24050#23436#25104 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1206 + ClientRectTop = 19 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1128 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 936 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1000 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 8 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 1168 + Top = 8 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 624 + Top = 248 + end + object ClientDataSet3: TClientDataSet + Aggregates = <> + Params = <> + Left = 944 + Top = 240 + end + object DataSource2: TDataSource + DataSet = ClientDataSet2 + Left = 888 + Top = 176 + end + object DataSource3: TDataSource + DataSet = ClientDataSet3 + Left = 1112 + Top = 216 + end + object ClientDataSet2: TClientDataSet + Aggregates = <> + Params = <> + Left = 924 + Top = 212 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 352 + Top = 192 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 400 + 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 = 416 + Top = 248 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 804 + Top = 44 + end + object cxStyleRepository1: TcxStyleRepository + Left = 69 + Top = 130 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor] + Color = clInactiveCaption + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = 4707838 + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + TextColor = clOlive + end + end +end diff --git a/打卷检验管理/U_ClothContractList_TpSel.pas b/打卷检验管理/U_ClothContractList_TpSel.pas new file mode 100644 index 0000000..05ee4da --- /dev/null +++ b/打卷检验管理/U_ClothContractList_TpSel.pas @@ -0,0 +1,813 @@ +unit U_ClothContractList_TpSel; + +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, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, cxCheckBox, + cxLookAndFeels, 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 + TfrmClothContractList_TpSel = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + Label3: TLabel; + ConNo: TEdit; + Label5: TLabel; + C_CodeName: TEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + Label4: TLabel; + C_Color: TEdit; + ScrollBox1: TScrollBox; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1OrderNo: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1DeliveryDate: TcxGridDBColumn; + v1FactoryNo1Name: TcxGridDBColumn; + v1PRTSpec: TcxGridDBColumn; + v1PRTMF: TcxGridDBColumn; + v1PRTKZ: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ClientDataSet3: TClientDataSet; + DataSource2: TDataSource; + DataSource3: TDataSource; + ClientDataSet2: TClientDataSet; + v1Qty1: TcxGridDBColumn; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + CDS_PRT: TClientDataSet; + Label6: TLabel; + FactoryNoName: TEdit; + cxTabControl1: TcxTabControl; + v1C_Unit: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Tchk: TToolButton; + TNochk: TToolButton; + ToolButton1: TToolButton; + v1Qty2: TcxGridDBColumn; + v1C_Color: TcxGridDBColumn; + v1H_gs: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + v1Ssel: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + ToolButton2: TToolButton; + 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 TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure cxTabControl1Change(Sender: TObject); + procedure TchkClick(Sender: TObject); + procedure TNochkClick(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + fDParameters1: string; + { Public declarations } + end; + +var + frmClothContractList_TpSel: TfrmClothContractList_TpSel; + +implementation + +uses + U_DataLink, U_ClothContractInPut_TP, U_Fun, U_ProductOrderList, U_ZDYHelp; + +{$R *.dfm} + +procedure TfrmClothContractList_TpSel.FormDestroy(Sender: TObject); +begin + frmClothContractList_TpSel := nil; +end; + +procedure TfrmClothContractList_TpSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmClothContractList_TpSel.FormCreate(Sender: TObject); +begin + ScrollBox1.Align := alClient; +end; + +procedure TfrmClothContractList_TpSel.TBCloseClick(Sender: TObject); +begin + Close; + WriteCxGrid(self.Caption, Tv1, 'ָʾ'); +end; + +procedure TfrmClothContractList_TpSel.InitGrid(); +var + strwhere: string; +begin + strwhere := ''; + if cxTabControl1.TabIndex < 2 then +// strwhere := strwhere + ' and isnull(A.status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; + strwhere := strwhere + ' and isnull(B.C_status,''''0'''')=''''' + inttostr(cxTabControl1.TabIndex) + ''''''; + if (trim(fDParameters1) = 'ѯ') then + strwhere := strwhere + ' and A.Filler=''''' + Trim(DName) + ''''' '; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Get_Contract_TG'); + sql.Add('@begdate=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(',@enddate=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''' '); +// sql.Add(',@conType= '''+TconType+''' '); + sql.Add(',@status=''' +strwhere + ''' '); +// ShowMessage(sql.text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmClothContractList_TpSel.InitForm(); +begin +// if fDParameters1 = 'ѯ' then +// begin +// TBADD.Visible := false; +// TBEdit.Visible := false; +// TBDel.Visible := false; +// Tchk.Visible := false; +// TNochk.Visible := false; +// // Tth.Visible:=false; +// //ToolButton1.Visible:=false; +// end; + + TBEdit.Enabled := false; + TBDel.Enabled := false; + Tchk.Enabled := false; + TNochk.Enabled := false; + if cxTabControl1.TabIndex = 0 then + begin + TBEdit.Enabled := true; + TBDel.Enabled := true; + Tchk.Enabled := true; + end; + if cxTabControl1.TabIndex = 1 then + begin + TNochk.Enabled := true; + end; +end; + +procedure TfrmClothContractList_TpSel.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 TfrmClothContractList_TpSel.TBEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_TpSel.TBDelClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from JYOrder_Sub_AnPai '); + sql.Add('where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('ѻز֣ɾͶƻ', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if trim(Order_Main.FieldByName('mainID').AsString) = 'CM001' then + exit; + if DelData() then + begin + Order_Main.Delete; + end; +end; + +function TfrmClothContractList_TpSel.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete YF_Money_CR where MainID=''' + Trim(Order_Main.fieldbyname('MainID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)'); + // sql.Add(' where CRID='+CRID); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + ExecSQL; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmClothContractList_TpSel.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); +end; + +procedure TfrmClothContractList_TpSel.TBPrintClick(Sender: TObject); +var + fPrintFile, FConNoM: string; +begin + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ͷ.rmf'; + with ADOQueryTemp do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select *,fromConNo=(select Top 1 conNo from Contract_Main X where X.MainID=A.fromMainID) '); + sql.Add('from Contract_Main A'); + sql.Add('inner join Contract_sub B on B.MainID=A.mainID '); + sql.Add('where A.FillTime>= ''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add('and A.FillTime< ''' + Trim(FormatDateTime('yyyy-MM-dd', endDate.DateTime + 1)) + ''' '); + sql.Add('and A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('MainID').AsString))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + if FileExists(fPrintFile) then + begin + RMVariables['dtxz'] := formatdateTime('yyyy-MM-dd', Now); + RMVariables['zdr'] := Trim(dName); + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\Ͷ.rmf'), 'ʾ', 0); + end; +end; + +procedure TfrmClothContractList_TpSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmClothContractList_TpSel.TBAddClick(Sender: TObject); +begin + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 0; + FMainId := ''; + FConType := 'ԤͶ'; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + TBRafresh.Click; + end; +end; + +procedure TfrmClothContractList_TpSel.ConNoChange(Sender: TObject); +var + str1: string; +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmClothContractList_TpSel.FormShow(Sender: TObject); +begin + InitForm(); + ReadCxGrid(self.Caption, Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmClothContractList_TpSel.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 2; +end; + +procedure TfrmClothContractList_TpSel.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FInt := 1; +end; + +procedure TfrmClothContractList_TpSel.ToolButton5Click(Sender: TObject); +var + maxno: string; +begin + if ClientDataSet3.IsEmpty then + Exit; + if ClientDataSet2.IsEmpty then + Exit; + if Trim(ClientDataSet2.fieldbyname('MXId').AsString) = '' then + begin + Application.MessageBox('δȷ', 'ʾ', 0); + Exit; + end; + if ClientDataSet3.Locate('OrderNo', null, []) then + begin + Application.MessageBox('ָŲΪգ', 'ʾ', 0); + Exit; + end; + BegDate.SetFocus; + try + ADOQueryCmd.Connection.BeginTrans; + //ȥ + with ClientDataSet3 do + begin + First; + while not eof do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'To', 'Contract_Sub_MxTo', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡȥˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(ClientDataSet3.fieldbyname('ToId').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(ClientDataSet3.fieldbyname('ToId').AsString) = '' then + Append + else + Edit; + FieldByName('MxId').Value := Trim(ClientDataSet2.fieldbyname('MxId').AsString); + FieldByName('ToId').Value := Trim(maxno); + FieldByName('OrdSubId').Value := Trim(ClientDataSet3.fieldbyname('OrdSubId').AsString); + FieldByName('TPDate').Value := ClientDataSet3.fieldbyname('TPDate').Value; + FieldByName('TPPerson').Value := ClientDataSet3.fieldbyname('TPPerson').Value; + FieldByName('TPNote').Value := ClientDataSet3.fieldbyname('TPNote').Value; + if Trim(ClientDataSet3.fieldbyname('TPQty').AsString) <> '' then + FieldByName('TPQty').Value := ClientDataSet3.fieldbyname('TPQty').Value + else + FieldByName('TPQty').Value := 0; + if Trim(ClientDataSet3.fieldbyname('Qty1').AsString) <> '' then + FieldByName('Qty1').Value := ClientDataSet3.fieldbyname('Qty1').Value + else + FieldByName('Qty1').Value := 0; + if Trim(ClientDataSet3.fieldbyname('Qty2').AsString) <> '' then + FieldByName('Qty2').Value := ClientDataSet3.fieldbyname('Qty2').Value + else + FieldByName('Qty2').Value := 0; + if Trim(ClientDataSet3.fieldbyname('Qty3').AsString) <> '' then + FieldByName('Qty3').Value := ClientDataSet3.fieldbyname('Qty3').Value + else + FieldByName('Qty3').Value := 0; + Post; + end; + with ClientDataSet3 do + begin + Edit; + FieldByName('ToId').Value := Trim(maxno); + Post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ɹ', 'ʾ', 0); + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣', 'ʾ', 0); + end; +end; + +procedure TfrmClothContractList_TpSel.ToolButton3Click(Sender: TObject); +begin + if FInt = 2 then + begin + if ClientDataSet2.IsEmpty then + Exit; + if ClientDataSet3.IsEmpty = false then + begin + Application.MessageBox('Ѳݣɾ¼', 'ʾ', 0); + Exit; + end; + if Trim(ClientDataSet2.fieldbyname('MxId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_Mx where MxId=''' + Trim(ClientDataSet2.fieldbyname('MxId').AsString) + ''''); + ExecSQL; + end; + ClientDataSet2.Delete; + end + else if FInt = 3 then + begin + if ClientDataSet3.IsEmpty then + Exit; + if Trim(ClientDataSet3.fieldbyname('ToId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Contract_Sub_MxTo where ToId=''' + Trim(ClientDataSet3.fieldbyname('ToId').AsString) + ''''); + ExecSQL; + end; + ClientDataSet3.Delete; + with ClientDataSet2 do + begin + Edit; + if ClientDataSet3.IsEmpty = False then + // FieldByName('KCSL').Value:=ClientDataSet2.fieldbyname('MxQty').Value-tv3.DataController.Summary.FooterSummaryValues[0] + + else + FieldByName('KCSL').Value := ClientDataSet2.fieldbyname('MxQty').Value; + Post; + end; + end; +end; + +procedure TfrmClothContractList_TpSel.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'RKPlace'; + flagname := 'ص'; + if ShowModal = 1 then + begin + with ClientDataSet2 do + begin + Edit; + FieldByName('RKPlace').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmClothContractList_TpSel.cxTabControl1Change(Sender: TObject); +begin + initForm(); + InitGrid(); +end; + +procedure TfrmClothContractList_TpSel.TchkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''1'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_TpSel.TNochkClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('ssel', true, []) = false then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + DisableControls; + First; + while not eof do + begin + if Fieldbyname('ssel').AsBoolean then + begin + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_sub SET C_status=''0'' '); + sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); + sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + execsql; + end; + end; + next; + end; + First; + EnableControls; + end; + + InitGrid(); + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList_TpSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ToolButton1.Click; +end; + +procedure TfrmClothContractList_TpSel.ToolButton1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 1; + tbsave.Enabled := false; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmClothContractInPut_Tp.Free; + end; +end; + +procedure TfrmClothContractList_TpSel.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin +{ IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('N_Qty').Index]=0 then + begin + ACanvas.Brush.Color:=clSkyBlue; + end; } + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsZt').Index] = 0 then + begin + ACanvas.Brush.Color := Clred; + end; + +end; + +procedure TfrmClothContractList_TpSel.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBtnHighlight, clBtnShadow, [bBottom, bLeft, bRight], 1); + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + InflateRect(FBounds, -1, -1); + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; +end; + +procedure TfrmClothContractList_TpSel.ToolButton2Click(Sender: TObject); +begin + try + frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application); + with frmClothContractInPut_Tp do + begin + PState := 0; + FMainId := ''; + FConType := 'ɫƻ'; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmClothContractInPut_Tp.Free; + TBRafresh.Click; + end; +end; + +end. + diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index c6516d5..23566b6 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -264,30 +264,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne ImageIndex = 75 OnClick = TBExportClick end - object TBClose: TToolButton + object ToolButton14: TToolButton Left = 967 Top = 30 AutoSize = True - Caption = #20851#38381 - ImageIndex = 55 - OnClick = TBCloseClick - end - object ToolButton14: TToolButton - Left = 1030 - Top = 30 Caption = #25171#21360#20986#24211#30721#21333 ImageIndex = 56 Visible = False OnClick = ToolButton14Click end object ToolButton15: TToolButton - Left = 1149 + Left = 1078 Top = 30 + AutoSize = True Caption = #25171#21360#20837#24211#30721#21333 ImageIndex = 62 Visible = False OnClick = ToolButton15Click end + object TBClose: TToolButton + Left = 1189 + Top = 30 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end end object Panel1: TPanel Left = 0 diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index e2ce05c..9dedf2e 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1923,6 +1923,12 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column5: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'prtcf' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 61941a3..da0c695 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -12,7 +12,20 @@ uses cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview, - RM_DsgGridReport, RM_e_Graphic, RM_e_bmp; + RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, 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 TfrmOrderInPut = class(TForm) @@ -190,6 +203,7 @@ type Label59: TLabel; MPRTcPs: TEdit; Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index fae63bd..74bf2ad 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -1165,6 +1165,12 @@ object frmProductOrderNewList: TfrmProductOrderNewList HeaderAlignmentHorz = taCenter Width = 60 end + object TV2Column13: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'prtcf' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGridLevel1: TcxGridLevel GridView = TV2 diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index dab9fa5..f408e47 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/U_ProductOrderNewList.pas @@ -178,6 +178,7 @@ type RMDBHZ: TRMDBDataSet; CDS_HZ: TClientDataSet; ToolButton9: TToolButton; + TV2Column13: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -584,7 +585,7 @@ end; procedure TfrmProductOrderNewList.TBAddClick(Sender: TObject); var maxno: string; -begin +begin try frmOrderInPut := TfrmOrderInPut.Create(Application); with frmOrderInPut do