vb+access企业数据信息管理系统附录程序清单及注释Word下载.docx

vb+access企业数据信息管理系统附录程序清单及注释Word下载.docx

《vb+access企业数据信息管理系统附录程序清单及注释Word下载.docx》由会员分享，可在线阅读，更多相关《vb+access企业数据信息管理系统附录程序清单及注释Word下载.docx（31页珍藏版）》请在冰豆网上搜索。

delete*fromroom"

delete*fromstudent"

delete*fromcleaner"

MsgBox（"

清库完毕!

）

EndIf

PrivateSubdatacopy_Click（）

DimdbAsDatabase

DimdtAsNewTableDef

是否备份"

vbYesNo,"

备份"

）=vbYesThen

Setdb=OpenDatabase（App.Path&

Setdt=db.CreateTableDef（"

backup1"

db.TableDefs.Delete"

db.Execute"

selecthouse.*intobackup1fromhouse"

backup2"

select*intobackup2fromroom"

backup3"

select*intobackup3fromstudent"

backup4"

select*intobackup4fromcleaner"

db.Close

Else:

ExitSub

EndIf

PrivateSubdatasave_Click（）

是否还原"

还原"

house"

selectbackup1.*intohousefrombackup1"

room"

db.Execute"

select*intoroomfrombackup2"

db.TableDefs.Delete"

student"

select*intostudentfrombackup3"

cleaner"

select*intocleanerfrombackup4"

db.Close

Else

PrivateSubexit_Click（）

清表

注意!

+Chr（13）+"

此操作将清所有临时除库中所有记录，你确定要执行吗?

vbOKCancel,"

提示"

）=vbOKThen

Setmydb=OpenDatabase（App.Path&

delete*from查询汇总表"

delete*from材料总表"

delete*from总标准件表"

delete*from总外购件表"

delete*from总外协件表"

delete*from总图号册表"

Else

End

PrivateSubQXSZ_Click（）

gly_f.Show

PrivateSubForm_Resize（）

'

ifminimizedthenexit

IfMe.WindowState=vbMinimizedThenExitSub

iflowerthestandardvaluesreset

IfMe.Height<

MeHeightThenMe.Height=MeHeight

IfMe.Width<

MeWidthThenMe.Width=MeWidth

setuplist1&

msflexgrid1

caidan.Scale

PrivateSubSJHY2_Click（）

Form4.Show

查询窗体

DimfindstringAsString

DimcancelflagAsBoolean

Dimdb1AsDatabase

DimrstAsRecordset

Dimrst1AsRecordset

DimTnAsLong

Dimcount1AsInteger

PrivateSubBZJ_Click（）

sql="

select*from材料总表where特性='

GB'

Data1.RecordSource=sql

Data1.Refresh

IfMsgBox（"

是否将此记录添加到总标准件中？

64,"

Setdb=DBEngine.Workspaces（0）.OpenDatabase（App.Path&

\sjk.mdb"

Setrst=db.OpenRecordset（"

总标准件表"

dbOpenDynaset）

Setrst1=db.OpenRecordset（Data1.RecordSource,dbOpenDynaset）

rst1.MoveLast

count1=rst1.RecordCount

rst1.MoveFirst

DimaAsInteger

Fora=1Tocount1

rst.AddNew

rst.Fields（"

图号"

）=rst1.Fields（"

标准"

名称"

规格"

尺寸"

材料"

特性"

类"

数量"

单重"

单价"

工时"

总重"

备注"

rst.Update

rst1.MoveNext

Nexta

rst.Close

PrivateSubCommand10_Click（）

Data1.DatabaseName=App.Path&

Data1.RecordSource="

总外协件表"

Data1.Refresh

PrivateSubCommand4_Click（）

CallPrnt36

PrivateSubCommand5_Click（）

mydb.Executesql

Data1.DatabaseName=App.Path&

查询汇总表"

PrivateSubCommand7_Click（）

总图号册表"

PrivateSubCommand8_Click（）

总外购件表"

PrivateSubCommand9_Click（）

PrivateSubForm_Load（）

DBGrid1.AllowUpdate=False

Command2.Enabled=False

select*from材料总表"

DimnumAsInteger

Fornum=0ToData1.Recordset.Fields.Count-1

Combo1.AddItemData1.Recordset.Fields（num）.Name

Nextnum

PrivateSubCombo2_Click（）

DimtempAsString

SelectCaseCombo2.ListIndex

Case0

temp="

等于"

Case1

大于等于"

Case2

大于"

Case3

小于"

Case4

小于等于"

Case5

不等于"

Case6

包含"

EndSelect

laboperate.Caption=temp

PrivateSubCommand1_Click（）

DimfieldnameAsString

DimoperateAsString

DimvalueAsString

SelectCaseCombo2.ListIndex

operate="

="

>

Case2

<

LIKE"

IfCombo1.Text<

AndCombo2.Text<

AndText1.Text<

Then

fieldname=Combo1.Text

value=Text1.Text

SelectCaseCombo1.ListIndex

Case0,1,2,3,5,6,7,13'

4,8,9,10,11,12

findstring=fieldname&

operate&

&

value&

Case4,8,9,10,11,12

findstring=Val（fieldname）&

Val（Text1.Text）

select*from材料总表where"

findstring

ElseIfMsgBox（"

输入条件不当,请重新输入."

vbYes,"

信息提示"

）=vbYesThenExitSub

Ifoperate="

*"

*'

select*from材料总表where"

fieldname&

Command2.Enabled=True

Data1.RecordSource=sql

DAO查询方法

Setrst1=db.OpenRecordset（Data1.RecordSource,dbOpenDynaset）

IfNot（rst1.BOFAndrst1.EOF）Then

rst1.MoveLast

Me.Caption="

总共找到"

CStr（rst1.RecordCount）&

记录"

MsgBox"

未找到符合条件的纪录!

数据查询"

:

PrivateSubCommand2_Click（）

DBGrid1.AllowUpdate=True

Command4.Enabled=False

select*from"

biaostring

PrivateSubCommand3_Click（）

清汇总表

开始汇总

Setdb=DBEngine.Workspaces（0）.OpenDatabase（App.Path&

Dimi,j,pAsInteger

mc=名称gg=规格bz=标准cl=材料sl=数量DZ=单重zz=总重

Dimgg1,bz1,cl1,gm1,sl1,zz1,dz1,gg2,bz2,cl2,gm2,sl2,zz2,dz2AsString

rst.MoveLast

p=rst.RecordCount

rst.MoveFirst

Fori=0Top-2

gg1=rst.Fields（"

）:

bz1=rst.Fields（"

cl1=rst.Fields（"

sl1=rst.Fields（"

zz1=rst.Fields（"

dz1=rst.Fields（"

Forj=i+1Top-1

rst.Move1

gg2=rst.Fields（"

bz2=rst.Fields（"

cl2=rst.Fields（"

sl2=rst.Fields（"

zz2=rst.Fields（"

dz2=rst.Fields（"

Ifgg1=gg2Andbz1=bz2Andcl1=cl2Anddz1=dz2Then

sl1=Val（sl1）+Val（sl2）:

zz1=Val（zz1）+Val（zz2）:

rst.Delete:

p=p-1:

rst.MovePrevious

Nextj

rst.AbsolutePosition=i

rst.Edit

）=sl1

）=zz1

Ifi+1<

=p-2Then

ExitFor

Nexti

PrivateSubGB_Click（）

select*from材料总表where类='

钢板'

PrivateSubGG_Click（）

钢管'

PrivateSubJXG_Click（）

矩型管'

PrivateSubLabel4_Click（）

caidan.Show

UnloadMe

PrivateSubPrnt36（）

DimLnst1,Lnst