.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,Lnst5AsString
DimLnst6,Lnst7,Lnst8,prdateAsString
Dimi,j,PgAsInteger
prdate=CStr(Date)
Lnst1="┏━━━━━━━┯━━━━━━┯━━━━━━━━━━┯━━━━━━┯━━━━┯━━━━┯━━┯━━┯━━┯━━━━┯━━━━━━┓"
Lnst2="┃图号│名称│规格│标准│材料│数量│单重│单价│工时│购买方式│备注┃"
Lnst3="┠───────┼──────┼──────────┼──────┼────┼────┼──┼──┼──┼────┼──────┨"
'┃12345678901234│123456789012│12345678901234567890│123456789012│12345678│12345678│1234│5678│1234│12345678│123456789012┃"
Lnst4="┗━━━━━━━┷━━━━━━┷━━━━━━━━━━┷━━━━━━┷━━━━┷━━━━┷━━┷━━┷━━┷━━━━┷━━━━━━┛"
Text2.Text
Tn=InputBox("请输入每页记录数!")
Printer.FontSize=12
Printer.PrintLnst5
Printer.PrintLnst1
Printer.PrintLnst2
j=0
Pg=0
Data1.Recordset.MoveFirst
Fori=1ToData1.Recordset.RecordCount
Printer.PrintLnst3
Lnst6="┃"
IfIsNull(Trim(Data1.Recordset(0)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(0))+Space(14-LenB(Trim(Data1.Recordset(0)))/2)+"│"
Else
Lnst6=Lnst6+Space(14)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(1)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(1))+Space(12-LenB(Trim(Data1.Recordset(1))))+"│"
Else
Lnst6=Lnst6+Space(12)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(2)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(2))+Space(20-LenB(Trim(Data1.Recordset(2)))/2)+"│"
Else
Lnst6=Lnst6+Space(20)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(3)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(3))+Space(12-LenB(Trim(Data1.Recordset(3)))/2)+"│"
Else
Lnst6=Lnst6+Space(12)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(4)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(4))+Space(8-LenB(Trim(Data1.Recordset(4)))/2)+"│"
Else
Lnst6=Lnst6+Space(8)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(5)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(5))+Space(8-LenB(Trim(Data1.Recordset(5)))/2)+"│"
Else
Lnst6=Lnst6+Space(8)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(6)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(6))+Space(4-LenB(Trim(Data1.Recordset(6)))/2)+"│"
Else
Lnst6=Lnst6+Space(4)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(7)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(7))+Space(4-LenB(Trim(Data1.Recordset(7)))/2)+"│"
Else
Lnst6=Lnst6+Space(4)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(8)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(4))+Space(4-LenB(Trim(Data1.Recordset(8))))+"│"
Else
Lnst6=Lnst6+Space(4)+"│"
EndIf
IfIsNull(Trim(Data1.Recordset(9)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(9))+Space(8-LenB(Trim(Data1.Recordset(9)))/2)+"│"
Else
Lnst6=Lnst6+Space(8)+"┃"
EndIf
IfIsNull(Trim(Data1.Recordset(10)))=FalseThen
Lnst6=Lnst6+Trim(Data1.Recordset(10))+Space(12-LenB(Trim(Data1.Recordset(9)))/2)+"│"
Else
Lnst6=Lnst6+Space(12)+"┃"
EndIf
Printer.PrintLnst6
j=j+1
Ifj=TnThen
Pg=Pg+1
Printer.PrintLnst4
j=0
Printer.NewPage
Printer.PrintLnst5
Printer.PrintLnst1
Printer.PrintLnst2
EndIf
Data1.Recordset.MoveNext
Next
Pg=Pg+1
Printer.PrintLnst4
Printer.EndDoc
EndSub
PrivateSubTHC_Click()
sql="select*from材料总表where图号LIKE'*TLY*'"
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
PrivateSubWGJ_Click()
sql="select*from材料总表where特性='WG'"
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
PrivateSubWXJ_Click()
sql="select*from材料总表where特性='WX'"
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
PrivateSubHG_Click()
sql="select*from材料总表where类='H型钢'"
Data1.RecordSource=sql
Data1.Refresh
EndSub
数据加载窗体
PrivateSubCommand1_Click()
DimTnAsInteger
DimcAsInteger
DimcntAsInteger
DimdbAsDatabase
Dimdb1AsDatabase
DimaAsInteger
DimbAsInteger
DimrstAsRecordset
Dimrst1AsRecordset
DimTN1,TN2,TN3AsInteger
'建表
TN1=Val(Text1.Text):TN2=Val(Text2.Text):TN3=(Text3.Text)
IfTN1<>0AndTN2<>0AndTN3<>0Then
Setdb=DBEngine.Workspaces(0).OpenDatabase(App.Path&"/sjk.mdb")
Setdb1=DBEngine.Workspaces(0).OpenDatabase(App.Path&"/sjk.mdb")
Setrst=db1.OpenRecordset("材料总表",dbOpenDynaset)
Setrst1=db.OpenRecordset("升降提升",dbOpenDynaset)
rst1.MoveLast
cnt=rst1.RecordCount
rst1.MoveFirst
Fora=1Tocnt
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.Update
rst1.MoveNext
Nexta
'数据计算
rst.MoveFirst
Forb=1Torst1.RecordCount
rst.Edit
c=Val(rst.Fields("数量"))
rst.Fields("总重")=Val(rst.Fields("单重"))*TN1*TN3*c
rst.Fields("数量")=TN1*TN3*c
rst.Update
rst.MoveNext
Nextb
Setrst2=db.OpenRecordset("升降横移")
rst2.MoveLast
cnt=rst2.RecordCount
rst2.MoveFirst
rst.MoveFirst
Fora=1Tocnt
rst.AddNew
rst.Fields("图号")=rst2.Fields("图号")
rst.Fields("标准")=rst2.Fields("标准")
rst.Fields("名称")=rst2.Fields("名称")
rst.Fields("规格")=rst2.Fields("规格")
rst.Fields("尺寸")=rst2.Fields("尺寸")
rst.Fields("材料")=rst2.Fields("材料")
rst.Fields("特性")=rst2.Fields("特性")
rst.Fields("类")=rst2.Fields("类")
rst.Fields("数量")=rst2.Fields("数量")
rst.Fields("单重")=rst2.Fields("单重")
rst.Fields("单价")=rst2.Fields("单价")
rst.Fields("工时")=rst2.Fields("工时")
rst.Fields("备注")=rst2.Fields("备注")
rst.Update
rst2.MoveNext
Nexta
'数据计算
rst.AbsolutePosition=rst1.RecordCount-1
Forb=1Torst2.RecordCount
rst.Edit
c=Val(rst.Fields("数量"))
rst.Fields("总重")=Val(rst.Fields("单重"))*TN2*TN3*c
rst.Fields("数量")=TN2*TN3*c
rst.Update
rst.MoveNext
Nextb
Else
MsgBox"输入错误,请确认后从新输入",vbOK
EndIf
find1.Show
Me.Hide
EndSub
PrivateSubCommand2_Click()
caidan.Show
Me.Hide
EndSub
权限窗体
PrivateSubCommand1_Click()
DataGrid1.AllowAddNew=True
DataGrid1.AllowUpdate=True
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click()
DataGrid1.AllowUpdate=False
DataGrid1.AllowAddNew=False
Adodc1.Recordset.Update
'Adodc1.Refresh
EndSub
PrivateSubCommand3_Click()
caidan.Show
UnloadMe
EndSub
PrivateSubCommand4_Click()
IfAdodc1.Recordset.BOFThen
MsgBox"已无记录可删!"
ExitSub
Else
IfAdodc1.Recordset(0)=Adodc1.Recordset.RecordCountThen
Adodc1.Recordset.Delete
MsgBox"最后一条记录已删除!"
ExitSub
Else
Adodc1.Recordset.Delete
MsgBox"一条记录已删完!"
WhileNotAdodc1.Recordset.EOF
Adodc1.Recordset.MoveNext
Wend
Adodc1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand5_Click()
DataGrid1.AllowUpdate=True
EndSub
PrivateSubForm_Load()
'DataGrid1.Enabled=False
Adodc1.Enabled=False
Ifquanxian="1"Then
Adodc1.RecordSource="select*from管理员whereID='"&glymc&"'"
Adodc1.Refresh
Command1.Enabled=False
Command4.Enabled=False
ElseIfquanxian="0"Then
sql="select*from管理员"
Adodc1.RecordSource=sql
Adodc1.Refresh
EndIf
EndSub
登陆窗体
DimconnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimXAsInteger
PrivateSubCMDOK_Click()
TEXT1.Text=Replace(TEXT1.Text,"'","")
TEXT1.Text=Replace(TEXT1.Text,Chr(34),"")
TEXT2.Text=Replace(TEXT2.Text,"'","")
TEXT2.Text=Replace(TEXT2.Text,Chr(34),"")
IfTEXT1.Text="HD00001"AndTEXT2.Text="HD00001"Then
glymc="HD00001"
quanxian="0"
UnloadMe
caidan.Show
EndIf
sql="select*from管理员whereID='"&TEXT1.Text&"'andPASSWD='"&TEXT2.Text&"'"
Setrs=conn.Execute(sql)
Ifrs.EOFOrrs.BOFThen
MsgBox"帐号口令错误,请检查后从新进入!",0,"信息提示":X=X+1
Else
glymc=rs("ID")
quanxian=rs("QX")
UnloadMe
'pic.Show
caidan.Show
EndIf
IfX=3Then
MsgBox"三次密码错误,退出系统":End
EndIf
EndSub
PrivateSubCMDCANCEL_Click()
UnloadMe
'PrintChr(34)
EndSub
PrivateSubForm_Load()
conn.Openconnstr
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Setconn=Nothing
Setrs=Nothing
EndSub
??
??
??
??
1
上一篇:
人力资源系统安装程序(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施