📄 frmeditstudent.frm
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form FrmEditStudent
Caption = "学生资料"
ClientHeight = 5865
ClientLeft = 60
ClientTop = 450
ClientWidth = 5895
LinkTopic = "Form1"
ScaleHeight = 5865
ScaleWidth = 5895
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 375
Left = 3840
TabIndex = 26
Top = 5520
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "确定修改"
Height = 375
Left = 2640
TabIndex = 25
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdDel
Caption = "删除"
Height = 375
Left = 1440
TabIndex = 24
Top = 5520
Width = 855
End
Begin VB.Frame Frame1
Caption = "修改个人信息"
Height = 5415
Left = 120
TabIndex = 0
Top = 120
Width = 5655
Begin MSComCtl2.DTPicker DtpBirthday
Height = 615
Left = 3720
TabIndex = 27
Top = 2040
Width = 1455
_ExtentX = 2566
_ExtentY = 1085
_Version = 393216
Format = 25362433
CurrentDate = 38881
End
Begin VB.Frame Frame2
Caption = "备注"
Height = 855
Left = 120
TabIndex = 22
Top = 4320
Width = 5415
Begin VB.TextBox txtMemo
DataField = "备注"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 855
Left = 0
MultiLine = -1 'True
TabIndex = 23
Top = 240
Width = 5175
End
End
Begin VB.TextBox txtEmail
DataField = "电子邮件"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 960
TabIndex = 21
Top = 3840
Width = 4335
End
Begin VB.TextBox txtAddress
DataField = "家庭住址"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 960
TabIndex = 19
Top = 3360
Width = 4455
End
Begin VB.TextBox txtZipCode
DataField = "邮编"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 3720
TabIndex = 17
Top = 2760
Width = 1695
End
Begin VB.TextBox txtPhone
DataField = "电话"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 960
TabIndex = 15
Top = 2760
Width = 1695
End
Begin VB.TextBox txtNative
DataField = "籍贯"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 960
TabIndex = 12
Top = 2160
Width = 975
End
Begin MSDataListLib.DataCombo Cmbsex
Bindings = "FrmEditStudent.frx":0000
DataField = "性别"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 330
Left = 960
TabIndex = 10
Top = 1680
Width = 975
_ExtentX = 1720
_ExtentY = 582
_Version = 393216
ListField = ""
Text = "男"
End
Begin VB.TextBox txtClass
DataField = "班级"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 3720
TabIndex = 8
Top = 1560
Width = 1455
End
Begin VB.TextBox txtDepartment
DataField = "所属院系"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 960
TabIndex = 6
Top = 1080
Width = 855
End
Begin VB.TextBox txtName
DataField = "姓名"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 375
Left = 960
TabIndex = 4
Top = 600
Width = 855
End
Begin VB.TextBox txtID
DataField = "学号"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 390
Left = 960
TabIndex = 2
Top = 120
Width = 855
End
Begin VB.Label Label11
Caption = "E-MAIL"
Height = 375
Left = 120
TabIndex = 20
Top = 3960
Width = 855
End
Begin VB.Label Label10
Caption = "地址"
Height = 375
Left = 120
TabIndex = 18
Top = 3480
Width = 855
End
Begin VB.Label Label9
Caption = "邮编"
Height = 375
Left = 2880
TabIndex = 16
Top = 2760
Width = 855
End
Begin VB.Label Label8
Caption = "电话"
Height = 255
Left = 120
TabIndex = 14
Top = 2760
Width = 735
End
Begin VB.Label Label7
Caption = "生日"
Height = 375
Left = 2880
TabIndex = 13
Top = 2160
Width = 855
End
Begin VB.Label Label6
Caption = "籍贯"
Height = 375
Left = 120
TabIndex = 11
Top = 2280
Width = 735
End
Begin VB.Label Label5
Caption = "性别"
Height = 375
Left = 120
TabIndex = 9
Top = 1680
Width = 855
End
Begin VB.Label Label4
Caption = "班级"
Height = 375
Left = 2760
TabIndex = 7
Top = 1560
Width = 975
End
Begin VB.Label Label3
Caption = "系别"
Height = 495
Left = 120
TabIndex = 5
Top = 1080
Width = 855
End
Begin VB.Label Label2
Caption = "姓名"
Height = 255
Left = 120
TabIndex = 3
Top = 600
Width = 735
End
Begin VB.Label Label1
Caption = "学号"
Height = 255
Left = 120
TabIndex = 1
Top = 240
Width = 735
End
End
End
Attribute VB_Name = "FrmEditStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strCnn As String
Dim cnn As New Connection
Dim cmd As New Command
Public iCurrentPos As Integer
Private Sub Form_load()
strCnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学生信息管理系统;Data Source=556337A19B704A1"
cnn.Open strCnn
End Sub
Private Sub Form_Unload(cancel As Integer)
FrmEditStudent.Hide
End Sub
Private Sub UpdateAllStudent()
Dim cmd As New Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "stu_UpdateAllStudent"
cmd.Parameters.Append cmd.CreateParameter("@stuNo", adChar, adParamInput, 6)
cmd.Parameters.Append cmd.CreateParameter("@name", adVarChar, adParamInput, 20)
cmd.Parameters.Append cmd.CreateParameter("@sex", adChar, adParamInput, 2)
cmd.Parameters.Append cmd.CreateParameter("@departName", adVarChar, adParamInput, 50)
cmd.Parameters.Append cmd.CreateParameter("@classname", adVarChar, adParamInput, 50)
cmd.Parameters.Append cmd.CreateParameter("@birthday", adDate)
cmd.Parameters.Append cmd.CreateParameter("@native", adVarChar, adParamInput, 50)
cmd.Parameters.Append cmd.CreateParameter("@phone", adVarChar, adParamInput, 20)
cmd.Parameters.Append cmd.CreateParameter("@address", adVarChar, adParamInput, 100)
cmd.Parameters.Append cmd.CreateParameter("@zipCode", adChar, adParamInput, 8)
cmd.Parameters.Append cmd.CreateParameter("@email", adVarChar, adParamInput, 50)
cmd.Parameters.Append cmd.CreateParameter("@memo", adVarChar, adParamInput, 1000)
'输入默认值
cmd.Parameters("@stuNo").Value = txtID.Text
cmd.Parameters("@name").Value = txtName.Text
cmd.Parameters("@sex").Value = Cmbsex.Text
cmd.Parameters("@departName").Value = txtDepartment.Text
cmd.Parameters("@className").Value = txtClass.Text
cmd.Parameters("@birthday").Value = DtpBirthday.Value
cmd.Parameters("@native").Value = txtNative.Text
cmd.Parameters("@phone").Value = txtPhone.Text
cmd.Parameters("@address").Value = txtAddress.Text
cmd.Parameters("@zipCode").Value = txtZipCode.Text
cmd.Parameters("@email").Value = txtEmail.Text
cmd.Parameters("@memo").Value = txtMemo.Text
cmd.Execute '执行存储过程
MsgBox "更新成功"
cnn.Close
Set cnn = Nothing
Exit Sub
End Sub
Private Sub DelRecord()
strCnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学生信息管理系统;Data Source=556337A19B704A1"
Dim cmd As New Command
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "stu_DelStudent"
cmd.Parameters.Append cmd.CreateParameter("@stuNo", adChar, adParamInput, 6)
cmd.Parameters("@stuNo").Value = txtID.Text
'注意，是级联删除
If MsgBox("即将删除此记录及其级联的所有记录！此操作将不可恢复！", vbOKCancel, "删除确认") = VbMsgBoxResult.vbOK Then
cmd.Execute
MsgBox "成功删除"
End If
cnn.Close
Set cnn = Nothing
Exit Sub
End Sub
Private Sub cmdOK_Click()
'TODO输入验证
UpdateAllStudent
End Sub
Private Sub cmdDel_Click()
DelRecord
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -