object frmKuWeiInPut: TfrmKuWeiInPut Left = 388 Top = 97 Width = 846 Height = 571 Caption = #24211#20301#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 = 96 TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 830 Height = 30 ButtonHeight = 30 ButtonWidth = 79 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] Images = DataLink_MYSC.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object Label26: TLabel Left = 0 Top = 0 Width = 36 Height = 30 Caption = ' ' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Panel4: TPanel Left = 36 Top = 0 Width = 231 Height = 30 BevelOuter = bvNone TabOrder = 0 end object ToolButton1: TToolButton Left = 267 Top = 0 Caption = #25171#21360 ImageIndex = 4 OnClick = ToolButton1Click end object Label10: TLabel Left = 346 Top = 0 Width = 45 Height = 30 Caption = ' ' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object TBClose: TToolButton Left = 391 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel5: TPanel Left = 0 Top = 30 Width = 313 Height = 503 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label9: TLabel Left = 106 Top = 344 Width = 88 Height = 21 Caption = #26159#21542#25171#21360 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Panel1: TPanel Left = 2 Top = 2 Width = 309 Height = 255 Align = alTop TabOrder = 0 object Label14: TLabel Left = 39 Top = 25 Width = 44 Height = 21 Caption = #21306#22495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 39 Top = 85 Width = 44 Height = 21 Caption = #36135#26550 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object QuYu: TBtnEditA Tag = 2 Left = 86 Top = 20 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 0 OnDblClick = QuYuDblClick OnBtnClick = QuYuBtnClick end object HuoJia: TBtnEditA Tag = 2 Left = 86 Top = 80 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 1 OnDblClick = HuoJiaDblClick OnBtnClick = HuoJiaBtnClick end object cxPageControl1: TcxPageControl Left = 1 Top = 128 Width = 307 Height = 126 ActivePage = cxTabSheet1 Align = alBottom Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Style = 8 TabOrder = 2 ClientRectBottom = 126 ClientRectRight = 307 ClientRectTop = 26 object cxTabSheet1: TcxTabSheet Caption = #21333#23618#22686#21152 ImageIndex = 0 object Label12: TLabel Left = 199 Top = 21 Width = 22 Height = 21 Caption = #23618 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 52 Top = 21 Width = 22 Height = 21 Caption = #31532 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 68 Top = 63 Width = 132 Height = 21 Caption = #22686#21152#24211#20301#25968#37327 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Ceng: TComboBox Tag = 2 Left = 78 Top = 18 Width = 121 Height = 29 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [] ItemHeight = 21 ParentFont = False TabOrder = 0 OnChange = CengChange Items.Strings = ( '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '') end end object cxTabSheet2: TcxTabSheet Caption = #22810#23618#25209#37327#22686#21152 ImageIndex = 1 object Label2: TLabel Left = 38 Top = 22 Width = 44 Height = 21 Caption = #24635#20849 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 206 Top = 22 Width = 22 Height = 21 Caption = #23618 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 68 Top = 63 Width = 132 Height = 21 Caption = #27599#23618#24211#20301#25968#37327 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CengQty: TComboBox Tag = 2 Left = 85 Top = 18 Width = 121 Height = 29 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -21 Font.Name = #23435#20307 Font.Style = [] ItemHeight = 21 ParentFont = False TabOrder = 0 OnChange = CengChange Items.Strings = ( '1' '2' '3' '4' '5' '6' '7' '8' '9' '10' '') end end end end object KuWeiQty: TEdit Tag = 2 Left = 68 Top = 272 Width = 61 Height = 37 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Button1: TButton Left = 135 Top = 273 Width = 75 Height = 34 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button1Click end object PrtFlag: TEdit Tag = 2 Left = 68 Top = 336 Width = 40 Height = 37 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 3 Text = #8730 OnClick = PrtFlagClick end end object cxGrid1: TcxGrid Left = 313 Top = 30 Width = 517 Height = 503 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Kind = skCount Position = spFooter Column = v1Column7 end item Kind = skCount Column = v1Column7 end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skCount Column = v1Column7 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = DataLink_MYSC.Default10 Styles.Footer = DataLink_MYSC.Default10 Styles.Header = DataLink_MYSC.Default10 object v1Column1: TcxGridDBColumn Caption = #25171#21360#36873#25321 DataBinding.FieldName = 'SSel' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 74 end object v1Column4: TcxGridDBColumn Caption = #21306#22495 DataBinding.FieldName = 'QuYu' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 end object v1Column2: TcxGridDBColumn Caption = #36135#26550 DataBinding.FieldName = 'HuoJia' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 end object v1Column3: TcxGridDBColumn Caption = #23618 DataBinding.FieldName = 'Ceng' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 end object v1Column7: TcxGridDBColumn Caption = #24211#20301#21517#31216 DataBinding.FieldName = 'KWName' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 165 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object Panel2: TPanel Left = 320 Top = 224 Width = 225 Height = 41 BevelOuter = bvNone Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 Visible = False end object ADOTemp: TADOQuery Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> Left = 392 Top = 133 end object ADOCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 576 Top = 109 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 464 Top = 149 end object CDS_Print: TClientDataSet Aggregates = <> Params = <> Left = 408 Top = 142 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] DefaultCollate = False ShowPrintDialog = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' PreviewOptions.RulerUnit = rmutScreenPixels PreviewOptions.RulerVisible = False PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash Dataset = RMDBMain CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 498 Top = 142 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_Print Left = 560 Top = 128 end object ClientDataSet1: TClientDataSet Aggregates = <> Params = <> Left = 344 Top = 166 end object DataSource1: TDataSource DataSet = ClientDataSet1 Left = 376 Top = 168 end object ClientDataSet2: TClientDataSet Aggregates = <> Params = <> Left = 440 Top = 174 end object PopupMenu1: TPopupMenu Left = 592 Top = 184 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end end end