a1.dfm

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

object fa1: Tfa1
  Left = 295
  Top = 136
  Width = 696
  Height = 480
  Caption = #29289#21697#20837#24211#25805#20316
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BevelOuter = bvNone
    Color = clSkyBlue
    TabOrder = 1
    object Label11: TLabel
      Left = 12
      Top = 12
      Width = 623
      Height = 14
      Caption = #29289#21697#20837#24211#21333','#19968#27425#26368#22810#33021#20837'|'#20986#24211'50'#31181#29289#21697','#22914#26524#22810#20110'25'#20010#21830#21697','#35831#20877#24314#31435#19968#20010#20837'|'#20986#24211#21333#25110#20462#25913#37197#32622#25991#20214
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 412
    Width = 688
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 10
      Top = 16
      Width = 77
      Height = 14
      Caption = #20837#24211#21333#32534#21495':'
    end
    object Label2: TLabel
      Left = 200
      Top = 16
      Width = 63
      Height = 14
      Caption = #21512#35745#37329#39069':'
    end
    object lbl_hj: TLabel
      Left = 266
      Top = 16
      Width = 7
      Height = 14
      Caption = '0'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object lbl_no: TLabel
      Left = 88
      Top = 16
      Width = 42
      Height = 14
      Caption = 'lbl_no'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Button1: TButton
      Left = 404
      Top = 8
      Width = 75
      Height = 25
      Caption = #30830#23450'[&O]'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 494
      Top = 8
      Width = 75
      Height = 25
      Caption = #21462#28040'[&C]'
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 41
    Width = 688
    Height = 371
    Align = alClient
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 0
    OnKeyDown = StringGrid1KeyDown
    OnKeyPress = StringGrid1KeyPress
  end
  object dg_view: TDBGrid
    Left = 260
    Top = 68
    Width = 439
    Height = 235
    Color = clInfoBk
    DataSource = fdm.dsrk
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Visible = False
    OnDblClick = dg_viewDblClick
    OnKeyPress = dg_viewKeyPress
    Columns = <
      item
        Expanded = False
        FieldName = 'sname'
        Title.Caption = #29289#21697#31616#31216
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'id'
        Title.Caption = #32534#21495
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #29289#21697#21517#31216
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sortname'
        Title.Caption = #35268#26684
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'inprc'
        Title.Caption = #36827#20215
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'memo'
        Title.Caption = #35828#26126
        Width = 90
        Visible = True
      end>
  end
end