📄 student_basic_info.frm
字号:
Caption = "性别"
Height = 375
Left = 2040
TabIndex = 15
Top = 240
Width = 735
End
Begin VB.Label Label6
Caption = " 民族"
Height = 375
Left = 240
TabIndex = 11
Top = 1320
Width = 855
End
Begin VB.Label Label5
Caption = "学生学号"
Height = 375
Left = 240
TabIndex = 10
Top = 840
Width = 855
End
Begin VB.Label Label4
Caption = "学生姓名"
Height = 375
Left = 240
TabIndex = 9
Top = 360
Width = 855
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 1800
Top = 7080
_ExtentX = 1005
_ExtentY = 1005
BackColor = 16711935
MaskColor = 12632256
_Version = 393216
End
Begin MSComctlLib.TabStrip TabStrip1
Height = 5655
Left = 240
TabIndex = 7
Top = 3720
Width = 9375
_ExtentX = 16536
_ExtentY = 9975
ImageList = "ImageList1"
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 7
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "基本信息"
Object.Tag = "基本信息"
Object.ToolTipText = "学生概况"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "家庭社会关系"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "简历"
ImageVarType = 2
EndProperty
BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "健康状况"
ImageVarType = 2
EndProperty
BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "考勤/卫生"
ImageVarType = 2
EndProperty
BeginProperty Tab6 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "操行"
ImageVarType = 2
EndProperty
BeginProperty Tab7 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "学籍变更"
ImageVarType = 2
EndProperty
EndProperty
End
Begin VB.CheckBox Check2
Caption = "Check2"
Height = 180
Left = 6240
TabIndex = 6
Top = 240
Width = 255
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Left = 4440
TabIndex = 4
Top = 240
Width = 255
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1440
TabIndex = 2
Top = 240
Width = 1455
End
Begin VB.ListBox List1
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 2940
Left = 0
TabIndex = 0
Top = 720
Width = 15255
End
Begin VB.Label Label70
Caption = "提示信息"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 1695
Left = 9840
TabIndex = 182
Top = 7200
Width = 2415
WordWrap = -1 'True
End
Begin VB.Label Label3
Caption = "显示毕业的"
Height = 255
Left = 5040
TabIndex = 5
Top = 240
Width = 975
End
Begin VB.Label Label2
Caption = "显示休学的"
Height = 255
Left = 3240
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.Label Label1
Caption = "班级"
Height = 375
Left = 480
TabIndex = 1
Top = 240
Width = 495
End
End
Attribute VB_Name = "frm_student_basic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Click()
List1.Clear
Set rs = db.OpenRecordset("select * from class_info where 班号= '" & Combo1.Text & "'")
While Not rs.EOF
Set Myrs = db.OpenRecordset("select * from student_basic_info where 学生学号= '" & rs.Fields("班级成员") & "'")
List1.AddItem Myrs.Fields("学生姓名")
rs.MoveNext
Myrs.Close
Wend
rs.Close
End Sub
Private Sub Combo3_Change()
'Combo3.AddItem "是"
'Combo3.AddItem "否"
End Sub
Private Sub Combo4_Change()
'Combo4.AddItem "是"
'Combo4.AddItem "否"
End Sub
Private Sub Command1_Click()
If Option1.Value = True Then
If Text2.Text = "" Or Text1.Text = "" Then
MsgBox ("请输入学号")
Else
Set rs = db.OpenRecordset("select * from student_basic_info where 学生学号='" & Text2.Text & "'")
If Not rs.EOF Then
MsgBox "已经有此学号存在"
Else
sql = "insert into student_basic_info(学生姓名,学生学号,民族,籍贯,出生年月,政治面貌,学籍号,加入时间,户口性质,职务,宿舍,联系方法,其它兼职,出生地,所属市县,家庭住址,入学前单位,建档时间,党员证号,困难补助,社会实践,爱好特长,组织活动,奖励处分,备注,性别,保送,是否为烈属、港、台、澳或华侨子女) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text25.Text & "','" & Combo2.Text & "','" & Combo3.Text & "','" & Combo4.Text & "')"
db.Execute sql
sql = "insert into class_info(班号,班级成员) values ('" & Combo1.Text & "','" & Text2.Text & "')"
db.Execute sql
sql = "insert into student_relation_info(称谓,亲属姓名,出生年月,工作单位及职务,家庭电话,其它信息,学生学号) values ('" & Text26.Text & "','" & Text27.Text & "','" & Text28.Text & "','" & Text29.Text & "','" & Text51.Text & "','" & Text52.Text & "','" & Text2.Text & "')"
db.Execute sql
sql = "insert into student_resume_info(学生学号,自何年何月,至何年何月,在何地何校学习,备注) values ('" & Text2.Text & "','" & Text53.Text & "','" & Text54.Text & "','" & Text55.Text & "','" & Text71.Text & "')"
db.Execute sql
sql = "insert into student_health_info(学生学号,视力左,视力右,身高,体重,疾病) values ('" & Text2.Text & "','" & Text72.Text & "','" & Text73.Text & "','" & Text76.Text & "','" & Text77.Text & "','" & Text80.Text & "')"
db.Execute sql
'sql = "insert into class_info() values ('" & Combo1.Text & "')"
'db.Execute sql
sql = "insert into student_remark_info(学生学号,评语,奖惩,操行等级) values ('" & Text2.Text & "','" & Text89.Text & "','" & Text90.Text & "','" & Text82.Text & "')"
db.Execute sql
sql = "insert into student_change_info(学生学号,休学时间,休学原因,复学时间,转学退学情况,毕业时间,去向,编入班级) values ('" & Text2.Text & "','" & Text83.Text & "','" & Text84.Text & "','" & Text85.Text & "','" & Text86.Text & "','" & Text87.Text & "','" & Text88.Text & "','" & Combo1.Text & "')"
db.Execute sql
'sql = "insert into class_info() values ('" & Combo1.Text & "')"
'db.Execute sql
MsgBox ("添加成功")
End If
End If
ElseIf Option2.Value = True Then
sql = "update student_basic_info(学生姓名,学生学号,民族,籍贯,出生年月,政治面貌,学籍号,加入时间,户口性质,职务,宿舍,联系方法,其它兼职,出生地,所属市县,家庭住址,入学前单位,建档时间,党员证号,困难补助,社会实践,爱好特长,组织活动,奖励处分,备注,性别,保送,是否为烈属、港、台、澳或华侨子女) values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text25.Text & "','" & Combo2.Text & "','" & Combo3.Text & "','" & Combo4.Text & "' where 学生学号='" & Text2.Text & "')"
'db.Execute sql
MsgBox ("修改成功")
End If
End Sub
Private Sub Command2_Click()
Text2.Enabled = True
End Sub
Private Sub Form_Load()
Combo2.AddItem "男"
Combo2.AddItem "女"
Combo3.AddItem "是"
Combo3.AddItem "否"
Combo4.AddItem "是"
Combo4.AddItem "否"
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Frame5.Visible = False
Frame6.Visible = False
Frame7.Visible = False
Frame2.Left = Frame1.Left
Frame2.Width = Frame1.Width
Frame2.Top = Frame1.Top
Frame2.Height = Frame1.Height
Frame3.Left = Frame1.Left
Frame3.Width = Frame1.Width
Frame3.Top = Frame1.Top
Frame3.Height = Frame1.Height
Frame4.Left = Frame1.Left
Frame4.Width = Frame1.Width
Frame4.Top = Frame1.Top
Frame4.Height = Frame1.Height
Frame5.Left = Frame1.Left
Frame5.Width = Frame1.Width
Frame5.Top = Frame1.Top
Frame5.Height = Frame1.Height
Frame6.Left = Frame1.Left
Frame6.Width = Frame1.Width
Frame6.Top = Frame1.Top
Frame6.Height = Frame1.Height
Frame7.Left = Frame1.Left
Frame7.Width = Frame1.Width
Frame7.Top = Frame1.Top
Frame7.Height = Frame1.Height
Set db = OpenDatabase(App.Path + "\db\teaching_manage.mdb")
Set rs = db.OpenRecordset("select distinct 班号 from class_info ")
While Not rs.EOF
Combo1.AddItem rs.Fields("班号")
rs.MoveNext
Wend
rs.Close
End Sub
Private Sub List1_DblClick()
Set rs = db.OpenRecordset("select * from student_basic_info where 学生姓名='" & List1.Text & "'")
Text1.Text = rs.Fields("学生姓名")
Text2.Text = rs.Fields("学生学号")
Text3.Text = rs.Fields("民族")
Text4.Text = rs.Fields("籍贯")
Text5.Text = rs.Fields("出生年月")
Text6.Text = rs.Fields("政治面貌")
Text7.Text = rs.Fields("学籍号")
Text8.Text = rs.Fields("加入时间")
Text9.Text = rs.Fields("户口性质")
Text10.Text = rs.Fields("职务")
Text11.Text = rs.Fields("宿舍")
Text12.Text = rs.Fields("联系方法")
Text13.Text = rs.Fields("其它兼职")
Text14.Text = rs.Fields("出生地")
Text15.Text = rs.Fields("所属市县")
Text16.Text = rs.Fields("家庭住址")
Text17.Text = rs.Fields("入学前单位")
Text18.Text = rs.Fields("建档时间")
Text19.Text = rs.Fields("党员证号")
Text20.Text = rs.Fields("困难补助")
Text21.Text = rs.Fields("社会实践")
Text22.Text = rs.Fields("爱好特长")
Text23.Text = rs.Fields("组织活动")
Text24.Text = rs.Fields("奖励处分")
Text25.Text = rs.Fields("备注")
Combo2.Text = rs.Fields("性别")
Combo3.Text = rs.Fields("保送")
Combo4.Text = rs.Fields("是否为烈属、港、台、澳或华侨子女")
rs.Close
Set rs = db.OpenRecordset("select * from student_relation_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
Text26.Text = rs.Fields("称谓")
Text27.Text = rs.Fields("亲属姓名")
Text28.Text = rs.Fields("出生年月")
Text29.Text = rs.Fields("工作单位及职务")
Text51.Text = rs.Fields("家庭电话")
Text52.Text = rs.Fields("其它信息")
rs.Close
Set rs = db.OpenRecordset("select * from student_resume_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
Text53.Text = rs.Fields("自何年何月")
Text54.Text = rs.Fields("至何年何月")
Text55.Text = rs.Fields("在何地何校学习")
Text71.Text = rs.Fields("备注")
rs.Close
Set rs = db.OpenRecordset("select * from student_health_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
Text72.Text = rs.Fields("视力左")
Text73.Text = rs.Fields("视力右")
Text76.Text = rs.Fields("身高")
Text77.Text = rs.Fields("体重")
Text80.Text = rs.Fields("疾病")
rs.Close
Set rs = db.OpenRecordset("select * from student_health_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
Text74.Text = rs.Fields("视力左")
Text75.Text = rs.Fields("视力右")
Text78.Text = rs.Fields("身高")
Text79.Text = rs.Fields("体重")
Text81.Text = rs.Fields("疾病")
rs.Close
Set rs = db.OpenRecordset("select * from student_attendance_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
With MSHFlexGrid1
.Cols = 5
.CellAlignment = 4
.TextMatrix(0, 0) = "学号"
.TextMatrix(0, 1) = "考勤标识"
.TextMatrix(0, 2) = "事价"
.TextMatrix(0, 3) = "病假"
.TextMatrix(0, 4) = "旷课"
.Rows = 2
.CellAlignment = 4
While Not rs.EOF
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 2, 0) = rs.Fields(0)
.TextMatrix(.Rows - 2, 1) = rs.Fields(1)
.TextMatrix(.Rows - 2, 2) = rs.Fields(2)
.TextMatrix(.Rows - 2, 3) = rs.Fields(3)
.TextMatrix(.Rows - 2, 4) = rs.Fields(4)
rs.MoveNext
Wend
rs.Close
End With
Set rs = db.OpenRecordset("select * from student_remark_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
Text89.Text = rs.Fields("评语")
Text90.Text = rs.Fields("奖惩")
Text82.Text = rs.Fields("操行等级")
rs.Close
Set rs = db.OpenRecordset("select * from student_change_info where 学生学号 in ( select 学生学号 from student_basic_info where 学生姓名='" & List1.Text & " ')")
Text83.Text = rs.Fields("休学时间")
Text84.Text = rs.Fields("休学原因")
Text85.Text = rs.Fields("⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -