updateinfo.frm

this is source code for billing system in c language

If COMP = "" Or txtpos = "" Or txtdept = "" Or txtclient = "" Then

MsgBox "SELECT THE INFORMATION", vbInformation + vbQuestion, "DELETE"
Else
Set rs = db.Execute("SELECT * FROM BILLINGRATE")
With rs
        .MoveFirst
            Do Until .EOF
                If AUTOS = !NOS Then
                    found = True
                  SSS = MsgBox("Are you sure you want to Delete This record?", vbYesNo + vbQuestion, "DELETED")
                Exit Do
            End If
        .MoveNext
Loop
If SSS = vbYes Then
If found = True Then
db.Execute "DELETE FROM BILLINGRATE WHERE [NOS]='" & AUTOS.Text & "'"

Unload Me
Me.Show

MsgBox "Record DELETED"
End If
End If
End With
'b:
End If

End Sub

Private Sub CMDDELALL_Click()

If COMP = "" Or txtpos = "" Or txtdept = "" Or txtclient = "" Then

MsgBox "SELECT THE INFORMATION", vbInformation + vbQuestion, "DELETE"
Else

With rs
        .MoveFirst
            Do Until .EOF
'                If AUTOS = !NOS Then
                    found = True
                  SSS = MsgBox("Are you sure you want to Delete ALL this record?", vbYesNo + vbQuestion, "DELETED")
                Exit Do
            'End If
        .MoveNext
Loop
If SSS = vbYes Then
If found = True Then
db.Execute "DELETE FROM BILLINGRATE"
Unload Me
Me.Show

MsgBox "Record DELETED"
End If
End If
End With
'b:

End If
End Sub

Private Sub CMDEDIT_Click()



If COMP = "" Or txtpos = "" Or txtdept = "" Or txtclient = "" Then

MsgBox "SELECT THE INFORMATION", vbInformation + vbQuestion, "EDIT"
Else

With rs
        .MoveFirst
            Do Until .EOF
'                If AUTOS = !NOS Then
                    found = True
                  SSS = MsgBox("Are you sure you want to EDIT this record?", vbYesNo + vbQuestion, "EDIT")
                Exit Do
            'End If
        .MoveNext
Loop
If SSS = vbYes Then
If found = True Then
db.Execute "UPDATE BILLINGRATE SET [NOS]='" & AUTOS & "',[COMPANY]='" & COMP.Text & "',[CLIENT]='" & txtclient.Text & "',[DEPT]='" & txtdept.Text & "',[POS]='" & txtpos.Text & "',[rate]='" & txtdays & "',[rot]='" & _
txtrot & "',[rdot]='" & txtrdot & "',[shot]='" & txtshot & "',[lhot]='" & txtlhot & "',[late]='" & txtlate & _
"',[cola]='" & TXTCOLAS & "',[brate]='" & txttotal & "',[ADMINFEE]='" & TXTAF & "',[colaRATE]='" & txtcola & "' WHERE [NOS]='" & Text1.Text & "'"
MsgBox "Record Edited"
Unload Me
Me.Show

'MsgBox "Record DELETED"
End If
End If
End With
'b:
End If
End Sub

Private Sub CMDPASS_Click()
txtdept = Text2
End Sub

Private Sub COMP_Change()
'On Error GoTo b
'Dim found As Boolean
'Set rs = db.Execute("SELECT * FROM BILLINGRATE")
'With rs
'        .MoveFirst
'            Do Until .EOF
'
'               If COMP.Text = !COMPANY Then
'                    found = True
                    
'                Exit Do
'            End If
'        .MoveNext
'Loop
'If found = True Then
'COMP = !COMPANY
'txtpos = !Pos
'txtdept = !DEPT
'txtclient = !CLIENT
'txtdays = !Rate
'txtrot = !ROT
'txtrdot = !RDOT
'txtshot = !shot
'txtlhot = !lhot
'txtlate = !late
'txtcola = !COLA
'txttotal = !BRATE
'Else
'End If
'End With
'b:
''''''''''''''''''''''''''''''''''''
End Sub

Private Sub COMP_Click()
'Set rs = db.Execute("SELECT * FROM BILLINGRATE WHERE [COMPANY] LIKE '" & Replace(COMP.Text, "'", "''") & "%'  ")
'    txtpos.Clear
'    While Not rs.EOF
'        txtpos.AddItem rs![POS]
'    rs.MoveNext
'Wend


Set rs = db.Execute("SELECT DISTINCT [POSITION] FROM SOURCENAME WHERE COMP LIKE '" & Replace(COMP.Text, "'", "''") & "%' ")
   txtpos.Clear
    While Not rs.EOF
        txtpos.AddItem rs![Position]
    rs.MoveNext
Wend

End Sub

Private Sub elan_Click()

If COMP = "" Or txtpos = "" Or txtdept = "" Or txtclient = "" Then

MsgBox "SELECT THE INFORMATION", vbInformation + vbQuestion, "EDIT"
Else



 db.Execute "Insert INTO BILLINGRATE VALUES('" & AUTOS + 1 & "','" & COMP.Text & "','" & txtclient & "','" & txtdept & "','" & txtpos & "','" & txtdays & "','" & txtrot & _
    "','" & txtrdot & "','" & txtshot & "','" & txtlhot & "','" & txtlate & "','" & TXTCOLAS & "','" & txttotal & "','" & TXTAF & "','" & txtcola & "'   )"
    MsgBox " RECORD SAVE"
Unload Me
Me.Show

'MsgBox "Record DELETED"

'b:
End If
End Sub

Private Sub Form_Load()
On Error GoTo H

'Set rs = db.Execute("SELECT DISTINCT [NOS] FROM SOURCENAME WHERE NOS LIKE '" & Replace(AUTOS.Text, "'", "''") & "%' ")
'   ' List1.Clear
'    While Not rs.EOF
'        AUTOS.AddItem rs![NOS]
'    rs.MoveNext
'Wend



sqlArc = "SELECT * FROM BILLINGRATE"
viewemp
cnn


Set rs = db.Execute("SELECT DISTINCT [NOS] FROM BILLINGRATE WHERE NOS LIKE '" & Replace(AUTOS.Text, "'", "''") & "%' ")
   ' List1.Clear
    While Not rs.EOF
        AUTOS.AddItem rs![NOS]
    rs.MoveNext
Wend

'AUTOS = AUTOS + 1


Set rs = db.Execute("SELECT DISTINCT [COMP] FROM SOURCENAME WHERE COMP LIKE '" & Replace(COMP.Text, "'", "''") & "%' ")
   txtpos.Clear
    While Not rs.EOF
        COMP.AddItem rs![COMP]
    rs.MoveNext
Wend


Set rs = db.Execute("SELECT DISTINCT [CLIENT] FROM SOURCENAME WHERE CLIENT LIKE '" & Replace(txtclient.Text, "'", "''") & "%' ")
   txtpos.Clear
    While Not rs.EOF
        txtclient.AddItem rs![client]
    rs.MoveNext
Wend



Set rs = db.Execute("SELECT DISTINCT [DEPARTMENT] FROM SOURCENAME WHERE DEPARTMENT LIKE '" & Replace(txtdept.Text, "'", "''") & "%' ")
   txtpos.Clear
    While Not rs.EOF
        txtdept.AddItem rs![DEPARTMENT]
    rs.MoveNext
Wend





H:
End Sub

Private Sub LaVolpeButton1_Click()
COMP = ""
txtpos = ""
txtclient = ""
txtdept = ""
txtdays = "0"
txtcola = "0"
txttotal = "0"
TXTAF = "0"
End Sub

Sub viewemp()
'Set RS1 = New ADODB.Recordset
'Set RS1 = "select *from JRStblBILLING"
'Set RS1 = db.Execute("SELECT * FROM JRStblBILLING")
Static a

    Set rs1 = db.Execute(sqlArc)
        With ListView1
          .ListItems.Clear
        While Not rs1.EOF
               a = a + 1
                    .ListItems.Add , , rs1!NOS
                    .ListItems(a).ListSubItems.Add , , rs1!COMPANY
                    .ListItems(a).ListSubItems.Add , , rs1!client
                    .ListItems(a).ListSubItems.Add , , rs1!DEPT
                    .ListItems(a).ListSubItems.Add , , rs1!Pos
                    .ListItems(a).ListSubItems.Add , , rs1!Rate
                    .ListItems(a).ListSubItems.Add , , rs1!ROT
                    .ListItems(a).ListSubItems.Add , , rs1!RDOT
                    .ListItems(a).ListSubItems.Add , , rs1!shot
                    .ListItems(a).ListSubItems.Add , , rs1!lhot
                    .ListItems(a).ListSubItems.Add , , rs1!late
                    .ListItems(a).ListSubItems.Add , , rs1!COLA
                    .ListItems(a).ListSubItems.Add , , rs1!BRATE
                    .ListItems(a).ListSubItems.Add , , rs1!NOS
                    
                    
                rs1.MoveNext
            Wend
            a = 0
    End With
End Sub




Private Sub LaVolpeButton2_Click()

End Sub

Private Sub ListView1_Click()

Dim rs As ADODB.Recordset

If Me.ListView1.ListItems.Count <> 0 Then
    Set rs = New ADODB.Recordset
    rs.Open "Select * From BILLINGRATE Where NOS = '" & ListView1.ListItems.Item(ListView1.SelectedItem.Index).Text & "'", db, adOpenStatic, adLockReadOnly
End If
   With rs
         On Error Resume Next
         AUTOS = !NOS
         COMP.Text = !COMPANY
         txtclient.Text = !client
         txtpos = !Pos
txtdept = !DEPT

txtdays = !Rate
txtrot = !ROT
txtrdot = !RDOT
txtshot = !shot
txtlhot = !lhot
txtlate = !late
TXTCOLAS = !COLA
txttotal = !BRATE
'txttotals = !BRATE
Text1 = !NOS
TXTAF = !ADMINFEE
txtcola = !colarate
         
               End With
End Sub

Private Sub TAGABILANG_Timer()
If AUTOS = "" Then
AUTOS = 0 + 1
TAGABILANG.Interval = 0
Else
AUTOS = AUTOS + 1
TAGABILANG.Interval = 0
End If
End Sub

Private Sub Text2_Change()

''''''''''''''''''''''

Set rs = db.Execute("SELECT * FROM BILLINGRATE WHERE [DEPT] LIKE '" & Replace(Text2.Text, "'", "''") & "%'  ")
    List1.Clear
    'ListView1.ListItems.Clear
    While Not rs.EOF
    
        List1.AddItem rs![NOS] & "   " & rs![COMPANY] & "   " & rs![Pos]
       
    rs.MoveNext
Wend

End Sub

Private Sub txtcola_Change()
On Error GoTo BB
TXTCOLAS = txtcola / 8
BB:
End Sub

Private Sub txtdays_Change()
On Error GoTo b
'txtlate = txtdays / 8
txtlate = txtdays / 8
b:
End Sub

Private Sub txttotal_Change()
On Error GoTo F
txtrot = txttotal / 8 * 125 / 100
txtrdot = txttotal / 8 * 30 / 100
txtshot = txttotal / 8 * 30 / 100
txtlhot = txttotal / 8

F:
End Sub