form11.frm

根据数据库发送条屏数据.根据呼叫发送特定的信息.

Dim w As Integer, h As Integer
    w = (Pict.Width + 14) \ 15
    h = (Pict.Height + 14) \ 15
    Call PictToBuff(Pict, w, h, LedWidth, LedHeight, LedColor)
    bOK = CL2005.ComInitial(comp, ComBaudRate, ComDelay)
    If bOK Then bOK = CL2005.SetLEDProperty(CardType, CInt(ckh) - 1, LedWidth, LedHeight, LedColor, 0)
    If bOK Then bOK = CL2005.SendPicture(0, VarPtr(PictBuf(0, 0)))
    ProgList(0).PictIndex = 0       ' 图片0的播放属性
    ProgList(0).Enter = cpfs      ' 进入方式3
    ProgList(0).Leave = tcfs           ' 退出方式0
    ProgList(0).Speed = cpsd          ' 进入速度
    ProgList(0).StayTime = tlsj        ' 停留时间
    ProgList(0).bFollowFlag = 0     ' 非紧随模式
    ProgList(0).bShowTimer = 0      ' 非整页时钟项
    ProgList(0).TimerMode = 0       ' 不显示日期时间
    ProgList(0).bTimerPlay = 0      ' 非定时播放项
    If bOK Then bOK = CL2005.SendProgList(1, VarPtr(ProgList(0).PictIndex))
    CL2005.CloseCL2005
    If bOK Then
       ' bOK = MsgBox("发送成功", vbOKOnly, "发送图片")
       ts.Caption = "发送成功"
       
    Else
    ts.Caption = "发送失败"
        'bOK = MsgBox("发送失败", vbOKOnly, "发送图片")
    End If
End Sub


Private Sub BtnSendText_Click()
Dim S As String
Dim TxtBuf(0 To 1023) As Byte
Dim bOK As Boolean
    S = "qing 2232323"
    Call StringToByte(S, TxtBuf)
    bOK = CL2005.ComInitial(ComPort, ComBaudRate, ComDelay)
    If bOK Then bOK = CL2005.SetLEDProperty(CardType, LedNum, LedWidth, LedHeight, LedColor, 0)
    If bOK Then bOK = CL2005.ShowString(0, LedWidth - 3 * 16 - 1, 0, 1, VarPtr(TxtBuf(0)))
    If bOK Then bOK = CL2005.SwitchToBank(0)
    CL2005.CloseCL2005
    If bOK Then
        bOK = MsgBox("发送成功", vbOKOnly, "显示文字")
    Else
        bOK = MsgBox("发送失败", vbOKOnly, "显示文字")
    End If
End Sub

Private Sub Image2_Click()

End Sub

Private Sub Image5_Click()

End Sub







Private Sub Form_Load()
Dim ret As Long
Dim buff As String

'Dim buff As String
buff = String(320, 0)
ret = GetPrivateProfileString("HY", "comp", "comp", buff, 320, App.Path & "\config.ini")
comp = CInt(buff)

buff = String(320, 0)
ret = GetPrivateProfileString("HY", "btfont", "btfont", buff, 320, App.Path & "\config.ini")
btfont = buff


'Dim buff As String
buff = String(320, 0)
ret = GetPrivateProfileString("HY", "nrfont", "nrfont", buff, 320, App.Path & "\config.ini")


nrfont = CInt(buff)


'Dim buff As String
buff = String(320, 0)
ret = GetPrivateProfileString("HY", "cn", "cn", buff, 320, App.Path & "\config.ini")


cn = buff

buff = String(320, 0)
ret = GetPrivateProfileString("HY", "cpfs", "cpfs", buff, 320, App.Path & "\config.ini")
cpfs = CInt(buff)

buff = String(320, 0)
ret = GetPrivateProfileString("HY", "cpsd", "cpsd", buff, 320, App.Path & "\config.ini")
cpsd = CInt(buff)

buff = String(320, 0)
ret = GetPrivateProfileString("HY", "tlsj", "tlsj", buff, 320, App.Path & "\config.ini")
tlsj = CInt(buff)

buff = String(320, 0)
ret = GetPrivateProfileString("HY", "tcfs", "tcfs", buff, 320, App.Path & "\config.ini")
tcfs = CInt(buff)


'一下是获取窗口号信息
buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck1", "ck1", buff, 100, App.Path & "\config.ini")
ck1 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck2", "ck2", buff, 100, App.Path & "\config.ini")
ck2 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck3", "ck3", buff, 100, App.Path & "\config.ini")
ck3 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck4", "ck4", buff, 100, App.Path & "\config.ini")
ck4 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck5", "ck5", buff, 100, App.Path & "\config.ini")
ck5 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck6", "ck6", buff, 100, App.Path & "\config.ini")
ck6 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck7", "ck7", buff, 100, App.Path & "\config.ini")
ck7 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck8", "ck8", buff, 100, App.Path & "\config.ini")
ck8 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck9", "ck9", buff, 100, App.Path & "\config.ini")
ck9 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck10", "ck10", buff, 100, App.Path & "\config.ini")
ck10 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck11", "ck11", buff, 100, App.Path & "\config.ini")
ck11 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck12", "ck12", buff, 100, App.Path & "\config.ini")
ck12 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck13", "ck13", buff, 100, App.Path & "\config.ini")
ck13 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck14", "ck14", buff, 100, App.Path & "\config.ini")
ck14 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck15", "ck15", buff, 100, App.Path & "\config.ini")
ck15 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck16", "ck16", buff, 100, App.Path & "\config.ini")
ck16 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck17", "ck17", buff, 100, App.Path & "\config.ini")
ck17 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck18", "ck18", buff, 100, App.Path & "\config.ini")
ck18 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck19", "ck19", buff, 100, App.Path & "\config.ini")
ck19 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck20", "ck20", buff, 100, App.Path & "\config.ini")
ck20 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck21", "ck21", buff, 100, App.Path & "\config.ini")
ck21 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck22", "ck22", buff, 100, App.Path & "\config.ini")
ck22 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck23", "ck23", buff, 100, App.Path & "\config.ini")
ck23 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck24", "ck24", buff, 100, App.Path & "\config.ini")
ck24 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck25", "ck25", buff, 100, App.Path & "\config.ini")
ck25 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck26", "ck26", buff, 100, App.Path & "\config.ini")
ck26 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck27", "ck27", buff, 100, App.Path & "\config.ini")
ck27 = buff

buff = String(100, 0)
ret = GetPrivateProfileString("HY", "ck28", "ck28", buff, 100, App.Path & "\config.ini")
ck28 = buff

'Dim ck(28) As String
ck(0) = ""
ck(1) = ck1
ck(2) = ck2
ck(3) = ck3
ck(4) = ck4
ck(5) = ck5
ck(6) = ck6
ck(7) = ck7
ck(8) = ck8
ck(9) = ck9
ck(10) = ck10
ck(11) = ck11
ck(12) = ck12
ck(13) = ck13
ck(14) = ck14
ck(15) = ck15
ck(16) = ck16
ck(17) = ck17
ck(18) = ck18
ck(19) = ck19
ck(20) = ck20
ck(21) = ck21
ck(22) = ck22
ck(23) = ck23
ck(24) = ck24
ck(25) = ck25
ck(26) = ck26
ck(27) = ck27
ck(28) = ck28

Dim rtn
  rtn = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)
  
  Labjh.FontSize = CInt(nrfont)
  labyw.FontSize = CInt(btfont)
  
  

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
End
End If

End Sub

Private Sub I4_Click()

End Sub


Private Sub T_pd_Change(Index As Integer)

gkh = Format(Mid(T_pd.Item(Index).Text, 4, 4), "0000")
ckh = Format(Mid(T_pd.Item(Index).Text, 1, 2), "00")
labyw.Caption = ck(CInt(ckh))
Labjh.Caption = "请" & gkh & "号办理业务"
'sleep (100)

Timer2.Enabled = True

'BtnSendPicture_Click

End Sub

Private Sub Timer1_Timer()

Dim sql_a As String
Dim i As Integer
Dim a1, a2 As String

'cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Program Files\平安排队管理系统\ChinaQueue.mdb;Persist Security Info=False"


sql_a = "SELECT counterNo AS 柜台号码, countername AS 柜台名称, customerNo AS 顾客号码, CustomerStatus AS 状态, customermemo AS 业务名称 FROM counters AS A, bussiness AS B Where a.currentcustomerID = b.serialcode order by b.starttime" ' desc"

Adodc1.ConnectionString = cn
Adodc1.RecordSource = sql_a
Adodc1.Refresh


Do While Not Adodc1.Recordset.EOF

If Adodc1.Recordset.Fields!柜台号码 < 10 Then
a1 = "0" & CStr(Adodc1.Recordset.Fields!柜台号码)
Else
a1 = CStr(Adodc1.Recordset.Fields!柜台号码)
End If

a2 = Adodc1.Recordset.Fields!顾客号码

T_pd.Item(i).Text = a1 & " " & a2
Adodc1.Recordset.MoveNext

i = i + 1



Loop




End Sub

Private Sub Timer2_Timer()
Static n As Integer
If n = 1 Then
n = 0

BtnSendPicture_Click
Timer2.Enabled = False
End If
n = n + 1

'BtnSendPicture_Click
End Sub