【正文】 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 rwdate amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。, amp。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 39 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 txt30e2temp amp。,39。 txt30b2temp amp。,39。 txt30e1temp amp。,39。 txt30b1temp amp。,39。 txt20e2temp amp。,39。 txt20b2temp amp。,39。 txt20e1temp amp。,39。 txt20b1temp amp。,39。 txt15e2temp amp。,39。 txt15b2temp amp。,39。 txt15e1temp amp。,39。 txt15b1temp amp。,39。 txt10e2temp amp。,39。 txt10b2temp amp。,39。 txt10e1temp amp。,39。 txt10b1temp amp。,39。 txt5e2temp amp。,39。 txt5b2temp amp。,39。 txt5e1temp amp。,39。 txt5b1temp amp。,39。 txt30e amp。,39。 txt30b amp。,39。 txt20e amp。,39。 txt20b amp。,39。 txt15e amp。,39。 txt15b amp。,39。 txt10e amp。,39。 txt10b amp。,39。 txt5e amp。,39。 txt5b amp。 _ values(39。 CStr() End If 39。 CStr() Else piao30 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao30 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao30 = CStr() amp。 CStr() Else piao20 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao20 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() End If 38 If 0 Then piao20 = CStr() amp。 CStr() Else piao15 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao15 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao15 = CStr() amp。 CStr() Else piao10 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao10 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao10 = CStr() amp。 CStr() Else piao5 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao5 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。判斷 是否有多次票根 If 0 Then piao5 = CStr() amp。小寫(xiě)金額 Dim xxje As Long xxje = jehj = xxje 39。5 元票面 Dim je5_1, je5_2, je5_3, billb5_1, bille5_1, zs5_1, zs5_2, zs5_3 As Long billb5_1 = Val() bille5_1 = Val() je5_2 = Val() zs5_2 = Val() je5_3 = Val() zs5_3 = Val() If bille5_1 = 0 Then je5_1 = 0 Else 35 je5_1 = (bille5_1 billb5_1 + 1) * 5 End If If bille5_1 = 0 Then zs5_1 = 0 Else zs5_1 = (bille5_1 billb5_1 + 1) End If If m_enable Then = je5_1 + je5_2 + je5_3 = zs5_1 + zs5_2 + zs5_3 Else = je5_1 = zs5_1 End If 39。15 元票面 Dim je15_1, je15_2, je15_3, billb15_1, bille15_1, zs15_1, zs15_2, zs15_3 As Long billb15_1 = Val() bille15_1 = Val() je15_2 = Val() zs15_2 = Val() je15_3 = Val() zs15_3 = Val() If bille15_1 = 0 Then je15_1 = 0 Else je15_1 = (bille15_1 billb15_1 + 1) * 15 End If If bille15_1 = 0 Then zs15_1 = 0 Else zs15_1 = (bille15_1 billb15_1 + 1) End If If m_enable Then 34 = je15_1 + je15_2 + je15_3 = zs15_1 + zs15_2 + zs15_3 Else = je15_1 = zs15_1 End If 39。30 元票面 Dim je30_1, je30_2, je30_3, billb30_1, bille30_1, zs30_1, zs30_2, zs30_3 As Long billb30_1 = Val() bille30_1 = Val() je30_2 = Val() zs30_2 = Val() je30_3 = Val() zs30_3 = Val() If bille30_1 = 0 Then je30_1 = 0 Else je30_1 = (bille30_1 billb30_1 + 1) * 30 End If If bille30_1 = 0 Then zs30_1 = 0 Else zs30_1 = (bille30_1 billb30_1 + 1) End If If m_enable Then = je30_1 + je30_2 + je30_3 = zs30_1 + zs30_2 + zs30_3 Else = je30_1 = zs30_1 End If 39。5 元二次票根 30 Dim je5_2, billb5_2, bille5_2, zs5_2 As Long billb5_2 = Val() bille5_2 = Val() If bille5_2 = 0 Then je5_2 = 0 Else je5_2 = (bille5_2 billb5_2 + 1) * 5 End If = je5_2 If bille5_2 = 0 Then zs5_2 = 0 Else zs5_2 = (bille5_2 billb5_2 + 1) End If = zs5_2 = billb5_2 = bille5_2 39。10 元二次票根 Dim je10_2, billb10_2, bille10_2, zs10_2 As Long billb10_2 = Val() bille10_2 = Val() If bille10_2 = 0 Then je10_2 = 0 Else je10_2 = (bille10_2 billb10_2 + 1) * 10 End If = je10_2 If bille10_2 = 0 Then zs10_2 = 0 Else zs10_2 = (bille10_2 billb10_2 + 1) End If = zs10_2 = billb10_2 = bille10_2 39。15 元二次票根 Dim je15_2, billb15_2, bille15_2, zs15_2 As Long billb15_2 = Val() bille15_2 = Val() If bille15_2 = 0 Then je15_2 = 0 Else je15_2 = (bille15_2 billb15_2 + 1) * 15 End If = je15_2 If bille15_2 = 0 Then zs15_2 = 0 Else zs15_2 = (bille15_2 billb15_2 + 1) End If = zs15_2 = billb15_2 = bille15_2 39。20 元二次票根 Dim je20_2, billb20_2, bille20_2, zs20_2 As Long billb20_2 = Val() bille20_2 = Val() If bille20_2 = 0 Then je20_2 = 0 Else je20_2 = (bille20_2 billb20_2 + 1) * 20 End If = je20_2 If bille20_2 = 0 Then zs20_2 = 0 Else zs20_2 = (bille20_2 billb20_2 + 1) End If = zs20_2 = billb20_2 = bille20_2 39。30 元二次票根 Dim je30_2, billb30_2, bille30_2, zs30_2 As Long billb30_2 = Val() bille30_2 = Val() If bille30_2 = 0 Then je30_2 = 0 Else je30_2 = (bille30_2 billb30_2 + 1) * 30 End If = je30_2 If bille30_2 = 0 Then zs30_2 = 0 Else zs30_2 = (bille30_2 billb30_2 + 1) End If = zs30_2 = billb30_2 = bille30_2 39。 \ .ConnectionTimeout = 10 .Open End With With cmduser .ActiveConnection = conuser .CommandType = adCmdText .CommandText = strn .Execute End With MsgBox 刪除用戶成功！ , vbOKOnly = = strn = select userid as 用戶工號(hào) , username as 用戶姓名 ,userjibie as 用戶級(jí)別 from userinfo With rstuser .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockOptimistic .ActiveConnection = conuser .Open strn, Options:=adCmdText Set = rstuser End With End Sub Private Sub cmdexit_Click() Unload Me End Sub 25 Private Sub Form_Load() 高級(jí)用戶 一般用戶 Dim conuser As New Dim cmduser As New