数据库开发表及程序.doc

ACCESS数据表1、班级表，名称：BJ 字段名 类型 长度 意义MC 字符 20 班级名称2、籍贯表，名称：JGMC 字符 18 省市名称3、用户表，名称：YH MC 字符 10 用户名称MM 字符 18 密码4、基本信息表，名称：JBXX XH 字符 10 学号XM 字符 10 姓名XB 字符 18 性别JG 字符 10 籍贯CS 日期 出生日期主窗口：Private Sub Form_Load()If Form8.s 系统管理员 Thenr.Enabled = Falsesgl.Enabled = FalseEnd IfEnd SubPrivate Sub grcx_Click()Form22.ShowEnd SubPrivate Sub Timer1_Timer()StatusBar1.Panels(2).Text = Date & & TimeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)If Button.Index = 1 Then Form2.ShowIf Button.Index = 2 Then Form12.ShowEnd SubPrivate Sub x_Click()Unload MeEnd Sub用户管理：Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()If Adodc1.Recordset.Fields(0).Value = 系统管理员 ThenMsgBox 不能删除系统管理员！ElseAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbEnd Sub查询：Private Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.RecordSource = select * from jbxx where xm= + Text6 + Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 Then MsgBox 无此人！End SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbEnd Sub班级管理：Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbEnd Sub登录：Public s$Private Sub Command1_Click()s = Combo1.TextAdodc1.RecordSource = select * from yh where mc= + Combo1.Text + Adodc1.RefreshIf Adodc1.Recordset.Fields(1).Value = Text1 ThenUnload MeForm1.ShowElseMsgBox 密码错误！End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc1.RecordSource = select * from yhAdodc1.RefreshCombo1.ClearDo While Not Adodc1.Recordset.EOFCombo1.AddItem Adodc1.Recordset.Fields(0).ValueAdodc1.Recordset.MoveNextLoopEnd Sub基本信息：Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()If Text1 = Or Text2 = Or Text4 = Or Combo1.Text = Or Combo2.Text = Or Combo3.Text = Or Combo4.Text = ThenMsgBox 数据不全！ElseAdodc1.Recordset.UpdateAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()CommonDialog1.ShowOpenDim s$, s1$, s2$, i%s = s2 = CommonDialog1.FileNameFor i = LenB(s2) To 1 Step -1s1 = Mid(s2, i, 1)If s1 Thens = s1 + sElseExit ForEnd IfNextImage1.Picture = LoadPicture(App.Path + image + s)Text3 = sEnd SubPrivate Sub Form_Load()Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc2.RecordSource = select * from bmAdodc2.RefreshCombo1.ClearDo While Not Adodc2.Recordset.EOFCombo1.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc2.RecordSource = select * from zwAdodc2.RefreshCombo2.ClearDo While Not Adodc2.Recordset.EOFCombo2.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc2.RecordSource = select * from zcAdodc2.RefreshCombo3.ClearDo While Not Adodc2.Recordset.EOFCombo3.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc1.RecordSource = select bh as 编号,xm as 姓名,xb as 性别,cs as 出生日期,bm as 部门,zw as 职位,zc as 职称,zp as 照片 from jbxxAdodc1.RefreshEnd SubPrivate Sub Text3_Change()If Text3 ThenImage1.Picture = LoadPicture(App.Path + image + Text3)ElseImage1.Picture = LoadPicture()End IfEnd Sub按班级统计：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc1.RecordSource = select bm as 部门,count(xm) as 人数 from jbxx group by bmAdodc1.RefreshEnd Sub综合查询：Private Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbAdodc2.RecordSource = select xm from jbxxAdodc2.RefreshList1.ClearDo While Not Adodc2.Recordset.EOFList1.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= + App.Path + yey.mdbOption1.Value = TrueEnd SubPrivate Sub List1_Click()Dim s$s = List1.TextIf Option1.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as 日期,sx as 时间,cq as 出勤情况 from kq where xm= + s + Adodc1.RefreshElseIf Option2.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as 日期,LB as 类别,JB as 级别 from JC where xm= + s + Adodc1.RefreshElseIf Option3.Value = True ThenAdodc1.RecordSource = select xm as 姓名,xl as 学历,xx as 毕业院校,pxdw as 培训单位,qsrq as 起始日期,jsrq as 结束日期 from px where xm= + s + Adodc1.RefreshElseIf Option4.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as 日期,KPXM as 项目,FS as 分数 from KP where xm= + s + Adodc1.RefreshElseIf Option5.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as 日期,FS as 分数,JBGZ as 基本工资,FDGZ as 浮动工资,ZGZ as 总工资 from gz where xm= + s + Adodc1.RefreshEnd IfEnd SubPrivate Sub Option1_Click()Dim s$s = List1.TextIf Option1.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as 日期,sx as 时间,cq as 出勤情况 from kq where xm= + s + Adodc1.RefreshEnd IfEnd SubPrivate Sub Option2_Click()Dim s$s = List1.TextIf Option2.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as 日期,LB as 类别,JB as 级别 from JC where xm= + s + Adodc1.RefreshEnd IfEnd SubPrivate Sub Option3_Click()Dim s$s = List1.TextIf Option3.Value = True ThenAdodc1.RecordSource = select xm as 姓名,xl as 学历,xx as 毕业院校,pxdw as 培训单位,qsrq as 起始日期,jsrq as 结束日期 from px where xm= + s + Adodc1.RefreshEnd IfEnd SubPrivate Sub Option4_Click()Dim s$s = List1.TextIf Option4.Value = True ThenAdodc1.RecordSource = select xm as 姓名,rq as