form3.frm

触摸屏多媒体查询程序

      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   18
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1335
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   8775
   End
End
Attribute VB_Name = "Form3"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim t As Integer

Private Sub Command1_Click()
dis
label1.Caption = "１、持本人身份证到牌证业务大厅领填《驾驶员登记表》、《以运代训表》。 "
label2.Caption = "２、到驾驶员适应性能检测中心进行体检，到牌证业务大厅２号窗口交纳学费，交回相应业务窗口,领取学习驾驶证。  "
label3.Caption = "３、领到学习驾驶证后，到考验科报名学习。   "
label4.Caption = "  "
label5.Caption = " "

End Sub

Private Sub Command10_Click()
t = 0
Beep
  command1.Visible = True
  command2.Visible = True
  command3.Visible = True
  command4.Visible = True
  command5.Visible = True
  command6.Visible = True
  command7.Visible = True
  command8.Visible = True
  command9.Visible = True
  command10.Visible = False
  'command10.Visible = True
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
'label6.Caption = ""
'label7.Caption = ""
'label8.Caption = ""
'label9.Caption = ""

  

End Sub

Private Sub Command2_Click()
dis
label2.Caption = "１、持本人正式驾驶证到交警支队牌证业务大厅领填《机动车驾驶员申请增加驾驶车类考试登记表》。 "
label3.Caption = "２、持填好的《登记表》到相应业务窗口，经审核后交费，再凭发票签办增驾记录。  "
label4.Caption = "３、到驾驶员培训中心报名学习，参加考核。   "
label1.Caption = "  "
label5.Caption = " "


End Sub

Private Sub Command3_Click()
dis
label2.Caption = "１、持技术档案到牌证业务大厅，同时出具工作关系、户口关系转入证明、身份证、单位或街道、居（村）委会介绍信，领填《驾驶员登记表》"
label4.Caption = "２、到交警支队驾驶员适应性能检测中心进行体检，到考验科进行相应科目考试后，到业务窗口领取驾驶证，同时办理IC卡。   "
label1.Caption = "  "
label3.Caption = " "
label5.Caption = " "


End Sub

Private Sub Command4_Click()
dis
label2.Caption = "１、持技术档案，军退安置办介绍信，接收单位或街道、居（村）委会介绍信、本人身份证到牌证业务大厅，领填《驾驶员登记表》、《报考表》。 "
label3.Caption = "２、到驾驶适应性能检测中心进行体检。  "
label4.Caption = "３、持军队或武警驾驶证到考验科报名参加考试。   "
label1.Caption = "  "
label5.Caption = "  "


End Sub

Private Sub Command5_Click()
dis
label2.Caption = "１、持《实习驾驶证》到交警支队牌证业务大厅领填《实习转职业鉴定表》。   "
label4.Caption = "２、到驾驶适应性能检测中心进行体检，回相应业务窗口领取驾驶证,同时办理IC卡。  "
label1.Caption = "  "
label3.Caption = " "
label5.Caption = " "


End Sub

Private Sub Command6_Click()
dis
label1.Caption = "１、持外籍（含港、澳、台）有效驾驶证到牌证业务大厅领填《驾驶员登记表》。   "
label2.Caption = "２、到驾驶适应性能检测中心体检。  "
label3.Caption = "３、出示接待（收）单位介绍信或外事部门有关证明，翻译成中文的驾驶记录。 "
label4.Caption = "４、学习有关中国交通法规及驾驶常识，到考验科进行道路驾驶考试。"
label5.Caption = " "


End Sub

Private Sub Command7_Click()
dis
label2.Caption = "１、分别出具驾驶证、工作关系转出证明、户口关系转出证明、身份证、单位、街道委会介绍信。   "
label4.Caption = "２、经审核合格后，到相应窗口等待领取密封的驾驶员技术档案，携带给新籍车辆管理部门。  "
label1.Caption = " "
label3.Caption = " "
label5.Caption = " "


End Sub

Private Sub Command8_Click()
dis
label2.Caption = "１、由本人持身份证到牌证业务大厅领填《牌、证补发申请表》。   "
label3.Caption = "２、到所属单位、街道、（村）委会、保卫部门（派出所）签章，到白塔交警大队办理广告登记。  "
label4.Caption = "３、将《补发表》交回相应窗口。 "
label1.Caption = " "
label5.Caption = " "


End Sub

Private Sub Command9_Click()
Beep
Form1.Show
Form3.Hide
t = 0
End Sub

Private Sub dis()
Beep
  t = 0
  command1.Visible = False
  command2.Visible = False
  command3.Visible = False
  command4.Visible = False
  command5.Visible = False
  command6.Visible = False
  command7.Visible = False
  command8.Visible = False
  command9.Visible = False
  command10.Visible = True
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
'label6.Caption = ""
'label7.Caption = ""
'label8.Caption = ""
'label9.Caption = ""

  

End Sub

Private Sub Form_Load()
command1.Caption = "怎样办理学习驾驶证"
command2.Caption = "怎样办理增驾手续"
command3.Caption = "怎样办理外地驾驶员转入手续"
command4.Caption = "怎样办理军转驾驶证手续"
command5.Caption = "怎样办理驾驶员转正手续"
command6.Caption = "怎样办理外籍驾驶员领中国驾驶证"
command7.Caption = "怎样办理正式驾驶员转出手续"
command8.Caption = "怎样办理驾驶证补发手续"
  command1.Visible = True
  command2.Visible = True
  command3.Visible = True
  command4.Visible = True
  command5.Visible = True
  command6.Visible = True
  command7.Visible = True
  command8.Visible = True
  command9.Visible = True
  command10.Visible = False
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
'label6.Caption = ""
'label7.Caption = ""
'label8.Caption = ""
'label9.Caption = ""

End Sub

Private Sub Ret()
Beep
  command1.Visible = True
  command2.Visible = True
  command3.Visible = True
  command4.Visible = True
  command5.Visible = True
  command6.Visible = True
  command7.Visible = True
  command8.Visible = True
  command9.Visible = True
  command10.Visible = False
  'command10.Visible = True
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
'label6.Caption = ""
'label7.Caption = ""
'label8.Caption = ""
'label9.Caption = ""


End Sub

Private Sub SSCommand1_Click()
dis
label1.Caption = "1.持本人身份证到牌证业务大厅领填<<驾驶员登记表>>.<<以运代训表>>.   "
label2.Caption = "2.到驾驶员适应性能检测中心进行体检,到牌证业务大厅2号窗口交纳学费,交回相应业务窗口,领取学习驾驶证.  "
label3.Caption = "3.领到学习驾驶证后, 到考验科报名学习.   "
label4.Caption = "  "
label5.Caption = " "

End Sub

Private Sub SSCommand10_Click()
t = 0
Beep
  command1.Visible = True
  command2.Visible = True
  command3.Visible = True
  command4.Visible = True
  command5.Visible = True
  command6.Visible = True
  command7.Visible = True
  command8.Visible = True
  command9.Visible = True
  command10.Visible = False
  'command10.Visible = True
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
'label6.Caption = ""
'label7.Caption = ""
'label8.Caption = ""
'label9.Caption = ""

End Sub

Private Sub SSCommand2_Click()
dis
label1.Caption = "1.持本人 正式驾驶证到交警支队牌证业务大厅领填<<机动车驾驶员申请增加驾驶车类考试登记表>>.     "
label2.Caption = "2.持填好的<<登记表>>到相应业务窗口,经审核后交费,再凭发票签办增驾记录.  "
label3.Caption = "3.到驾驶员培训中心报名学习,参加考核.   "
label4.Caption = "  "
label5.Caption = " "

End Sub

Private Sub SSCommand3_Click()
dis
label1.Caption = "1.持技术档案到牌证业务大厅,同时出具工作关系,户口关系转入证明.身份证.单位或街道.居(村)委会介绍信,领填<<驾驶员登记表>>.   "
label2.Caption = "2.到义警支队驾驶员适应性能检测中心进行体检,到考验科进行相应科目考试后,到业务窗口领取驾驶证,同时办理IC卡.   "
label3.Caption = "  "
label4.Caption = " "
label5.Caption = " "

End Sub

Private Sub SSCommand4_Click()
dis
label1.Caption = "1.持技术档案,军退安置办介绍信,接收单位或街道.居(村)委会介绍信.本人身份证到牌证业务大厅,领填<<驾驶员登记表>>.<<报考表>>. "
label2.Caption = "2.到驾驶适应性能检测中心进行体检.  "
label3.Caption = "3.持军队或武警驾驶证到考验科报名参加考试.   "
label4.Caption = "  "
label5.Caption = "  "

End Sub

Private Sub SSCommand5_Click()
dis
label1.Caption = "1.持<<实习驾驶证>>到交警支队 牌证业务大厅领填<<实习转职业鉴定表>>.   "
label2.Caption = "2.到驾驶适应性能检测中心进行体检,回相应业务窗口领取驾驶证,同时办理IC卡.  "
label3.Caption = "  "
label4.Caption = " "
label5.Caption = " "


End Sub

Private Sub SSCommand6_Click()
dis
label1.Caption = "1.持外籍(含港.澳,台)有效驾驶证到牌证业务大厅领填<<驾驶员登记表>>.   "
label2.Caption = "2.到驾驶适应性检测中心体检.  "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "

End Sub

Private Sub SSCommand7_Click()
dis
label1.Caption = "1.分别出具驾驶证.工作关系转出证明.户口关系转出证明.身份证.单位.街道委会介绍信.   "
label2.Caption = "2.经审核合格后,到相应窗口等待领取密封的驾驶员技术档案,携带给新籍车辆管理部门.  "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "

End Sub

Private Sub SSCommand8_Click()
dis
label1.Caption = "1.由本人 持身份证到牌证业务大厅领填<<牌.证补发申请表>>.   "
label2.Caption = "2.到所属单位.街道.(村)委会.保卫部门(派出所)签章,到白塔交警大队办理广告登记.  "
label3.Caption = "3.将<<补发表>>交回相应 窗口. "
label4.Caption = " "
label5.Caption = " "

End Sub

Private Sub SSCommand9_Click()
Beep
Form1.Show
Form3.Hide
t = 0

End Sub

Private Sub Timer1_Timer()
    t = t + 1
    If t >= 4 Then
    Beep
    'Ret
    Form1.Show
    Form3.Hide
    t = 0
End If

End Sub