u_operator.~dfm

以多个信息系统为例

object F_operator: TF_operator
  Left = 158
  Top = 204
  ActiveControl = i_id
  BorderStyle = bsSingle
  Caption = '前台操作员管理'
  ClientHeight = 310
  ClientWidth = 493
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 8
    Width = 81
    Height = 13
    AutoSize = False
    Caption = '账号列表：'
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 24
    Width = 233
    Height = 257
    TabStop = False
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DM_main.DS_operator
    Options = [dgTitles, dgIndicator, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'ID'
        Title.Alignment = taCenter
        Title.Caption = '账号'
        Width = 50
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = 'NAME'
        Title.Alignment = taCenter
        Title.Caption = '姓名'
        Width = 90
        Visible = True
      end
      item
        Alignment = taRightJustify
        Expanded = False
        FieldName = 'ENABLE'
        Title.Alignment = taCenter
        Title.Caption = '是否可用'
        Width = 50
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 285
    Width = 493
    Height = 25
    DataSource = DM_main.DS_operator
    Align = alBottom
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 240
    Top = 8
    Width = 249
    Height = 161
    Anchors = [akTop, akRight, akBottom]
    Caption = '账号信息'
    TabOrder = 0
    object Label2: TLabel
      Left = 32
      Top = 40
      Width = 42
      Height = 13
      Caption = '账号：'
    end
    object Label3: TLabel
      Left = 32
      Top = 72
      Width = 42
      Height = 13
      Caption = '姓名：'
    end
    object i_name: TDBEdit
      Left = 88
      Top = 68
      Width = 121
      Height = 21
      DataField = 'NAME'
      DataSource = DM_main.DS_operator
      TabOrder = 1
    end
    object i_id: TDBEdit
      Left = 88
      Top = 36
      Width = 121
      Height = 21
      DataField = 'ID'
      DataSource = DM_main.DS_operator
      TabOrder = 0
    end
    object i_state: TDBRadioGroup
      Left = 24
      Top = 104
      Width = 201
      Height = 41
      Caption = '账号状态'
      Columns = 2
      DataField = 'ENABLE'
      DataSource = DM_main.DS_operator
      Items.Strings = (
        '可用'
        '暂停')
      TabOrder = 2
      Values.Strings = (
        'T'
        'F')
    end
  end
  object GroupBox2: TGroupBox
    Left = 240
    Top = 176
    Width = 249
    Height = 105
    Anchors = [akRight, akBottom]
    Caption = '修改密码'
    TabOrder = 3
    object Label4: TLabel
      Left = 24
      Top = 32
      Width = 70
      Height = 13
      Caption = '新的密码：'
    end
    object Label5: TLabel
      Left = 24
      Top = 64
      Width = 70
      Height = 13
      Caption = '确认密码：'
    end
    object i_passwd: TEdit
      Left = 96
      Top = 28
      Width = 81
      Height = 21
      MaxLength = 10
      PasswordChar = '*'
      TabOrder = 0
    end
    object i_passwd2: TEdit
      Left = 96
      Top = 60
      Width = 81
      Height = 21
      MaxLength = 10
      PasswordChar = '*'
      TabOrder = 1
    end
    object B_change: TButton
      Left = 192
      Top = 32
      Width = 41
      Height = 49
      Caption = '修改'
      TabOrder = 2
      OnClick = B_changeClick
    end
  end
end