?? frmsearch.frm
字號:
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 + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -