object frmbpRk: TfrmbpRk Left = 315 Top = 166 Width = 1086 Height = 500 BorderIcons = [biSystemMenu] Caption = #20837#24211#20449#24687 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 = 1070 Height = 29 ButtonHeight = 30 ButtonWidth = 95 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 = BPCK_DataLink.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 14 OnClick = TBSaveClick end object TBPrint: TToolButton Left = 63 Top = 0 Caption = #25171#21360#36864#36135#21333 ImageIndex = 12 Visible = False OnClick = TBPrintClick end object TBClose: TToolButton Left = 158 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 29 Width = 1070 Height = 76 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 36 Top = 20 Width = 52 Height = 12 Caption = #20837#24211#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 = 372 Top = 20 Width = 52 Height = 12 Caption = #20837#24211#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 212 Top = 20 Width = 26 Height = 12 Caption = #20179#24211 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 36 Top = 148 Width = 54 Height = 12 Caption = #22791' '#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 548 Top = 20 Width = 39 Height = 12 Caption = #20379#24212#21830 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 876 Top = 20 Width = 54 Height = 12 Caption = #25968' '#37327 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 876 Top = 48 Width = 52 Height = 12 Caption = #22797#21046#34892#25968 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 36 Top = 124 Width = 52 Height = 12 Caption = #23458#25143#22320#22336 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 712 Top = 20 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 CRTime: TDateTimePicker Left = 92 Top = 16 Width = 100 Height = 20 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 TabOrder = 0 end object CRType: TComboBox Left = 424 Top = 16 Width = 100 Height = 20 Style = csDropDownList ItemHeight = 12 ItemIndex = 0 TabOrder = 1 Text = #29983#20135#20837#24211 Items.Strings = ( #29983#20135#20837#24211) end object ckName: TComboBox Left = 244 Top = 16 Width = 100 Height = 20 Style = csDropDownList ItemHeight = 12 ItemIndex = 0 TabOrder = 2 Text = #26679#21697#20179#24211 Items.Strings = ( #26679#21697#20179#24211) end object note: TEdit Left = 92 Top = 144 Width = 653 Height = 20 TabOrder = 3 end object cust: TBtnEditA Left = 588 Top = 16 Width = 100 Height = 20 TabOrder = 4 OnBtnClick = custBtnClick end object Edit1: TEdit Left = 928 Top = 16 Width = 80 Height = 20 TabOrder = 5 OnKeyPress = Edit1KeyPress end object Edit2: TEdit Left = 928 Top = 44 Width = 80 Height = 20 TabOrder = 6 OnKeyPress = Edit2KeyPress end object custaddress: TEdit Left = 92 Top = 120 Width = 653 Height = 20 Enabled = False TabOrder = 7 end object factoryName: TBtnEditA Left = 752 Top = 16 Width = 100 Height = 20 TabOrder = 8 OnBtnClick = factoryNameBtnClick end end object cxGrid1: TcxGrid Left = 0 Top = 134 Width = 1070 Height = 260 Align = alTop TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' Column = v1P_CodeName end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v1RollNum end item Kind = skSum Column = v1Qty end item Kind = skSum Column = v1Column2 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnSorting = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Header = BPCK_DataLink.Default object v1Column3: TcxGridDBColumn Caption = #35746#21333#21495 DataBinding.FieldName = 'orderNo' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column3PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 80 end object v1P_CodeName: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'P_CodeName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1P_CodeNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 90 end object v1PRTSpec: TcxGridDBColumn Caption = #35268#26684#22411#21495 DataBinding.FieldName = 'P_SPEC' HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 90 end object v1P_Color: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'P_Color' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1P_ColorPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 60 end object v1Column4: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'gangNo' HeaderAlignmentHorz = taCenter Width = 60 end object v1P_MF: TcxGridDBColumn Caption = #38376#24133'(cm)' DataBinding.FieldName = 'P_MF' HeaderAlignmentHorz = taCenter Width = 90 end object v1P_KZ: TcxGridDBColumn Caption = #20811#37325'(g/'#13217')' DataBinding.FieldName = 'P_KZ' HeaderAlignmentHorz = taCenter Width = 90 end object v1CPType: TcxGridDBColumn Caption = #31561#32423 DataBinding.FieldName = 'CPType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( #27491#21697 #19968#31561#27425#21697 #20108#31561#27425#21697) Properties.ReadOnly = False HeaderAlignmentHorz = taCenter Width = 60 end object v1RollNum: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'RollNum' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Styles.Content = BPCK_DataLink.FontBlue Styles.Footer = BPCK_DataLink.FontBlue Styles.Header = BPCK_DataLink.FontBlue Width = 60 end object v1Qty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Content = BPCK_DataLink.FontBlue Styles.Footer = BPCK_DataLink.FontBlue Styles.Header = BPCK_DataLink.FontBlue Width = 60 end object v1QtyUnit: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1QtyUnitPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 76 end object v1Column1: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 68 end object v1Column2: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'money' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = BPCK_DataLink.cxStyle_fontclPurple Styles.Footer = BPCK_DataLink.cxStyle_fontclPurple Styles.Header = BPCK_DataLink.cxStyle_fontclPurple Width = 95 end object Tv1Column1: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'KuWei' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = Tv1Column1PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 80 end object Tv1Column2: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'P_ColorNo' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = Tv1Column2PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 80 end object Tv1Column3: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'note' HeaderAlignmentHorz = taCenter Width = 66 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object ToolBar2: TToolBar Left = 0 Top = 105 Width = 1070 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 = BPCK_DataLink.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 3 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 103 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 107 OnClick = ToolButton2Click end end object ADOQueryCmd: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 292 end object ADOQueryTmp: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 344 Top = 4 end object DataSource1: TDataSource DataSet = CDS_Main Left = 400 Top = 1 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 464 Top = 1 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 556 Top = 9 end object ADOQuery1: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 500 Top = 8 end object ADOPrint: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 816 Top = 16 end object RMDB_MD: TRMDBDataSet Visible = True DataSet = ADOPrint Left = 848 Top = 16 end object RMGridReport1: 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 CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 896 Top = 8 ReportData = {} 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 = 948 Top = 20 end object ADOQuery2: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 312 Top = 256 end end