'setuplist1&msflexgrid1
caidan.Scale
EndSub
PrivateSubSJHY2_Click（）
Form4.Show
caidan.Hide
EndSub
查询窗体
OptionExplicit
DimsqlAsString
DimfindstringAsString
DimcancelflagAsBoolean
DimdbAsDatabase
Dimdb1AsDatabase
DimrstAsRecordset
Dimrst1AsRecordset
DimTnAsLong
Dimcount1AsInteger
PrivateSubBZJ_Click（）
sql="select*from材料总表where特性='GB'"
Data1.RecordSource=sql
Data1.Refresh
IfMsgBox（"是否将此记录添加到总标准件中？
",64,""）=vbOKThen
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.Fields（"标准"）=rst1.Fields（"标准"）
rst.Fields（"名称"）=rst1.Fields（"名称"）
rst.Fields（"规格"）=rst1.Fields（"规格"）
rst.Fields（"尺寸"）=rst1.Fields（"尺寸"）
rst.Fields（"材料"）=rst1.Fields（"材料"）
rst.Fields（"特性"）=rst1.Fields（"特性"）
rst.Fields（"类"）=rst1.Fields（"类"）
rst.Fields（"数量"）=rst1.Fields（"数量"）
rst.Fields（"单重"）=rst1.Fields（"单重"）
rst.Fields（"单价"）=rst1.Fields（"单价"）
rst.Fields（"工时"）=rst1.Fields（"工时"）
rst.Fields（"总重"）=rst1.Fields（"总重"）
rst.Fields（"备注"）=rst1.Fields（"备注"）
rst.Update
rst1.MoveNext
Nexta
rst.Close
db.Close
EndIf
EndSub
PrivateSubCommand10_Click（）
Data1.DatabaseName=App.Path&"\sjk.mdb"
Data1.RecordSource="总外协件表"
Data1.Refresh
EndSub
PrivateSubCommand4_Click（）
CallPrnt36
EndSub
PrivateSubCommand5_Click（）
DimmydbAsDatabase
DimdbpathAsString
DimsqlAsString
dbpath=App.Path&"\SJK.mdb"
IfMsgBox（"此功能将清除库中所有记录，你确定要执行吗?
",vbOKCancel）=vbOKThen
Setmydb=OpenDatabase（dbpath）
sql="delete*from查询汇总表"
mydb.Executesql
MsgBox（"清库完毕!
"）
Data1.DatabaseName=App.Path&"\sjk.mdb"
Data1.RecordSource="查询汇总表"
Data1.Refresh
EndIf
EndSub
PrivateSubCommand7_Click（）
Data1.DatabaseName=App.Path&"\sjk.mdb"
Data1.RecordSource="总图号册表"
Data1.Refresh
EndSub
PrivateSubCommand8_Click（）
Data1.DatabaseName=App.Path&"\sjk.mdb"
Data1.RecordSource="总外购件表"
Data1.Refresh
EndSub
PrivateSubCommand9_Click（）
Data1.DatabaseName=App.Path&"\sjk.mdb"
Data1.RecordSource="总标准件表"
Data1.Refresh
EndSub
PrivateSubForm_Load（）
DBGrid1.AllowUpdate=False
Command2.Enabled=False
Data1.DatabaseName=App.Path&"\sjk.mdb"
sql="select*from材料总表"
Data1.RecordSource=sql
Data1.Refresh
DimnumAsInteger
Fornum=0ToData1.Recordset.Fields.Count-1
Combo1.AddItemData1.Recordset.Fields（num）.Name
Nextnum
EndSub
PrivateSubCombo2_Click（）
DimtempAsString
SelectCaseCombo2.ListIndex
Case0
temp="等于"
Case1
temp="大于等于"
Case2
temp="大于"
Case3
temp="小于"
Case4
temp="小于等于"
Case5
temp="不等于"
Case6
temp="包含"
EndSelect
'laboperate.Caption=temp
EndSub
PrivateSubCommand1_Click（）
DimfieldnameAsString
DimoperateAsString
DimvalueAsString
SelectCaseCombo2.ListIndex
Case0
operate="="
Case1
operate=">="
Case2
operate=">"
Case3
operate="<"
Case4
operate="<="
Case5
operate="<>"
Case6
operate="LIKE"
EndSelect
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）&operate&Val（Text1.Text）
EndSelect
sql="select*from材料总表where"&""&findstring
ElseIfMsgBox（"输入条件不当,请重新输入.",vbYes,"信息提示"）=vbYesThenExitSub
EndIf
Ifoperate="LIKE"Then
findstring=fieldname&operate&"'*"&value&"*'"
sql="select*from材料总表where"&fieldname&""&operate&""&"'*"&value&"*'"
EndIf
Command2.Enabled=True
Data1.RecordSource=sql
Data1.Refresh
'DAO查询方法
Setdb=DBEngine.Workspaces（0）.OpenDatabase（App.Path&"\sjk.mdb"）
Setrst1=db.OpenRecordset（Data1.RecordSource,dbOpenDynaset）
IfNot（rst1.BOFAndrst1.EOF）Then
rst1.MoveLast
Me.Caption="总共找到"&CStr（rst1.RecordCount）&"记录"
Else:
MsgBox"未找到符合条件的纪录!
",64,"数据查询":
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click（）
DBGrid1.AllowUpdate=True
Command2.Enabled=False
Command4.Enabled=False
Data1.DatabaseName=App.Path&"\sjk.mdb"
sql="select*from"&biaostring
Data1.RecordSource=sql
Data1.Refresh
EndSub
PrivateSubCommand3_Click（）
'清汇总表
DimmydbAsDatabase
DimsqlAsString
Setmydb=OpenDatabase（App.Path&"\SJK.mdb"）
sql="delete*from查询汇总表"
mydb.Executesql
'开始汇总
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.Fields（"标准"）=rst1.Fields（"标准"）
rst.Fields（"名称"）=rst1.Fields（"名称"）
rst.Fields（"规格"）=rst1.Fields（"规格"）
rst.Fields（"尺寸"）=rst1.Fields（"尺寸"）
rst.Fields（"材料"）=rst1.Fields（"材料"）
rst.Fields（"特性"）=rst1.Fields（"特性"）
rst.Fields（"类"）=rst1.Fields（"类"）
rst.Fields（"数量"）=rst1.Fields（"数量"）
rst.Fields（"单重"）=rst1.Fields（"单重"）
rst.Fields（"单价"）=rst1.Fields（"单价"）
rst.Fields（"工时"）=rst1.Fields（"工时"）
rst.Fields（"总重"）=rst1.Fields（"总重"）
rst.Fields（"备注"）=rst1.Fields（"备注"）
rst.Update
rst1.MoveNext
Nexta
rst.Close
db.Close
Setdb=DBEngine.Workspaces（0）.OpenDatabase（App.Path&"\sjk.mdb"）
Setrst=db.OpenRecordset（"查询汇总表",dbOpenDynaset）
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
EndIf
Nextj
rst.AbsolutePosition=i
rst.Edit
rst.Fields（"数量"）=sl1
rst.Fields（"总重"）=zz1
rst.Update
Data1.Refresh
Ifi+1<=p-2Then
rst.Move1
Else
ExitFor
EndIf
Nexti
rst.Close
Data1.DatabaseName=App.Path&"\sjk.mdb"
Data1.RecordSource="查询汇总表"
Data1.Refresh
EndSub
PrivateSubGB_Click（）
sql="select*from材料总表where类='钢板'"
Data1.RecordSource=sql
Data1.Refresh
EndSub
PrivateSubGG_Click（）
sql="select*from材料总表where类='钢管'"
Data1.RecordSource=sql
Data1.Refresh
EndSub
PrivateSubJXG_Click（）
sql="select*from材料总表where类='矩型管'"
Data1.RecordSource=sql
Data1.Refresh
EndSub
PrivateSubLabel4_Click（）
caidan.Show
UnloadMe
EndSub
PrivateSubPrnt36（）
DimLnst1,Lnst2,Lnst3,Lnst4,Ln
升级会员 