userfrm.dfm

delphi 编制的服务器程序

inherited UserForm: TUserForm
  Left = 64
  Top = 61
  Caption = #31995#32479#29992#25143#23450#20041
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    inherited sbquery: TSpeedButton
      Visible = False
      OnClick = sbqueryClick
    end
    inherited sbimport: TSpeedButton
      Visible = False
    end
  end
  inherited PageControl1: TPageControl
    ActivePage = TabSheet1
    TabIndex = 0
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'UserCode'
            Title.Alignment = taCenter
            Width = 125
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'UserName'
            Title.Alignment = taCenter
            Width = 110
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Enterpass'
            Title.Alignment = taCenter
            Width = 162
            Visible = True
          end>
      end
    end
  end
  inherited PnlCheck: TPanel
    inherited CheckBox1: TCheckBox
      Checked = True
      State = cbChecked
    end
    inherited CheckBox2: TCheckBox
      Checked = False
      State = cbUnchecked
    end
  end
  inherited ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    CursorType = ctStatic
    SQL.Strings = (
      'select * from Users')
    object ADOQuery1User_ID: TAutoIncField
      FieldName = 'User_ID'
      ReadOnly = True
    end
    object ADOQuery1UserCode: TWideStringField
      DisplayLabel = #29992#25143#32534#30721
      FieldName = 'UserCode'
      Size = 12
    end
    object ADOQuery1UserName: TWideStringField
      DisplayLabel = #29992#25143#21517#31216
      FieldName = 'UserName'
      Size = 10
    end
    object ADOQuery1Enterpass: TWideStringField
      DisplayLabel = #21475#20196
      FieldName = 'Enterpass'
      Size = 6
    end
  end
end