object frmBJInPut: TfrmBJInPut Left = 276 Top = 171 Width = 1283 Height = 502 Align = alClient Caption = #25253#20215#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 120 TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1265 Height = 33 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_YPGL.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 TBAdd: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #26032#22686 ImageIndex = 10 OnClick = TBAddClick end object TBDel: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 100 OnClick = TBDelClick end object TBClose: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object cxGrid2: TcxGrid Left = 0 Top = 33 Width = 1265 Height = 422 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < 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 = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Header = DataLink_YPGL.Default object v2Column12: TcxGridDBColumn Tag = 2 Caption = #25253#20215#26085#26399 DataBinding.FieldName = 'bjdate' PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter Width = 83 end object v2Column1: TcxGridDBColumn Tag = 2 Caption = #23458#25143 DataBinding.FieldName = 'KHNAME' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v2Column1PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 156 end object v2Column8: TcxGridDBColumn Tag = 2 Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'cpcode' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v2Column8PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 102 end object v2C_CodeName: TcxGridDBColumn Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'cpname' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 66 end object v2Column4: TcxGridDBColumn Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'cpspec' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 74 end object v2Column17: TcxGridDBColumn Tag = 2 Caption = #25104#20998 DataBinding.FieldName = 'cpcf' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 66 end object v2Column29: TcxGridDBColumn Tag = 2 Caption = #38376#24133 DataBinding.FieldName = 'cpmf' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 77 end object v2Column6: TcxGridDBColumn Tag = 2 Caption = #20811#37325 DataBinding.FieldName = 'cpkz' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 108 end object v2Column7: TcxGridDBColumn Tag = 2 Caption = #35745#37327#21333#20301 DataBinding.FieldName = 'cpunit' PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( 'KG' 'M' 'Y') HeaderAlignmentHorz = taCenter Width = 115 end object v2Column2: TcxGridDBColumn Tag = 2 Caption = #20215#26684#21333#20301 DataBinding.FieldName = 'priceunit' PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( #20154#27665#24065 #32654#37329) HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 103 end object v2Column3: TcxGridDBColumn Tag = 2 Caption = #20215#26684 DataBinding.FieldName = 'price' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 98 end object v1Column1: TcxGridDBColumn Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'BJNOTE' HeaderAlignmentHorz = taCenter Width = 131 end end object cxGridLevel1: TcxGridLevel GridView = Tv1 end end object DataSource3: TDataSource DataSet = CDS_Sub Left = 512 Top = 136 end object CDS_Sub: TClientDataSet Aggregates = <> Params = <> Left = 480 Top = 136 end object ADOQueryCmd: TADOQuery Connection = DataLink_YPGL.ADOLink Parameters = <> Left = 344 Top = 136 end object ADOQueryMain: TADOQuery Connection = DataLink_YPGL.ADOLink LockType = ltReadOnly Parameters = <> Left = 368 Top = 136 end object ADOQueryTemp: TADOQuery Connection = DataLink_YPGL.ADOLink LockType = ltReadOnly Parameters = <> Left = 408 Top = 136 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 440 Top = 136 end end