form2.frm

停车场收费系统

        If i >= 5 Then
        Else
        .Col = .Col + 1
        End If
       Next i
      
      
     End With

'      PortOut = PortOut Or &H4
'      OUTPORT
'      For i = 0 To 10000
'        DoEvents
'      Next i
'      PortOut = PortOut And &HFB
'      OUTPORT
End If
End Sub

Private Sub Timer1_Timer()
   Dim i As Integer
   SSPanel3.Caption = Now
'      If FkTime > 8 Then
'        FkTime = 0
'
'    Else
'        FkTime = FkTime + 1
'    End If
'    INPORT
'    i = PortIn And &H4
'    If i = 4 And dgb = 0 Then
'        tkb0 = 0
'    End If
'    dgb = i
End Sub
Private Sub INPORT() '读入端口值
'    Dim Result As Boolean
'    Dim PortVal As Long
'    Result = GetPortVal(&H304, PortVal, 1)
'    If Result = False Then
'        MsgBox "   ", vbOKOnly + vbCritical, "VBDUMPPORT32"
'        Unload frmMain
'    Else
'        PortIn = PortVal And &HFF
'    End If
End Sub
Private Sub OUTPORT() '发送端口值
'    Dim Result As Boolean
'    Result = SetPortVal(&H300, PortOut, 1)
'    If Result = False Then
'        MsgBox "   ", vbOKOnly + vbCritical, "VBDUMPPORT32"
'        Unload frmMain
'    End If
End Sub
Private Sub Command10_Click()

name1(0) = Trim(Str(kNOb0))
name1(1) = Format(Date, "yyyymmdd")
    '"入场日期"
 name1(2) = Format(Time, "hhmmss")
    '"入场时间"
   
name1(4) = sfno ' Str(nobuf)
name1(5) = CpuName
name1(3) = "临时卡"
'表格显示
sqlstr = "select * from 收费表 where 卡片编号=" + str1(name1(0))
Set rs2 = ExecuteSQL(sqlstr, MsgStr)
If rs2.RecordCount > 0 Then
       sqlstr = "delete from 收费表 where 卡片编号=" + str1(name1(0))
       Set rs2 = ExecuteSQL(sqlstr, MsgStr)
Else
   sqlstr = "select * from 月卡表 where 卡片编号=" + str1(name1(0))
   Set rs2 = ExecuteSQL(sqlstr, MsgStr)
   If rs2.RecordCount > 0 Then
      name1(3) = "月卡"
   End If
End If
With MSFlexGrid1
        
      
      m = 7
      For j = 1 To 7
       .Col = 1
       .Row = m
       For i = 1 To 5
        name0(i) = .Text
        If i >= 5 Then
        Else
        .Col = .Col + 1
        End If
       Next i
       .Row = .Row + 1
       .Col = 1
       For i = 1 To 5
        .Text = name0(i)
        If i >= 5 Then
        Else
        .Col = .Col + 1
        End If
       Next i
       m = m - 1
       If m = 0 Then j = 9
      Next j
       
       .Row = 1
       .Col = 1
       'For i = 1 To 5
        '.Text = name1(i - 1)
        'If i >= 5 Then
        'Else
        '.Col = .Col + 1
        'End If
       'Next i
      .Text = name1(0)
      .Col = .Col + 1
      .Text = Left(Trim(name1(1)), 4) + "-" + Mid(Trim(name1(1)), 5, 2) + "-" + Mid(Trim(name1(1)), 7, 2)
      .Col = .Col + 1
      .Text = Left(Trim(name1(2)), 2) + ":" + Mid(Trim(name1(2)), 3, 2) + ":" + Mid(Trim(name1(2)), 5, 2)
      .Col = .Col + 1
      .Text = name1(3)
      .Col = .Col + 1
      .Text = name1(4)
            
     End With

   
    mn = Trim(Winsock1.LocalHostName) + Trim(Trim(name1(1)) + Trim(name1(2)) + Trim(".jpg"))
   sqlstr = "insert 收费表 (入场日期,入场时间,卡片编号,持卡类型,入口操作员,入口道号,入场图片) values (" & _
             str1(name1(1)) + "," + str1(name1(2)) + "," & _
             str1(name1(0)) + "," + str1(name1(3)) + "," + str1(name1(4)) + "," & _
             str1(Winsock1.LocalHostName) + "," + str1(mn) + ")"
  'Text1.Text = sqlstr
   Set rs2 = ExecuteSQL(sqlstr, MsgStr)
   SDK1.SaveImageToJpg App.Path + "\image\" + mn, 40
End Sub
Private Sub Command11_Click()
Dim lg As Integer
    h = 0
    m = 0
    name1(0) = Trim(Str(kNOb1))
    'name1(0) = Trim(Text16.Text)
    Name8(4) = name1(0)
    name1(3) = Trim("临时卡")
    
   
    Name8(0) = "0"
    Name8(1) = "0"
    For i = 2 To 14
        Name8(i) = ""
    Next i
    Name8(4) = name1(0)
    name1(1) = Trim(Format(Date, "yyyymmdd"))
    Name8(2) = name1(1)
    '出场日期"
    name1(2) = Trim(Format(Time, "hhmmss"))
    Name8(3) = name1(2)
    '"出场时间"
  'yun0, yun00, yun1, yun20, yun21, yun22, yun30, yun31, yun32, yun40
   sqlstr = "select * from 收费表 where 卡片编号=" + str1(name1(0))
   Set rs2 = ExecuteSQL(sqlstr, MsgStr)
   If rs2.RecordCount > 0 Then
      tem = rs2.Fields("入场时间")
      Name8(0) = tem
      tupian = rs2.Fields("入场图片")
      yun0 = Val(tem)
      yun1 = Val(name1(2))
      yun00 = yun1 - yun0
      name1(3) = Trim("临时卡")
    Else
     yun00 = 3 '固定的钱数
     name1(3) = Trim("临时卡")
   End If
    With MSFlexGrid2
      .Col = 1
      .Row = 0
      .Text = name1(0) ' "卡片编号:"
      .Row = 1
      .Text = Left(Trim(Name8(0)), 4) + "-" + Mid(Trim(Name8(0)), 5, 2) + "-" + Mid(Trim(Name8(0)), 7, 2) + " " + stt1 + ":" + stt10 + ":" + stt11 '+ Left(Trim(Name8(1)), 2) + ":" + Mid(Trim(Name8(1)), 3, 2) + ":" + Mid(Trim(Name8(1)), 5, 2) 'str1 + "-" + str10 + "-" + str11 + " " + stt1 + ":" + stt10 + ":" + stt11 ' "入场时间:"
      .Row = 2
      .Text = Left(Trim(Name8(2)), 4) + "-" + Mid(Trim(Name8(2)), 5, 2) + "-" + Mid(Trim(Name8(2)), 7, 2) + " " + Left(Trim(Name8(3)), 2) + ":" + Mid(Trim(Name8(3)), 3, 2) + ":" + Mid(Trim(Name8(3)), 5, 2) 'str2 + "-" + str20 + "-" + str21 + " " + stt2 + ":" + stt20 + ":" + stt21  ' "出场时间:"
      
      .Row = 4
      .Text = name1(3) ' "持卡类型:"
           yun30 = Str(yun00 \ 10000)
           yun31 = Str((yun00 \ 100) - (yun00 \ 10000) * 100)
           yun32 = Str(yun00 - (yun00 \ 10000) * 10000 - ((yun00 \ 100) - (yun00 \ 10000) * 100) * 100)
      
      If name1(3) = "临时卡" Then
         .Row = 3
'           yun30 = Str(yun00 \ 10000)
'           yun31 = Str((yun00 \ 100) - (yun00 \ 10000) * 100)
'           yun32 = Str(yun00 - (yun00 \ 10000) * 10000 - ((yun00 \ 100) - (yun00 \ 10000) * 100) * 100)
           If yun30 > 0 Then
            .Text = Val(yun30) * 3 ' "应收金额:"
             Text13.Text = Val(yun30) * 3
           Else
            .Text = 3  ' "应收金额:"
            Text13.Text = 3
           End If
        .Row = 5
        .Text = "" ' "车主姓名:"
        .Row = 6
        .Text = "" ' "车牌号码:"
        .Row = 7
        .Text = ""   ' "车身颜色:"
        .Row = 8
         If yun30 < 10 Then yun30 = "0" + yun30
         If yun31 < 10 Then yun31 = "0" + yun31
         If yun32 < 10 Then yun32 = "0" + yun32
        .Text = yun30 + ":" + yun31 + ":" + yun32 'Str(h) + ":" + Str(m) ' "停车时间"
        Sk1
      Else
      
        .Row = 3
        .Text = 0 ' "应收金额:"
        .Row = 5
       ' .Text = Text3(1).Text ' "车主姓名:"
        .Row = 6
      '  .Text = Text3(2).Text ' "车牌号码:"
        .Row = 7
      '  .Text = Text3(3).Text ' "车身颜色:"
        .Row = 8
         If yun30 < 10 Then yun30 = "0" + yun30
         If yun31 < 10 Then yun31 = "0" + yun31
         If yun32 < 10 Then yun32 = "0" + yun32
        .Text = yun30 + ":" + yun31 + ":" + yun32
        Tk1
      End If
    End With
      icflag = 1
    '  playsound1 Text13.Text
      On Error Resume Next
      Image3.Picture = LoadPicture(App.Path + "\image\" + tupian)
      mn = Trim(Winsock1.LocalHostName) + Trim(Trim(name1(1)) + Trim(name1(2)) + Trim(".jpg"))
     sqlstr = "update 收费表 set 出场日期=" + str1(name1(1)) & _
     ", 出场时间=" + str1(name1(2)) + ", 出口操作员=" + str1(sfno) + ",出口道号=" + str1(Winsock1.LocalHostName) + ",出场图片=" + str1(mn) & _
     " where 卡片编号=" + str1(name1(0))
     Text1.Text = sqlstr
     Set rs2 = ExecuteSQL(sqlstr, MsgStr)
     SDK2.SaveImageToJpg App.Path + "\image\" + mn, 40
     Text15.SetFocus


      
End Sub


Private Sub Timer2_Timer()

    If Fkrdb = 5 Then
        readk0
    Else
        Timer2.Enabled = False
    End If

End Sub

Private Sub Timer3_Timer()

    If Skrdb = 5 Then
        readk1
    Else
        Timer3.Enabled = False
    End If

End Sub
Private Sub playsound1(strtem As String)
Dim bai As Integer
Dim shi As Integer
Dim ge As Integer
Dim x As String

  
  x = Trim(strtem)
  bai = Int(x / 100)
  shi = Int((x - bai * 100) / 10)
  ge = x - bai * 100 - shi * 10
  
  If bai > 0 Then
       If bai = 1 Then
           i = sndPlaySound(App.Path + "\1.wav", 1)
       End If
  
       If bai = 2 Then
           i = sndPlaySound(App.Path + "\2.wav", 1)
       End If
     
       If bai = 3 Then
           i = sndPlaySound(App.Path + "\3.wav", 1)
       End If
     
       If bai = 4 Then
           i = sndPlaySound(App.Path + "\4.wav", 1)
       End If
     
       If bai = 5 Then
           i = sndPlaySound(App.Path + "\5.wav", 1)
       End If
       
       If bai = 6 Then
           i = sndPlaySound(App.Path + "\6.wav", 1)
       End If
     
      If bai = 7 Then
           i = sndPlaySound(App.Path + "\7.wav", 1)
      End If
     
      Sleep (620)
  
       i = sndPlaySound(App.Path + "\百.wav", 1)
       
       Sleep (680)
  End If
  

 
 
     If bai > 0 Then
          If shi = 0 And ge > 0 Then
            i = sndPlaySound(App.Path + "\零.wav", 1)
            Sleep (600)
          End If
     End If
              If shi = 1 Then
                   i = sndPlaySound(App.Path + "\1.wav", 1)
              End If
 
              If shi = 2 Then
                   i = sndPlaySound(App.Path + "\2.wav", 1)
              End If
 
              If shi = 3 Then
                    i = sndPlaySound(App.Path + "\3.wav", 1)
              End If
      
              If shi = 4 Then
                    i = sndPlaySound(App.Path + "\4.wav", 1)
             End If
      
             If shi = 5 Then
                    i = sndPlaySound(App.Path + "\5.wav", 1)
             End If
      
             If shi = 6 Then
                    i = sndPlaySound(App.Path + "\6.wav", 1)
             End If
      
             If shi = 7 Then
                    i = sndPlaySound(App.Path + "\7.wav", 1)
             End If
      
             If shi = 8 Then
                   i = sndPlaySound(App.Path + "\8.wav", 1)
             End If
      
             If shi = 9 Then
                  i = sndPlaySound(App.Path + "\9.wav", 1)
             End If
             
        If shi > 0 Then
           Sleep (680)
              i = sndPlaySound(App.Path + "\10.wav", 1)
           Sleep (600)
       End If

    
     
 
      If ge = 1 Then
          i = sndPlaySound(App.Path + "\1.wav", 1)
      End If
 
      If ge = 2 Then
          i = sndPlaySound(App.Path + "\2.wav", 1)
      End If
 
      If ge = 3 Then
          i = sndPlaySound(App.Path + "\3.wav", 1)
      End If
      
      If ge = 4 Then
          i = sndPlaySound(App.Path + "\4.wav", 1)
      End If
      
      If ge = 5 Then
          i = sndPlaySound(App.Path + "\5.wav", 1)
      End If
      
      If ge = 6 Then
          i = sndPlaySound(App.Path + "\6.wav", 1)
      End If
      
      If ge = 7 Then
          i = sndPlaySound(App.Path + "\7.wav", 1)
      End If
      
      If ge = 8 Then
          i = sndPlaySound(App.Path + "\8.wav", 1)
      End If
      
      If ge = 9 Then
          i = sndPlaySound(App.Path + "\9.wav", 1)
      End If
      
     Sleep (900)
    i = sndPlaySound(App.Path + "\元.wav", 1)
     Sleep (600)

End Sub
Function str1(ByVal a As String) As String
str1 = "'" + Trim(a) + "'"
End Function