Recent Posts

Friday, April 11, 2008

Display data continuously in Big Screen From VB

Dim objRst As New ADODB.Recordset
Dim objCnn As ADODB.Connection

Private Sub Form_Load() 'Me.ShockwaveFlash1.Movie = App.Path & "\display.swf"
Set objCnn = New ADODB.Connection
objCnn.Open "test", "test", "test"

Me.Visible = True
fontfield
End Sub

Private Sub Display()
On Error GoTo ErrD
Dim strSex As String
Dim strStatus As String
Do While Not objRst.EOF
Clearfield

strSex = objRst!SEX


If objRst!Status = "E" Then
strStatus = "Elected"
Else
strStatus = ""
End If
Me.lblDist(0).Caption = objRst!distname_en
Me.lblConst(0).Caption = objRst!Const
Me.lblCand(0).Caption = objRst!cfname_en
Me.lblSex(0).Caption = strSex
Me.lblname(0).Caption = objRst!short_name_en
Me.lblTotal(0).Caption = objRst!total
Me.lblStatus(0).Caption = strStatus

Me.lblDist(10).Caption = objRst!distname_en
Me.lblConst(10).Caption = objRst!Const
Me.lblCand(10).Caption = objRst!cfname_en
Me.lblSex(10).Caption = strSex
Me.lblname(10).Caption = objRst!short_name_en
Me.lbltotal(10).Caption = objRst!totalvote
Me.lblStatus(10).Caption = strStatus



If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

Me.lblDist(1).Caption = ""
Me.lblConst(1).Caption = ""
Me.lblCand(1).Caption = objRst!cfname_en
Me.lblSex(1).Caption = strSex
Me.lblParty(1).Caption = objRst!short_name_en
Me.lblVote(1).Caption = objRst!totalvote
Me.lblStatus(1).Caption = ""

Me.lblDist(11).Caption = ""
Me.lblConst(11).Caption = ""
Me.lblCand(11).Caption = objRst!cfname_en
Me.lblSex(11).Caption = strSex
Me.lblParty(11).Caption = objRst!short_name_en
Me.lblVote(11).Caption = objRst!totalvote
Me.lblStatus(11).Caption = ""


End If

If Not objRst.EOF Then
objRst.MoveNext
End If

If Not objRst.EOF Then


strSex = objRst!SEX
If objRst!Status = "E" Then
strStatus = "Elected"
Else
strStatus = ""
End If

Me.lblDist(2).Caption = objRst!distname_en
Me.lblConst(2).Caption = objRst!Const
Me.lblCand(2).Caption = objRst!cfname_en
Me.lblSex(2).Caption = strSex
Me.lblParty(2).Caption = objRst!short_name_en
Me.lblVote(2).Caption = objRst!totalvote
Me.lblStatus(2).Caption = strStatus

Me.lblDist(12).Caption = objRst!distname_en
Me.lblConst(12).Caption = objRst!Const
Me.lblCand(12).Caption = objRst!cfname_en
Me.lblSex(12).Caption = strSex
Me.lblParty(12).Caption = objRst!short_name_en
Me.lblVote(12).Caption = objRst!totalvote
Me.lblStatus(12).Caption = strStatus

End If


If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

Me.lblDist(3).Caption = ""
Me.lblConst(3).Caption = ""
Me.lblCand(3).Caption = objRst!cfname_en
Me.lblSex(3).Caption = strSex
Me.lblParty(3).Caption = objRst!short_name_en
Me.lblVote(3).Caption = objRst!totalvote
Me.lblStatus(3).Caption = ""

Me.lblDist(13).Caption = ""
Me.lblConst(13).Caption = ""
Me.lblCand(13).Caption = objRst!cfname_en
Me.lblSex(13).Caption = strSex
Me.lblParty(13).Caption = objRst!short_name_en
Me.lblVote(13).Caption = objRst!totalvote
Me.lblStatus(13).Caption = ""
End If
If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

If objRst!Status = "E" Then
strStatus = "Elected"
Else
strStatus = ""
End If

Me.lblDist(4).Caption = objRst!distname_en
Me.lblConst(4).Caption = objRst!Const
Me.lblCand(4).Caption = objRst!cfname_en
Me.lblSex(4).Caption = strSex
Me.lblParty(4).Caption = objRst!short_name_en
Me.lblVote(4).Caption = objRst!totalvote
Me.lblStatus(4).Caption = strStatus

Me.lblDist(14).Caption = objRst!distname_en
Me.lblConst(14).Caption = objRst!Const
Me.lblCand(14).Caption = objRst!cfname_en
Me.lblSex(14).Caption = strSex
Me.lblParty(14).Caption = objRst!short_name_en
Me.lblVote(14).Caption = objRst!totalvote
Me.lblStatus(14).Caption = strStatus

End If


If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

Me.lblDist(5).Caption = ""
Me.lblConst(5).Caption = ""
Me.lblCand(5).Caption = objRst!cfname_en
Me.lblSex(5).Caption = strSex
Me.lblParty(5).Caption = objRst!short_name_en
Me.lblVote(5).Caption = objRst!totalvote
Me.lblStatus(5).Caption = ""

Me.lblDist(16).Caption = ""
Me.lblConst(16).Caption = ""
Me.lblCand(16).Caption = objRst!cfname_en
Me.lblSex(16).Caption = strSex
Me.lblParty(16).Caption = objRst!short_name_en
Me.lblVote(16).Caption = objRst!totalvote
Me.lblStatus(16).Caption = ""
End If
'------------------
If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then



strSex = objRst!SEX
If objRst!Status = "E" Then
strStatus = "Elected"
Else
strStatus = ""
End If
Me.lblDist(6).Caption = objRst!distname_en
Me.lblConst(6).Caption = objRst!Const
Me.lblCand(6).Caption = objRst!cfname_en
Me.lblSex(6).Caption = strSex
Me.lblParty(6).Caption = objRst!short_name_en
Me.lblVote(6).Caption = objRst!totalvote
Me.lblStatus(6).Caption = strStatus

Me.lblDist(15).Caption = objRst!distname_en
Me.lblConst(15).Caption = objRst!Const
Me.lblCand(15).Caption = objRst!cfname_en
Me.lblSex(15).Caption = strSex
Me.lblParty(15).Caption = objRst!short_name_en
Me.lblVote(15).Caption = objRst!totalvote
Me.lblStatus(15).Caption = strStatus

End If


If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

Me.lblDist(7).Caption = ""
Me.lblConst(7).Caption = ""
Me.lblCand(7).Caption = objRst!cfname_en
Me.lblSex(7).Caption = strSex
Me.lblParty(7).Caption = objRst!short_name_en
Me.lblVote(7).Caption = objRst!totalvote
Me.lblStatus(7).Caption = ""

Me.lblDist(17).Caption = ""
Me.lblConst(17).Caption = ""
Me.lblCand(17).Caption = objRst!cfname_en
Me.lblSex(17).Caption = strSex
Me.lblParty(17).Caption = objRst!short_name_en
Me.lblVote(17).Caption = objRst!totalvote
Me.lblStatus(17).Caption = ""
End If


If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

If objRst!Status = "E" Then
strStatus = "Elected"
Else
strStatus = ""
End If

Me.lblDist(8).Caption = objRst!distname_en
Me.lblConst(8).Caption = objRst!Const
Me.lblCand(8).Caption = objRst!cfname_en
Me.lblSex(8).Caption = strSex
Me.lblParty(8).Caption = objRst!short_name_en
Me.lblVote(8).Caption = objRst!totalvote
Me.lblStatus(8).Caption = strStatus


Me.lblDist(18).Caption = objRst!distname_en
Me.lblConst(18).Caption = objRst!Const
Me.lblCand(18).Caption = objRst!cfname_en
Me.lblSex(18).Caption = strSex
Me.lblParty(18).Caption = objRst!short_name_en
Me.lblVote(18).Caption = objRst!totalvote
Me.lblStatus(18).Caption = strStatus

End If


If Not objRst.EOF Then
objRst.MoveNext
End If
If Not objRst.EOF Then


strSex = objRst!SEX

Me.lblDist(9).Caption = ""
Me.lblConst(9).Caption = ""
Me.lblCand(9).Caption = objRst!cfname_en
Me.lblSex(9).Caption = strSex
Me.lblParty(9).Caption = objRst!short_name_en
Me.lblVote(9).Caption = objRst!totalvote
Me.lblStatus(9).Caption = ""


Me.lblDist(19).Caption = ""
Me.lblConst(19).Caption = ""
Me.lblCand(19).Caption = objRst!cfname_en
Me.lblSex(19).Caption = strSex
Me.lblParty(19).Caption = objRst!short_name_en
Me.lblVote(19).Caption = objRst!totalvote
Me.lblStatus(19).Caption = ""
End If

If Not objRst.EOF Then
objRst.MoveNext
End If
DoEvents
DoEvents
Sleep 10000


Loop
objRst.Close
Set objRst = Nothing
DisplayAgain
Exit Sub

ErrD:
' If gDatabase.LastServerErr <> 0 Then
'
' If gDatabase.LastServerErr = 1000 Then
' gDatabase.Close
' Set gdtabase = Nothing
' Set gSession = Nothing
' Set obj = Nothing
' GlobalMod.CreateSession DbName, "ledentry/entry"
' DisplayAgain
' Exit Sub
' End If
' strMsg = OracleError.OracleError(gDatabase.LastServerErr)
' If strMsg = "" Then
' strMsg = "Error: " & gDatabase.LastServerErrText & vbNewLine
' strMsg = strMsg & "Cause: " & "Not Known" & vbNewLine
' strMsg = strMsg & "Action: Contact your Administrator"
' End If
'
' End If
MsgBox strMsg, vbInformation, "Database Error"


End Sub
Private Sub DisplayAgain()
If objRst.State = 1 Then
objRst.Close
End If
objRst.Open "SELECT a.CONST, CFNAME_en, SEX, TOTALVOTE, a.STATUS, DISTNAME_en, SHORT_NAME_en From FPTPTOPN_en a where r<=2 order by a.district,a.const,r", objCnn, adOpenStatic 'and status in('C','E')
Display

End Sub

Private Sub txts_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 8 Then
End
Else
DisplayAgain
End If
End Sub
Private Sub Clearfield()
Dim i As Integer
For i = 0 To 19
Me.lblCand(i).Caption = ""
Me.lblConst(i).Caption = ""
Me.lblDist(i).Caption = ""
Me.lblParty(i).Caption = ""
Me.lblSex(i).Caption = ""
Me.lblStatus(i).Caption = ""
Me.lblVote(i).Caption = ""
Next
End Sub


Private Sub fontfield()
Dim i As Integer
For i = 0 To 19
Me.lblCand(i).FontName = "Verdana"
Me.lblCand(i).FontBold = False
Me.lblConst(i).FontName = "Verdana"
Me.lblConst(i).FontBold = False
Me.lblDist(i).FontName = "Verdana"
Me.lblDist(i).FontBold = False
Me.lblParty(i).FontName = "Verdana"
Me.lblParty(i).FontBold = False
Me.lblSex(i).FontName = "Verdana"
Me.lblSex(i).FontBold = False
Me.lblStatus(i).FontName = "Verdana"
Me.lblStatus(i).FontBold = False
Me.lblVote(i).FontName = "Verdana"
Me.lblVote(i).FontBold = False

Me.lblCand(i).FontSize = 16
Me.lblConst(i).FontSize = 16
Me.lblDist(i).FontSize = 16
Me.lblParty(i).FontSize = 16
Me.lblSex(i).FontSize = 16
Me.lblStatus(i).FontSize = 16
Me.lblVote(i).FontSize = 16
Next
End Sub

Related Posts by Categories




No comments:

Post a Comment