a2.dfm

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

object fa2: Tfa2
  Left = 236
  Top = 153
  Width = 696
  Height = 480
  Caption = #29289#21697#20837#24211#21333#23457#26680
  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
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 171
    Top = 41
    Height = 412
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Color = clSkyBlue
    TabOrder = 0
    object Label11: TLabel
      Left = 12
      Top = 12
      Width = 322
      Height = 14
      Caption = #29289#21697#20837'|'#20986#24211#21333#23457#26680','#21482#26377#23457#26680#20102#30340#21333#25454#25165#33021#24433#21709#24211#23384
    end
  end
  object tv: TTreeView
    Left = 0
    Top = 41
    Width = 171
    Height = 412
    Align = alLeft
    Images = ImageList1
    Indent = 19
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 1
    OnChange = tvChange
    OnKeyDown = tvKeyDown
  end
  object dg_view: TDBGridEh
    Left = 174
    Top = 41
    Width = 514
    Height = 412
    Align = alClient
    DataSource = fdm.dsdan
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -14
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu2
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = MenuItem2Click
    OnKeyDown = dg_viewKeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'dandetail.id'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'sname'
        Footers = <>
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'name'
        Footers = <>
        Title.Caption = #21830#21697#21517#31216
        Width = 150
      end
      item
        EditButtons = <>
        FieldName = 'num'
        Footers = <>
        Title.Caption = #25968#37327
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'dandetail.inprc'
        Footers = <>
        Title.Caption = #36827#20215
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <>
        Title.Caption = #37329#39069
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'sortname'
        Footers = <>
        Title.Caption = #35268#26684
        Width = 40
      end
      item
        EditButtons = <>
        FieldName = 'sortname1'
        Footers = <>
        Title.Caption = #31867#21035
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'vname'
        Footers = <>
        Title.Caption = #20379#24212#21830
        Width = 180
      end
      item
        EditButtons = <>
        FieldName = 'dandetail.memo'
        Footers = <>
        Title.Caption = #21830#21697#35828#26126
        Width = 100
      end
      item
        EditButtons = <>
        FieldName = 'memo2'
        Footers = <>
        Title.Caption = #36827#36135#35828#26126
        Width = 100
      end>
  end
  object pl_info: TPanel
    Left = 138
    Top = 134
    Width = 459
    Height = 243
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 3
    Visible = False
    object Label2: TLabel
      Left = 22
      Top = 59
      Width = 56
      Height = 14
      Caption = #21830#21697#31616#31216
    end
    object Label3: TLabel
      Left = 215
      Top = 60
      Width = 56
      Height = 14
      Caption = #21830#21697#21517#31216
    end
    object Label5: TLabel
      Left = 215
      Top = 93
      Width = 28
      Height = 14
      Caption = #36827#20215
    end
    object Label4: TLabel
      Left = 22
      Top = 92
      Width = 28
      Height = 14
      Caption = #25968#37327
    end
    object Label6: TLabel
      Left = 22
      Top = 125
      Width = 28
      Height = 14
      Caption = #37329#39069
    end
    object Label7: TLabel
      Left = 215
      Top = 126
      Width = 56
      Height = 14
      Caption = #21830#21697#35828#26126
    end
    object Label8: TLabel
      Left = 21
      Top = 159
      Width = 56
      Height = 14
      Caption = #36827#36135#35828#26126
    end
    object Panel3: TPanel
      Left = 2
      Top = 2
      Width = 455
      Height = 41
      Align = alTop
      BevelOuter = bvNone
      Color = clCream
      TabOrder = 0
      object Label1: TLabel
        Left = 12
        Top = 12
        Width = 84
        Height = 14
        Caption = #29289#21697#25968#37327#31649#29702
      end
    end
    object tb_sname: TEdit
      Left = 84
      Top = 55
      Width = 121
      Height = 22
      TabOrder = 1
      OnKeyPress = tb_snameKeyPress
    end
    object tb_name: TEdit
      Left = 277
      Top = 56
      Width = 164
      Height = 22
      Enabled = False
      TabOrder = 2
    end
    object tb_num: TEdit
      Left = 84
      Top = 88
      Width = 121
      Height = 22
      TabOrder = 3
      OnKeyPress = tb_numKeyPress
    end
    object tb_inprc: TEdit