mrjsfrm.dfm

程序用Delphi6编写

object frmMrjs: TfrmMrjs
  Left = 228
  Top = 144
  BorderStyle = bsDialog
  Caption = #27599#26085#32467#31639
  ClientHeight = 362
  ClientWidth = 548
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 548
    Height = 55
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 51
        Width = 544
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 531
      Height = 51
      AutoSize = True
      ButtonHeight = 51
      ButtonWidth = 39
      EdgeBorders = []
      Flat = True
      Images = frmMain.ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #28155#21152
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 39
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 78
        Top = 0
        AutoSize = True
        Caption = #20462#25913
        ImageIndex = 3
        OnClick = ToolButton3Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 343
    Width = 548
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 55
    Width = 548
    Height = 288
    Align = alClient
    AutoFitColWidths = True
    DataSource = dmMain.dsMrjs
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clInactiveCaption
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWhite
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = [fsBold]
    FooterRowCount = 1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    SumList.Active = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = #26085#26399
        Footers = <
          item
            Value = #24635#35745
            ValueType = fvtStaticText
          end>
      end
      item
        EditButtons = <>
        FieldName = #32593#36153
        Footers = <
          item
            FieldName = #32593#36153
            ValueType = fvtSum
          end>
      end
      item
        EditButtons = <>
        FieldName = #21830#21697
        Footers = <
          item
            FieldName = #21830#21697
            ValueType = fvtSum
          end>
      end
      item
        EditButtons = <>
        FieldName = #21512#35745
        Footers = <
          item
            FieldName = #21512#35745
            ValueType = fvtSum
          end>
      end
      item
        EditButtons = <>
        FieldName = #22791#27880
        Footers = <>
      end>
  end
end