frmusrnfo.frm

这是一个用vb 写的聊天室

VERSION 5.00
Begin VB.Form frmUsrNFO 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "User Info"
   ClientHeight    =   3024
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3024
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtBDay 
      DataField       =   "BDay"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   1710
      TabIndex        =   10
      Text            =   "Birthday"
      Top             =   2190
      Width           =   1410
   End
   Begin VB.TextBox txtZip 
      DataField       =   "Zip"
      DataSource      =   "dtaUsrNfo"
      Height          =   300
      Left            =   2655
      TabIndex        =   9
      Text            =   "ZipCode"
      Top             =   1785
      Width           =   990
   End
   Begin VB.TextBox txtState 
      DataField       =   "State"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   1920
      TabIndex        =   8
      Text            =   "State"
      Top             =   1785
      Width           =   630
   End
   Begin VB.TextBox txtCity 
      DataField       =   "City"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   150
      TabIndex        =   7
      Text            =   "City"
      Top             =   1770
      Width           =   1665
   End
   Begin VB.TextBox txtStreetAddy 
      DataField       =   "StreetAddy"
      DataSource      =   "dtaUsrNfo"
      Height          =   300
      Left            =   150
      TabIndex        =   6
      Text            =   "Street Addy"
      Top             =   1410
      Width           =   4440
   End
   Begin VB.TextBox txtLast 
      DataField       =   "Last"
      DataSource      =   "dtaUsrNfo"
      Height          =   300
      Left            =   3000
      TabIndex        =   5
      Text            =   "Last"
      Top             =   855
      Width           =   1575
   End
   Begin VB.TextBox txtMiddle 
      DataField       =   "Middle"
      DataSource      =   "dtaUsrNfo"
      Height          =   300
      Left            =   1560
      TabIndex        =   4
      Text            =   "Middle"
      Top             =   855
      Width           =   1365
   End
   Begin VB.TextBox txtFirst 
      DataField       =   "First"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   135
      TabIndex        =   3
      Text            =   "First"
      Top             =   855
      Width           =   1350
   End
   Begin VB.TextBox txtStatus 
      DataField       =   "Status"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   3000
      TabIndex        =   2
      Text            =   "Status"
      Top             =   240
      Width           =   1575
   End
   Begin VB.TextBox txtLogin 
      DataField       =   "Login"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   120
      TabIndex        =   1
      Text            =   "Login"
      Top             =   240
      Width           =   1335
   End
   Begin VB.TextBox txtPass 
      DataField       =   "Pass"
      DataSource      =   "dtaUsrNfo"
      Height          =   285
      Left            =   1560
      TabIndex        =   0
      Text            =   "Password"
      Top             =   240
      Width           =   1335
   End
   Begin VB.Data dtaUsrNfo 
      Caption         =   "User Info"
      Connect         =   "Access"
      DatabaseName    =   "C:\Shaun\Server\SvrDB.mdb"
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   300
      Left            =   150
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "Users"
      Top             =   2595
      Width           =   4455
   End
End
Attribute VB_Name = "frmUsrNFO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
dtaUsrNfo.DatabaseName = App.Path & "\SvrDB.mdb"
End Sub