uadmin.dfm

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

object frmAdmin: TfrmAdmin
  Left = 183
  Top = 162
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #31649#29702#21592
  ClientHeight = 254
  ClientWidth = 387
  Color = 16759701
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lbladmin: TLabel
    Left = 128
    Top = 7
    Width = 100
    Height = 20
    Caption = #31649#29702#21592#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -20
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lbluid: TLabel
    Left = 8
    Top = 166
    Width = 39
    Height = 13
    Caption = #24080' '#21495#65306
    Transparent = True
  end
  object lblpwd: TLabel
    Left = 136
    Top = 166
    Width = 39
    Height = 13
    Caption = #23494' '#30721#65306
    Transparent = True
  end
  object lblsys: TLabel
    Left = 256
    Top = 166
    Width = 39
    Height = 13
    Caption = #31995' '#32479#65306
    Transparent = True
  end
  object lbldes: TLabel
    Left = 8
    Top = 196
    Width = 39
    Height = 13
    Caption = #25551' '#36848#65306
    Transparent = True
  end
  object deUid: TDBEdit
    Left = 48
    Top = 161
    Width = 70
    Height = 21
    DataField = 'uid'
    DataSource = dsadmin
    TabOrder = 0
  end
  object dePwd: TDBEdit
    Left = 176
    Top = 161
    Width = 70
    Height = 21
    DataField = 'pwd'
    DataSource = dsadmin
    TabOrder = 1
  end
  object deDes: TDBEdit
    Left = 48
    Top = 191
    Width = 329
    Height = 21
    DataField = 'des'
    DataSource = dsadmin
    TabOrder = 3
  end
  object dbSys: TDBComboBox
    Left = 296
    Top = 160
    Width = 75
    Height = 19
    Style = csOwnerDrawFixed
    DataField = 'sys'
    DataSource = dsadmin
    ItemHeight = 13
    Items.Strings = (
      #21542
      #26159)
    TabOrder = 2
  end
  object btnEdit: TButton
    Left = 8
    Top = 226
    Width = 60
    Height = 20
    Caption = #32534'  '#36753
    TabOrder = 4
    OnClick = btnEditClick
  end
  object btnAdd: TButton
    Left = 86
    Top = 226
    Width = 60
    Height = 20
    Caption = #28155'  '#21152
    TabOrder = 5
    OnClick = btnAddClick
  end
  object btnDel: TButton
    Left = 164
    Top = 226
    Width = 60
    Height = 20
    Caption = #21024'  '#38500
    TabOrder = 6
    OnClick = btnDelClick
  end
  object btnTrs: TButton
    Left = 242
    Top = 226
    Width = 60
    Height = 20
    Caption = #21322#36879#26126
    TabOrder = 7
    OnClick = btnTrsClick
  end
  object btnClose: TButton
    Left = 320
    Top = 226
    Width = 60
    Height = 20
    Caption = #20851'  '#38381
    TabOrder = 8
    OnClick = btnCloseClick
  end
  object dgAdmin: TDBGridEh
    Left = 8
    Top = 32
    Width = 369
    Height = 120
    Color = 16759701
    Ctl3D = True
    DataSource = dsadmin
    FixedColor = clBackground
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'uid'
        Footers = <>
        Title.Caption = #36134'  '#21495
        Width = 62
      end
      item
        EditButtons = <>
        FieldName = 'pwd'
        Footers = <>
        Title.Caption = #23494'  '#30721
        Width = 62
      end
      item
        Checkboxes = True
        EditButtons = <>
        FieldName = 'sys'
        Footers = <>
        Title.Caption = #31995'  '#32479
        Width = 45
      end
      item
        EditButtons = <>
        FieldName = 'des'
        Footers = <>
        Title.Caption = #25551'  '#36848
        Width = 164
      end>
  end
  object dsadmin: TDataSource
    DataSet = aqAdmin
    Left = 320
    Top = 8
  end
  object aqAdmin: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 352
    Top = 8
    object aqAdminuid: TWideStringField
      FieldName = 'uid'
      Size = 32
    end
    object aqAdminpwd: TWideStringField
      FieldName = 'pwd'
      Size = 32
    end
    object aqAdminsys: TBooleanField
      FieldName = 'sys'
      OnGetText = aqAdminsysGetText
      OnSetText = aqAdminsysSetText
    end
    object aqAdmindes: TWideStringField
      FieldName = 'des'
      Size = 250
    end
  end
end