a4.dfm

这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin

object fa4: Tfa4
  Left = 427
  Top = 210
  Width = 696
  Height = 472
  Caption = #29289#21697#24211#23384
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object dg_view: TDBGridEh
    Left = 0
    Top = 0
    Width = 688
    Height = 445
    Align = alClient
    DataSource = fdm.dskc
    FooterColor = clCream
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
    STFilter.Local = True
    STFilter.Visible = True
    SumList.Active = True
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnKeyDown = dg_viewKeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'id'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'name'
        Footers = <
          item
            Value = #32479#35745
            ValueType = fvtStaticText
          end>
        Title.Caption = #21830#21697#21517#31216
        Title.TitleButton = True
        Width = 200
      end
      item
        EditButtons = <>
        FieldName = 'sname'
        Footers = <>
        Title.Caption = #21830#21697#31616#31216
        Title.TitleButton = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'sortname'
        Footers = <>
        STFilter.DataField = 'sortname'
        STFilter.KeyField = 'name'
        STFilter.ListField = 'name'
        STFilter.ListSource = fdm.dslist
        Title.Caption = #35268#26684
        Title.TitleButton = True
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'sortname1'
        Footers = <>
        STFilter.DataField = 'sortname1'
        STFilter.KeyField = 'name'
        STFilter.ListField = 'name'
        STFilter.ListSource = fdm.dsqslist1
        Title.Caption = #31867#21035
        Title.TitleButton = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'num'
        Footers = <
          item
            FieldName = 'num'
            ValueType = fvtSum
          end>
        Title.Caption = #24211#23384#25968
        Title.TitleButton = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'inprc'
        Footers = <>
        Title.Caption = #36827#20215
        Title.TitleButton = True
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'rtlprc'
        Footers = <>
        Title.Caption = #21806#20215
        Title.TitleButton = True
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <
          item
            FieldName = 'je'
            ValueType = fvtSum
          end>
        Title.Caption = #24211#23384#37329#39069
        Title.TitleButton = True
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'vname'
        Footers = <>
        STFilter.DataField = 'vname'
        STFilter.KeyField = 'name'
        STFilter.ListField = 'name'
        STFilter.ListSource = fdm.dsqvlist
        Title.Caption = #20379#24212#21830
        Title.TitleButton = True
        Width = 200
      end
      item
        EditButtons = <>
        FieldName = 'bzqi'
        Footers = <>
        Title.Caption = #20445#36136#26399
        Title.TitleButton = True
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'memo'
        Footers = <>
        Title.Caption = #21830#21697#35828#26126
        Title.TitleButton = True
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'gid'
        Footers = <>
        Visible = False
      end>
  end
end