CStr(txt15e1temp.Text)&","&CStr(txt15b2temp.Text)&"-"&CStr(txt15e2temp.Text)
ElseIftxt15b1temp.Text<>0Then
piao15=CStr(txt15b.Text)&"-"&CStr(txt15e.Text)&","&CStr(txt15b1temp.Text)&"-"&CStr(txt15e1temp.Text)
Else
piao15=CStr(txt15b.Text)&"-"&CStr(txt15e.Text)
EndIf
Iftxt20b2temp.Text<>0Then
piao20=CStr(txt20b.Text)&"-"&CStr(txt20e.Text)&","&CStr(txt20b1temp.Text)&"-"&CStr(txt20e1temp.Text)&","&CStr(txt20b2temp.Text)&"-"&CStr(txt20e2temp.Text)
ElseIftxt20b1temp.Text<>0Then
piao20=CStr(txt20b.Text)&"-"&CStr(txt20e.Text)&","&CStr(txt20b1temp.Text)&"-"&CStr(txt20e1temp.Text)
Else
piao20=CStr(txt20b.Text)&"-"&CStr(txt20e.Text)
EndIf
Iftxt30b2temp.Text<>0Then
piao30=CStr(txt30b.Text)&"-"&CStr(txt30e.Text)&","&CStr(txt30b1temp.Text)&"-"&CStr(txt30e1temp.Text)&","&CStr(txt30b2temp.Text)&"-"&CStr(txt30e2temp.Text)
ElseIftxt30b1temp.Text<>0Then
piao30=CStr(txt30b.Text)&"-"&CStr(txt30e.Text)&","&CStr(txt30b1temp.Text)&"-"&CStr(txt30e1temp.Text)
Else
piao30=CStr(txt30b.Text)&"-"&CStr(txt30e.Text)
EndIf
'向数据库插入数据
Ifm_enableThen
strcnn="insertintodata(begin5,end5,begin10,end10,begin15,end15,begin20,end20,begin30,end30,begintwo5,endtwo5,beginthree5,endthree5,begintwo10,endtwo10,beginthree10,endthree10,begintwo15,endtwo15,beginthree15,endthree15,begintwo20,endtwo20,beginthree20,endthree20,begintwo30,endtwo30,beginthree30,endthree30,zs5,je5,zs10,je10,zs15,je15,zs20,je20,zs30,je30,hjzs,hjje,bz,bc,station,sxm,riqi,ph5,ph10,ph15,ph20,ph30,gonghao)"&_
"values('"&txt5b&"','"&txt5e&"','"&txt10b&"','"&txt10e&"','"&txt15b&"','"&txt15e&"','"&txt20b&"','"&txt20e&"','"&txt30b&"','"&txt30e&"','"&txt5b1temp&"','"&txt5e1temp&"','"&txt5b2temp&"','"&txt5e2temp&"','"&txt10b1temp&"','"&txt10e1temp&"','"&txt10b2temp&"','"&txt10e2temp&"','"&txt15b1temp&"','"&txt15e1temp&"','"&txt15b2temp&"','"&txt15e2temp&"','"&txt20b1temp&"','"&txt20e1temp&"','"&txt20b2temp&"','"&txt20e2temp&"','"&txt30b1temp&"','"&txt30e1temp&"','"&txt30b2temp&"','"&txt30e2temp&"','"&datamfrm.txtzs5&"','"&datamfrm.txtje5&"','"&datamfrm.txtzs10&"','"&datamfrm.txtje10&"','"&datamfrm.txtzs15&"','"&datamfrm.txtje15&"','"&datamfrm.txtzs20&"','"&datamfrm.txtje20&"','"&datamfrm.txtzs30&"','"&datamfrm.txtje30&"','"&datamfrm.txtzshj&"','"&datamfrm.txtjehj&"',"&_
"'"&Combobz.Text&"','"&Combobc.Text&"','"&Combostation.Text&"','"&txtsfname.Text&"',#"&rwdate&"#,'"&piao5&"','"&piao10&"','"&piao15&"','"&piao20&"','"&piao30&"','"&txtgonghao1.Text&"')"
Else
strcnn="insertintodata(begin5,end5,begin10,end10,begin15,end15,begin20,end20,begin30,end30,zs5,je5,zs10,je10,zs15,je15,zs20,je20,zs30,je30,hjzs,hjje,bz,bc,station,sxm,riqi,ph5,ph10,ph15,ph20,ph30,gonghao)values('"&txt5b&"','"&txt5e&"','"&txt10b&"','"&txt10e&"','"&txt15b&"','"&txt15e&"','"&txt20b&"','"&txt20e&"','"&txt30b&"','"&txt30e&"','"&datamfrm.txtzs5&"','"&datamfrm.txtje5&"','"&datamfrm.txtzs10&"','"&datamfrm.txtje10&"','"&datamfrm.txtzs15&"','"&datamfrm.txtje15&"','"&datamfrm.txtzs20&"','"&datamfrm.txtje20&"','"&datamfrm.txtzs30&"','"&datamfrm.txtje30&"','"&datamfrm.txtzshj&"','"&datamfrm.txtjehj&"','"&Combobz.Text&"','"&Combobc.Text&"','"&Combostation.Text&"','"&txtsfname.Text&"',#"&rwdate&"#,'"&piao5&"','"&piao10&"','"&piao15&"','"&piao20&"','"&piao30&"','"&txtgonghao1.Text&"')"
EndIf
Withcondata
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.ConnectionTimeout=10
.Open
EndWith
Withcmddata
.ActiveConnection=condata
.CommandType=adCmdText
.CommandText=strcnn
.Execute
EndWith
datamfrm.Label11.Caption=wt.Up(datamfrm.txtxx)
EndSub
PrivateSubForm_Load()
'计算当前的日期
rwdate=CStr(Format(Date,"yyyy-MM-dd"))
Withdatafrm
.ScaleWidth=8400
.ScaleHeight=7400
.Height=6000
EndWith
DTPriqi.Format=dtpCustom
DTPriqi.CustomFormat="yyyy年MM月dd日"
DTPriqi=rwdate
txtrq.Text=rwdate
Combostation.AddItem"天津收费站"
Combostation.AddItem"军粮城收费站"
Combostation.AddItem"滨海收费站"
Combobz.AddItem"一"
Combobz.AddItem"二"
Combobz.AddItem"三"
Combobz.AddItem"四"
Combobc.AddItem"白"
Combobc.AddItem"夜"
EndSub
PrivateSubMonthView1_DateClick(ByValDateClickedAsDate)
EndSub
PrivateSubtxtgonghao_LostFocus()
DimcnnjinbinAsNewADODB.Connection
DimrstjinbinAsNewADODB.Recordset
IfLen(Trim(txtgonghao.Text))<>0Then
Withcnnjinbin
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.Open
EndWith
Withrstjinbin
If.State=adStateOpenThen
.Close
EndIf
.LockType=adLockReadOnly
.CursorLocation=adUseClient
.CursorType=adOpenDynamic
.ActiveConnection=cnnjinbin
.Source="selecttop1*fromdatawheregonghao='"&Trim(txtgonghao.Text)&"'orderbybhdesc"
.Open
If.RecordCount<>0Then
DoUntil.EOF
txtgonghao1.Text=Trim(.Fields!gonghao.Value)
txtsfname.Text=Trim(.Fields!sxm.Value)
txt5b.Text=Trim(.Fields!begin5.Value)
txt5e.Text=Trim(.Fields!end5.Value)
txt5b1temp.Text=Trim(.Fields!begintwo5.Value)
txt5e1temp.Text=Trim(.Fields!endtwo5.Value)
txt5b2temp.Text=Trim(.Fields!beginthree5.Value)
txt5e2temp.Text=Trim(.Fields!endthree5.Value)
txt10b.Text=Trim(.Fields!begin10.Value)
txt10e.Text=Trim(.Fields!end10.Value)
txt10b1temp.Text=Trim(.Fields!begintwo10.Value)
txt10e1temp.Text=Trim(.Fields!endtwo10.Value)
txt10b2temp.Text=Trim(.Fields!beginthree10.Value)
txt10e2temp.Text=Trim(.Fields!endthree10.Value)
txt15b.Text=Trim(.Fields!begin15.Value)
txt15e.Text=Trim(.Fields!end15.Value)
txt15b1temp.Text=Trim(.Fields!begintwo15.Value)
txt15e1temp.Text=Trim(.Fields!endtwo15.Value)
txt15b2temp.Text=Trim(.Fields!beginthree15.Value)
txt15e2temp.Text=Trim(.Fields!endthree15.Value)
txt20b.Text=Trim(.Fields!begin20.Value)
txt20e.Text=Trim(.Fields!end20.Value)
txt20b1temp.Text=Trim(.Fields!begintwo20.Value)
txt20e1temp.Text=Trim(.Fields!endtwo20.Value)
txt20b2temp.Text=Trim(.Fields!beginthree20
上一篇:
vb高校固定资产管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施