frmadmin.frm

一个能够有效管理教师（含家庭人口）的住房信息系统（含信息的添加、修改、删除等）

VERSION 5.00
Begin VB.Form frmadmin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录用户信息："
   ClientHeight    =   2055
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3300
   Icon            =   "frmadmin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2055
   ScaleWidth      =   3300
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   1080
      TabIndex        =   4
      Top             =   1440
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H8000000B&
      BorderStyle     =   0  'None
      Height          =   270
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   3
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H8000000B&
      BorderStyle     =   0  'None
      Height          =   270
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   2
      Top             =   345
      Width           =   1935
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "登录时间："
      Height          =   180
      Left            =   480
      TabIndex        =   1
      Top             =   960
      Width           =   900
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "登录用户："
      Height          =   180
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   900
   End
End
Attribute VB_Name = "frmadmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                    教师住房管理系统   Version 1.0                    '''
'''                         （VB6.0 源代码）                             '''
'''                                                                      '''
'''                        俊彦软件工作室出品                            '''
'''                                                                      '''
'''            （浦口校区科技节“电子杯”程序设计大赛参赛作品）          '''
'''                                                                      '''
'''                程序设计：东南大学土木工程学院   周曹俊               '''
'''                                                                      '''
'''                 CopyRight AllRights Reserved (c)2003                 '''
'''                                                                      '''
'''                         2003年5月15日                                '''
'''                                                                      '''
'''                                                                      '''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim mydb As Database, myrs As Recordset

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
'查看当前用户信息
Set mydb = OpenDatabase(App.Path & "\Support\login.dll")
Set myrs = mydb.OpenRecordset("select name,time from login")
Text1.Text = myrs!Name
Text2.Text = myrs!Time
Command1.Default = True
Set myrs = Nothing
Set mydb = Nothing
End Sub