AutomobilsPrivate 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_Load() 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_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 Private Sub cmdadd_Click() Txtname.Locked = False Txtadd.Locked = False Txtveh.Locked = False Txtvehno.Locked = False txtid.Text = "" Txtname.Text = "" Txtadd.Text = "" Txtveh.Text = "" Txtvehno.Text = "" txtid.DataField = C_ID Txtname.DataField = C_NAME Txtadd.DataField = ADDRESS Txtveh.DataField = VEHICLE Txtvehno.DataField = VEH_NO adocust.Recordset.AddNew Lbladdhere.Visible = True Lblid.Visible = True txtid.Visible = True txtid.SetFocus Cmdadd.Enabled = False lstcod.Enabled = False Cmddel.Enabled = False cmdshow.Enabled = False 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 Private Sub Cmddel_Click() adocust.Recordset.MoveFirst t = lstcod.ListIndex For i = 1 To t adocust.Recordset.MoveNext Next i adocust.Recordset.Delete adocust.Recordset.MoveNext If adocust.Recordset.EOF Then adocust.Recordset.MoveLast End If lstcod.RemoveItem (t) If adocust.Recordset.RecordCount = 0 Then MsgBox "No records left", vbInformation, "TABLE EMPTY" End If End Sub Private Sub cmdshow_Click() Txtadd.Text = adocust.Recordset.Fields("address").Value Txtveh.Text = adocust.Recordset.Fields("vehicle").Value Txtvehno.Text = adocust.Recordset.Fields("veh_no").Value Txtname.Text = adocust.Recordset.Fields("c_name").Value cmdshow.Enabled = False lblmsg.Visible = False End Sub Private Sub cmdupdate_Click() adocust.Recordset.Update txtid.DataField = "" Txtname.DataField = "" Txtadd.DataField = "" Txtveh.DataField = "" Txtvehno.DataField = "" Lbladdhere.Visible = False Lblid.Visible = False txtid.Visible = False Cmdupdate.Visible = False Cmdadd.Enabled = True lstcod.Enabled = True End Sub Private Sub Cmdexit_Click() frmmdi.Show Me.Hide End Sub SERVICES FORM Private Sub Form_Load() Adoser.Recordset.MoveFirst Cmddel.Enabled = True Cmdbill.Enabled = True Cmdupdate.Enabled = False Cmdadd.Enabled = True If Adoser.Recordset.RecordCount = 0 Then Cmddel.Enabled = False End If End Sub Private Sub Form_GotFocus() If txtcid.Locked = False Then txtstatus.Text = "due" Adoparts.Recordset.Delete Adoparts.Recordset.MovePrevious End If Txtsid.Locked = True Txtpid.Locked = True Txtdate.Locked = True txtcid.Locked = True txtstatus.Locked = True Adoser.Recordset.MoveFirst Cmddel.Enabled = True Cmdbill.Enabled = True Cmdupdate.Enabled = False Cmdadd.Enabled = True If Adoser.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 txtcid_Change() If Cmdadd.Enabled = False Then If txtcid.Text = "" And Txtsid.Text = "" And Txtdate.Text = "" And Txtpid.Text = "" And txtstatus.Text = "" Then Cmdupdate.Enabled = False Else Cmdupdate.Enabled = True End If End If End Sub Private Sub cmdadd_Click() Txtsid.Locked = False Txtpid.Locked = False Txtdate.Locked = False txtcid.Locked = False txtstatus.Locked = False Adoser.Recordset.AddNew txtcid.SetFocus Cmdadd.Enabled = False Cmdbill.Enabled = False Cmddel.Enabled = False If txtcid.Text = "" And Txtsid.Text = "" And Txtdate.Text = "" And Txtpid.Text = "" And txtstatus.Text = "" Then Cmdupdate.Enabled = False Else Cmdupdate.Enabled = True End If End Sub Private Sub Cmddel_Click() Adoser.Recordset.Delete Adoser.Recordset.MoveNext If Adoser.Recordset.EOF Then Adoser.Recordset.MoveLast End If If Adoser.Recordset.RecordCount = 0 Then MsgBox "No records left", vbInformation, "TABLE EMPTY" End If End Sub Private Sub cmdupdate_Click() Adoser.Recordset.Update Cmdadd.Enabled = True Cmdbill.Enabled = True Cmddel.Enabled = True End Sub Private Sub Cmdbill_Click() frmbill.Show End Sub Private Sub Cmdexit_Click() If txtcid.Locked = False Then txtstatus.Text = "due" Adoser.Recordset.Delete Adoser.Recordset.MovePrevious End If frmmdi.Show Me.Hide End Sub BILL FORM Private Sub Form_Load() If Adobill.Recordset.RecordCount > 1 Then txttax.Text = 0.05 * Val(txtcosts.Text) Txttot.Text = Val(txtcosts.Text) + Val(txttax.Text) - 0.12 * tot End If End Sub Private Sub Form_Unload(Cancel As Integer) frmmdi.Show Me.Hide End Sub Private Sub Cmdexit_Click() frmmdi.Show Me.Hide End Sub Private Sub cmdprint_Click() Cmdprint.Visible = False Cmdexit.Visible = False Adobill.Visible = False frmbill.PrintForm Cmdprint.Visible = True Cmdexit.Visible = True Adobill.Visible = True End Sub PARTS FORM Private Sub Form_Load() Adoparts.Recordset.MoveFirst Cmddel.Enabled = True Cmdadd.Enabled = True Cmdupdate.Enabled = False If Adoparts.Recordset.RecordCount = 0 Then Cmddel.Enabled = False End If End Sub Private Sub Form_GotFocus() If Txtpid.Locked = False Then txtprice.Text = 300 Adoparts.Recordset.Delete Adoparts.Recordset.MovePrevious End If Txtpid.Locked = True txtpname.Locked = True txtprice.Locked = True Adoparts.Recordset.MoveFirst Cmddel.Enabled = True Cmdupdate.Enabled = False Cmdadd.Enabled = True If Adoparts.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 cmdadd_Click() Txtpid.Locked = False txtpname.Locked = False txtprice.Locked = False Adoparts.Recordset.AddNew Txtpid.SetFocus Cmdadd.Enabled = False Cmddel.Enabled = False If Txtpid.Text = "" And txtpname.Text = "" And txtprice.Text = "" Then Cmdupdate.Enabled = False Else Cmdupdate.Enabled = True End If End Sub Private Sub Cmddel_Click() Adoparts.Recordset.Delete Adoparts.Recordset.MoveNext If Adoparts.Recordset.EOF Then Adoparts.Recordset.MoveLast End If If Adoparts.Recordset.RecordCount = 0 Then MsgBox "No records left", vbInformation, "TABLE EMPTY" End If End Sub Private Sub Cmdexit_Click() If Txtpid.Locked = False Then txtprice.Text = 300 Adoparts.Recordset.Delete Adoparts.Recordset.MovePrevious End If frmmdi.Show Me.Hide End Sub Private Sub cmdupdate_Click() Adoparts.Recordset.Update Cmdadd.Enabled = True Cmddel.Enabled = True End Sub Private Sub Txtpid_Change() If Cmdadd.Enabled = False Then Cmdupdate.Visible = True If Txtpid.Text = "" And txtpname.Text = "" And txtprice.Text = "" Then Cmdupdate.Enabled = False Else Cmdupdate.Enabled = True End If End If End Sub PARTS & COSTS FORM Private Sub Form_Load() Adodc.Refresh Lstpnames.Clear Lstprice.Clear Do While Adopc.Recordset.EOF = False Lstpnames.AddItem Adopc.Recordset.Fields("p_name") Lstprice.AddItem Adopc.Recordset.Fields("unit_cost") Adopc.Recordset.MoveNext Loop End Sub Private Sub Form_Unload(Cancel As Integer) frmmdi.Show Me.Hide End Sub Private Sub Lstpnames_Click() For X = 0 To 10 If Lstpnames.ListIndex = X Then Lstprice.ListIndex = X End If Next X End Sub Private Sub Cmdexit_Click() frmmdi.Show Me.Hide End Sub Private Sub cmdprint_Click() Cmdexit.Visible = False cmdprint.Visible = False Adopc.Visible = False frmpc.PrintForm Cmdexit.Visible = True cmdprint.Visible = True Adopc.Visible = True End Sub WELCOME FORM Private Sub Timwel_Timer() If Timwel.Interval = 500 Then Lblload.Visible = False Timwel.Interval = 499 ElseIf Timwel.Interval = 499 Then Lblload.Visible = True Timwel.Interval = 498 ElseIf Timwel.Interval = 498 Then Lblload.Visible = False Timwel.Interval = 497 ElseIf Timwel.Interval = 497 Then Lblload.Visible = True Timwel.Interval = 496 ElseIf Timwel.Interval = 496 Then Lblload.Visible = False Timwel.Interval = 495 ElseIf Timwel.Interval = 495 Then Lblload.Visible = True Timwel.Interval = 494 ElseIf Timwel.Interval = 494 Then frmmdi.Show Frmwel.Visible = False Timwel.Enabled = False End If End Sub GOODBYE FORM Private Sub Timthank_Timer() End End Sub ................................................................................................. Tables create table customers (c_id char(4), c_name varchar2(10), address varchar2(20), vehicle varchar2(10), veh_no char(8)); create table serviced (s_id char(4), date_ser date, p_id char(4), unit_cost .................................................................................................................. 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) |