carinput.frm

GPS卫星定位系统相关源代码

      Width           =   1065
   End
   Begin VB.Label Label1 
      Caption         =   "请输入车号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   0
      TabIndex        =   4
      Top             =   210
      Width           =   1095
   End
End
Attribute VB_Name = "CarInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim s As String
If Text1.Text <> "" Then
   CarNum = Text1.Text
Else
   CarNum = DBList1.Text
End If
If AlermAnswer = True Then
   AlermAnswer = False
   Dim s1 As String
   AlertFlag = False        '}
   s1 = "]" & Chr(64) & CarNum
   Sleep (200)
   MDIMainForm.oComm1.Output = s1
   Sleep (200)
   MDIMainForm.oComm1.InBufferCount = 0
   'Send_Command = True
   'm_Mode = SINGLECALL
End If
If Change1_2 = True Then
   s = "]" & Chr(126) & CarNum
   Sleep (200)
   MDIMainForm.oComm1.Output = s
   Sleep (200)
   Change1_2 = False
End If
If Change2_1 = True Then
   's = "]" & Chr(126) & CarNum
   'Sleep (200)
   'MDIMainForm.oComm2.Output = s
   'Sleep (200)
   'Change2_1 = False
End If
Select Case dhh
       Case 1      '单呼
            Send_Command = True
            Select Case DHFLAG
                   
                   Case 2
                        Temp_Start_Date = Text3.Text
                        Temp_End_Date = Text4.Text
                   Case 3
                        Temp_Cishu = Combo1.Text
                        Temp_JianG = Combo2.Text
                   Case 5, 10, 11
                        Temp_Lisn_Tel = Text2.Text
                        
            End Select
            'm_Interval = Temp_HjTime
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            
            MDIMainForm.TimerCall.Enabled = False
            MDIMainForm.TimerCall.interval = 0
            MDIMainForm.oWorkMode.SingleCallInit
       Case 2     '解锁
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.UnLockCarInit
       Case 3     '锁车
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.LockCarInit
       Case 4    '停止？
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.StopCallinit
       Case 5     '监听
            Temp_Lisn_Tel = Text2.Text
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.JtInI
     
End Select
BJdhFLAG = False
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub DBList1_Click()
Text1.Text = DBList1.Text
End Sub

Private Sub DBList1_DblClick()
If Text1.Text <> "" Then
   CarNum = Text1.Text
Else
   CarNum = DBList1.Text
End If
   

Select Case dhh
       Case 1        'single  and queue  call
            Select Case DHFLAG
                   
                   Case 2  'replay
                        Temp_Start_Date = Text3.Text
                        Temp_End_Date = Text4.Text
                   Case 3   'sigle call
                        Temp_Cishu = Combo1.Text
                        Temp_JianG = Combo2.Text
                   Case 5, 10, 11  'tong hua '
                        Temp_Lisn_Tel = Text2.Text
                        
            End Select
            m_Interval = Temp_HjTime
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.SingleCallInit
       Case 2         'unlock
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.UnLockCarInit
       Case 3        ' lock
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.LockCarInit
       Case 4     'stop call
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.StopCallinit
       Case 5     'jianting ini
            Temp_Lisn_Tel = Text2.Text
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.JtInI
     
End Select
BJdhFLAG = False

End Sub


Private Sub Form_Load()
Dim i As Integer
Data1.DatabaseName = strPath + PATH_DBDATA

AlertFlag = False
w = 0
If dhh = 5 Then
   Label7.Caption = "监听回电话"
   Label7.Visible = True
   Text2.Visible = True
ElseIf dhh = 1 Then
    Select Case DHFLAG
                
             
       Case 2
                Label5.Visible = True
                Label6.Visible = True
                Text3.Visible = True
                Text4.Visible = True
                'For i = 1 To 31
                '    Combo3.AddItem CStr(i)
                'Next
                'For i = 1 To 31
                '    Combo4.AddItem CStr(i)
                'Next
       Case 3
                Label3.Visible = True
                Label4.Visible = True
                Combo1.Visible = True
                Combo2.Visible = True
                For i = 2 To 100
                    Combo1.AddItem CStr(i)
                Next
                For i = 5 To 50
                    Combo2.AddItem CStr(i)
                Next
       Case 5, 10, 11
                Label7.Caption = "电话号码"
                Label7.Visible = True
                Text2.Visible = True
 
    End Select
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Label5.Visible = False
Label6.Visible = False
Text3.Visible = False
Text4.Visible = False
Label3.Visible = False
Label4.Visible = False
Combo1.Visible = False
Combo2.Visible = False
Label7.Visible = False
Text2.Visible = False
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
   CarNum = Text1.Text
Select Case dhh
       Case 1
            Select Case DHFLAG
                   
                   Case 2
                        Temp_Start_Date = Text3.Text
                        Temp_End_Date = Text4.Text
                   Case 3
                        Temp_Cishu = Combo1.Text
                        Temp_JianG = Combo2.Text
                   Case 5, 10, 11
                        Temp_Lisn_Tel = Text2.Text
                                       
            End Select
                   
            m_Interval = Temp_HjTime
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.SingleCallInit
       Case 2
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.UnLockCarInit
       Case 3
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.LockCarInit
       Case 4
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.StopCallinit
       
       Case 5
            Temp_Lisn_Tel = Text2.Text
            Unload Me
            MDIMainForm.TimerCheck.Enabled = False
            MDIMainForm.TimerCheck.interval = 0
            MDIMainForm.oWorkMode.JtInI
            
            
End Select
End If
BJdhFLAG = False
End Sub