【正文】 lb30_2 + 1) End If = zs30_2 = billb30_2 = bille30_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。5 元二次票根 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。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 = je15_1 + je15_2 + je15_3 = zs15_1 + zs15_2 + zs15_3 Else = je15_1 = zs15_1 End If 39。小寫金額 Dim xxje As Long xxje = jehj = xxje 39。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao5 = CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao10 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() Else piao10 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao15 = CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao20 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() Else piao20 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao30 = CStr() amp。 CStr() amp。 CStr() End If 39。 txt5b amp。 txt5e amp。 txt10b amp。 txt10e amp。 txt15b amp。 txt15e amp。 txt20b amp。 txt20e amp。 txt30b amp。 txt30e amp。 txt5b1temp amp。 txt5e1temp amp。 txt5b2temp amp。 txt5e2temp amp。 txt10b1temp amp。 txt10e1temp amp。 txt10b2temp amp。 txt10e2temp amp。 txt15b1temp amp。 txt15e1temp amp。 txt15b2temp amp。 txt15e2temp amp。 txt20b1temp amp。 txt20e1temp amp。 txt20b2temp amp。 txt20e2temp amp。 txt30b1temp amp。 txt30e1temp amp。 txt30b2temp amp。 txt30e2temp amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 rwdate amp。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 amp。 rwdate amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 39。, amp。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。,39。 _ values(39。 CStr() Else piao30 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao30 = CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao20 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() Else piao15 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。 CStr() End If If 0 Then piao15 = CStr() amp。 CStr() amp。 CStr() ElseIf 0 Then piao10 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() Else piao5 = CStr() amp。 CStr() amp。 CStr() amp。 CStr() amp。判斷是否有多次票根 If 0 Then piao5 = CStr() amp。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 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。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。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。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。 \ .ConnectionTimeout = 10 .Open End With With cmduser .ActiveConnection = conuser .CommandType = adCmdText .CommandText = strn .Execute End With MsgBox 刪除用戶成功！ , vbOKOnly = = strn = select userid as 用戶工號 , username as 用戶姓名 ,userjibie as 用戶級別 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 Private Sub Form_Load() 高級用戶 一般用戶 Dim conuser As New Dim cmduser As New Dim rstuser As New Dim strn As String strn = select userid as 用戶工號 , username as 用戶姓名 ,userjibie as 用戶級別 from userinfo With conuser If .State = adStateOp