rennewbook.frm

图书馆管理系统

               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "出版社"
            Caption         =   "出版社"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "借书日期"
            Caption         =   "借书日期"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
            BeginProperty Column02 
            EndProperty
            BeginProperty Column03 
            EndProperty
            BeginProperty Column04 
            EndProperty
            BeginProperty Column05 
            EndProperty
            BeginProperty Column06 
            EndProperty
            BeginProperty Column07 
            EndProperty
         EndProperty
      End
      Begin MSAdodcLib.Adodc Adodc1 
         Height          =   330
         Left            =   3360
         Top             =   1080
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   582
         ConnectMode     =   0
         CursorLocation  =   3
         IsolationLevel  =   -1
         ConnectionTimeout=   15
         CommandTimeout  =   30
         CursorType      =   3
         LockType        =   3
         CommandType     =   8
         CursorOptions   =   0
         CacheSize       =   50
         MaxRecords      =   0
         BOFAction       =   0
         EOFAction       =   0
         ConnectStringType=   1
         Appearance      =   1
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Orientation     =   0
         Enabled         =   -1
         Connect         =   ""
         OLEDBString     =   ""
         OLEDBFile       =   ""
         DataSourceName  =   ""
         OtherAttributes =   ""
         UserName        =   ""
         Password        =   ""
         RecordSource    =   ""
         Caption         =   "Adodc1"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "读者信息"
      Height          =   975
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   8895
      Begin VB.TextBox Text2 
         Enabled         =   0   'False
         Height          =   375
         Left            =   6840
         TabIndex        =   5
         Top             =   360
         Width           =   1815
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H00C0FFFF&
         Height          =   375
         Left            =   1320
         TabIndex        =   2
         Top             =   360
         Width           =   2535
      End
      Begin VB.Label Label3 
         Caption         =   "读者姓名："
         Height          =   255
         Left            =   5880
         TabIndex        =   4
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "〈输入编号按回车键〉"
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   3960
         TabIndex        =   3
         Top             =   480
         Width           =   1815
      End
      Begin VB.Label Label1 
         Caption         =   "读者编号："
         Height          =   255
         Left            =   360
         TabIndex        =   1
         Top             =   480
         Width           =   975
      End
   End
End
Attribute VB_Name = "rennewbook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub Command1_Click()
 g_strsql = "select * from lentinfo where 书籍编号='" & Text3.Text & "'"
 Set g_rs = g_db.OpenRecordset(g_strsql)
   With g_rs
        .Edit
        .Fields("借书日期") = DTPicker1.Value
        .Update
   End With
 Set g_rs = Nothing
 MsgBox "续借成功，请返回！", vbInformation + vbOKOnly, "信息"
 Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
dbl
DTPicker1.Value = Date
End Sub


Private Sub text1_keypress(keyascii As Integer)
Dim strsql As String
If keyascii = "13" And Text1.Text <> "" Then
   g_strsql = "select * from readerinfo where 读者编号='" & Text1.Text & "'"
   Set g_rs = g_db.OpenRecordset(g_strsql)
   If Not g_rs.EOF Then
      Text2.Text = g_rs!读者姓名
      
      strsql = "select bookinfo.书籍名称,booktype.书籍类别,lentinfo.书籍编号, " _
                & " bookinfo.出版社,bookinfo.书籍页码,lentinfo.读者编号,lentinfo.借书日期,lentinfo.还书日期," _
                & " lentinfo.超出天数,lentinfo.罚款金额" _
                & " from bookinfo,readerinfo,booktype,lentinfo" _
                & " where readerinfo.读者编号=lentinfo.读者编号 and bookinfo.书籍编号=lentinfo.书籍编号 and " _
                & " lentinfo.读者编号='" & Text1.Text & "' and bookinfo.类别代码=booktype.类别代码 and " _
                & " lentinfo.还书日期 is null"
       
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" _
                         & App.Path & "\db2.mdb;Mode=ReadWrite;persist security info=true;Jet OLEDB:Database Password=xgg2213"
        Adodc1.CursorLocation = adUseClient
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = strsql
     Adodc1.CursorLocation = adUseClient
     Adodc1.CommandType = adCmdText
     Adodc1.RecordSource = strsql
     Adodc1.Refresh
     DataGrid1.Refresh
     Command1.Enabled = True
     
  Else
     MsgBox "没有该读者的信息！请查证后再输入！", vbInformation + vbOKOnly, "提示"
     Text1.Text = ""
     Text1.SetFocus
     Command1.Enabled = False
  End If
  Set g_rs = Nothing
ElseIf keyascii = "13" And Text1.Text = "" Then
    MsgBox "请先输入读者编号！", vbInformation + vbOKOnly, "提示"
    Text1.SetFocus
    Command1.Enabled = False
End If

End Sub