datamfrm.txtzs20.Text=zs20_1
EndIf
'15元票面
Dimje15_1,je15_2,je15_3,billb15_1,bille15_1,zs15_1,zs15_2,zs15_3AsLong
billb15_1=Val(txt15b.Text)
bille15_1=Val(txt15e.Text)
je15_2=Val(txtje15temp.Text)
zs15_2=Val(txtzs15temp.Text)
je15_3=Val(txtje15temp1.Text)
zs15_3=Val(txtzs15temp1.Text)
Ifbille15_1=0Then
je15_1=0
Else
je15_1=(bille15_1-billb15_1+1)*15
EndIf
Ifbille15_1=0Then
zs15_1=0
Else
zs15_1=(bille15_1-billb15_1+1)
EndIf
Ifm_enableThen
datamfrm.txtje15.Text=je15_1+je15_2+je15_3
datamfrm.txtzs15.Text=zs15_1+zs15_2+zs15_3
Else
datamfrm.txtje15.Text=je15_1
datamfrm.txtzs15.Text=zs15_1
EndIf
'10元票面
Dimje10_1,je10_2,je10_3,billb10_1,bille10_1,zs10_1,zs10_2,zs10_3AsLong
billb10_1=Val(txt10b.Text)
bille10_1=Val(txt10e.Text)
je10_2=Val(txtje10temp.Text)
zs10_2=Val(txtzs10temp.Text)
je10_3=Val(txtje10temp1.Text)
zs10_3=Val(txtzs10temp1.Text)
Ifbille10_1=0Then
je10_1=0
Else
je10_1=(bille10_1-billb10_1+1)*10
EndIf
Ifbille10_1=0Then
zs10_1=0
Else
zs10_1=(bille10_1-billb10_1+1)
EndIf
Ifm_enableThen
datamfrm.txtje10.Text=je10_1+je10_2+je10_3
datamfrm.txtzs10.Text=zs10_1+zs10_2+zs10_3
Else
datamfrm.txtje10.Text=je10_1
datamfrm.txtzs10.Text=zs10_1
EndIf
'5元票面
Dimje5_1,je5_2,je5_3,billb5_1,bille5_1,zs5_1,zs5_2,zs5_3AsLong
billb5_1=Val(txt5b.Text)
bille5_1=Val(txt5e.Text)
je5_2=Val(txtje5temp.Text)
zs5_2=Val(txtzs5temp.Text)
je5_3=Val(txtje5temp1.Text)
zs5_3=Val(txtzs5temp1.Text)
Ifbille5_1=0Then
je5_1=0
Else
je5_1=(bille5_1-billb5_1+1)*5
EndIf
Ifbille5_1=0Then
zs5_1=0
Else
zs5_1=(bille5_1-billb5_1+1)
EndIf
Ifm_enableThen
datamfrm.txtje5.Text=je5_1+je5_2+je5_3
datamfrm.txtzs5.Text=zs5_1+zs5_2+zs5_3
Else
datamfrm.txtje5.Text=je5_1
datamfrm.txtzs5.Text=zs5_1
EndIf
'合计
Dimjehj,zshjAsLong
jehj=je30_1+je30_2+je30_3+je20_1+je20_2+je20_3+je15_1+je15_2+je15_3+je10_1+je10_2+je10_3+je5_1+je5_2+je5_3
zshj=zs30_1+zs30_2+zs30_3+zs20_1+zs20_2+zs20_3+zs15_1+zs15_2+zs15_3+zs10_1+zs10_2+zs10_3+zs5_1+zs5_2+zs5_3
datamfrm.txtjehj.Text=jehj
datamfrm.txtzshj.Text=zshj
'小写金额
DimxxjeAsLong
xxje=jehj
datamfrm.txtxx.Text=xxje
'不够7位数前面加"0"
txt5b.Text=Left("0000000",(7-Len(Trim(CStr(txt5b.Text)))))+Trim(CStr(txt5b.Text))
txt5e.Text=Left("0000000",(7-Len(Trim(CStr(txt5e.Text)))))+Trim(CStr(txt5e.Text))
txt5b1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt5b1temp.Text)))))+Trim(CStr(txt5b1temp.Text))
txt5e1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt5e1temp.Text)))))+Trim(CStr(txt5e1temp.Text))
txt5b2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt5b2temp.Text)))))+Trim(CStr(txt5b2temp.Text))
txt5e2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt5e2temp.Text)))))+Trim(CStr(txt5e2temp.Text))
txt10b.Text=Left("0000000",(7-Len(Trim(CStr(txt10b.Text)))))+Trim(CStr(txt10b.Text))
txt10e.Text=Left("0000000",(7-Len(Trim(CStr(txt10e.Text)))))+Trim(CStr(txt10e.Text))
txt10b1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt10b1temp.Text)))))+Trim(CStr(txt10b1temp.Text))
txt10e1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt10e1temp.Text)))))+Trim(CStr(txt10e1temp.Text))
txt10b2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt10b2temp.Text)))))+Trim(CStr(txt10b2temp.Text))
txt10e2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt10e2temp.Text)))))+Trim(CStr(txt10e2temp.Text))
txt15b.Text=Left("0000000",(7-Len(Trim(CStr(txt15b.Text)))))+Trim(CStr(txt15b.Text))
txt15e.Text=Left("0000000",(7-Len(Trim(CStr(txt15e.Text)))))+Trim(CStr(txt15e.Text))
txt15b1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt15b1temp.Text)))))+Trim(CStr(txt15b1temp.Text))
txt15e1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt15e1temp.Text)))))+Trim(CStr(txt15e1temp.Text))
txt15b2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt15b2temp.Text)))))+Trim(CStr(txt15b2temp.Text))
txt15e2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt15e2temp.Text)))))+Trim(CStr(txt15e2temp.Text))
txt20b.Text=Left("0000000",(7-Len(Trim(CStr(txt20b.Text)))))+Trim(CStr(txt20b.Text))
txt20e.Text=Left("0000000",(7-Len(Trim(CStr(txt20e.Text)))))+Trim(CStr(txt20e.Text))
txt20b1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt20b1temp.Text)))))+Trim(CStr(txt20b1temp.Text))
txt20e1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt20e1temp.Text)))))+Trim(CStr(txt20e1temp.Text))
txt20b2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt20b2temp.Text)))))+Trim(CStr(txt20b2temp.Text))
txt20e2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt20e2temp.Text)))))+Trim(CStr(txt20e2temp.Text))
txt30b.Text=Left("0000000",(7-Len(Trim(CStr(txt30b.Text)))))+Trim(CStr(txt30b.Text))
txt30e.Text=Left("0000000",(7-Len(Trim(CStr(txt30e.Text)))))+Trim(CStr(txt30e.Text))
txt30b1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt30b1temp.Text)))))+Trim(CStr(txt30b1temp.Text))
txt30e1temp.Text=Left("0000000",(7-Len(Trim(CStr(txt30e1temp.Text)))))+Trim(CStr(txt30e1temp.Text))
txt30b2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt30b2temp.Text)))))+Trim(CStr(txt30b2temp.Text))
txt30e2temp.Text=Left("0000000",(7-Len(Trim(CStr(txt30e2temp.Text)))))+Trim(CStr(txt30e2temp.Text))
'判断是否有多次票根
Iftxt5b2temp.Text<>0Then
piao5=CStr(txt5b.Text)&"-"&CStr(txt5e.Text)&","&CStr(txt5b1temp.Text)&"-"&CStr(txt5e1temp.Text)&","&CStr(txt5b2temp.Text)&"-"&CStr(txt5e2temp.Text)
ElseIftxt5b1temp.Text<>0Then
piao5=CStr(txt5b.Text)&"-"&CStr(txt5e.Text)&","&CStr(txt5b1temp.Text)&"-"&CStr(txt5e1temp.Text)
Else
piao5=CStr(txt5b.Text)&"-"&CStr(txt5e.Text)
EndIf
Iftxt10b2temp.Text<>0Then
piao10=CStr(txt10b.Text)&"-"&CStr(txt10e.Text)&","&CStr(txt10b1temp.Text)&"-"&CStr(txt10e1temp.Text)&","&CStr(txt10b2temp.Text)&"-"&CStr(txt10e2temp.Text)
ElseIftxt10b1temp.Text<>0Then
piao10=CStr(txt10b.Text)&"-"&CStr(txt10e.Text)&","&CStr(txt10b1temp.Text)&"-"&CStr(txt10e1temp.Text)
Else
piao10=CStr(txt10b.Text)&"-"&CStr(txt10e.Text)
EndIf
Iftxt15b2temp.Text<>0Then
piao15=CStr(txt15b.Text)&"-"&CStr(txt15e.Text)&","&CStr(txt15b1temp.Text)&"-"&
上一篇:
vb高校固定资产管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施