数据库开发表及程序

《数据库开发表及程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、ACCESS数据表1、班级表，名称：BJ字段名类型长度意义MC字符20班级名称2、籍贯表，名称：JGMC字符18省市名称3、用户表，名称：YHMC字符10用户名称MM字符18密码4、基本信息表，名称：JBXXXH字符10学号XM字符10姓名XB字符18性别JG字符10籍贯CS日期出生日期主窗口：PrivateSubForm_Load()IfForm8.s<>"系统管理员"Thenr.Enabled=Falsesgl.Enabled=FalseEndIfEndSubPrivateSubgrcx_Click()Form2

2、2.ShowEndSubPrivateSubTimer1_Timer()StatusBar1.Panels(2).Text=Date&""&TimeEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsComctlLib.Button)IfButton.Index=1ThenForm2.ShowIfButton.Index=2ThenForm12.ShowEndSubPrivateSubx_Click()UnloadMeEndSub用户管理：PrivateSubComma

3、nd1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()IfAdodc1.Recordset.Fields(0).Value="系统管理员"ThenMsgBox"不能删除系统管理员！"ElseAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.Recordset.UpdateEndS

4、ubPrivateSubForm_Load()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"yey.mdb"EndSub查询：PrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.RecordSource="select*fromjbxxwherexm='"

5、+Text6+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount=0ThenMsgBox"无此人！"EndSubPrivateSubForm_Load()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"yey.mdb"EndSub班级管理：PrivateSubCommand1_Click()Adodc1.R

6、ecordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.Recordset.UpdateEndSubPrivateSubForm_Load()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSec

7、urityInfo=False;DataSource="+App.Path+"yey.mdb"EndSub登录：Publics$PrivateSubCommand1_Click()s=Combo1.TextAdodc1.RecordSource="select*fromyhwheremc='"+Combo1.Text+"'"Adodc1.RefreshIfAdodc1.Recordset.Fields(1).Value=Text1ThenUnloadMeForm1.ShowElseMsgBox"密码错误！"EndI

8、fEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Pat