数据库开发表及程序

1、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 SubPrivat

2、e 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()Unl

3、oad 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_Cl

4、ick()Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + App.Path + "yey.mdb"End Sub查询：Private Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.RecordSo

5、urce = "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="

6、 + App.Path + "yey.mdb"End 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.Connect

7、ionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + App.Path + "yey.mdb"End Sub登录：Public s$Private Sub Command1_Click()s = Combo1.TextAdodc1.RecordSource = "select * from yh where mc='" + Combo1.Text + "'"Adodc1.R

8、efreshIf 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.

9、Path + "yey.mdb"Adodc1.RecordSource = "select * from yh"Adodc1.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 Command

10、2_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 = "&quo

11、t; ThenMsgBox "数据不全！"ElseAdodc1.Recordset.UpdateAdodc1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command5_Click()CommonDialog1.ShowOpenDim s$, s1$, s2$, i%s = ""s2 = CommonDialog1.For i = LenB(s2) To 1 Step -1s1 = Mid(s2, i, 1)If s1 <> "" Thens = s1 + sElseExit F

12、orEnd 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.mdb"Adodc2.RecordSource = "select * from

13、bm"Adodc2.RefreshCombo1.ClearDo While Not Adodc2.Recordset.EOFCombo1.AddItem Adodc2.Recordset.Fields(0).ValueAdodc2.Recordset.MoveNextLoopAdodc2.RecordSource = "select * from zw"Adodc2.RefreshCombo2.ClearDo While Not Adodc2.Recordset.EOFCombo2.AddItem Adodc2.Recordset.Fields(0).ValueA

14、dodc2.Recordset.MoveNextLoopAdodc2.RecordSource = "select * from zc"Adodc2.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

15、=False;Data Source=" + App.Path + "yey.mdb"Adodc1.RecordSource = "select bh as 编号,xm as 姓名,xb as 性别,cs as 出生日期,bm as 部门,zw as 职位,zc as 职称,zp as 照片 from jbxx"Adodc1.RefreshEnd SubPrivate Sub Text3_Change()If Text3 <> "" ThenImage1.Picture = LoadPicture(App.Pat

16、h + "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.mdb"Adodc

17、1.RecordSource = "select bm as 部门,count(xm) as 人数 from jbxx group by bm"Adodc1.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 +

18、 "yey.mdb"Adodc2.RecordSource = "select xm from jbxx"Adodc2.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;

19、Data Source=" + App.Path + "yey.mdb"Option1.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 Opt

20、ion2.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 p

21、x 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

22、 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 whe

23、re 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

24、 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 日期,KPXM as 项目,FS as 分数 from KP