object frmBpGdCkEdit: TfrmBpGdCkEdit Left = 216 Top = 139 Width = 1050 Height = 530 Caption = #20986#24211#32534#36753 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 = 1034 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 = BPCK_DataLink.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #26597#35810 ImageIndex = 2 Visible = False OnClick = TBRafreshClick end object TOk: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #30830#23450#20986#24211 ImageIndex = 41 OnClick = TOkClick end object TBExport: TToolButton Left = 150 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 75 Visible = False OnClick = TBExportClick end object TBPrint: TToolButton Left = 213 Top = 0 AutoSize = True Caption = #25171#21360 Enabled = False ImageIndex = 12 OnClick = TBPrintClick end object TBClose: TToolButton Left = 276 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object cxGrid1: TcxGrid Left = 0 Top = 150 Width = 1034 Height = 266 Align = alTop TabOrder = 1 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = Tv1CellClick 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 end item Kind = skSum end item Kind = skSum Column = v1ckqty end item Kind = skSum Column = v1money 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 OptionsView.IndicatorWidth = 15 Styles.Header = BPCK_DataLink.Default OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell 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 Properties.OnEditValueChanged = v1P_CodeNamePropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 152 end object v1P_Color: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'P_Color' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnEditValueChanged = v1P_ColorPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 98 end object v1ckqty: TcxGridDBColumn Caption = #20986#24211#25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.##' Properties.OnEditValueChanged = v1ckqtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Content = BPCK_DataLink.cxStyle_fontclFuchsia Styles.Footer = BPCK_DataLink.cxStyle_fontclFuchsia Styles.Header = BPCK_DataLink.cxStyle_fontclFuchsia Width = 121 end object v1QtyUnit: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'M' 'Kg') HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False Width = 92 end object v1price: TcxGridDBColumn Caption = #20986#24211#20215#26684 DataBinding.FieldName = 'price' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.DisplayFormat = '0.##' Properties.OnEditValueChanged = v1ckqtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 103 end object v1money: TcxGridDBColumn Caption = #20986#24211#37329#39069 DataBinding.FieldName = 'money' HeaderAlignmentHorz = taCenter Styles.Content = BPCK_DataLink.cxStyle_fontclPurple Styles.Footer = BPCK_DataLink.cxStyle_fontclPurple Styles.Header = BPCK_DataLink.cxStyle_fontclPurple Width = 98 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object Panel2: TPanel Left = 0 Top = 32 Width = 1034 Height = 89 Align = alTop BevelOuter = bvNone Caption = 'Panel2' TabOrder = 2 object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 1034 Height = 89 Align = alClient Caption = #20986#24211#20449#24687 Color = clSkyBlue ParentColor = False TabOrder = 0 object Label8: TLabel Left = 24 Top = 20 Width = 52 Height = 12 Caption = #20986#24211#26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 208 Top = 20 Width = 52 Height = 12 Caption = #20986#24211#31867#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 420 Top = 20 Width = 54 Height = 12 Caption = #23458' '#25143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 24 Top = 68 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 Label2: TLabel Left = 24 Top = 44 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 CRTime: TDateTimePicker Left = 88 Top = 16 Width = 100 Height = 20 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 TabOrder = 0 end object CRType: TComboBox Tag = 2 Left = 265 Top = 16 Width = 120 Height = 20 Style = csDropDownList ItemHeight = 12 ItemIndex = 0 TabOrder = 1 OnChange = CRTypeChange Items.Strings = ( '' #29983#20135#20837#24211) end object cust: TBtnEditA Left = 484 Top = 16 Width = 297 Height = 20 ReadOnly = True TabOrder = 2 OnBtnClick = custBtnClick end object note: TEdit Left = 88 Top = 64 Width = 693 Height = 20 TabOrder = 3 end object custaddress: TEdit Left = 88 Top = 40 Width = 693 Height = 20 Enabled = False TabOrder = 4 end end end object ToolBar2: TToolBar Left = 0 Top = 121 Width = 1034 Height = 29 ButtonHeight = 30 ButtonWidth = 83 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 TBKC: TToolButton Left = 0 Top = 0 Caption = #36873#25321#24211#23384 ImageIndex = 108 Visible = False OnClick = TBKCClick end object ToolButton1: TToolButton Left = 83 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 103 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 146 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 107 OnClick = ToolButton2Click end end object Panel1: TPanel Left = 676 Top = 124 Width = 289 Height = 25 BevelOuter = bvNone Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 object Label23: TLabel Left = 108 Top = 4 Width = 45 Height = 14 Caption = #25968#37327#65306 end end object ADOQueryCmd: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 680 Top = 8 end object ADOQueryTmp: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 536 Top = 4 end object DataSource1: TDataSource DataSet = CDS_Main Left = 576 Top = 1 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 612 Top = 5 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 504 Top = 12 end object ADOQuery1: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 740 Top = 16 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 end