updatesource.frm

this is source code for billing system in c language

      EndProperty
      COLTYPE         =   2
      BCOL            =   65535
      FCOL            =   0
      FCOLO           =   0
      EMBOSSM         =   12632256
      EMBOSSS         =   16777215
      MPTR            =   0
      MICON           =   "UPDATESOURCE.frx":FF4F
      ALIGN           =   1
      IMGLST          =   "ImageList1"
      IMGICON         =   "(None)"
      ICONAlign       =   0
      ORIENT          =   0
      STYLE           =   0
      IconSize        =   4
      SHOWF           =   -1  'True
      BSTYLE          =   0
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "TEST DEPARTMENT"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   6600
      TabIndex        =   25
      Top             =   480
      Width           =   1935
   End
   Begin VB.Image Image1 
      Height          =   1860
      Left            =   0
      Picture         =   "UPDATESOURCE.frx":FF6B
      Stretch         =   -1  'True
      Top             =   -120
      Width           =   5565
   End
End
Attribute VB_Name = "UPDATESOURCE"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim NOS As String
Dim found As Boolean
Dim SSS As String

Private Sub AUTO_Change()
Static A
Set rs = db.Execute("SELECT * FROM SOURCENAME WHERE [NOS] LIKE '" & Replace(AUTO.Text, "'", "''") & "%'  ")
    List1.Clear
    ListView1.ListItems.Clear
    While Not rs.EOF
      A = A + 1
        'List1.AddItem rs![Name] & " " & rs![LName]
        
        
        ListView1.ListItems.Add , , rs!NOS
        'ListView1.ListItems.Add , , rs!Name ' & " " & rs!LName
        ListView1.ListItems(A).ListSubItems.Add , , rs!COMP
        ListView1.ListItems(A).ListSubItems.Add , , rs!client
         ListView1.ListItems(A).ListSubItems.Add , , rs!Position
        ListView1.ListItems(A).ListSubItems.Add , , rs!DEPARTMENT

    rs.MoveNext
Wend
A = 0

End Sub

Private Sub CMDCLOSE_Click()
Unload Me
Mainmenu.Show
End Sub

Private Sub CMDDEL_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 this record?", vbYesNo + vbQuestion, "DELETED")
                Exit Do
            End If
        .MoveNext
Loop
If SSS = vbYes Then
If found = True Then
db.Execute "DELETE FROM SOURCENAME WHERE [NOS]='" & Text1.Text & "'"
 Unload Me
    Me.Show

MsgBox "Record DELETED"
End If
End If
End With
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 SOURCENAME"
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 SOURCENAME SET [NOS]='" & AUTOS & "',[COMP]='" & COMP.Text & "',[position]='" & txtpos.Text & "',[client]='" & txtclient.Text & "',[department]='" & txtdept.Text & "',[COMPSECT]='" & COMPSEC & "' WHERE [NOS]='" & Text1.Text & "'"
MsgBox "Record Edited"
Unload Me
Me.Show

'MsgBox "Record EDITED"
End If
End If
End With
End If
End Sub

Private Sub CMDPASS_Click()
txtdept = Text2
End Sub

Private Sub elan_Click()
    
    If COMP = "" Or txtpos = "" Or txtdept = "" Or txtclient = "" Then

MsgBox "PLZ TYPE THE INFORMATION", vbInformation + vbQuestion, "SAVED"
Else

db.Execute "Insert INTO SOURCENAME VALUES('" & AUTOS + 1 & "','" & COMP.Text & "','" & txtpos & "','" & txtclient & "','" & txtdept & "','" & COMPSEC & "')"
    MsgBox " RECORD SAVE"
    Unload Me
    Me.Show

End If
End Sub

Private Sub Form_Activate()
  Set rs = db.Execute("SELECT * FROM SOURCENAME ORDER BY [nos]")
   While Not rs.EOF
         
     AUTOS.Text = rs!NOS
     rs.MoveNext
     Wend
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Call elan_Click
End If
End Sub

Private Sub Form_Load()

With COMPSEC


.AddItem "JRS MANILA BRANCH"
.AddItem "MACRO MANILA BRANCH"
.AddItem "JRS PROVINCIAL BRANCH"
.AddItem "MACRO PROVINCIAL BRANCH"

End With

On Error GoTo H
sqlArc = "SELECT * FROM SOURCENAME"
viewemp
cnn


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


' Set rs = db.Execute("SELECT * FROM SOURCENAME ORDER BY [NOS]")
 '  While Not rs.EOF
 '        List1.AddItem rs!NOS
 '    AUTOS.Text = rs!NOS
 '    rs.MoveNext
 '    Wend


'AUTOS = AUTOS + 1

H:
End Sub

Private Sub LaVolpeButton1_Click()
COMP = ""
txtpos = ""
txtclient = ""
txtdept = ""
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 SOURCENAME Where NOS = '" & ListView1.ListItems.Item(ListView1.SelectedItem.Index).Text & "'", db, adOpenStatic, adLockReadOnly
End If
   With rs
         On Error Resume Next
         Text1 = !NOS
         COMP.Text = !COMP
        ' txtclient.Text = !CLIENT
           COMP = !COMP
            txtpos = !Position
            txtclient = !client
            txtdept = !DEPARTMENT
            Text1.Text = !NOS
            COMPSEC = !compsect
            
               End With
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!COMP
                    .ListItems(A).ListSubItems.Add , , rs1!client
                    .ListItems(A).ListSubItems.Add , , rs1!Position
                    .ListItems(A).ListSubItems.Add , , rs1!DEPARTMENT
                   ' .ListItems(a).ListSubItems.Add , , rs1!NOS
                rs1.MoveNext
            Wend
            A = 0
    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 Text1_Change()
AUTOS = Text1
End Sub

Private Sub Text2_Change()



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

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

End Sub