accountmain.~dfm

档案信息管理系统

object AccountMainForm: TAccountMainForm
  Left = 295
  Top = 169
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = #31995#32479#24080#25143#31649#29702
  ClientHeight = 399
  ClientWidth = 495
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 120
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 326
    Top = 0
    Height = 399
    Color = clBlue
    ParentColor = False
    ResizeStyle = rsLine
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 326
    Height = 399
    Align = alLeft
    Caption = #24080#25143#35760#24405
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 18
      Width = 322
      Height = 379
      Align = alClient
      DataSource = MainDataModule.AccountDataSource
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      Columns = <
        item
          ButtonStyle = cbsNone
          Expanded = False
          FieldName = 'UserName'
          Title.Alignment = taCenter
          Title.Caption = #24080#25143#21517
          Visible = True
        end
        item
          ButtonStyle = cbsNone
          Expanded = False
          FieldName = 'Password'
          Title.Alignment = taCenter
          Title.Caption = #23494#30721
          Width = 76
          Visible = True
        end
        item
          ButtonStyle = cbsNone
          Expanded = False
          FieldName = 'AccountRight'
          PickList.Strings = (
            #26222#36890#25805#20316#21592
            #31649#29702#21592)
          Title.Alignment = taCenter
          Title.Caption = #24080#25143#26435#38480
          Width = 76
          Visible = True
        end>
    end
  end
  object GroupBox2: TGroupBox
    Left = 329
    Top = 0
    Width = 166
    Height = 399
    Align = alClient
    Caption = #28155#21152'/'#20462#25913
    Color = clMenuBar
    ParentColor = False
    TabOrder = 1
    object Label1: TLabel
      Left = 53
      Top = 38
      Width = 48
      Height = 16
      Caption = #24080#25143#21517#65306
    end
    object Label2: TLabel
      Left = 52
      Top = 94
      Width = 51
      Height = 16
      Caption = #23494'     '#30721#65306
    end
    object Label3: TLabel
      Left = 52
      Top = 148
      Width = 51
      Height = 16
      Caption = #26435'     '#38480#65306
    end
    object edAccountName: TEdit
      Left = 16
      Top = 63
      Width = 134
      Height = 26
      BorderStyle = bsNone
      MaxLength = 12
      TabOrder = 0
    end
    object edPassword: TEdit
      Left = 16
      Top = 114
      Width = 133
      Height = 26
      BorderStyle = bsNone
      MaxLength = 20
      TabOrder = 1
    end
    object gbOpRight: TComboBox
      Left = 15
      Top = 169
      Width = 136
      Height = 24
      BevelKind = bkTile
      ItemHeight = 16
      TabOrder = 2
      Items.Strings = (
        #25805#20316#21592
        #31649#29702#21592)
    end
    object btAddAccount: TBitBtn
      Left = 15
      Top = 225
      Width = 136
      Height = 35
      Caption = #28155'   '#21152
      TabOrder = 3
      OnClick = btAddAccountClick
    end
    object btAccountModify: TBitBtn
      Left = 15
      Top = 265
      Width = 136
      Height = 34
      Caption = #20462'  '#25913
      Enabled = False
      TabOrder = 4
      OnClick = btAccountModifyClick
    end
    object btAccountDel: TBitBtn
      Left = 15
      Top = 304
      Width = 136
      Height = 32
      Caption = #21024'  '#38500
      Enabled = False
      TabOrder = 5
      OnClick = btAccountDelClick
    end
    object btAccountReset: TBitBtn
      Left = 15
      Top = 341
      Width = 136
      Height = 34
      Caption = #37325#32622#25968#25454
      TabOrder = 6
      OnClick = btAccountResetClick
    end
  end
end