object frmDJBRK_Edit: TfrmDJBRK_Edit Left = -8 Top = -8 Width = 1382 Height = 754 Align = alClient Caption = #22238#20179#20449#24687#24405#20837 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 = 1366 Height = 33 ButtonHeight = 30 ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_PBMDDJ.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 15 OnClick = TBSaveClick end object TBPrint: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #25171#21360#26631#31614 Enabled = False ImageIndex = 4 OnClick = TBPrintClick end object TBClose: TToolButton Left = 150 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 33 Width = 1366 Height = 56 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 36 Top = 20 Width = 48 Height = 12 Caption = #20837#24211#26085#26399 end object Label8: TLabel Left = 116 Top = 120 Width = 48 Height = 12 Caption = #20837#24211#21333#21495 end object Label2: TLabel Left = 232 Top = 20 Width = 48 Height = 12 Caption = #20837#24211#31867#22411 end object Label4: TLabel Left = 452 Top = 20 Width = 36 Height = 12 Caption = #21152#24037#21378 end object CRTime: TDateTimePicker Left = 88 Top = 16 Width = 100 Height = 20 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 TabOrder = 0 end object InoutNo: TEdit Left = 164 Top = 116 Width = 100 Height = 20 TabOrder = 1 end object CRType: TComboBox Left = 284 Top = 16 Width = 117 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 2 Items.Strings = ( #21152#24037#23436#25104 #22238#20462#23436#25104 #26816#39564#36864#22238 #26399#21021#20837#24211 #25104#21697#37319#36141 #21360#33457#21152#24037#20837#24211 #22797#21512#21378#21152#24037#20837#24211 #21050#27611#21378#21152#24037#20837#24211) end object FactoryName: TBtnEditA Left = 492 Top = 16 Width = 213 Height = 20 ReadOnly = True TabOrder = 3 OnBtnClick = FactoryNameBtnClick end object Panel3: TPanel Left = 1008 Top = 2 Width = 356 Height = 52 Align = alRight BevelOuter = bvNone Color = clSkyBlue TabOrder = 4 object Label3: TLabel Left = 64 Top = 12 Width = 44 Height = 21 Caption = #25968#37327 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 200 Top = 16 Width = 24 Height = 12 Caption = #32440#31649 end object QtyMX: TEdit Left = 115 Top = 10 Width = 65 Height = 22 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnKeyPress = QtyMXKeyPress end object QtyFJ: TEdit Left = 228 Top = 10 Width = 65 Height = 22 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end end end object Panel2: TPanel Left = 0 Top = 118 Width = 1366 Height = 475 Align = alTop Caption = 'Panel2' TabOrder = 2 object cxGrid2: TcxGrid Left = 1 Top = 1 Width = 1072 Height = 473 Align = alClient TabOrder = 0 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = Tv1CellClick DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skCount end item Kind = skSum end item Kind = skSum Column = v2Column6 end item Kind = skSum end item Kind = skSum Column = v1Column9 end item Kind = skSum Column = v1Column11 end item Kind = skSum end item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Inactive = DataLink_PBMDDJ.SHuangSe Styles.IncSearch = DataLink_PBMDDJ.SHuangSe Styles.Selection = DataLink_PBMDDJ.SHuangSe Styles.Header = DataLink_PBMDDJ.Default object v1Column6: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'SPID' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end object v1Column2: TcxGridDBColumn Tag = 2 Caption = #30333#22383#32534#21495 DataBinding.FieldName = 'batchNo' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end object v2Column1: TcxGridDBColumn Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'SPName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = False Properties.OnButtonClick = v2Column1PropertiesButtonClick Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 95 end object v1Column15: TcxGridDBColumn Tag = 2 Caption = #39068#33394 DataBinding.FieldName = 'SPColor' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column15PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 57 end object v1Column4: TcxGridDBColumn Caption = #20013#25991#21697#21517 DataBinding.FieldName = 'C_CodeNameZW' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 end object v1Column1: TcxGridDBColumn Tag = 2 Caption = #38376#24133 DataBinding.FieldName = 'SPMF' HeaderAlignmentHorz = taCenter Width = 51 end object v1Column10: TcxGridDBColumn Tag = 2 Caption = #20811#37325 DataBinding.FieldName = 'SPKZ' HeaderAlignmentHorz = taCenter Width = 53 end object v1Column9: TcxGridDBColumn Tag = 2 Caption = #21305#25968 DataBinding.FieldName = 'PiQty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 67 end object v2Column6: TcxGridDBColumn Tag = 2 Caption = #24635#25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 85 end object v1Column5: TcxGridDBColumn Tag = 2 Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 60 end object v1Column11: TcxGridDBColumn Tag = 2 Caption = #37329#39069 DataBinding.FieldName = 'money' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 end object v1Column3: TcxGridDBColumn Tag = 2 Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'KG' 'M') HeaderAlignmentHorz = taCenter Width = 59 end object v1Column19: TcxGridDBColumn Tag = 2 Caption = #26579#21378#32568#21495 DataBinding.FieldName = 'RCGangNo' HeaderAlignmentHorz = taCenter Width = 59 end object v1Column12: TcxGridDBColumn Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' HeaderAlignmentHorz = taCenter Width = 79 end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 end end object GroupBox1: TGroupBox Left = 1073 Top = 1 Width = 292 Height = 473 Align = alRight Caption = #22238#20179#26126#32454#20449#24687'('#21452#20987#21024#38500#26126#32454#20449#24687')' TabOrder = 1 object cxGrid1: TcxGrid Left = 2 Top = 14 Width = 288 Height = 457 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellDblClick = Tv2CellDblClick DataController.DataSource = DSMX DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v2Column2 end item Format = #20849' 0 '#21367 Kind = skCount Column = v2Column3 end item Kind = skSum Column = v2Column4 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.Editing = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Header = DataLink_PBMDDJ.Default object v2Column3: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'MJID' HeaderAlignmentHorz = taCenter Width = 80 end object v2Column4: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'MJqty1' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 end object v2Column2: TcxGridDBColumn Caption = #26631#31614#25968#37327 DataBinding.FieldName = 'MJLen' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end end end object ToolBar2: TToolBar Left = 0 Top = 89 Width = 1366 Height = 29 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_PBMDDJ.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 3 object TBADD: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 12 OnClick = TBADDClick end object TBdel: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 13 OnClick = TBDelClick end end object DataSource3: TDataSource DataSet = CDS_Main Left = 504 Top = 136 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 460 Top = 172 end object ADOQueryCmd: TADOQuery Connection = DataLink_PBMDDJ.ADOLink Parameters = <> Left = 344 Top = 136 end object ADOQueryMain: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 376 Top = 136 end object ADOQueryTemp: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 408 Top = 136 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 440 Top = 136 end object ADOMX: TADOQuery Connection = DataLink_PBMDDJ.ADOLink Parameters = <> Left = 892 Top = 190 end object CDS_MX: TClientDataSet Aggregates = <> Params = <> Left = 848 Top = 246 end object DSMX: TDataSource DataSet = CDS_MX Left = 868 Top = 310 end object RM2: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] DefaultCollate = False ShowPrintDialog = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' PreviewOptions.RulerUnit = rmutScreenPixels PreviewOptions.RulerVisible = False PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 616 Top = 4 ReportData = {} end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 692 Top = 4 end object ADOQueryPrint: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 652 Top = 4 end object ThreeColorBase: TcxStyleRepository Left = 327 Top = 72 object SHuangSe: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = 4707838 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] TextColor = clBtnText end object SkyBlue: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] TextColor = clBlack end object Default: TcxStyle AssignedValues = [svFont] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] end object QHuangSe: TcxStyle AssignedValues = [svColor, svFont] Color = 8454143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] end object Red: TcxStyle AssignedValues = [svColor, svFont] Color = clRed Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] end object FontBlue: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clBlue end object TextSHuangSe: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clOlive end object FonePurple: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = GB2312_CHARSET Font.Color = clWindow Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clPurple end object FoneClMaroon: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clMaroon end object FoneRed: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clRed end object RowColor: TcxStyle AssignedValues = [svColor] Color = 16311512 end object handBlack: TcxStyle AssignedValues = [svFont] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] end object cxBlue: TcxStyle AssignedValues = [svColor, svFont] Color = 16711731 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] end object SHuangSeCu: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = 4707838 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clRed end end end