收藏
下载资源下载资源 加入VIP,免费下载

数据库开发表及程序.docx

上传人：b****3 文档编号：3849076 上传时间：2022-11-25 格式：DOCX 页数：10 大小：15.67KB
下载 相关 举报
数据库开发表及程序.docx_第1页
第1页 / 共10页
数据库开发表及程序.docx_第2页
第2页 / 共10页
数据库开发表及程序.docx_第3页
第3页 / 共10页
数据库开发表及程序.docx_第4页
第4页 / 共10页
数据库开发表及程序.docx_第5页
第5页 / 共10页
点击查看更多>>
下载资源
资源描述

数据库开发表及程序.docx

《数据库开发表及程序.docx》由会员分享，可在线阅读，更多相关《数据库开发表及程序.docx（10页珍藏版）》请在冰豆网上搜索。

数据库开发表及程序.docx

数据库开发表及程序

ACCESS数据表

1、班级表，名称：

BJ字段名类型长度意义

MC字符20班级名称

2、籍贯表，名称：

JG

MC字符18省市名称

3、用户表，名称：

YH

MC字符10用户名称

MM字符18密码

4、基本信息表，名称：

JBXX

XH字符10学号

XM字符10姓名

XB字符18性别

JG字符10籍贯

CS日期出生日期

主窗口：

PrivateSubForm_Load（）

IfForm8.s<>"系统管理员"Then

r.Enabled=False

sgl.Enabled=False

EndIf

EndSub

PrivateSubgrcx_Click（）

Form22.Show

EndSub

PrivateSubTimer1_Timer（）

StatusBar1.Panels

（2）.Text=Date&""&Time

EndSub

PrivateSubToolbar1_ButtonClick（ByValButtonAsComctlLib.Button）

IfButton.Index=1ThenForm2.Show

IfButton.Index=2ThenForm12.Show

EndSub

PrivateSubx_Click（）

UnloadMe

EndSub

用户管理：

PrivateSubCommand1_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubCommand2_Click（）

IfAdodc1.Recordset.Fields（0）.Value="系统管理员"Then

MsgBox"不能删除系统管理员！

"

Else

Adodc1.Recordset.Delete

EndIf

EndSub

PrivateSubCommand3_Click（）

UnloadMe

EndSub

PrivateSubCommand4_Click（）

Adodc1.Recordset.Update

EndSub

PrivateSubForm_Load（）

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

EndSub

查询：

PrivateSubCommand3_Click（）

UnloadMe

EndSub

PrivateSubCommand4_Click（）

Adodc1.RecordSource="select*fromjbxxwherexm='"+Text6+"'"

Adodc1.Refresh

IfAdodc1.Recordset.RecordCount=0ThenMsgBox"无此人！

"

EndSub

PrivateSubForm_Load（）

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

EndSub

班级管理：

PrivateSubCommand1_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.Delete

EndSub

PrivateSubCommand3_Click（）

UnloadMe

EndSub

PrivateSubCommand4_Click（）

Adodc1.Recordset.Update

EndSub

PrivateSubForm_Load（）

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

EndSub

登录：

Publics$

PrivateSubCommand1_Click（）

s=Combo1.Text

Adodc1.RecordSource="select*fromyhwheremc='"+Combo1.Text+"'"

Adodc1.Refresh

IfAdodc1.Recordset.Fields

（1）.Value=Text1Then

UnloadMe

Form1.Show

Else

MsgBox"密码错误！

"

EndIf

EndSub

PrivateSubCommand2_Click（）

UnloadMe

EndSub

PrivateSubForm_Load（）

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

Adodc1.RecordSource="select*fromyh"

Adodc1.Refresh

Combo1.Clear

DoWhileNotAdodc1.Recordset.EOF

Combo1.AddItemAdodc1.Recordset.Fields（0）.Value

Adodc1.Recordset.MoveNext

Loop

EndSub

基本信息：

PrivateSubCommand1_Click（）

Adodc1.Recordset.AddNew

EndSub

PrivateSubCommand2_Click（）

Adodc1.Recordset.Delete

EndSub

PrivateSubCommand3_Click（）

UnloadMe

EndSub

PrivateSubCommand4_Click（）

IfText1=""OrText2=""OrText4=""OrCombo1.Text=""OrCombo2.Text=""OrCombo3.Text=""OrCombo4.Text=""Then

MsgBox"数据不全！

"

Else

Adodc1.Recordset.Update

Adodc1.Recordset.MoveNext

EndIf

EndSub

PrivateSubCommand5_Click（）

CommonDialog1.ShowOpen

Dims$,s1$,s2$,i%

s=""

s2=CommonDialog1.FileName

Fori=LenB（s2）To1Step-1

s1=Mid（s2,i,1）

Ifs1<>"\"Then

s=s1+s

Else

ExitFor

EndIf

Next

Image1.Picture=LoadPicture（App.Path+"\image\"+s）

Text3=s

EndSub

PrivateSubForm_Load（）

Adodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

Adodc2.RecordSource="select*frombm"

Adodc2.Refresh

Combo1.Clear

DoWhileNotAdodc2.Recordset.EOF

Combo1.AddItemAdodc2.Recordset.Fields（0）.Value

Adodc2.Recordset.MoveNext

Loop

Adodc2.RecordSource="select*fromzw"

Adodc2.Refresh

Combo2.Clear

DoWhileNotAdodc2.Recordset.EOF

Combo2.AddItemAdodc2.Recordset.Fields（0）.Value

Adodc2.Recordset.MoveNext

Loop

Adodc2.RecordSource="select*fromzc"

Adodc2.Refresh

Combo3.Clear

DoWhileNotAdodc2.Recordset.EOF

Combo3.AddItemAdodc2.Recordset.Fields（0）.Value

Adodc2.Recordset.MoveNext

Loop

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

Adodc1.RecordSource="selectbhas编号,xmas姓名,xbas性别,csas出生日期,bmas部门,zwas职位,zcas职称,zpas照片fromjbxx"

Adodc1.Refresh

EndSub

PrivateSubText3_Change（）

IfText3<>""Then

Image1.Picture=LoadPicture（App.Path+"\image\"+Text3）

Else

Image1.Picture=LoadPicture（）

EndIf

EndSub

按班级统计：

PrivateSubCommand1_Click（）

UnloadMe

EndSub

PrivateSubForm_Load（）

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

Adodc1.RecordSource="selectbmas部门,count（xm）as人数fromjbxxgroupbybm"

Adodc1.Refresh

EndSub

综合查询：

PrivateSubCommand1_Click（）

UnloadMe

EndSub

PrivateSubForm_Load（）

Adodc2.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

Adodc2.RecordSource="selectxmfromjbxx"

Adodc2.Refresh

List1.Clear

DoWhileNotAdodc2.Recordset.EOF

List1.AddItemAdodc2.Recordset.Fields（0）.Value

Adodc2.Recordset.MoveNext

Loop

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource="+App.Path+"\yey.mdb"

Option1.Value=True

EndSub

PrivateSubList1_Click（）

Dims$

s=List1.Text

IfOption1.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,sxas时间,cqas出勤情况fromkqwherexm='"+s+"'"

Adodc1.Refresh

ElseIfOption2.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,LBas类别,JBas级别fromJCwherexm='"+s+"'"

Adodc1.Refresh

ElseIfOption3.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,xlas学历,xxas毕业院校,pxdwas培训单位,qsrqas起始日期,jsrqas结束日期frompxwherexm='"+s+"'"

Adodc1.Refresh

ElseIfOption4.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,KPXMas项目,FSas分数fromKPwherexm='"+s+"'"

Adodc1.Refresh

ElseIfOption5.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,FSas分数,JBGZas基本工资,FDGZas浮动工资,ZGZas总工资fromgzwherexm='"+s+"'"

Adodc1.Refresh

EndIf

EndSub

PrivateSubOption1_Click（）

Dims$

s=List1.Text

IfOption1.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,sxas时间,cqas出勤情况fromkqwherexm='"+s+"'"

Adodc1.Refresh

EndIf

EndSub

PrivateSubOption2_Click（）

Dims$

s=List1.Text

IfOption2.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,LBas类别,JBas级别fromJCwherexm='"+s+"'"

Adodc1.Refresh

EndIf

EndSub

PrivateSubOption3_Click（）

Dims$

s=List1.Text

IfOption3.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,xlas学历,xxas毕业院校,pxdwas培训单位,qsrqas起始日期,jsrqas结束日期frompxwherexm='"+s+"'"

Adodc1.Refresh

EndIf

EndSub

PrivateSubOption4_Click（）

Dims$

s=List1.Text

IfOption4.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,KPXMas项目,FSas分数fromKPwherexm='"+s+"'"

Adodc1.Refresh

EndIf

EndSub

PrivateSubOption5_Click（）

Dims$

s=List1.Text

IfOption5.Value=TrueThen

Adodc1.RecordSource="selectxmas姓名,rqas日期,FSas分数,JBGZas基本工资,FDGZas浮动工资,ZGZas总工资fromgzwherexm='"+s+"'"

Adodc1.Refresh

EndIf

EndSub

统计结果：

PrivateSubForm_Load（）

Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\yey.mdb"

Adodc1.RecordSource="selectcsfromjbxx"

Adodc1.Refresh

Dimi%,n%（5）

Fori=0To5

n（i）=0

Next

DoWhileNotAdodc1.Recordset.EOF

i=Int（（Date-Adodc1.Recordset.Fields（0）.Value）/365/10）-1

Ifi<=0Theni=0

Ifi>=5Theni=5

n（i）=n（i）+1

Adodc1.Recordset.MoveNext

Loop

Fori=0To5

Text1（i）=n（i）

Next

EndSub

（注：

可编辑下载，若有不当之处，请指正，谢谢!

）

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置：首页 > 农林牧渔 > 林学

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1