object frmJWLIn: TfrmJWLIn Left = 221 Top = 143 Width = 910 Height = 461 Caption = #20837#24211#32534#36753 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 902 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 Caption = 'ToolBar1' Flat = True Images = DataLink_JWLCK.ThreeImgList List = True ShowCaptions = True TabOrder = 0 Transparent = True Wrapable = False object BtnSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 14 OnClick = BtnSaveClick end object ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 103 OnClick = ToolButton2Click end object ToolButton4: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #22797#21046#22686#34892 ImageIndex = 105 OnClick = ToolButton4Click end object ToolButton1: TToolButton Left = 213 Top = 0 AutoSize = True Caption = #20840#37096#26367#25442 ImageIndex = 104 OnClick = ToolButton1Click end object ToolButton3: TToolButton Left = 300 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 107 OnClick = ToolButton3Click end object BtnExit: TToolButton Left = 363 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = BtnExitClick end end object cxGrid1: TcxGrid Left = 16 Top = 48 Width = 857 Height = 353 TabOrder = 1 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'DefStr1' end item Format = 'GYS' Column = v1ShortName end item Format = 'YCLCode' Column = v1P_ChnName end item Format = '1' Position = spFooter Column = v1ShortName end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v1Quantity end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False object v1Column1: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'CRTime' PropertiesClassName = 'TcxDateEditProperties' Properties.Kind = ckDateTime HeaderAlignmentHorz = taCenter Width = 127 end object v1DepotClass: TcxGridDBColumn Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'CRType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #27491#24120#20837#24211 #26399#21021#20837#24211 #36710#38388#36864#22238 #20854#23427#20837#24211) HeaderAlignmentHorz = taCenter Width = 87 end object v1P_ChnName: TcxGridDBColumn Tag = 2 Caption = #29289#26009#21517#31216 DataBinding.FieldName = 'YCLName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1P_ChnNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 92 end object v1Column2: TcxGridDBColumn Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'YCLSpec' HeaderAlignmentHorz = taCenter Width = 131 end object v1ShortName: TcxGridDBColumn Caption = #20379#24212#21830 DataBinding.FieldName = 'GYSName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1ShortNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 85 end object v1Quantity: TcxGridDBColumn Tag = 2 Caption = #20837#24211#25968#37327 DataBinding.FieldName = 'CRQty' HeaderAlignmentHorz = taCenter Width = 73 end object v1UnitName: TcxGridDBColumn Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'CRUnit' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1UnitNamePropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 48 end object v1Note: TcxGridDBColumn Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'SNote' HeaderAlignmentHorz = taCenter Width = 108 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object DataSource1: TDataSource DataSet = CDS_Sub Left = 192 Top = 168 end object CDS_Sub: TClientDataSet Aggregates = <> Params = <> Left = 232 Top = 168 end object ADOQueryMain: TADOQuery Connection = DataLink_JWLCK.ADOLink Parameters = <> Left = 296 Top = 200 end object ADOQueryCmd: TADOQuery Connection = DataLink_JWLCK.ADOLink Parameters = <> Left = 264 Top = 200 end object ADOQueryTemp: TADOQuery Connection = DataLink_JWLCK.ADOLink Parameters = <> Left = 224 Top = 200 end end