uredata.dfm

这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.

object frmReData: TfrmReData
  Left = 251
  Top = 227
  ActiveControl = lvReData
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25968#25454#36824#21407
  ClientHeight = 168
  ClientWidth = 267
  Color = 16759701
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 40
    Top = 8
    Width = 180
    Height = 19
    Caption = #35831#36873#25321#19968#20010#25968#25454#25991#20214
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -19
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lvReData: TListView
    Left = 8
    Top = 32
    Width = 250
    Height = 97
    Color = clSkyBlue
    Columns = <
      item
        Caption = #25991#20214#21517
        Width = 72
      end
      item
        Caption = #21019#24314#26085#26399
        Width = 175
      end>
    GridLines = True
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnDblClick = lvReDataDblClick
  end
  object btnReStore: TButton
    Left = 8
    Top = 138
    Width = 62
    Height = 22
    Caption = #36824' '#21407
    TabOrder = 1
    OnClick = btnReStoreClick
  end
  object btnDel: TButton
    Left = 72
    Top = 138
    Width = 62
    Height = 22
    Caption = #21024' '#38500
    TabOrder = 2
    OnClick = btnDelClick
  end
  object btnTrans: TButton
    Left = 136
    Top = 138
    Width = 62
    Height = 22
    Caption = #21322#36879#26126
    TabOrder = 3
    OnClick = btnTransClick
  end
  object btnClose: TButton
    Left = 200
    Top = 138
    Width = 62
    Height = 22
    Caption = #20851' '#38381
    TabOrder = 4
    OnClick = btnCloseClick
  end
end