VB高速公路票据管理系统(八)

VB高速公路票据管理系统(八) txt5b.Text + 1
End If

If txt10e2temp.Text <> 0 Then
txt10b.Text = txt10e2temp.Text + 1
ElseIf txt10b2temp.Text <> 0 And txt10e2temp.Text = 0 Then
txt10b.Text = txt10b2temp.Text
ElseIf txt10b2temp.Text <> 0 Then
txt10b.Text = txt10b2temp.Text + 1
ElseIf txt10e1temp.Text <> 0 Then
txt10b.Text = txt10e1temp.Text + 1
ElseIf txt10b1temp.Text <> 0 And txt10e1temp.Text = 0 Then
txt10b.Text = txt10b1temp.Text
ElseIf txt10b1temp.Text <> 0 Then
txt10b.Text = txt10b1temp.Text + 1
ElseIf txt10e.Text <> 0 Then
txt10b.Text = txt10e.Text + 1
ElseIf txt10b.Text <> 0 And txt10e.Text = 0 Then
txt10b.Text = txt10b.Text
ElseIf txt10b.Text = 0 Then
txt10b.Text = ""
Else
txt10b.Text = txt10b.Text + 1
End If

If txt15e2temp.Text <> 0 Then
txt15b.Text = txt15e2temp.Text + 1
ElseIf txt15b2temp.Text <> 0 And txt15e2temp.Text = 0 Then
txt15b.Text = txt15b2temp.Text
ElseIf txt15b2temp.Text <> 0 Then
txt15b.Text = txt15b2temp.Text + 1
ElseIf txt15e1temp.Text <> 0 Then
txt15b.Text = txt15e1temp.Text + 1
ElseIf txt15b1temp.Text <> 0 And txt15e1temp.Text = 0 Then
txt15b.Text = txt15b1temp.Text
ElseIf txt15b1temp.Text <> 0 Then
txt15b.Text = txt15b1temp.Text + 1
ElseIf txt15e.Text <> 0 Then
txt15b.Text = txt15e.Text + 1
ElseIf txt15b.Text <> 0 And txt15e.Text = 0 Then
txt15b.Text = txt15b.Text
ElseIf txt15b.Text = 0 Then
txt15b.Text = ""
Else
txt15b.Text = txt15b.Text + 1
End If

If txt20e2temp.Text <> 0 Then
txt20b.Text = txt20e2temp.Text + 1
ElseIf txt20b2temp.Text <> 0 And txt20e2temp.Text = 0 Then
txt20b.Text = txt20b2temp.Text
ElseIf txt20b2temp.Text <> 0 Then
txt20b.Text = txt20b2temp.Text + 1
ElseIf txt20e1temp.Text <> 0 Then
txt20b.Text = txt20e1temp.Text + 1
ElseIf txt20b1temp.Text <> 0 And txt20e1temp.Text = 0 Then
txt20b.Text = txt20b1temp.Text
ElseIf txt20b1temp.Text <> 0 Then

End If

txt5e.Text = ""
txt5b1temp.Text = 0
txt5e1temp.Text = 0
txt5b2temp.Text = 0
txt5e2temp.Text = 0

txt10e.Text = ""
txt10b1temp.Text = 0
txt10e1temp.Text = 0
txt10b2temp.Text = 0
txt10e2temp.Text = 0

txt15e.Text = ""
txt15b1temp.Text = 0
txt15e1temp.Text = 0
txt15b2temp.Text = 0
txt15e2temp.Text = 0

txt20e.Text = ""
txt20b1temp.Text = 0
txt20e1temp.Text = 0
txt20b2temp.Text = 0
txt20e2temp.Text = 0

txt30e.Text = ""
txt30b1temp.Text = 0
txt30e1temp.Text = 0
txt30b2temp.Text = 0
txt30e2temp.Text = 0

End Sub

 

5.主界面设计:

主界面代码分析:
Private Sub about_Click()
frmAbout.Show
End Sub

Private Sub addsfy_Click()
sfyfrm.Show
End Sub

Private Sub adduser_Click()
adduserfrm.Show
End Sub

Private Sub data_Click()
datafrm.Show
End Sub

Private Sub exit_Click()
mainfrm.Hide
Unload Me
End Sub

Private Sub find_Click()
searchfrm.Show
End Sub

Private Sub MDIForm_Load()
If wt.flagnumber = 79802223 Then
usermnu.Visible = True
usermnu.Enabled = True
Toolbar1.Visible = True
Toolbar1.Enabled = True
Toolbar2.Visible = False
Toolbar2.Enabled = False
Else
wt.flagnumber = 32220897
usermnu.Visible = True
usermnu.Enabled = False
Toolbar1.Visible = False
Toolbar1.Enabled = False
Toolbar2.Visible = True
Toolbar2.Enabled = True
End If

 mainfrm.WindowState = vbMaximized
End Sub

P

首页 上一页 5 6 7 8 9 10 下一页 尾页 8/10/10

VB高速公路票据管理系统(八)由毕业论文网（www.huoyuandh.com）会员上传。