formadd.frm

一个用VB+SQL+SERVER+2000写的学生信息管理系统.rar

VERSION 5.00
Begin VB.Form Formadd 
   Caption         =   "add"
   ClientHeight    =   6525
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   10770
   LinkTopic       =   "Form1"
   ScaleHeight     =   6525
   ScaleWidth      =   10770
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   5760
      TabIndex        =   7
      Top             =   5400
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "添加"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   1440
      TabIndex        =   6
      Top             =   5400
      Width           =   1455
   End
   Begin VB.TextBox Text3 
      Height          =   735
      Left            =   3120
      TabIndex        =   5
      Top             =   3600
      Width           =   4095
   End
   Begin VB.TextBox Text2 
      Height          =   735
      Left            =   3120
      TabIndex        =   3
      Top             =   2280
      Width           =   4095
   End
   Begin VB.TextBox Text1 
      Height          =   735
      Left            =   3240
      TabIndex        =   0
      Top             =   1080
      Width           =   4095
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入需添加的信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000C000&
      Height          =   735
      Left            =   2040
      TabIndex        =   8
      Top             =   0
      Width           =   7095
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "成绩:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   615
      Left            =   1320
      TabIndex        =   4
      Top             =   3720
      Width           =   1455
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "课程号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   495
      Left            =   1320
      TabIndex        =   2
      Top             =   2520
      Width           =   2175
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "学生学号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   495
      Left            =   480
      TabIndex        =   1
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Image Image1 
      Height          =   11520
      Left            =   -240
      Picture         =   "Formadd.frx":0000
      Top             =   -120
      Width           =   15360
   End
End
Attribute VB_Name = "Formadd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text1.SetFocus
Dim txtsql As String
Dim myConn As New ADODB.Connection

mySQL = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
mySQL = mySQL + "Initial Catalog=学生信息管理系统;"

myConn.ConnectionString = mySQL
myConn.Open

Dim aa As Integer

Dim ss As Integer

Dim bb As Integer

Dim cc As Integer

Dim dd As Integer

txtsql = ""
If Trim(Text1.Text) = "" Then
aa = 1
Else
txtsql = "('" & Trim(Text1.Text) & "'"
End If
If Trim(Text2.Text) = "" Then
bb = 1
Else
txtsql = txtsql & ",'" & Trim(Text2.Text) & "',"
End If
If Trim(Text3.Text) = "" Then
cc = 1
Else
txtsql = txtsql & Trim(Text3.Text) & ")"
End If

If aa = 1 Then
ss = MsgBox("学号不能缺！", 0, " 警告")
Text1.SetFocus
End If
If bb = 1 Then
ss = MsgBox("课程号不能缺！", 0, " 警告")
Text2.SetFocus
End If
If cc = 1 Then
ss = MsgBox("成绩不能缺！", 0, " 警告")
Text3.SetFocus
End If
Dim str As String
 str = "INSERT into st(学生学号,课程号,成绩) values " & txtsql
 myConn.Execute (str)
 ss = MsgBox("添加成功!", , "信息")
End Sub

Private Sub Command2_Click()
Unload Me
End Sub