usermanger.~dfm

彩票销售系统

object UserMangerForm: TUserMangerForm
  Left = 106
  Top = 133
  Width = 611
  Height = 375
  BorderIcons = [biSystemMenu]
  Caption = #29992#25143#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 603
    Height = 19
    Panels = <>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 603
    Height = 29
    ButtonHeight = 25
    Caption = 'ToolBar1'
    TabOrder = 1
    object BitBtn3: TBitBtn
      Left = 0
      Top = 2
      Width = 75
      Height = 25
      Caption = #26032#22686
      TabOrder = 2
      OnClick = BitBtn3Click
      Kind = bkHelp
    end
    object BitBtn1: TBitBtn
      Left = 75
      Top = 2
      Width = 75
      Height = 25
      Caption = #20445#23384
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 150
      Top = 2
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkClose
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 603
    Height = 50
    Align = alTop
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 601
      Height = 48
      Align = alClient
      Caption = #29992#25143#20449#24687#65306
      TabOrder = 0
      object Label1: TLabel
        Left = 22
        Top = 20
        Width = 48
        Height = 12
        Caption = #29992#25143#21517#65306
      end
      object Label2: TLabel
        Left = 192
        Top = 20
        Width = 60
        Height = 12
        Caption = #29992#25143#23494#30721#65306
      end
      object Label3: TLabel
        Left = 384
        Top = 21
        Width = 60
        Height = 12
        Caption = #29992#25143#26435#38480#65306
      end
      object Edit1: TEdit
        Left = 68
        Top = 16
        Width = 115
        Height = 20
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 250
        Top = 16
        Width = 121
        Height = 20
        PasswordChar = '*'
        TabOrder = 1
      end
      object ComboBox1: TComboBox
        Left = 443
        Top = 17
        Width = 117
        Height = 20
        ItemHeight = 12
        TabOrder = 2
        Items.Strings = (
          #36229#32423#29992#25143
          #26222#33021#29992#25143)
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 79
    Width = 603
    Height = 250
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 601
      Height = 248
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FUserName'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#21517#31216
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FUserPassWord'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#21475#20196
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FUserPower'
          Title.Alignment = taCenter
          Title.Caption = #29992#25143#32452
          Visible = True
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = userlist
    Left = 392
  end
  object useredit_sp: TADOStoredProc
    Connection = NumberMangerMain.NumberManger_Adocon
    ProcedureName = 'SysUserManger_Sp;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@UserId'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@FUserName'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@FUserPassWord'
        Attributes = [paNullable]
        DataType = ftString
        Size = 50
        Value = Null
      end
      item
        Name = '@FUserPower'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@WorkUser'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end
      item
        Name = '@ReturnError'
        Attributes = [paNullable]
        DataType = ftString
        Direction = pdInputOutput
        Size = 125
        Value = Null
      end>
    Left = 256
  end
  object userlist: TADOQuery
    Connection = NumberMangerMain.NumberManger_Adocon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from T_user')
    Left = 368
    object userlistFUserId: TAutoIncField
      FieldName = 'FUserId'
      ReadOnly = True
    end
    object userlistFUserName: TStringField
      FieldName = 'FUserName'
      Size = 15
    end
    object userlistFUserPassWord: TStringField
      FieldName = 'FUserPassWord'
      Size = 50
    end
    object userlistFUserPower: TStringField
      FieldName = 'FUserPower'
      Size = 12
    end
  end
end