Download IP Project - Book Shop Class 12th
online book store project in java github, online book store project source code,online book store project report download, online book store project, online bookstore project in html with source code
online bookstore project in html with source code github, book store management system project in java with source code,online book store project in javascript
online bookstore project in html with source code github, book store management system project in java with source code,online book store project in javascript
private Sub addmmission_Click()
Form6.Show End Sub Private Sub Addnewbook_Click() Form24.Show End Sub Private Sub addnewuser_Click() adduser.Show End Sub Private Sub admiss_Click() Form14.Show End Sub Private Sub admissi_Click() Form10.Show End Sub Private Sub admissio_Click() Form4.Show End Sub Private Sub book_Click() Form18.Show End Sub Private Sub BookIssue_Click() Form2.Show End Sub Private Sub BookRetun_Click() Form34.Show End Sub Private Sub changepassword_Click() changepass.Show End Sub Private Sub DeleteBook_Click() Form29.Show End Sub Private Sub dhdh_Click() Form21.Show End Sub Private Sub dhdhy_Click() Form20.Show End Sub Private Sub enqu_Click() Form13.Show End Sub Private Sub enqui_Click() Form9.Show End Sub Private Sub enquiry_Click() Form1.Show End Sub Private Sub exam_Click() Form17.Show End Sub Private Sub exam3_Click() Form31.Show End Sub Private Sub exit_Click() Unload Me End Sub Private Sub kdjh_Click() Form7.Show End Sub Private Sub kooB_Click() Form26.Show End Sub Private Sub liab_Click() Form16.Show End Sub Private Sub liaba_Click() Form12.Show End Sub Private Sub liabary_Click() Form2.Show End Sub Private Sub maxe_Click() Form23.Show End Sub Private Sub MDIForm_Load() 'Image1.Width = MDIForm1.Width 'Image1.Height = MDIForm1.Height 'Picture1.Width = MDIForm1.Width 'Picture1.Width = MDIForm1.Height
|
Download Output Book ShopClick to set custom HTML
|
End Sub
Private Sub MDIForm_Resize()
'Image1.Width = MDIForm1.Width
'Image1.Height = MDIForm1.Height
End Sub
Private Sub Modifybookdetails_Click()
Form25.Show
End Sub
Private Sub parti_Click()
Form32.Show
End Sub
Private Sub particu_Click()
Form28.Show
End Sub
Private Sub particulars_Click()
Form19.Show
End Sub
Private Sub Paymentofdues_Click()
Form35.Show
End Sub
Private Sub poilku_Click()
Form30.Show
End Sub
Private Sub porj_Click()
Form5.Show
End Sub
Private Sub recei_Click()
Form15.Show
End Sub
Private Sub receipt_Click()
Form3.Show
End Sub
Private Sub uydsy_Click()
Form22.Show
End Sub
Private Sub wew_Click()
Form11.Show
End Sub
Private Sub wrw_Click()
Form8.Show
End Sub
Private Sub MDIForm_Resize()
'Image1.Width = MDIForm1.Width
'Image1.Height = MDIForm1.Height
End Sub
Private Sub Modifybookdetails_Click()
Form25.Show
End Sub
Private Sub parti_Click()
Form32.Show
End Sub
Private Sub particu_Click()
Form28.Show
End Sub
Private Sub particulars_Click()
Form19.Show
End Sub
Private Sub Paymentofdues_Click()
Form35.Show
End Sub
Private Sub poilku_Click()
Form30.Show
End Sub
Private Sub porj_Click()
Form5.Show
End Sub
Private Sub recei_Click()
Form15.Show
End Sub
Private Sub receipt_Click()
Form3.Show
End Sub
Private Sub uydsy_Click()
Form22.Show
End Sub
Private Sub wew_Click()
Form11.Show
End Sub
Private Sub wrw_Click()
Form8.Show
End Sub
Private Sub Command1_Click()
MonthView1.Visible = True
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text21.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "Please input the field"
Text1.SetFocus
Else
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = Label48.Caption
Data1.Recordset.Fields(1) = Text1.Text
Data1.Recordset.Fields(2) = Text2.Text
Data1.Recordset.Fields(3) = Text3.Text
Data1.Recordset.Fields(4) = Text4.Text
Data1.Recordset.Fields(5) = Text5.Text
Data1.Recordset.Fields(6) = Text6.Text + Text7.Text
Data1.Recordset.Fields(7) = Text8.Text
Data1.Recordset.Fields(8) = Text9.Text + Text10.Text
Data1.Recordset.Fields(9) = Text11.Text
Data1.Recordset.Fields(10) = Text12.Text
Data1.Recordset.Fields(11) = Text13.Text
Data1.Recordset.Fields(12) = Text14.Text
'Data1.Recordset.Fields(13) = Text15(0).Text
'Data1.Recordset.Fields(14) = Text16(0).Text
'Data1.Recordset.Fields(15) = Text17(0).Text
'Data1.Recordset.Fields(16) = Text18(0).Text
Data1.Recordset.Fields(17) = Text19.Text
Data1.Recordset.Fields(18) = Text20.Text
Data1.Recordset.Fields(19) = Text21.Text
Data1.Recordset.Fields(20) = Text22.Text
Data1.Recordset.Fields(21) = Text23.Text
Data1.Recordset.Fields(22) = CommonDialog1.FileName
Data1.Recordset.Update
MsgBox "record updated"
Unload Me
Form4.Show
End If
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen
Image1 = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text19 = Date
Data1.DatabaseName = App.Path & "\B-tek.mdb"
Data1.RecordSource = "select * from admission"
Data1.Refresh
MonthView1.Visible = True
End Sub
Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text21.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "Please input the field"
Text1.SetFocus
Else
Data1.Recordset.AddNew
Data1.Recordset.Fields(0) = Label48.Caption
Data1.Recordset.Fields(1) = Text1.Text
Data1.Recordset.Fields(2) = Text2.Text
Data1.Recordset.Fields(3) = Text3.Text
Data1.Recordset.Fields(4) = Text4.Text
Data1.Recordset.Fields(5) = Text5.Text
Data1.Recordset.Fields(6) = Text6.Text + Text7.Text
Data1.Recordset.Fields(7) = Text8.Text
Data1.Recordset.Fields(8) = Text9.Text + Text10.Text
Data1.Recordset.Fields(9) = Text11.Text
Data1.Recordset.Fields(10) = Text12.Text
Data1.Recordset.Fields(11) = Text13.Text
Data1.Recordset.Fields(12) = Text14.Text
'Data1.Recordset.Fields(13) = Text15(0).Text
'Data1.Recordset.Fields(14) = Text16(0).Text
'Data1.Recordset.Fields(15) = Text17(0).Text
'Data1.Recordset.Fields(16) = Text18(0).Text
Data1.Recordset.Fields(17) = Text19.Text
Data1.Recordset.Fields(18) = Text20.Text
Data1.Recordset.Fields(19) = Text21.Text
Data1.Recordset.Fields(20) = Text22.Text
Data1.Recordset.Fields(21) = Text23.Text
Data1.Recordset.Fields(22) = CommonDialog1.FileName
Data1.Recordset.Update
MsgBox "record updated"
Unload Me
Form4.Show
End If
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen
Image1 = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text19 = Date
Data1.DatabaseName = App.Path & "\B-tek.mdb"
Data1.RecordSource = "select * from admission"
Data1.Refresh