object frmKDInPut: TfrmKDInPut Left = 26 Top = 130 Width = 1356 Height = 573 Align = alClient Caption = #23492#20214#20449#24687#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1340 Height = 29 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_CYZZ.ThreeImgList List = True ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 5 OnClick = TBSaveClick end object ToolButton3: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 12 OnClick = ToolButton3Click end object ToolButton4: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 13 OnClick = ToolButton4Click end object TBClose: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object cxGrid1: TcxGrid Left = 0 Top = 29 Width = 1340 Height = 505 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item Kind = skSum Position = spFooter end item Kind = skSum Position = spFooter end item Kind = skSum Position = spFooter end item Kind = skSum Position = spFooter end item Kind = skSum Position = spFooter end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = v1Column3 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 OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.GroupFooters = gfAlwaysVisible Styles.Inactive = DataLink_CYZZ.SkyBlue Styles.IncSearch = DataLink_CYZZ.SkyBlue Styles.Selection = DataLink_CYZZ.SkyBlue Styles.Header = DataLink_CYZZ.Default object v1Column10: TcxGridDBColumn Caption = #23492#20214#26085#26399 DataBinding.FieldName = 'KDDate' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter Width = 70 end object v1Column1: TcxGridDBColumn Caption = #24555#36882#20844#21496 DataBinding.FieldName = 'KDComName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1Column1PropertiesButtonClick HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 104 end object v1Column6: TcxGridDBColumn Caption = #38754#21333#21495 DataBinding.FieldName = 'KDNO' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter Width = 104 end object v1Column18: TcxGridDBColumn Caption = #25910#20214#20154 DataBinding.FieldName = 'KHName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1Column18PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 99 end object v1Column9: TcxGridDBColumn Caption = #22269#23478 DataBinding.FieldName = 'Country' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1Column9PropertiesButtonClick HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 98 end object v1Column3: TcxGridDBColumn Caption = #37325#37327'(KG)' DataBinding.FieldName = 'KgQty' PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Properties.Alignment.Vert = taVCenter HeaderAlignmentHorz = taCenter Width = 75 end object v1Column20: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'KDType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #21253#35065 #24555#36882#34955 #25991#20214) HeaderAlignmentHorz = taCenter Width = 72 end object v1Column12: TcxGridDBColumn Caption = #26041#24335 DataBinding.FieldName = 'KDFangShi' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #32463 #20248) HeaderAlignmentHorz = taCenter Width = 65 end object v1Column7: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' HeaderAlignmentHorz = taCenter Width = 104 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object ADOTemp: TADOQuery Connection = DataLink_CYZZ.ADOLink LockType = ltReadOnly Parameters = <> Left = 600 Top = 5 end object ADOCmd: TADOQuery Connection = DataLink_CYZZ.ADOLink Parameters = <> Left = 397 Top = 3 end object DataSource1: TDataSource DataSet = Order_Sub Left = 375 Top = 440 end object Order_Sub: TClientDataSet Aggregates = <> Params = <> Left = 398 Top = 332 end object DataSource2: TDataSource DataSet = ADOZDY Left = 501 Top = 5 end object ADOZDY: TADOQuery Connection = DataLink_CYZZ.ADOLink LockType = ltReadOnly Parameters = <> Left = 346 Top = 3 end object CDS_ZDY: TClientDataSet Aggregates = <> Params = <> Left = 325 Top = 4 end object ADOQuery1: TADOQuery Connection = DataLink_CYZZ.ADOLink Parameters = <> Left = 453 Top = 5 end object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> Left = 506 Top = 446 end object ClientDataSet1: TClientDataSet Aggregates = <> Params = <> Left = 467 Top = 298 end end