object frmBpGdYPCkEdit: TfrmBpGdYPCkEdit Left = 213 Top = 123 Width = 1035 Height = 564 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 = 1019 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 = 214 Width = 1019 Height = 251 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 Styles.Header = BPCK_DataLink.Default object v1ssel: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'ssel' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked Properties.ReadOnly = False HeaderAlignmentHorz = taCenter Width = 60 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 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 = 1019 Height = 153 Align = alTop BevelOuter = bvNone Caption = 'Panel2' TabOrder = 2 object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 1019 Height = 97 Align = alTop Caption = #20986#24211#20449#24687 Color = clSkyBlue Ctl3D = True ParentColor = False ParentCtl3D = 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 = 72 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 Label6: 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 OnKeyPress = CRTimeKeyPress end object CRType: TComboBox Tag = 2 Left = 265 Top = 16 Width = 120 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 1 OnKeyPress = CRTimeKeyPress Items.Strings = ( '' #24191#19996#38646#21806) end object cust: TBtnEditA Left = 484 Top = 16 Width = 297 Height = 20 ReadOnly = True TabOrder = 2 OnKeyPress = CRTimeKeyPress OnBtnClick = custBtnClick end object note: TEdit Left = 88 Top = 68 Width = 693 Height = 20 TabOrder = 3 OnKeyPress = CRTimeKeyPress end object custaddress: TEdit Left = 88 Top = 40 Width = 693 Height = 20 Enabled = False TabOrder = 4 end end object GroupBox2: TGroupBox Left = 0 Top = 97 Width = 1019 Height = 56 Align = alClient Caption = #20135#21697#20449#24687 Color = clSkyBlue Ctl3D = True ParentColor = False ParentCtl3D = False TabOrder = 1 object Label2: TLabel Left = 28 Top = 28 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 Label3: TLabel Left = 208 Top = 28 Width = 54 Height = 12 Caption = #25968' '#37327 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 424 Top = 28 Width = 54 Height = 12 Caption = #21333' '#20215 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object P_CodeName: TBtnEditA Left = 88 Top = 24 Width = 100 Height = 20 TabOrder = 0 OnExit = P_CodeNameExit OnKeyPress = CRTimeKeyPress OnBtnClick = P_CodeNameBtnClick end object Edit1: TEdit Left = 268 Top = 24 Width = 121 Height = 20 TabOrder = 1 OnKeyPress = CRTimeKeyPress end object Edit2: TEdit Left = 488 Top = 24 Width = 121 Height = 20 TabOrder = 2 OnKeyPress = CRTimeKeyPress end object Button1: TButton Left = 620 Top = 20 Width = 75 Height = 25 Caption = #30830#23450 TabOrder = 3 OnClick = Button1Click end object CheckBox1: TCheckBox Left = 736 Top = 24 Width = 97 Height = 17 Caption = #20840#36873 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 4 OnClick = CheckBox1Click end end end object ToolBar2: TToolBar Left = 0 Top = 185 Width = 1019 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 Panel1: TPanel Left = 736 Top = 168 Width = 213 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 = 60 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 object ADOQuery2: TADOQuery Connection = BPCK_DataLink.ADOLink Parameters = <> Left = 828 Top = 52 end end