usermanager.dfm

小管理程序主要管理的小咖啡厅我是从网上下的经测试可用

object Frmusermanager: TFrmusermanager
  Left = 384
  Top = 164
  Width = 387
  Height = 324
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  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 BtnAdd: TSpeedButton
    Left = 32
    Top = 104
    Width = 49
    Height = 25
    Caption = #22686#21152
    OnClick = BtnAddClick
  end
  object BtnDel: TSpeedButton
    Left = 120
    Top = 104
    Width = 49
    Height = 25
    Caption = #21024#38500
    OnClick = BtnDelClick
  end
  object BtnSave: TSpeedButton
    Left = 208
    Top = 104
    Width = 49
    Height = 25
    Caption = #20445#23384
    OnClick = BtnSaveClick
  end
  object BtnCancel: TSpeedButton
    Left = 296
    Top = 104
    Width = 49
    Height = 25
    Caption = #21462#28040
    OnClick = BtnCancelClick
  end
  object GroupBox1: TGroupBox
    Left = 6
    Top = 6
    Width = 369
    Height = 81
    Caption = #29992#25143#20449#24687
    TabOrder = 0
    object label1: TLabel
      Left = 11
      Top = 23
      Width = 64
      Height = 13
      AutoSize = False
      Caption = #29992#25143#21517#31216#65306
      Transparent = True
    end
    object Label2: TLabel
      Left = 11
      Top = 51
      Width = 60
      Height = 13
      Caption = #29992#25143#23494#30721#65306
      Transparent = True
    end
    object Label3: TLabel
      Left = 182
      Top = 24
      Width = 72
      Height = 13
      Caption = #25152#22312#26435#38480#32452#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 186
      Top = 52
      Width = 60
      Height = 13
      Caption = #30830#35748#23494#30721#65306
      Transparent = True
    end
    object Edit3: TEdit
      Left = 252
      Top = 49
      Width = 105
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      PasswordChar = '*'
      TabOrder = 0
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 253
      Top = 19
      Width = 104
      Height = 21
      DataField = 'Groupid'
      DataSource = dm.QusersDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      KeyField = 'Groupid'
      ListField = 'Groupname'
      ListSource = dm.QgroupDataSource
      TabOrder = 1
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 18
      Width = 104
      Height = 21
      DataField = 'username'
      DataSource = dm.QusersDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      TabOrder = 2
    end
    object DBEdit2: TDBEdit
      Left = 71
      Top = 47
      Width = 104
      Height = 21
      DataField = 'userpass'
      DataSource = dm.QusersDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      PasswordChar = '*'
      TabOrder = 3
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 138
    Width = 366
    Height = 145
    Caption = #25968#25454#21015#34920
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 7
      Top = 17
      Width = 352
      Height = 120
      DataSource = dm.QusersDataSource
      ImeName = #20013#25991' ('#31616#20307') - '#26497#28857#20013#25991
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'userid'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#32534#21495
          Width = 77
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'username'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#21517#31216
          Width = 102
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'groupname'
          Title.Alignment = taCenter
          Title.Caption = #25152#22312#26435#38480#32452
          Width = 132
          Visible = True
        end>
    end
  end
  object DBoprate: TDBNavigator
    Left = 72
    Top = 216
    Width = 240
    Height = 25
    DataSource = dm.QusersDataSource
    TabOrder = 2
    Visible = False
  end
end