createdatabase.frm

用java编写的学生信息管理系统

VERSION 5.00
Begin VB.Form CreateDatabase 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "创建数据库"
   ClientHeight    =   1830
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5145
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1830
   ScaleWidth      =   5145
   Begin VB.CommandButton Command1 
      Caption         =   "立即创建"
      Height          =   495
      Left            =   1800
      TabIndex        =   2
      Top             =   1080
      Width           =   1455
   End
   Begin VB.OptionButton Option2 
      Caption         =   "创建ACCESS数据库"
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   360
      Width           =   1935
   End
   Begin VB.OptionButton Option1 
      Caption         =   "创建SQL数据库"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   360
      Value           =   -1  'True
      Width           =   1695
   End
End
Attribute VB_Name = "CreateDatabase"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Option1.Value Then
Dim iDb  As ADODB.Connection
          Dim iConc     As String
    
          iConc = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Data Source=."
            
          Set iDb = New ADODB.Connection
          iDb.Open iConc
    iDb.Execute "if exists (select * from dbo.sysdatabases where name = 'Student')  drop database Student"
          '创建数据库
          iDb.Execute "create   database  student"
    
          '打开刚刚创建的数据库
          iDb.DefaultDatabase = "student"
    
          '在刚创建的数据库中创建表
         iDb.Execute "CREATE TABLE [dbo].[ClassTable] ( ClassID int ,ClassName nvarchar (20) primary key,ClassMaster nvarchar (8),Remark ntext )"
           iDb.Execute "CREATE TABLE [dbo].[StudentTable] (StudentID int primary key  ,StudentName nvarchar (8) not null,ClassName nvarchar (20) foreign key references ClassTable (ClassName) ON Delete CASCADE not null,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 [dbo].[CourseTable] ( CourseID int primary key,CourseName  nvarchar(20) not null)"
           iDb.Execute "CREATE TABLE [dbo].[SelectCourseTable] ( SelectCourseID int primary key ,StudentID int foreign key references StudentTable (StudentID) ON Delete CASCADE not null,CourseID int foreign key references CourseTable (CourseID) ON Delete CASCADE  not null,TeacherName nvarchar (8),Result Float )"
           iDb.Execute "CREATE TABLE [dbo].[UserTable] ( UserName nvarchar (12) not null,UserPWD nvarchar (12) not null,UserType char (1) not null,ClassName nvarchar (20)) "
           iDb.Execute "insert UserTable values('admin','admin',2,'')"
            MsgBox "创建成功！！", , "Sql数据库"
          '处理完成后关闭数据库
          iDb.Close
          Set iDb = Nothing
          Dim filename     As String
  Dim filehwnd     As Integer
  Dim filetext     As String
  filetext = "1"
  filename = App.Path & "\psite.psite"
  filehwnd = FreeFile
  Open filename For Output As filehwnd
          Print #filehwnd, filetext
  Close filehwnd


     Else
  ' On Error GoTo b
Shell App.Path & "/CreateACCESS.exe", vbHide
MsgBox "创建成功！！", , "ACCESS数据库"
'b:MsgBox "ACCESS创建失败！", vbOKOnly + vbExclamation, ""
Dim filename2     As String
  Dim filehwnd2     As Integer
  Dim filetext2     As String
  filetext2 = "0"
  filename2 = App.Path & "\psite.psite"
  filehwnd2 = FreeFile
  Open filename2 For Output As filehwnd2
          Print #filehwnd2, filetext2
  Close filehwnd2
End If
StudentManger.Login.Enabled = True
StudentManger.DataSystemFirst.Enabled = False
Unload Me

End Sub