frmreturn1.frm

图书管理系统

VERSION 5.00
Begin VB.Form frmReturn1 
   BackColor       =   &H00400000&
   Caption         =   "还书信息"
   ClientHeight    =   5190
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   6735
   LinkTopic       =   "Form1"
   ScaleHeight     =   5190
   ScaleWidth      =   6735
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      BackColor       =   &H00400000&
      Caption         =   "还书日期"
      Height          =   732
      Left            =   480
      TabIndex        =   14
      Top             =   3720
      Width           =   5052
      Begin VB.ComboBox cboYear 
         Height          =   288
         Index           =   0
         Left            =   1560
         Style           =   2  'Dropdown List
         TabIndex        =   17
         Top             =   240
         Width           =   765
      End
      Begin VB.ComboBox cboMonth 
         Height          =   288
         Index           =   0
         Left            =   2760
         Style           =   2  'Dropdown List
         TabIndex        =   16
         Top             =   240
         Width           =   645
      End
      Begin VB.ComboBox cboDay 
         Height          =   288
         Left            =   3840
         Style           =   2  'Dropdown List
         TabIndex        =   15
         Top             =   240
         Width           =   612
      End
      Begin VB.Label Label1 
         BackColor       =   &H00400000&
         Caption         =   "请设置还书时间："
         ForeColor       =   &H00FFFFFF&
         Height          =   216
         Index           =   0
         Left            =   240
         TabIndex        =   21
         Top             =   240
         Width           =   2400
      End
      Begin VB.Label Label1 
         BackColor       =   &H00400000&
         Caption         =   "月"
         ForeColor       =   &H00FFFFFF&
         Height          =   216
         Index           =   2
         Left            =   3480
         TabIndex        =   20
         Top             =   240
         Width           =   240
      End
      Begin VB.Label Label1 
         Caption         =   "年"
         Height          =   216
         Index           =   1
         Left            =   2400
         TabIndex        =   19
         Top             =   240
         Width           =   240
      End
      Begin VB.Label Label1 
         BackColor       =   &H00400000&
         Caption         =   "日"
         ForeColor       =   &H00FFFFFF&
         Height          =   210
         Index           =   7
         Left            =   4560
         TabIndex        =   18
         Top             =   240
         Width           =   240
      End
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存 (&S)"
      Height          =   375
      Left            =   2280
      TabIndex        =   8
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "返回 (&X)"
      Height          =   375
      Left            =   4200
      TabIndex        =   7
      Top             =   4680
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00400000&
      Caption         =   "借书信息"
      ForeColor       =   &H00FFFFFF&
      Height          =   3372
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   6495
      Begin VB.TextBox txtItem 
         Height          =   1920
         Index           =   0
         Left            =   120
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   13
         Top             =   1320
         Width           =   6012
      End
      Begin VB.ComboBox cboItem 
         Height          =   288
         Index           =   0
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   5
         Top             =   240
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   1
         Left            =   960
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   600
         Width           =   2175
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   2
         Left            =   4440
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   240
         Width           =   1935
      End
      Begin VB.ComboBox cboItem 
         Height          =   300
         Index           =   3
         Left            =   4440
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   720
         Width           =   1935
      End
      Begin VB.Label Label2 
         BackColor       =   &H00400000&
         Caption         =   "借书日期："
         ForeColor       =   &H00FFFFFF&
         Height          =   252
         Index           =   6
         Left            =   3360
         TabIndex        =   12
         Top             =   720
         Width           =   972
      End
      Begin VB.Label Label2 
         BackColor       =   &H00400000&
         Caption         =   "备 注 信 息："
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   11
         Top             =   1080
         Width           =   1335
      End
      Begin VB.Label Label2 
         BackColor       =   &H00400000&
         Caption         =   "读者编号："
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   10
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label2 
         BackColor       =   &H00400000&
         Caption         =   "读者姓名："
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   9
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label2 
         BackColor       =   &H00400000&
         Caption         =   "书籍名称："
         ForeColor       =   &H00FFFFFF&
         Height          =   255
         Index           =   0
         Left            =   3360
         TabIndex        =   6
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.TextBox txtNo 
      Height          =   270
      Left            =   960
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   4680
      Visible         =   0   'False
      Width           =   735
   End
End
Attribute VB_Name = "frmReturn1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'是否改动过记录，ture为改过
Dim mblChange As Boolean
Dim mrc As ADODB.Recordset
Public txtSQL As String
Dim BookID As String


Private Sub cboItem_Change(Index As Integer)
    '有变化设置gblchange
    
    mblChange = True
    
End Sub
Private Sub cboItem_Click(Index As Integer)
    Dim mrcc As ADODB.Recordset
    Dim MsgText As String
    
    If gintBBmode = 1 Then
        If Index = 1 Then
            txtSQL = "select * from borrowinfo where returndate is null"
            Set mrcc = ExecuteSQL(txtSQL, MsgText)
            
            If Not mrcc.EOF Then
                cboItem(0).Clear
                cboItem(0).AddItem mrcc!readerid
                cboItem(0).ListIndex = 0
                
                cboItem(2).Clear
                cboItem(2).AddItem mrcc!bookname
                cboItem(2).ListIndex = 0
                
                cboItem(3).Clear
                cboItem(3).AddItem mrcc!borrowdate
                cboItem(3).ListIndex = 0
                
                txtItem(0) = mrcc.Fields(7)
                txtNo = mrcc!borrowno
                BookID = mrcc.Fields(3)