www.pudn.com > studen.rar > Form3.vb
Imports System.Data
Imports System.Data.SqlClient
Public Class Form3
Public aConn As SqlConnection
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aConn As SqlConnection
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
ComboBox1.Items.Clear()
selecomm = New SqlCommand(" select DISTINCT 年级 from sdept1 ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item(0))
Next
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim aConn As SqlConnection
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
'把年级信息保存数据库中
'selecomm = New SqlCommand("INSERT INTO Student(学号,姓名,性别,班号,出生年月,身份证号) VALUES('" + Sno + "','" + Sname + "','" + Sex + "','" + banhao + "','" + chushengriqi + "','" + shenfenzhenghao + "')", aConn)
'selecomm.ExecuteNonQuery()
'MsgBox("插入成功", MsgBoxStyle.Question + MsgBoxStyle.OkOnly + MsgBoxStyle.DefaultButton2, "提示")
'验证输入的年级是否已经存在
selecomm = New SqlCommand(" select 年级 from sdept1 ", aConn)
selecomm.CommandType = CommandType.Text
Dim AmyAdapter As New SqlDataAdapter
Dim Aadapter As New SqlDataAdapter
AmyAdapter.TableMappings.Add("Table", "Products")
Aadapter.SelectCommand() = selecomm
Dim dss As New DataSet
Aadapter.Fill(dss)
Dim j As Integer
Dim biaozhi As Integer
biaozhi = 0
For j = 0 To dss.Tables(0).Rows.Count - 1
If biaozhi = 0 Then
If ComboBox1.Text <> dss.Tables(0).Rows(j).Item(0) Then
Else
MsgBox("此年级已经存在!! 请重新填入年级!")
biaozhi = biaozhi + 1
End If
End If
Next
If biaozhi = 0 Then
selecomm = New SqlCommand("INSERT into sdept1 (年级) VALUES('" + ComboBox1.Text + "')", aConn)
selecomm.ExecuteNonQuery()
MsgBox("添加成功")
'给ComboBox1添加成员
ComboBox1.Items.Clear()
selecomm = New SqlCommand(" select 年级 from sdept1 ", aConn)
selecomm.CommandType = CommandType.Text
Dim myAdapter As New SqlDataAdapter
Dim adapter As New SqlDataAdapter
myAdapter.TableMappings.Add("Table", "Products")
adapter.SelectCommand() = selecomm
Dim ds As New DataSet
adapter.Fill(ds)
Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item(0))
'MsgBox("此年级已经存在!! 请重新填入年级!")
Next
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aConn As SqlConnection
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand(" select 年级,班级 from sdept1 ", aConn)
selecomm.CommandType = CommandType.Text
Dim AmyAdapter As New SqlDataAdapter
Dim Aadapter As New SqlDataAdapter
AmyAdapter.TableMappings.Add("Table", "Products")
Aadapter.SelectCommand() = selecomm
Dim dss As New DataSet
Aadapter.Fill(dss)
Dim j As Integer
Dim biaozhi As Integer
biaozhi = 0
For j = 0 To dss.Tables(0).Rows.Count - 1
If biaozhi = 0 Then
If (ComboBox1.Text = dss.Tables(0).Rows(j).Item(0) And TextBox1.Text = dss.Tables(0).Rows(j).Item(1)) Then
MsgBox("此记录已经存在!! 请重新填入年级和班级!")
biaozhi = biaozhi + 1
Else
End If
End If
Next
'第一步给sdept1中添加班级
If biaozhi = 0 Then
selecomm = New SqlCommand("INSERT into sdept1 (年级,班级) VALUES('" + ComboBox1.Text + "','" + TextBox1.Text + "') ", aConn)
selecomm.ExecuteNonQuery()
' MsgBox("添加成功")
'第二步给此班级建立基本表\成绩表\课程表\活动表\综合测评表\学分表\活动记录表\职务表
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim str7 As String
Dim str8 As String
Dim AB As String
Dim CD As String
str1 = "基本表"
str2 = "成绩表"
str3 = "课程表"
str4 = "活动表"
str5 = "综合测评表"
str6 = "学分表"
str7 = "活动记录表"
str8 = "职务记录表"
Try
AB = ComboBox1.Text
CD = TextBox1.Text
H = AB + CD + str1
selecomm = New SqlCommand("CREATE TABLE """ + H + """ (学号 VARCHAR(50),姓名 CHAR(10),性别 CHAR(10), 出生年月 CHAR(10), 身份证号 VARCHAR(50),籍贯 VARCHAR(50),考生来源 VARCHAR(50), 政治面貌 CHAR(10), 联系电话 VARCHAR(50),家庭现住址 VARCHAR(50),邮编 VARCHAR(50),""E-mail"" VARCHAR(50),QQ VARCHAR(50));", aConn)
selecomm.ExecuteNonQuery()
H = AB + CD + str2
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( 时间 VARCHAR(50), 学号 VARCHAR(50),姓名 CHAR(10),课程名 CHAR(10),成绩 CHAR(10), 文化课排名 CHAR(10),综合排名 CHAR(10));", aConn)
selecomm.ExecuteNonQuery()
H = AB + CD + str3
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( 课程号 VARCHAR(50),课程名 VARCHAR(50), 学时 VARCHAR(50),学分 VARCHAR(50),任课教师 VARCHAR(50),时间 VARCHAR(50) );", aConn)
selecomm.ExecuteNonQuery()
H = AB + CD + str4
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( 活动时间 VARCHAR(50),活动名称 VARCHAR(50), 应加分值 VARCHAR(50),活动内容 VARCHAR(50),活动地点 VARCHAR(50),荣获何种荣誉 VARCHAR(50),合作单位 VARCHAR(50),活动策划人 VARCHAR(50) );", aConn)
selecomm.ExecuteNonQuery()
H = AB + CD + str5
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( s_no VARCHAR(50),s_name VARCHAR(50), 专业理论素质 VARCHAR(50),思想政治道德素质 VARCHAR(50),身心素质 VARCHAR(50),创新精神和实践能力 VARCHAR(50),总成绩 VARCHAR(50),学期 VARCHAR(50) );", aConn)
selecomm.ExecuteNonQuery()
'MsgBox("添加成功")
H = AB + CD + str6
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( zhcp_name VARCHAR(50),code VARCHAR(50), kind VARCHAR(50) );", aConn)
selecomm.ExecuteNonQuery()
'MsgBox("添加成功")
H = AB + CD + str7
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( s_no VARCHAR(50),s_name VARCHAR(50), active_name VARCHAR(50),时间 VARCHAR(50));", aConn)
selecomm.ExecuteNonQuery()
' MsgBox("添加成功")
H = AB + CD + str8
selecomm = New SqlCommand("CREATE TABLE """ + H + """ ( s_no VARCHAR(50),s_name VARCHAR(50), s_headship VARCHAR(50),headship_code VARCHAR(50));", aConn)
selecomm.ExecuteNonQuery()
MsgBox("添加成功")
Catch
selecomm = New SqlCommand("delete sdept1", aConn)
selecomm.ExecuteNonQuery()
MsgBox("创建失败,请重新输入!!")
End Try
MsgBox("创建成功,请点击详细设置")
End If
'Dim f1 As New 学生管理系统
'f1.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim f4 As New 基本信息设置
f4.Show()
End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim aConn As SqlConnection
Dim selecomm As SqlCommand
aConn = New SqlConnection("Server=(local);user id=Sa;Password=;database=class")
aConn.Open()
selecomm = New SqlCommand("UPDATE SET 班级= '" + TextBox1.Text + "' where 年级='" + ComboBox1.Text + "'", aConn)
selecomm.ExecuteNonQuery()
MsgBox("修改成功")
End Sub
End Class