Command6
Caption
Font
退出
宋体、四号
退出系统
3.3编写代码
PrivateSubCommand1_Click(>
Data1.Recordset.MovePrevious
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
Command1.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
EndSub
PrivateSubCommand2_Click(>
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Command2.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
EndSub
PrivateSubCommand3_Click(>
ss="请输入要查询学生姓名:
"
instring$=InputBox$(ss,"输入提示">
Data1.Recordset.FindFirst"姓名='"&instring$&"'"
IfData1.Recordset.NoMatchThen
msg="没有该学生的信息!
"
MsgBoxmsg,vbOKOnly,"提示"
EndIf
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
Command1.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Command2.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
EndSub
PrivateSubCommand4_Click(>
ss="请输入要查询学生的学号"
instring$=InputBox$(ss,"输入提示","0000">
Data1.Recordset.FindFirst"学号='"&instring$&"'"
IfData1.Recordset.NoMatchThen
msg="没有该学生的信息!
"
MsgBoxmsg,vbOKOnly,"提示"
EndIf
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
Command1.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Command2.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
IfData1.Recordset.BOFThen
Data1.Recordset.MoveFirst
Command1.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
Command2.Enabled=False
Else
Command1.Enabled=True
Command2.Enabled=True
EndIf
EndSub
PrivateSubCommand5_Click(>
IfForm1.Text1.Text<>"guanli"Then
Form4.Command2.Enabled=False
EndIf
Form4.Show
Form2.Hide
EndSub
PrivateSubCommand6_Click(>
End
EndSub
PrivateSubForm_Activate(>
Frame1.Visible=False
Frame2.Visible=False
Label1.Visible=False
Label2.Visible=False
Label3.Visible=False
Label4.Visible=False
Label5.Visible=False
Label6.Visible=False
Label7.Visible=False
Label8.Visible=False
Label9.Visible=False
Label10.Visible=False
Text1.Visible=False
Text2.Visible=False
Text3.Visible=False
Text4.Visible=False
Text5.Visible=False
Text6.Visible=False
Text7.Visible=False
Text8.Visible=False
Text9.Visible=False
Text10.Visible=False
EndSub
PrivateSubOption1_Click(>
Frame1.Visible=True
Frame2.Visible=True
Label1.Visible=True
Label2.Visible=True
Label3.Visible=True
Label4.Visible=True
Label5.Visible=True
Label6.Visible=True
Label7.Visible=True
Label8.Visible=True
Label9.Visible=True
Label10.Visible=True
Text1.Visible=True
Text2.Visible=True
Text3.Visible=True
Text4.Visible=True
Text5.Visible=True
Text6.Visible=True
Text7.Visible=True
Text8.Visible=True
Text9.Visible=True
Text10.Visible=True
EndSub
PrivateSubOption2_Click(>
Option1.Value=False
Option2.Value=False
Form2.Hide
Form6.Show
EndSub
4.“基本信息录入”窗体4.1界面设计
4.2控件属性列表
对象名称
属性
设置值
功能
Frame1
Caption
请选择
将同类信息放在框架中
Option1
Caption
基本信息
单击,选择一项
Option2
Caption
成绩信息
单击,选择一项
Data1
Connect
DataBaseName
RecordSouce
Visible
Access
C:
\Users\liu\Desktop\学生档案\学生档案管理系统.mdb
Jiben
False
连接“jiben”表<基本信息表)
DBGrid1
DataSource
Data1
列表显示所有学生的基本信息
Label1~Label10
Caption
依次分别为:
学号、姓名、性别······奖惩情况
提示
Text1~Text10
DataSouce
DataField
Data1
依次分别为:
学号、姓名、性别······奖惩情况
显示相应字段内容
Command1
Caption
Font
信息浏览
宋体、四号
单击,显示列表所有学生基本信息
Command2
Caption
Font
信息录入
宋体、四号
单击,添加某个学生基本信息
Command3
Caption
Font
信息修改
宋体、四号
单击,修改当前学生基本信息
Command4
Caption
Font
信息删除
宋体、四号
单击,删除当前学生基本信息
Command5
Caption
Font
确定
宋体、四号
单击,保存钢材所作的录入或修改
Command6
Caption
Font
取消
宋体、四号
单击,取消刚才的录入或修改
Command7
Caption
Font
信息查询
宋体、四号
单击,按学号查询某个学生的基本信息
Command8
Caption
Font
返回
宋体、四号
单击,返回学生名册窗体
Command9
Caption
Font
退出
宋体、四号
退出系统
4.3编写代码
PrivateSubCommand1_Click(>
DBGrid1.Visible=True
EndSub
PrivateSubCommand2_Click(>
srxg=True
Data1.Recordset.AddNew
Text1.SetFocus
EndSub
PrivateSubCommand3_Click(>
srxg=True
Data1.Recordset.Edit
Text1.SetFocus
EndSub
PrivateSubCommand4_Click(>
DimnumAsInteger
num=Val(Text1.Text>
ss=MsgBox("真的要删除这个记录吗?
",vbYesNo+vbInformation,"删除记录">
If(ss=vbYes>Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
IfData1.Recordset.EOFThen
Data1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand5_Click(>
srxg=True
Data1.Recordset.Update
EndSub
PrivateSubCommand6_Click(>
srxg=True
Data1.Recordset.CancelUpdate
EndSub
PrivateSubCommand7_Click(>
srxg=True
ss="请输入要查询学生的学号"
instring$=InputBox$(ss,"输入提示","0000">
Data1.Recordset.FindFirst"学号='"&instring$&"'"
IfData1.Recordset.NoMatchThen
msg="没有记录!
"
MsgBoxmsg,vbOKOnly,"提示"
EndIf
EndSub
PrivateSubCommand8_Click(>
Form4.Show
Form3.Hide
EndSub
PrivateSubCommand9_Click(>
End
EndSub
PrivateSubForm_Activate(>
DBGrid1.Visible=False
Label1.Visible=False
Label2.Visible=False
Label3.Visible=False
Label4.Visible=False
Label5.Visible=False
Label6.Visible=False
Label7.Visible=False
Label8.Visible=False
Label9.Visible=False
Label10.Visible=False
Text1.Visible=False
Text2.Visible=False
Text3.Visible=False
Text4.Visible=False
Text5.Visible=False
Text6.Visible=False
Text7.V