form1.frm

来自「图书管理系统,采用VISUAL BASIC数据库编程技术,可用于课程设计,毕业设」· FRM 代码 · 共 171 行

VERSION 5.00
Begin VB.Form frmpayfine 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "欠款支付"
   ClientHeight    =   2835
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3585
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2835
   ScaleWidth      =   3585
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Caption         =   "会员信息"
      Height          =   1215
      Left            =   120
      TabIndex        =   3
      Top             =   1080
      Width           =   3375
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "会员名:"
         Height          =   180
         Left            =   240
         TabIndex        =   9
         Top             =   360
         Width           =   630
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "欠款:"
         Height          =   180
         Left            =   240
         TabIndex        =   8
         Top             =   600
         Width           =   450
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "当前借书数量:"
         Height          =   180
         Left            =   240
         TabIndex        =   7
         Top             =   840
         Width           =   1170
      End
      Begin VB.Label lblmemname 
         Height          =   255
         Left            =   1560
         TabIndex        =   6
         Top             =   360
         Width           =   1695
      End
      Begin VB.Label lblfinebal 
         Height          =   255
         Left            =   1560
         TabIndex        =   5
         Top             =   600
         Width           =   1695
      End
      Begin VB.Label lblbooks 
         Height          =   255
         Left            =   1560
         TabIndex        =   4
         Top             =   840
         Width           =   1695
      End
   End
   Begin VB.CommandButton cmdpay 
      Caption         =   "付款(&P)"
      Height          =   375
      Left            =   2400
      TabIndex        =   2
      Top             =   2400
      Width           =   1095
   End
   Begin VB.TextBox txtmemid 
      Height          =   285
      Left            =   1200
      TabIndex        =   0
      Top             =   480
      Width           =   1815
   End
   Begin VB.Label Label1 
      Caption         =   "会员编号"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   1095
   End
End
Attribute VB_Name = "frmpayfine"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Connection
Private Sub cmdpay_Click()
    Dim adoprimaryrs1 As Recordset
    Set adoprimaryrs1 = New Recordset
    If Val(lblfinebal.Caption) = 0 Then
        MsgBox "您无须支付欠款", vbInformation
        txtMemId.Text = ""
        txtMemId.SetFocus
        lblbooks.Caption = ""
        lblfinebal.Caption = ""
        lblmemname.Caption = ""
        Exit Sub
    Else
        
        On Error GoTo oerr:
        '清空欠款数额
        adoprimaryrs1.Open "select FirstName,LastName,BooksInHand," & _
                            "FineBal from Members where MemberId = '" & _
                            Trim(txtMemId) & "'", db, _
                            adOpenStatic, adLockOptimistic
        adoprimaryrs1.Fields(3) = 0
        adoprimaryrs1.Update
        Dim adoprimaryrs2 As Recordset
        Set adoprimaryrs2 = New Recordset
        '填写支付欠款记录表
        adoprimaryrs2.Open "select Memberid,fineamount,paydate from " & _
                            "fine where MemberId = '" & Trim(txtMemId) & _
                            "'", db, adOpenStatic, adLockOptimistic
        adoprimaryrs2.AddNew
        adoprimaryrs2.Fields(0) = Trim(txtMemId)
        adoprimaryrs2.Fields(1) = Val(lblfinebal.Caption)
        adoprimaryrs2.Fields(2) = Date
        adoprimaryrs2.Update
        txtMemId.Text = ""
        txtMemId.SetFocus
        lblbooks.Caption = ""
        lblfinebal.Caption = ""
        lblmemname.Caption = ""
    End If
    Exit Sub
oerr:
    MsgBox "错误:" & Err.Description, vbInformation, "错误"
End Sub

Private Sub Form_Load()
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open strConnection
End Sub

Private Sub Txtmemid_LostFocus()
    Dim adoprimaryrs As Recordset
    If Trim(txtMemId) = "" Then
        MsgBox "请输入数字", vbInformation, "注意"
    Else
        txtMemId.Text = UCase(txtMemId)
        Set adoprimaryrs = New Recordset
        adoprimaryrs.Open "select FirstName,LastName,BooksInHand,FineBal from Members where MemberId = '" & Trim(txtMemId) & "'", db, adOpenStatic, adLockOptimistic
        On Error GoTo oerr
        lblmemname.Caption = adoprimaryrs.Fields(0) & " " & adoprimaryrs.Fields(1)
        lblfinebal.Caption = adoprimaryrs.Fields(3)
        lblbooks.Caption = adoprimaryrs.Fields(2)
    End If
    Exit Sub
oerr:
    MsgBox "没有这个用户,请重试!", vbInformation + vbOKOnly, "注意"
    txtMemId.Text = ""
    txtMemId.SetFocus
End Sub