object frmGetPGJBInList: TfrmGetPGJBInList Left = 67 Top = 20 Width = 765 Height = 623 Caption = #24211#23384#21015#34920 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 757 Height = 31 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Images = DataLink_WFBProducttion.ThreeImgList List = True ParentColor = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 9 OnClick = TBRafreshClick end object ToolButton1: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #30830#23450 ImageIndex = 41 OnClick = ToolButton1Click end object TBFind: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 59 OnClick = TBFindClick end object TBExport: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 75 Visible = False OnClick = TBExportClick end object TBClose: TToolButton Left = 252 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 31 Width = 757 Height = 42 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label3: TLabel Left = 40 Top = 15 Width = 48 Height = 12 Caption = #29289#26009#21517#31216 end object Label4: TLabel Left = 216 Top = 15 Width = 36 Height = 12 Caption = #35268' '#26684 end object Label7: TLabel Left = 376 Top = 15 Width = 48 Height = 12 Caption = #20379' '#24212' '#21830 end object YCLName: TEdit Tag = 2 Left = 89 Top = 12 Width = 100 Height = 20 TabOrder = 0 OnChange = YCLNameChange end object YCLSpec: TEdit Tag = 2 Left = 254 Top = 12 Width = 100 Height = 20 TabOrder = 1 OnChange = YCLNameChange end object GYSName: TEdit Tag = 2 Left = 425 Top = 12 Width = 100 Height = 20 TabOrder = 2 OnChange = YCLNameChange end end object cxSplitter1: TcxSplitter Left = 0 Top = 313 Width = 757 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom Control = cxGrid3 end object cxGrid1: TcxGrid Left = 24 Top = 80 Width = 697 Height = 217 TabOrder = 3 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellDblClick = Tv1CellDblClick DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'DefStr1' end item Format = 'DefStr2' Column = v1ShortName end item Format = 'RollUnit' Column = v1UnitName end item Format = 'YCLCode' Column = v1P_ChnName end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v1Quantity end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Header = DataLink_WFBProducttion.Default 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 HeaderAlignmentHorz = taCenter Width = 98 end object v1Column2: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'YCLSpec' HeaderAlignmentHorz = taCenter Width = 72 end object v1ShortName: TcxGridDBColumn Caption = #20379#24212#21830 DataBinding.FieldName = 'GYSName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 72 end object v1Quantity: TcxGridDBColumn Tag = 2 Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'KCQty' HeaderAlignmentHorz = taCenter Width = 78 end object v1UnitName: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'KCUint' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 73 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object cxGrid3: TcxGrid Left = 0 Top = 321 Width = 757 Height = 265 Align = alBottom TabOrder = 4 object TV2: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellDblClick = TV2CellDblClick DataController.DataSource = DataSource2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'DefStr1' end item Format = 'DefStr2' Column = cxGridDBColumn15 end item Format = 'RollUnit' Column = cxGridDBColumn17 end item Format = 'YCLCode' Column = cxGridDBColumn13 end> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = cxGridDBColumn16 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True OptionsCustomize.ColumnFiltering = False OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Header = DataLink_WFBProducttion.Default object cxGridDBColumn13: TcxGridDBColumn Tag = 2 Caption = #29289#26009#21517#31216 DataBinding.FieldName = 'YCLName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 190 end object cxGridDBColumn14: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'YCLSpec' HeaderAlignmentHorz = taCenter Width = 171 end object cxGridDBColumn15: TcxGridDBColumn Caption = #20379#24212#21830 DataBinding.FieldName = 'GYSName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 144 end object cxGridDBColumn16: TcxGridDBColumn Tag = 2 Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'KCQty' HeaderAlignmentHorz = taCenter Width = 101 end object cxGridDBColumn17: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'KCUint' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 68 end end object cxGridLevel2: TcxGridLevel GridView = TV2 end end object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> Left = 256 Top = 232 end object ADOQueryCmd: TADOQuery Connection = DataLink_WFBProducttion.ADOLink Parameters = <> Left = 360 Top = 232 end object ADOQueryMain: TADOQuery Connection = DataLink_WFBProducttion.ADOLink LockType = ltReadOnly Parameters = <> Left = 400 Top = 232 end object ADOQueryTemp: TADOQuery Connection = DataLink_WFBProducttion.ADOLink LockType = ltReadOnly Parameters = <> Left = 432 Top = 232 end object DataSource1: TDataSource DataSet = ClientDataSet1 Left = 288 Top = 232 end object DataSource2: TDataSource DataSet = ClientDataSet2 Left = 680 Top = 512 end object ADOQuery2: TADOQuery Connection = DataLink_WFBProducttion.ADOLink LockType = ltReadOnly Parameters = <> Left = 712 Top = 512 end object ClientDataSet1: TClientDataSet Aggregates = <> Params = <> Left = 320 Top = 232 end object ClientDataSet2: TClientDataSet Aggregates = <> Params = <> Left = 744 Top = 512 end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> Left = 512 Top = 584 end end