object frmDJBRKDDList: TfrmDJBRKDDList Left = 96 Top = 41 Width = 1556 Height = 738 Caption = #24453#26816#24067#20837#24211'('#35746#21333')' Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False WindowState = wsMaximized OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1540 Height = 33 ButtonHeight = 30 ButtonWidth = 107 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 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 TBAdd: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #26032#22686 ImageIndex = 1 OnClick = TBAddClick end object TBEdit: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #20462#25913 ImageIndex = 11 OnClick = TBEditClick end object ToolButton2: TToolButton Left = 252 Top = 0 AutoSize = True Caption = #22797#21046 ImageIndex = 38 Visible = False OnClick = ToolButton2Click end object TBDel: TToolButton Left = 315 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 3 OnClick = TBDelClick end object ToolButton1: TToolButton Left = 378 Top = 0 AutoSize = True Caption = #26597#30475 ImageIndex = 38 OnClick = ToolButton1Click end object TBPrint1: TToolButton Left = 441 Top = 0 AutoSize = True Caption = #30721#21333#25171#21360 ImageIndex = 4 OnClick = TBPrint1Click end object Cmb_BZ: TComboBox Left = 528 Top = 1 Width = 130 Height = 28 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 20 ItemIndex = 0 ParentFont = False TabOrder = 0 Text = #20986#24211#30721#21333'2' Items.Strings = ( #20986#24211#30721#21333'2' '') end object ToolButton3: TToolButton Left = 658 Top = 0 Width = 8 Caption = 'ToolButton3' ImageIndex = 22 Style = tbsSeparator end object ToolButton4: TToolButton Left = 666 Top = 0 AutoSize = True Caption = #25209#37327#20462#25913#22791#27880 ImageIndex = 22 Visible = False OnClick = ToolButton4Click end object edtnote: TEdit Tag = 9 Left = 777 Top = 0 Width = 288 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 1 Visible = False end object TBExport: TToolButton Left = 1065 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 68 OnClick = TBExportClick end object TBClose: TToolButton Left = 1128 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 33 Width = 1540 Height = 64 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 28 Top = 12 Width = 24 Height = 12 Caption = #26085#26399 end object Label2: TLabel Left = 40 Top = 36 Width = 12 Height = 12 Caption = #33267 end object Label3: TLabel Left = 302 Top = 12 Width = 48 Height = 12 Caption = #21697' '#21517 end object Label4: TLabel Left = 624 Top = 14 Width = 66 Height = 12 Caption = #20379#24212#21830'/'#23458#25143 end object Label5: TLabel Left = 154 Top = 12 Width = 48 Height = 12 Caption = #20986#24211#21333#21495 end object Label7: TLabel Left = 561 Top = 140 Width = 48 Height = 12 Caption = #35746' '#21333' '#21495 end object Label9: TLabel Left = 561 Top = 116 Width = 48 Height = 12 Caption = #23384#25918#24037#21378 end object Label12: TLabel Left = 154 Top = 36 Width = 48 Height = 12 Caption = #20986#24211#31867#22411 end object Label10: TLabel Left = 714 Top = 140 Width = 48 Height = 12 Caption = #24211' '#20301 end object Label13: TLabel Left = 456 Top = 38 Width = 48 Height = 12 Caption = #39068' '#33394 end object Label14: TLabel Left = 302 Top = 39 Width = 48 Height = 12 Caption = #35745#21010#21333#21495 end object Label15: TLabel Left = 624 Top = 38 Width = 66 Height = 12 Caption = #32568' '#21495 end object Label6: TLabel Left = 456 Top = 12 Width = 48 Height = 12 Caption = #33394' '#21495 end object Label8: TLabel Left = 819 Top = 12 Width = 66 Height = 12 Caption = #22791' '#27880 end object BegDate: TDateTimePicker Left = 53 Top = 8 Width = 85 Height = 20 Date = 40768.166666666660000000 Format = 'yyyy-MM-dd' Time = 40768.166666666660000000 TabOrder = 0 end object EndDate: TDateTimePicker Left = 53 Top = 32 Width = 85 Height = 20 Date = 40768.166666666660000000 Format = 'yyyy-MM-dd' Time = 40768.166666666660000000 TabOrder = 1 end object SPName: TEdit Tag = 2 Left = 356 Top = 8 Width = 80 Height = 20 TabOrder = 2 OnChange = TBFindClick end object SPID: TEdit Tag = 2 Left = 212 Top = 8 Width = 80 Height = 20 TabOrder = 3 OnChange = SPIDChange OnKeyPress = SPIDKeyPress end object OrderNo: TEdit Tag = 2 Left = 612 Top = 137 Width = 80 Height = 20 TabOrder = 4 OnChange = FactoryNameChange end object ToFactoryName: TEdit Tag = 2 Left = 612 Top = 113 Width = 80 Height = 20 TabOrder = 5 OnChange = FactoryNameChange end object CRType: TComboBox Tag = 2 Left = 212 Top = 32 Width = 80 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 6 OnChange = TBFindClick Items.Strings = ( #21152#24037#23436#25104 #22238#20462#23436#25104 #26816#39564#36864#22238 #26399#21021#20837#24211 #25104#21697#37319#36141 #21152#24037#36180#27454 #26579#21378#26399#21021#20837#24211 '' '') end object KuWei: TEdit Tag = 2 Left = 766 Top = 137 Width = 80 Height = 20 TabOrder = 7 OnChange = FactoryNameChange end object SPColor: TEdit Tag = 2 Left = 507 Top = 34 Width = 80 Height = 20 TabOrder = 8 OnChange = FactoryNameChange end object begTime: TDateTimePicker Left = 167 Top = 109 Width = 55 Height = 20 Date = 41583.166666666660000000 Format = 'HH:mm' Time = 41583.166666666660000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Kind = dtkTime ParentFont = False TabOrder = 9 end object endTime: TDateTimePicker Left = 167 Top = 132 Width = 55 Height = 20 Date = 41583.166666666660000000 Format = 'HH:mm' Time = 41583.166666666660000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Kind = dtkTime ParentFont = False TabOrder = 10 end object QCorderNo: TEdit Tag = 2 Left = 356 Top = 35 Width = 80 Height = 20 TabOrder = 11 OnChange = FactoryNameChange end object note: TEdit Tag = 2 Left = 699 Top = 35 Width = 80 Height = 20 TabOrder = 12 OnChange = FactoryNameChange end object FactoryName: TEdit Tag = 2 Left = 699 Top = 10 Width = 80 Height = 20 TabOrder = 13 OnChange = FactoryNameChange end object SPColorNo: TEdit Tag = 2 Left = 507 Top = 9 Width = 80 Height = 20 TabOrder = 14 OnChange = FactoryNameChange end object ZNote: TEdit Tag = 2 Left = 894 Top = 8 Width = 80 Height = 20 TabOrder = 15 OnChange = FactoryNameChange end end object cxGrid2: TcxGrid Left = 0 Top = 97 Width = 1540 Height = 602 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 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 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 OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Inactive = DataLink_PBMDDJ.SHuangSe Styles.IncSearch = DataLink_PBMDDJ.SHuangSe Styles.Selection = DataLink_PBMDDJ.SHuangSe Styles.Header = DataLink_PBMDDJ.Default object v1Column24: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSEL' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Width = 54 end object v1Column6: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'SPID' PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 75 end object v1Column2: TcxGridDBColumn Tag = 2 Caption = #26085#26399 DataBinding.FieldName = 'CRTime' PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object v1Column14: TcxGridDBColumn Tag = 2 Caption = #20379#24212#21830'/'#23458#25143 DataBinding.FieldName = 'FactoryName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 101 end object v1Column4: TcxGridDBColumn Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'CRType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #21152#24037#23436#25104 #29983#20135#36864#22238) HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 end object v2Column1: TcxGridDBColumn Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'SPName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> HeaderAlignmentHorz = taCenter Options.Editing = False Width = 97 end object v1Column15: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'SPColor' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 end object v1Column34: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'SPColorNo' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 end object v1Column9: TcxGridDBColumn Tag = 2 Caption = #21305#25968 DataBinding.FieldName = 'PiQty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = DataLink_PBMDDJ.FontBlue Styles.Footer = DataLink_PBMDDJ.FontBlue Styles.Header = DataLink_PBMDDJ.FontBlue Width = 58 end object v2Column6: TcxGridDBColumn Tag = 2 Caption = #24635#31859#25968 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = DataLink_PBMDDJ.FontBlue Styles.Footer = DataLink_PBMDDJ.FontBlue Styles.Header = DataLink_PBMDDJ.FontBlue Width = 85 end object v1Column20: TcxGridDBColumn Caption = #25805#20316#21592 DataBinding.FieldName = 'Filler' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 end object v1Column22: TcxGridDBColumn Caption = #25805#20316#26102#38388 DataBinding.FieldName = 'FillTime' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 end object v1Column12: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'note' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column12PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 80 end object v1Column32: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'QCorderNo' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 end object Tv1Column1: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'ZNote' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 200 end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 end end object ADOQueryCmd: TADOQuery Connection = DataLink_PBMDDJ.ADOLink Parameters = <> Left = 348 Top = 396 end object ADOQueryMain: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 308 Top = 396 end object ADOQueryTemp: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 384 Top = 396 end object DataSource1: TDataSource DataSet = CDS_Main Left = 600 Top = 388 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 568 Top = 388 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 536 Top = 388 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 = 432 Top = 248 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 384 Top = 248 end object RMXLSExport1: TRMXLSExport ShowAfterExport = True ExportPrecision = 1 PagesOfSheet = 100 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 476 Top = 248 end object PopupMenu1: TPopupMenu Left = 160 Top = 268 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end end object ADOQueryPrint: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 348 Top = 248 end end