📄 depositbook.frm
字号:
TabIndex = 0
Top = 960
Width = 735
End
Begin VB.CommandButton CmdCancel
BackColor = &H000040C0&
Cancel = -1 'True
Caption = "Cancel"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4080
Style = 1 'Graphical
TabIndex = 3
Top = 6120
Width = 1215
End
Begin VB.CommandButton CmdDeposit
BackColor = &H0000C0C0&
Caption = "Deposit"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2880
Style = 1 'Graphical
TabIndex = 2
Top = 6120
Width = 1215
End
Begin VB.CommandButton CmdReset
BackColor = &H00FF00FF&
Caption = "Reset"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1680
Style = 1 'Graphical
TabIndex = 5
Top = 6120
Width = 1215
End
Begin VB.Timer Timer1
Interval = 50
Left = 5400
Top = 4680
End
Begin VB.Label lbStname
BackColor = &H00808000&
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 = 375
Left = 120
TabIndex = 17
Top = 1800
Width = 1455
End
Begin VB.Label lbBkno
BackColor = &H00808000&
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 = 375
Left = 120
TabIndex = 15
Top = 3300
Width = 855
End
Begin VB.Label lbBkname
BackColor = &H00808000&
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 = 14
Top = 4080
Width = 1095
End
Begin VB.Label lbBkgrp
BackColor = &H00808000&
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 = 13
Top = 4800
Width = 1215
End
Begin VB.Label lbIssuedbk
BackColor = &H00808000&
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 = 12
Top = 2520
Width = 1215
End
Begin VB.Label lbDate
BackColor = &H00808000&
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 = 11
Top = 5520
Width = 1455
End
Begin VB.Label lbRollno
BackColor = &H00808000&
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 = 10
Top = 1080
Width = 855
End
Begin VB.Label lbHeading
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Deposit Books"
BeginProperty Font
Name = "Times New Roman"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 375
Left = 0
TabIndex = 6
Top = 0
Width = 12015
End
End
Attribute VB_Name = "Deposit"
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: itsvipin@hotmail.com
Private Sub cmdCalreset_Click()
Calendar1.Today
End Sub
Private Sub CmdDeposit_Click()
Call general.Depositb
Issue.CountData.Refresh
Call general.Saaf(Me)
End Sub
Private Sub CmdReset_Click()
Call general.Saaf(Me)
End Sub
Private Sub Form_Load()
DepositData.DatabaseName = App.Path & "\initialsc.mdb"
Issue.IssueData.DatabaseName = App.Path & "\initialsc.mdb"
Issue.RecordData.DatabaseName = App.Path & "\initialsc.mdb"
Issue.StuinfoData.DatabaseName = App.Path & "\initialsc.mdb"
Issue.CountData.DatabaseName = App.Path & "\initialsc.mdb"
Issue.BookinfoData.DatabaseName = App.Path & "\initialsc.mdb"
txtDate.Text = general.ghadi()
Calendar1.Today
End Sub
Private Sub Timer1_Timer()
txtTime.Text = Time()
End Sub
Private Sub txtBkNo_LostFocus()
Dim temp(1 To 2) As String
Call general.FillBknamegrpD(temp())
Txtbkname.Text = temp(1)
txtBkGroup.Text = temp(2)
End Sub
Private Sub txtRollNo_LostFocus()
Txtstuname.Text = general.DepositfillStuname()
txtBkissued.Text = general.DpstfillBkissued()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -