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
VB高速公路票据管理系统(八)相关范文