Automobiles Project IP Project - Class 12
IP Project for class 12 pdf free download
Private Sub MDIForm_Unload(Cancel As Integer)
MsgBox "You have confirmed to quit project!", vbExclamation, "ENDPROJECT" Frmthank.Show Me.Hide End Sub Private Sub mnuentercust_Click() frmcust.Show End Sub Private Sub mnuenterparts_Click() frmparts.Show End Sub Private Sub mnuenterservices_Click() frmservices.Show End Sub Private Sub mnuprintbill_Click() frmbill.Show End Sub Private Sub mnuprintpc_Click() frmpc.Show End Sub Private Sub mnuexit_Click() If MsgBox("Are you sure you want to exit from the project?", vbYesNo, "ENDPROJECT") = vbYes Then Frmthank.Show Me.Hide Else frmmdi.Show End If End Sub CUSTOMERS FORM Private Sub Form_GotFocus() Txtname.Locked = True Txtadd.Locked = True Txtveh.Locked = True Txtvehno.Locked = True txtid.Visible = True txtid.DataField = "" Txtname.DataField = "" Txtadd.DataField = "" Txtveh.DataField = "" Txtvehno.DataField = "" txtid.Visible = False Lbladdhere.Visible = False Lblid.Visible = False Cmdadd.Enabled = True lstcod.Enabled = True Cmddel.Enabled = True Cmdupdate.Enabled = False adocust.Refresh lstcod.Clear a = adocust.Recordset.RecordCount Do While a > 0 lstcod.AddItem adocust.Recordset.Fields("c_id").Value a = a - 1 If adocust.Recordset.EOF = False Then adocust.Recordset.MoveNext End If Loop adocust.Recordset.MoveFirst If adocust.Recordset.RecordCount = 0 Then Cmddel.Enabled = False End If End Sub Private Sub Form_Unload(Cancel As Integer) frmmdi.Show Me.Hide End Sub Private Sub lstcod_Click() adocust.Recordset.MoveFirst i = 1 For i = 1 To lstcod.ListIndex If adocust.Recordset.EOF = False Then adocust.Recordset.MoveNext Else adocust.Recordset.MoveFirst End If Next i cmdshow.Enabled = True lblmsg.Visible = True lblmsg.Caption = "CLICK SHOW DETAILS TO GET DETAILS" Txtname.Text = "" Txtadd.Text = "" Txtveh.Text = "" Txtvehno.Text = "" End Sub Private Sub txtid_Change() If txtid.Text = "" And Txtname.Text = "" And Txtadd.Text = "" And Txtveh.Text = "" And Txtvehno.Text = "" Then Cmdupdate.Enabled = False Else Cmdupdate.Enabled = True End If End Sub .................................................................................................................. TABLES IN ORACLE TABLE CUSTOMERS Name Null? Type ----------------------------------------- -------- ---------------------------- C_ID CHAR(4) C_NAME VARCHAR2(10) ADDRESS VARCHAR2(20) VEHICLE VARCHAR2(10) VEH_NO CHAR(8) TABLE SERVICED Name Null? Type ----------------------------------------- -------- ---------------------------- S_ID CHAR(4) DATE_SER DATE P_ ID CHAR(4) C_ ID CHAR(4) BILL_ STATUS VARCHAR2(10) TABLE PARTS Name Null? Type ----------------------------------------- -------- ---------------------------- P_ID CHAR(4) P_ NAME VARCHAR2(20) UNIT_COST NUMBER(5) |
IP Project for class 12 pdf free download Output
|
ip project for class 12 cbse free download pdf
ip project for class 12 with coding pdf
computer science project for class 12 python pdf
ip project for class 12 on railway reservation
ip project for class 12 on fashion store management
class 12 ip project on bakery management
ip project for class 12 slideshare
ip project for class 12 on online shopping
ip project for class 12 with coding pdf
computer science project for class 12 python pdf
ip project for class 12 on railway reservation
ip project for class 12 on fashion store management
class 12 ip project on bakery management
ip project for class 12 slideshare
ip project for class 12 on online shopping