frmsearch.frm
来自「这是本人应用VB在SQLsever2000环境下开发的新生信息管理系统」· FRM 代码 · 共 719 行 · 第 1/2 页
FRM
719 行
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "levelNo"
Caption = "levelNo"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "recordTime"
Caption = "recordTime"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "memo"
Caption = "memo"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1094.74
EndProperty
BeginProperty Column01
ColumnWidth = 1005.165
EndProperty
BeginProperty Column02
ColumnWidth = 645.165
EndProperty
BeginProperty Column03
ColumnWidth = 2085.166
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.Frame Frame1
Caption = "学生基本情况"
Height = 1215
Left = 120
TabIndex = 3
Top = 360
Width = 6615
Begin MSDataListLib.DataCombo cmbSex
Height = 330
Left = 720
TabIndex = 18
Top = 600
Width = 855
_ExtentX = 1508
_ExtentY = 582
_Version = 393216
Text = ""
End
Begin MSDataListLib.DataCombo dtcmbClass
Bindings = "FrmSearch.frx":005D
DataField = "班级"
DataMember = "Dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 330
Left = 4200
TabIndex = 14
Top = 720
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
ListField = "ClassName"
Text = ""
Object.DataMember = "CmdClass"
End
Begin MSDataListLib.DataCombo dtcmbDepart
Bindings = "FrmSearch.frx":0092
DataField = "所属院系"
DataMember = "dbo_stu_GetAllStudent"
DataSource = "DataEnvironment1"
Height = 330
Left = 4200
TabIndex = 13
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
ListField = "Name"
Text = ""
Object.DataMember = "CmdDepart"
End
Begin VB.TextBox txtNative
Height = 390
Left = 2400
TabIndex = 10
Top = 720
Width = 855
End
Begin VB.TextBox txtBirth
Height = 375
Left = 2400
TabIndex = 8
Top = 240
Width = 855
End
Begin VB.TextBox txtName
Height = 270
Left = 720
TabIndex = 5
Top = 240
Width = 855
End
Begin VB.Label Label7
Caption = "班级"
Height = 375
Left = 3360
TabIndex = 12
Top = 720
Width = 855
End
Begin VB.Label Label6
Caption = "院系"
Height = 375
Left = 3360
TabIndex = 11
Top = 240
Width = 855
End
Begin VB.Label Label5
Caption = "籍贯"
Height = 375
Left = 1680
TabIndex = 9
Top = 720
Width = 735
End
Begin VB.Label Label4
Caption = "生日"
Height = 375
Left = 1680
TabIndex = 7
Top = 240
Width = 735
End
Begin VB.Label Label3
Caption = "性别"
Height = 375
Left = 0
TabIndex = 6
Top = 720
Width = 735
End
Begin VB.Label Label2
Caption = "姓名"
Height = 255
Left = 0
TabIndex = 4
Top = 240
Width = 735
End
End
Begin VB.CommandButton cmdSearch
Caption = "查询"
Height = 375
Left = 2520
TabIndex = 2
Top = 0
Width = 855
End
Begin VB.TextBox txtStuNo
Height = 375
Left = 1200
TabIndex = 1
Text = "100001"
Top = 120
Width = 1095
End
Begin VB.Label Label10
Alignment = 2 'Center
Caption = "处罚情况列表"
Height = 495
Left = 4560
TabIndex = 17
Top = 1680
Width = 1335
End
Begin VB.Label Label9
Caption = "奖励情况列表"
Height = 495
Left = 2400
TabIndex = 16
Top = 1680
Width = 1695
End
Begin VB.Label Label8
Caption = "学籍变更管理"
Height = 375
Left = 120
TabIndex = 15
Top = 1680
Width = 1575
End
Begin VB.Label Label1
Caption = "输入学号"
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 975
End
End
Attribute VB_Name = "FrmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strCnn As String
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Public strStuNo As String
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"
End Sub
Private Sub Search()
Set cmd = New ADODB.Command
If Len(LTrim(txtStuNo.Text)) <> 0 Then
strStuNo = txtStuNo.Text
Else
MsgBox "请输入学号"
Exit Sub
End If
'填充学生基本情况
FillstuBasic strStuNo
'填充学籍变更列表
FillChangeList strStuNo
End Sub
Private Sub FillstuBasic(stuNo As String)
Dim cnn As New Connection
Dim cmd As New Command
cnn.Open strCnn
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "stu_GetStuSummary2"
cmd.Parameters.Append cmd.CreateParameter("@stuNo", adChar, adParamInput, 6)
cmd.Parameters.Append cmd.CreateParameter("@name", adVarChar, adParamOutput, 20)
cmd.Parameters.Append cmd.CreateParameter("@sex", adChar, adParamOutput, 2)
cmd.Parameters.Append cmd.CreateParameter("@birthday", adDate, adParamOutput)
cmd.Parameters.Append cmd.CreateParameter("@Native", adVarChar, adParamOutput, 50)
cmd.Parameters.Append cmd.CreateParameter("@departname", adVarChar, adParamOutput, 50)
cmd.Parameters.Append cmd.CreateParameter("@ClassName", adVarChar, adParamOutput, 50)
cmd.Parameters("@stuNo").Value = stuNo
cmd.Execute
txtName.Text = cmd.Parameters("@name").Value
Cmbsex.Text = cmd.Parameters("@sex").Value
txtBirth.Text = cmd.Parameters("@birthday").Value
txtNative.Text = Trim(cmd.Parameters("@native").Value)
dtcmbDepart.Text = cmd.Parameters("@departname").Value
dtcmbClass.Text = cmd.Parameters("@ClassName").Value
cnn.Close
Set cnn = Nothing
End Sub
Private Sub FillChangeList(stuNo As String)
strCnn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=学生信息管理系统;Data Source=556337A19B704A1"
Dim cnn As New Connection
Dim cmdChange As New Command
cnn.Open strCnn
cmdChange.ActiveConnection = cnn
cmdChange.CommandType = adCmdStoredProc
cmdChange.CommandText = "stu_GetChangeByNO"
cmdChange.Parameters.Append cmdChange.CreateParameter("@stuNo", adChar, adParamInput, 6)
cmdChange.Parameters("@stuNo").Value = stuNo
'绑定
Dim rsChange As New Recordset
With rsChange
.ActiveConnection = cnn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
End With
Set rsChange = cmdChange.Execute()
End Sub
'显示学籍变更列表，学籍变动情况
'row-记录号
Private Sub FillTypeAndDes(Row As Integer)
Dim cnn As New Connection
Dim cmd As New Command
cnn.Open strCnn
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "stu_changeTypeAndDes"
cmd.Parameters.Append cmd.CreateParameter("@id", adChar, adParamInput, 1)
cmd.Parameters.Append cmd.CreateParameter("@des", adVarChar, adParamputput, 50)
cmd.Parameters.Append cmd.CreateParameter("@Memo", adVarChar, adParamOutput, 1000)
cmd.Parameters("@id").Value = Row
cmd.Execute
dtcmbChange.Text = cmd("@des").Value
txtChangeMemo.Text = cmd("@memo").Value
End Sub
Private Sub cmdSearch_Click()
Search
End Sub
Private Sub MSFlexGridChange_RowColChange()
Dim recNo As Integer
recNo = MSFlexGridChange.TextMatrix(MSFlexGridChange.RowSel, 1)
FillTypeAndDes = recNo
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?