rivateSubcmdexit_Click()
checkfrm.Hide
UnloadMe
EndSub
PrivateSubcmdok_Click()
'30元二次票根
Dimje30_2,billb30_2,bille30_2,zs30_2AsLong
billb30_2=Val(txt30b1.Text)
bille30_2=Val(txt30e1.Text)
Ifbille30_2=0Then
je30_2=0
Else
je30_2=(bille30_2-billb30_2+1)*30
EndIf
datafrm.txtje30temp.Text=je30_2
Ifbille30_2=0Then
zs30_2=0
Else
zs30_2=(bille30_2-billb30_2+1)
EndIf
datafrm.txtzs30temp.Text=zs30_2
datafrm.txt30b1temp.Text=billb30_2
datafrm.txt30e1temp.Text=bille30_2
'30元三次票根
Dimje30_3,billb30_3,bille30_3,zs30_3AsLong
billb30_3=Val(txt30b2.Text)
bille30_3=Val(txt30e2.Text)
Ifbille30_3=0Then
je30_3=0
Else
je30_3=(bille30_3-billb30_3+1)*30
EndIf
datafrm.txtje30temp1.Text=je30_3
Ifbille30_3=0Then
zs30_3=0
Else
zs30_3=(bille30_3-billb30_3+1)
EndIf
datafrm.txtzs30temp1.Text=zs30_3
datafrm.txt30b2temp.Text=billb30_3
datafrm.txt30e2temp.Text=bille30_3
'20元二次票根
Dimje20_2,billb20_2,bille20_2,zs20_2AsLong
billb20_2=Val(txt20b1.Text)
bille20_2=Val(txt20e1.Text)
Ifbille20_2=0Then
je20_2=0
Else
je20_2=(bille20_2-billb20_2+1)*20
EndIf
datafrm.txtje20temp.Text=je20_2
Ifbille20_2=0Then
zs20_2=0
Else
zs20_2=(bille20_2-billb20_2+1)
EndIf
datafrm.txtzs20temp.Text=zs20_2
datafrm.txt20b1temp.Text=billb20_2
datafrm.txt20e1temp.Text=bille20_2
'20元三次票根
Dimje20_3,billb20_3,bille20_3,zs20_3AsLong
billb20_3=Val(txt20b2.Text)
bille20_3=Val(txt20e2.Text)
Ifbille20_3=0Then
je20_3=0
Else
je20_3=(bille20_3-billb20_3+1)*20
EndIf
datafrm.txtje20temp1.Text=je20_3
Ifbille20_3=0Then
zs20_3=0
Else
zs20_3=(bille20_3-billb20_3+1)
EndIf
datafrm.txtzs20temp1.Text=zs20_3
datafrm.txt20b2temp.Text=billb20_3
datafrm.txt20e2temp.Text=bille20_3
'15元二次票根
Dimje15_2,billb15_2,bille15_2,zs15_2AsLong
billb15_2=Val(txt15b1.Text)
bille15_2=Val(txt15e1.Text)
Ifbille15_2=0Then
je15_2=0
Else
je15_2=(bille15_2-billb15_2+1)*15
EndIf
datafrm.txtje15temp.Text=je15_2
Ifbille15_2=0Then
zs15_2=0
Else
zs15_2=(bille15_2-billb15_2+1)
EndIf
datafrm.txtzs15temp.Text=zs15_2
datafrm.txt15b1temp.Text=billb15_2
datafrm.txt15e1temp.Text=bille15_2
'15元三次票根
Dimje15_3,billb15_3,bille15_3,zs15_3AsLong
billb15_3=Val(txt15b2.Text)
bille15_3=Val(txt15e2.Text)
Ifbille15_3=0Then
je15_3=0
Else
je15_3=(bille15_3-billb15_3+1)*15
EndIf
datafrm.txtje15temp1.Text=je15_3
Ifbille15_3=0Then
zs15_3=0
Else
zs15_3=(bille15_3-billb15_3+1)
EndIf
datafrm.txtzs15temp1.Text=zs15_3
datafrm.txt15b2temp.Text=billb15_3
datafrm.txt15e2temp.Text=bille15_3
'10元二次票根
Dimje10_2,billb10_2,bille10_2,zs10_2AsLong
billb10_2=Val(txt10b1.Text)
bille10_2=Val(txt10e1.Text)
Ifbille10_2=0Then
je10_2=0
Else
je10_2=(bille10_2-billb10_2+1)*10
EndIf
datafrm.txtje10temp.Text=je10_2
Ifbille10_2=0Then
zs10_2=0
Else
zs10_2=(bille10_2-billb10_2+1)
EndIf
datafrm.txtzs10temp.Text=zs10_2
datafrm.txt10b1temp.Text=billb10_2
datafrm.txt10e1temp.Text=bille10_2
'10元三次票根
Dimje10_3,billb10_3,bille10_3,zs10_3AsLong
billb10_3=Val(txt10b2.Text)
bille10_3=Val(txt10e2.Text)
Ifbille10_3=0Then
je10_3=0
Else
je10_3=(bille10_3-billb10_3+1)*10
EndIf
datafrm.txtje10temp1.Text=je10_3
Ifbille10_3=0Then
zs10_3=0
Else
zs10_3=(bille10_3-billb10_3+1)
EndIf
datafrm.txtzs10temp1.Text=zs10_3
datafrm.txt10b2temp.Text=billb10_3
datafrm.txt10e2temp.Text=bille10_3
'5元二次票根
Dimje5_2,billb5_2,bille5_2,zs5_2AsLong
billb5_2=Val(txt5b1.Text)
bille5_2=Val(txt5e1.Text)
Ifbille5_2=0Then
je5_2=0
Else
je5_2=(bille5_2-billb5_2+1)*5
EndIf
datafrm.txtje5temp.Text=je5_2
Ifbille5_2=0Then
zs5_2=0
Else
zs5_2=(bille5_2-billb5_2+1)
EndIf
datafrm.txtzs5temp.Text=zs5_2
datafrm.txt5b1temp.Text=billb5_2
datafrm.txt5e1temp.Text=bille5_2
'5元三次票根
Dimje5_3,billb5_3,bille5_3,zs5_3AsLong
billb5_3=Val(txt5b2.Text)
bille5_3=Val(txt5e2.Text)
Ifbille5_3=0Then
je5_3=0
Else
je5_3=(bille5_3-billb5_3+1)*5
EndIf
datafrm.txtje5temp1.Text=je5_3
Ifbille5_3=0Then
zs5_3=0
Else
zs5_3=(bille5_3-billb5_3+1)
EndIf
datafrm.txtzs5temp1.Text=zs5_3
datafrm.txt5b2temp.Text=billb5_3
datafrm.txt5e2temp.Text=bille5_3
checkfrm.Hide
EndSub
4:数据输入界面设计:
代码分析:
Dimm_enableAsBoolean
DimrwdateAsString
Dimpiao5,piao10,piao15,piao20,piao30AsString
OptionExplicit
PrivateSubFlatScrollBar1_Change()
EndSub
PrivateSubCheck1_Click()
m_enable=Notm_enable
Ifm_enableThen
cmdcheck.Enabled=True
Else
cmdcheck.Enabled=False
EndIf
EndSub
PrivateSubcmdcancel_Click()
EndSub
PrivateSubcmdcheck_Click()
checkfrm.Show
EndSub
PrivateSubcmdexit_Click()
datafrm.Hide
UnloadMe
EndSub
PrivateSubcmdok_Click()
DimcondataAsNewADODB.Connection
DimcmddataAsNewADODB.Command
DimstrcnnAsString
'30元票面
Dimje30_1,je30_2,je30_3,billb30_1,bille30_1,zs30_1,zs30_2,zs30_3AsLong
billb30_1=Val(txt30b.Text)
bille30_1=Val(txt30e.Text)
je30_2=Val(txtje30temp.Text)
zs30_2=Val(txtzs30temp.Text)
je30_3=Val(txtje30temp1.Text)
zs30_3=Val(txtzs30temp1.Text)
Ifbille30_1=0Then
je30_1=0
Else
je30_1=(bille30_1-billb30_1+1)*30
EndIf
Ifbille30_1=0Then
zs30_1=0
Else
zs30_1=(bille30_1-billb30_1+1)
EndIf
Ifm_enableThen
datamfrm.txtje30.Text=je30_1+je30_2+je30_3
datamfrm.txtzs30.Text=zs30_1+zs30_2+zs30_3
Else
datamfrm.txtje30.Text=je30_1
datamfrm.txtzs30.Text=zs30_1
EndIf
'20元票面
Dimje20_1,je20_2,je20_3,billb20_1,bille20_1,zs20_1,zs20_2,zs20_3AsLong
billb20_1=Val(txt20b.Text)
bille20_1=Val(txt20e.Text)
je20_2=Val(txtje20temp.Text)
zs20_2=Val(txtzs20temp.Text)
je20_3=Val(txtje20temp1.Text)
zs20_3=Val(txtzs20temp1.Text)
Ifbille20_1=0Then
je20_1=0
Else
je20_1=(bille20_1-billb20_1+1)*20
EndIf
Ifbille20_1=0Then
zs20_1=0
Else
zs20_1=(bille20_1-billb20_1+1)
EndIf
Ifm_enableThen
datamfrm.txtje20.Text=je20_1+je20_2+je20_3
datamfrm.txtzs20.Text=zs20_1+zs20_2+zs20_3
Else
datamfrm.txtje20.Text=je20_1
上一篇:
vb高校固定资产管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施