📄 frmstudent.frm
字号:
Top = 360
Width = 615
End
Begin VB.Label Label2
Caption = "姓名："
Height = 255
Left = 240
TabIndex = 27
Top = 720
Width = 615
End
Begin VB.Label Label3
Caption = "性别："
Height = 255
Left = 240
TabIndex = 26
Top = 1080
Width = 615
End
Begin VB.Label Label4
Caption = "政治面貌："
Height = 255
Left = 240
TabIndex = 25
Top = 2280
Width = 975
End
Begin VB.Label Label5
Caption = "出生日期："
Height = 255
Left = 240
TabIndex = 24
Top = 2640
Width = 975
End
Begin VB.Label Label6
Caption = "专业："
Height = 255
Left = 240
TabIndex = 23
Top = 1440
Width = 615
End
Begin VB.Label Label7
Caption = "班级："
Height = 255
Left = 240
TabIndex = 22
Top = 1800
Width = 615
End
Begin VB.Label Label8
Caption = "家庭住址："
Height = 255
Left = 3960
TabIndex = 21
Top = 360
Width = 975
End
Begin VB.Label Label9
Caption = "联系方式："
Height = 255
Left = 3960
TabIndex = 20
Top = 720
Width = 975
End
Begin VB.Label Label10
Caption = "备注："
Height = 255
Left = 3960
TabIndex = 19
Top = 1080
Width = 615
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 2895
Left = -75000
TabIndex = 4
Top = 3600
Width = 8535
_ExtentX = 15055
_ExtentY = 5106
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
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
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid2
Height = 2055
Left = -75000
TabIndex = 29
Top = 4440
Width = 8535
_ExtentX = 15055
_ExtentY = 3625
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
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
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid3
Height = 2175
Left = 120
TabIndex = 64
Top = 4320
Width = 8415
_ExtentX = 14843
_ExtentY = 3836
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
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
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Begin VB.PictureBox Picture1
Height = 975
Left = 0
Picture = "frmStudent.frx":0054
ScaleHeight = 915
ScaleWidth = 8475
TabIndex = 0
Top = 0
Width = 8535
Begin VB.CommandButton Command1
Caption = "退出学籍管理"
Height = 375
Left = 6720
TabIndex = 1
Top = 480
Width = 1455
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "学 籍 管 理"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 2160
TabIndex = 2
Top = 240
Width = 3615
End
End
End
Attribute VB_Name = "frmStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim miCount As Integer
Private conn As ADODB.Connection
Private rsXJ As ADODB.Recordset
Private rsZY As ADODB.Recordset
Private rsBJ As ADODB.Recordset
Private rsZZ As ADODB.Recordset
Private rs As ADODB.Recordset
Dim print_ID As Integer
Private Sub Command7_Click()
Set DataGrid3.DataSource = rsXJ
DataGrid3.Refresh
End Sub
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER=SQL Server;UID=sa;DATABASE=xs;WSID=B86;APP=Microsoft Data Access Components;SERVER=B86"
conn.Open '连接数据源
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "xsXJ", conn, 1, 1
Set rsXJ = New ADODB.Recordset ' 设置连接学生学籍
rsXJ.CursorLocation = adUseClient
rsXJ.Open "xsXJ", conn, 2, 2
Set DataGrid1.DataSource = rsXJ
DataGrid1.Refresh
Set DataGrid2.DataSource = rsXJ
DataGrid2.Refresh
Set DataGrid3.DataSource = rsXJ
DataGrid3.Refresh
Set rsZY = New ADODB.Recordset '设置连接的专业
rsZY.CursorLocation = adUseClient
rsZY.Open "xsZY", conn, 1, 1
Set txtZhuanye.DataSource = rsZY
txtZhuanye.AddItem "专业名称"
Set txtXJZhuanye.DataSource = rsZY
txtXJZhuanye.AddItem "专业名称"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -