object frmCaiWuHuiLV: TfrmCaiWuHuiLV Left = 155 Top = 114 Width = 1063 Height = 594 Caption = #27719#29575#20449#24687#31649#29702 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1047 Height = 31 ButtonHeight = 30 ButtonWidth = 91 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_Money.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 9 OnClick = TBRafreshClick end object ToolButton2: TToolButton Left = 67 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 59 end object TADD: TToolButton Left = 134 Top = 0 AutoSize = True Caption = #22686#21152#26376#20221 ImageIndex = 103 OnClick = TADDClick end object TSave: TToolButton Left = 229 Top = 0 AutoSize = True Caption = #35774#32622#27719#29575 ImageIndex = 123 OnClick = TSaveClick end object Panel2: TPanel Left = 324 Top = 0 Width = 138 Height = 30 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 0 object Label1: TLabel Left = 8 Top = 8 Width = 30 Height = 14 Caption = #27719#29575 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object HuiLv: TEdit Left = 40 Top = 4 Width = 87 Height = 22 TabOrder = 0 end end object TBClose: TToolButton Left = 462 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 31 Width = 1047 Height = 37 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label2: TLabel Left = 16 Top = 11 Width = 34 Height = 16 Caption = #24180#24230 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 748 Top = 77 Width = 24 Height = 12 Caption = #21333#20215 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Visible = False end object Label4: TLabel Left = 428 Top = 68 Width = 252 Height = 12 Caption = #23458#25143#26159#25903#20184#23453#20184#27454#23601#26159#31169#36134#65292#38134#34892#36716#36134#23601#26159#20844#36134 end object begdate: TDateTimePicker Left = 50 Top = 7 Width = 63 Height = 24 Date = 41256.918237847230000000 Format = 'yyyy' Time = 41256.918237847230000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnChange = begdateChange end object Edit1: TEdit Left = 772 Top = 73 Width = 65 Height = 21 TabOrder = 1 Visible = False end object Button1: TButton Left = 840 Top = 73 Width = 49 Height = 21 Caption = #30830#23450 TabOrder = 2 Visible = False end end object cxGrid2: TcxGrid Left = 0 Top = 68 Width = 1047 Height = 488 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv2: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False NavigatorButtons.Delete.Enabled = False NavigatorButtons.Delete.Visible = False DataController.DataSource = DS_HZ 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 item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = DataLink_Money.Default10 Styles.Header = DataLink_Money.Default object v2Column1: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 59 end object V1BegDate: TcxGridDBColumn Tag = 2 Caption = #26376#20221 DataBinding.FieldName = 'BegDateStr' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 88 end object V1HuiLv: TcxGridDBColumn Tag = 2 Caption = #27719#29575 DataBinding.FieldName = 'HuiLv' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 105 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end object Panel3: TPanel Left = 376 Top = 176 Width = 249 Height = 41 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 = -14 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 Visible = False end object ADOQueryTemp: TADOQuery Connection = DataLink_Money.ADOLink Parameters = <> Left = 645 Top = 33 end object ADOQueryCmd: TADOQuery Connection = DataLink_Money.ADOLink Parameters = <> Left = 741 Top = 33 end object ADOQueryMain: TADOQuery Connection = DataLink_Money.ADOLink LockType = ltReadOnly Parameters = <> Left = 681 Top = 37 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 472 Top = 224 end object DS_HZ: TDataSource DataSet = CDS_HZ Left = 435 Top = 224 end object CDS_HZ: TClientDataSet Aggregates = <> Params = <> Left = 504 Top = 225 end object cxStyleRepository1: TcxStyleRepository Left = 776 Top = 40 object cxStyle1: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] TextColor = clRed end end object ADOQuery1: TADOQuery Connection = DataLink_Money.ADOLink Parameters = <> Left = 709 Top = 33 end object PopupMenu1: TPopupMenu Left = 208 Top = 192 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end end end