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
