unituser.~dfm

社区服务系统

object frmUser: TfrmUser
  Left = 175
  Top = 206
  Width = 812
  Height = 541
  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 = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 101
    Width = 42
    Height = 16
    Caption = #32534'  '#21495#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 804
    Height = 49
    Align = alTop
    TabOrder = 0
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 480
      Height = 47
      Align = alLeft
      TabOrder = 1
      object bbtnAdd: TBitBtn
        Left = 8
        Top = 8
        Width = 65
        Height = 33
        Caption = #28155#21152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = bbtnAddClick
      end
      object bbtnModify: TBitBtn
        Left = 98
        Top = 8
        Width = 65
        Height = 33
        Caption = #20462#25913
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = bbtnModifyClick
      end
      object bbtnDel: TBitBtn
        Left = 188
        Top = 8
        Width = 65
        Height = 33
        Caption = #21024#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = bbtnDelClick
      end
      object bbtnSave: TBitBtn
        Left = 278
        Top = 8
        Width = 65
        Height = 33
        Caption = #20445#23384
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = bbtnSaveClick
      end
      object bbtnCancel: TBitBtn
        Left = 368
        Top = 8
        Width = 64
        Height = 33
        Caption = #21462#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
    end
    object Panel4: TPanel
      Left = 481
      Top = 1
      Width = 322
      Height = 47
      Align = alClient
      TabOrder = 0
      object bbtnExit: TBitBtn
        Left = 48
        Top = 8
        Width = 73
        Height = 33
        Caption = #36864#20986
        TabOrder = 0
        OnClick = bbtnExitClick
      end
    end
  end
  object grdList: TDBGrid
    Left = 0
    Top = 49
    Width = 804
    Height = 182
    Align = alClient
    Color = clBtnFace
    Ctl3D = False
    DataSource = srcList
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'UNo'
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UName'
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'USex'
        Title.Alignment = taCenter
        Title.Caption = #24615#21035
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UBirth'
        Title.Alignment = taCenter
        Title.Caption = #29983#26085
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UPost'
        Title.Alignment = taCenter
        Title.Caption = #32844#20301
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UPhone'
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#30005#35805
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UEmail'
        Title.Alignment = taCenter
        Title.Caption = #37038#31665
        Width = 130
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UAddress'
        Title.Alignment = taCenter
        Title.Caption = #22320#22336
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UMemo'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Visible = True
      end>
  end
  object pclUser: TPageControl
    Left = 0
    Top = 231
    Width = 804
    Height = 283
    ActivePage = TabSheet1
    Align = alBottom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #29992#25143#32534#36753#21306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object Label2: TLabel
        Left = 20
        Top = 27
        Width = 36
        Height = 13
        Caption = #32534#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 292
        Top = 25
        Width = 36
        Height = 13
        Caption = #32844#20301#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 20
        Top = 61
        Width = 36
        Height = 13
        Caption = #22995#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 291
        Top = 60
        Width = 36
        Height = 13
        Caption = #30005#35805#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 20
        Top = 96
        Width = 36
        Height = 13
        Caption = #24615#21035#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 291
        Top = 95
        Width = 36
        Height = 13
        Caption = #37038#31665#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 20
        Top = 131
        Width = 36
        Height = 13
        Caption = #29983#26085#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 291
        Top = 130
        Width = 36
        Height = 13
        Caption = #22320#22336#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 20
        Top = 162
        Width = 36
        Height = 13
        Caption = #22791#27880#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object edtUserNo: TEdit
        Left = 65
        Top = 19
        Width = 141
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object edtUserName: TEdit
        Left = 65
        Top = 55
        Width = 141
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
      end
      object edtTel: TEdit
        Left = 335
        Top = 55
        Width = 141
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
      end
      object cbxSex: TComboBox
        Left = 65
        Top = 91
        Width = 141
        Height = 21
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 3
      end
      object edtEmail: TEdit
        Left = 335
        Top = 90
        Width = 141
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 4
      end
      object edtAddress: TEdit
        Left = 335
        Top = 126
        Width = 141
        Height = 19
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 5
      end
      object memUser: TMemo
        Left = 66
        Top = 162
        Width = 415
        Height = 84
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          '')
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 6
      end
      object DTPBorn: TDateTimePicker
        Left = 65
        Top = 128
        Width = 141
        Height = 21
        Date = 38686.895691550920000000
        Time = 38686.895691550920000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object cbxPost: TComboBox
        Left = 335
        Top = 20
        Width = 144
        Height = 21
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 8
      end
    end
  end
  object srcList: TDataSource
    DataSet = adolist
    Left = 376
    Top = 88
  end
  object adolist: TADOQuery
    AfterScroll = adolistAfterScroll
    Parameters = <>
    Left = 416
    Top = 88
  end
  object adotmp: TADOQuery
    Parameters = <>
    Left = 568
    Top = 88
  end
  object adoRole: TADOQuery
    Parameters = <>
    Left = 624
    Top = 88
  end
end