SQL+VB学生成绩管理系统+SQL脚本

USE [master] GO IF NOT EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'students') BEGIN CREATE DATABASE [students] ON PRIMARY ( NAME = N'students', FILENAME = N'D:\students.mdf' , SIZE = 3072KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB ) LOG ON ( NAME = N'students_log', FILENAME = N'D:\students_log.ldf' , SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 10%) END GO ALTER DATABASE [students] SET ANSI_NULL_DEFAULT OFF GO ALTER DATABASE [students] SET ANSI_NULLS OFF GO ALTER DATABASE [students] SET ANSI_PADDING OFF GO ALTER DATABASE [students] SET ANSI_WARNINGS OFF GO ALTER DATABASE [students] SET ARITHABORT OFF GO ALTER DATABASE [students] SET AUTO_CLOSE OFF GO ALTER DATABASE [students] SET AUTO_CREATE_STATISTICS ON GO ALTER DATABASE [students] SET AUTO_SHRINK OFF GO ALTER DATABASE [students] SET AUTO_UPDATE_STATISTICS ON GO ALTER DATABASE [students] SET CURSOR_CLOSE_ON_COMMIT OFF GO ALTER DATABASE [students] SET CURSOR_DEFAULT GLOBAL GO ALTER DATABASE [students] SET CONCAT_NULL_YIELDS_NULL OFF GO ALTER DATABASE [students] SET NUMERIC_ROUNDABORT OFF GO ALTER DATABASE [students] SET QUOTED_IDENTIFIER OFF GO ALTER DATABASE [students] SET RECURSIVE_TRIGGERS OFF GO ALTER DATABASE [students] SET READ_WRITE GO ALTER DATABASE [students] SET RECOVERY FULL GO ALTER DATABASE [students] SET MULTI_USER GO if ( ((@@microsoftversion / power(2, 24) = 8) and (@@microsoftversion & 0xffff >= 760)) or (@@microsoftversion / power(2, 24) >= 9) )begin exec dbo.sp_dboption @dbname = N'students', @optname = 'db chaining', @optvalue = 'OFF' end USE [students] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[users]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) BEGIN CREATE TABLE [dbo].[users]( [userna] [char](10) NOT NULL, [userpwd] [char](10) NULL, PRIMARY KEY CLUSTERED ( [userna] ASC ) ON [PRIMARY] ) ON [PRIMARY] END GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[course]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) BEGIN CREATE TABLE [dbo].[course]( [course_no] [nchar](10) NOT NULL, [course_name] [nchar](30) NULL, CONSTRAINT [PK_course] PRIMARY KEY CLUSTERED ( [course_no] ASC ) ON [PRIMARY] ) ON [PRIMARY] END GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[class]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) BEGIN CREATE TABLE [dbo].[class]( [classinfo] [nchar](16) NOT NULL, [depinfo] [nchar](16) NULL, CONSTRAINT [PK__class__7E6CC920] PRIMARY KEY CLUSTERED ( [classinfo] ASC ) ON [PRIMARY] ) ON [PRIMARY] END GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[students]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) BEGIN CREATE TABLE [dbo].[students]( [student_id] [nchar](10) NOT NULL, [student_name] [nchar](10) NULL, [student_gender] [nchar](10) NULL, [classinfo] [nchar](16) NOT NULL, CONSTRAINT [PK__students__7C8480AE] PRIMARY KEY CLUSTERED ( [student_id] ASC ) ON [PRIMARY] ) ON [PRIMARY] END GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[score]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) BEGIN CREATE TABLE [dbo].[score]( [student_id] [nchar](10) NOT NULL, [course_no] [nchar](10) NULL, [classinfo] [nchar](16) NULL, [score] [real] NULL ) ON [PRIMARY] END GO USE [students] GO IF NOT EXISTS (SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[FK_score_course]') AND type = 'F') ALTER TABLE [dbo].[score] WITH CHECK ADD CONSTRAINT [FK_score_course] FOREIGN KEY([course_no]) REFERENCES [dbo].[course] ([course_no])