issuebook.frm

thi si a source code of VIP library. helful in chatting

      Width           =   855
   End
   Begin VB.TextBox txtTime 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   495
      Left            =   4320
      Locked          =   -1  'True
      TabIndex        =   11
      TabStop         =   0   'False
      Top             =   4920
      Width           =   1575
   End
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   5400
      Top             =   4080
   End
   Begin VB.TextBox txtBkGroup 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   495
      Left            =   1800
      Locked          =   -1  'True
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   4200
      Width           =   1695
   End
   Begin VB.TextBox txtBkName 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   495
      Left            =   1800
      Locked          =   -1  'True
      TabIndex        =   8
      TabStop         =   0   'False
      Top             =   3480
      Width           =   3735
   End
   Begin VB.Label lbStname 
      Caption         =   "Student Name:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   18
      Top             =   1440
      Width           =   1455
   End
   Begin VB.Label lbRno 
      Caption         =   "Roll &No:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   14
      Top             =   720
      Width           =   855
   End
   Begin VB.Label lbTip 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000007&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00E0E0E0&
      Height          =   495
      Left            =   0
      TabIndex        =   12
      Top             =   7440
      Width           =   11895
   End
   Begin VB.Label lbHeading 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H00000000&
      Caption         =   "Issue Books"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800080&
      Height          =   375
      Left            =   -15
      TabIndex        =   10
      Top             =   0
      Width           =   11895
   End
   Begin VB.Label lbDate 
      Caption         =   "Date and Time:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   5040
      Width           =   1455
   End
   Begin VB.Label lbIssuedbk 
      Caption         =   "Issued Books"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   2160
      Width           =   1215
   End
   Begin VB.Label lbBkgrp 
      Caption         =   "Book Group:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   4320
      Width           =   1215
   End
   Begin VB.Label lbBkname 
      Caption         =   "Book Name:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   3600
      Width           =   1095
   End
   Begin VB.Label lbBkno 
      Caption         =   "Book &No:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   2880
      Width           =   855
   End
End
Attribute VB_Name = "Issue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'This library project is created by Vipin Panicker. E-Mail: [e-mail]
Private Sub cmdCalreset_Click()
Calendar1.Today
End Sub

Private Sub cmdCancel_Click(Index As Integer)
Unload Me
End Sub

Private Sub CmdCancel_GotFocus(Index As Integer)
lbTip.Caption = "Quit this form and return to main."
End Sub

Private Sub CmdIssue_Click(Index As Integer)
If general.Check() Then
    On Error GoTo message
    IssueData.Recordset.AddNew
    RecordData.Recordset.AddNew
    IssueData.Recordset.Fields("nrollno") = txtRollno.Text
    IssueData.Recordset.Fields("nbookno") = Txtbkno.Text
    IssueData.Recordset.Fields("dissuedat") = txtDate.Text
    
    RecordData.Recordset.Fields("nrollno") = txtRollno.Text
    RecordData.Recordset.Fields("nbkno") = Txtbkno.Text
    RecordData.Recordset.Fields("tbkname") = Txtbkname.Text
    RecordData.Recordset.Fields("tbkgroup") = txtBkGroup.Text
    RecordData.Recordset.Fields("issued") = txtDate.Text
    RecordData.Recordset.Update
    IssueData.Recordset.Update
    MsgBox "Book issued."
    CountData.Refresh
    Call general.Saaf(Me)
End If

message:
      If Err.Number = 3201 Then
         MsgBox "The Roll No. or Book No.,you entered doesn't exists."
      End If
      If Err.Number = 3022 Then
         MsgBox "The book has already issued to someone."
         Txtbkno.SetFocus
      End If
      If Err.Number = 3421 Then
         MsgBox "Please enter the correct format of Book No. or Roll No."
      End If
End Sub

Private Sub CmdIssue_GotFocus(Index As Integer)
lbTip.Caption = " Saves the record to database."
End Sub

Private Sub CmdReset_Click(Index As Integer)
Call general.Saaf(Me)
End Sub

Private Sub CmdReset_GotFocus(Index As Integer)
lbTip.Caption = "Resets the form."
End Sub

Private Sub Form_Load()
IssueData.DatabaseName = App.Path & "\initialsc.mdb"
RecordData.DatabaseName = App.Path & "\initialsc.mdb"
StuinfoData.DatabaseName = App.Path & "\initialsc.mdb"
CountData.DatabaseName = App.Path & "\initialsc.mdb"
BookinfoData.DatabaseName = App.Path & "\initialsc.mdb"
txtDate.Text = general.ghadi()
Calendar1.Today
End Sub

Private Sub Timer1_Timer()
txtTime = Time()
End Sub

Private Sub txtBkNo_gotfocus()
'txtBkName.Text = ""
lbTip.Caption = "Enter The Book No."
End Sub

Private Sub txtbkissued_GotFocus()
lbTip.Caption = "Enter Library Card No."
End Sub

Private Sub txtBkNo_LostFocus()
Dim temp(1 To 2) As String
Call general.FillBknamegrp(temp())
Txtbkname.Text = temp(1)
txtBkGroup.Text = temp(2)
End Sub

Private Sub txtRollNo_GotFocus()
'Call general.Saaf(Me)
lbTip.Caption = "Enter Student's Roll No."
End Sub

Private Sub txtRollNo_LostFocus()
    Txtstuname.Text = general.FillStuname()
    txtBkissued.Text = general.FillBkissued()
End Sub