access.frm

来自「用java编写的学生信息管理系统」· FRM 代码 · 共 43 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3825
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5745
   LinkTopic       =   "Form1"
   ScaleHeight     =   3825
   ScaleWidth      =   5745
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Visible = False
Dim DataBase   As DataBase
Dim FF As String
Dim pws As String
  FF1 = App.Path & "\Student.mdb"
  pws = ";pwd=psite"
  Set DataBase = CreateDatabase(FF1, dbLangChineseSimplified & pws, dbVersion40)
  DataBase.Close
  iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Student.mdb" & ";Persist Security Info=False;Jet OLEDB:Database password=psite"
            
          Set idb = New ADODB.Connection
          idb.Open iConc
    
    
          '在刚创建的数据库中创建表
       idb.Execute "CREATE TABLE ClassTable ( ClassID int primary key,ClassName nvarchar (20) not null,ClassMaster nvarchar (8),Remark ntext )"
          idb.Execute "CREATE TABLE StudentTable ( StudentID int primary key,StudentName nvarchar (8) not null,ClassName nvarchar (20) ,Sex nvarchar (2) not null,IDCard  nvarchar(18) not null,TelNO nvarchar(11),Adress nvarchar (100),TotalResult float,PayOne nvarchar (5),PayTwo nvarchar (5),PayThree nvarchar(5))"
         idb.Execute "CREATE TABLE CourseTable ( CourseID int primary key,CourseName  nvarchar(20) not null)"
    idb.Execute "CREATE TABLE SelectCourseTable ( SelectCourseID int primary key ,StudentID int ,CourseID int ,TeacherName nvarchar (8),Result Float )"
           idb.Execute "CREATE TABLE UserTable ( UserName nvarchar (12) not null,UserPWD nvarchar (12) not null,UserType char (1) not null,ClassName nvarchar (20) ) "
           idb.Execute "insert into UserTable values('admin','admin',2,'')"
idb.Close
Unload Me
End Sub