form2.frm

触摸屏多媒体查询程序

      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Label5"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   13.5
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   240
      TabIndex        =   5
      Top             =   3240
      Width           =   9015
   End
   Begin VB.Label Label4 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Label4"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   13.5
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   240
      TabIndex        =   4
      Top             =   2520
      Width           =   9015
   End
   Begin VB.Label Label3 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Label3"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   13.5
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   240
      TabIndex        =   3
      Top             =   1800
      Width           =   9015
   End
   Begin VB.Label Label2 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Label2"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   13.5
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   240
      TabIndex        =   2
      Top             =   1080
      Width           =   9135
   End
   Begin VB.Label Label1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   13.5
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   735
      Left            =   240
      TabIndex        =   1
      Top             =   360
      Width           =   9015
   End
End
Attribute VB_Name = "Form2"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim t As Integer










 Private Sub dis()
  t = 0
  SSCommand1.Visible = False
  SSCommand2.Visible = False
  SSCommand3.Visible = False
  SSCommand4.Visible = False
  SSCommand5.Visible = False
  SSCommand6.Visible = False
  SSCommand7.Visible = False
  SSCommand9.Visible = True
  SSCommand8.Visible = False

End Sub

Private Sub Form_Load()
t = 0
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = " "
label5.Caption = " "
label6.Caption = ""
label7.Caption = ""
label8.Caption = ""
label9.Caption = ""
'label10.Caption = ""
SSCommand9.Visible = False
End Sub

Private Sub Ret()
  command1.Visible = True
  command2.Visible = True
  command3.Visible = True
  command4.Visible = True
  command5.Visible = True
  command6.Visible = True
  command7.Visible = True
  command9.Visible = False
  command8.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
Beep
label1.Caption = "１、到牌证业务大厅领取《机动车登记申请表》、《数据采集单》。"
label2.Caption = "２、拓印发动机号、车架号钢印。  "
label3.Caption = "３、到检测场检车。   "
label4.Caption = "４、办理保险，出具“保险凭证”。 "
label5.Caption = "５、办理购置附加费缴、免凭证。   "
label6.Caption = "６、到‘控办’办理《非生产性汽车准购证》；中外合资企业须外经委签发的“准购证明”及营业执照副本原件、复印件；调拨车辆须持调拨单。  "
label7.Caption = "７、出具产品合格证（含底盘合格证）、《海关货物进口证明书》、商检单。   "
label8.Caption = "８、办理发票工商验证。  "
label9.Caption = "９、公有车辆持单位介绍信；私有车辆还须持本人身份证。  "
  SSCommand1.Visible = False
  SSCommand2.Visible = False
  SSCommand3.Visible = False
  SSCommand4.Visible = False
  SSCommand5.Visible = False
  SSCommand6.Visible = False
  SSCommand7.Visible = False
  SSCommand9.Visible = True
  SSCommand8.Visible = False

End Sub

Private Sub SSCommand2_Click()
dis
 Beep
label1.Caption = "１、持行驶证到牌证业务大厅领取《过户表》。   "
label2.Caption = "２、到检测场检车。     "
label3.Caption = "３、办理保险，出具《保险凭证》。      "
label4.Caption = "４、缴纳交易税。     "
label5.Caption = "５、到 “控办”办理《非生产性汽车准购证》；中外合资企业须外经委签发的“准购证明”，并出具营业执照副本原件及复印件。 "
label6.Caption = "６、持买、卖双方介绍信；私有车还须持身份证。  "
label7.Caption = " "
label8.Caption = " "
label9.Caption = " "

End Sub

Private Sub SSCommand3_Click()
Beep
dis
label1.Caption = "１、持档案到牌证业务大厅领取《机动车登记申请表》，《数据采集单》。"
label2.Caption = "２、拓印发动机号，车架号钢印。  "
label3.Caption = "３、到检测场检车。   "
label4.Caption = "４、办理保险，出具“保险凭证”。 "
label5.Caption = "５、到“控办”办理《非生产性汽车准购证》，中外合资企业须外经委签发的“准购证明”，营业执照副本原件及复印件。"
label6.Caption = "６、公有车辆持单位介绍信，私有车辆还须持车主身份证。"
label7.Caption = "  "
label8.Caption = " "
label9.Caption = " "

End Sub

Private Sub SSCommand4_Click()
dis
Beep
label1.Caption = "１、持行驶证到牌证业务大厅领取《过户表》。   "
label2.Caption = "２、到检测场检车。    "
label3.Caption = "３、缴纳交易税。    "
label4.Caption = "４、持买、卖双方介绍信，私有车还须持本人身份证。      "
label5.Caption = "５、缴回号牌和行驶证。   "
label6.Caption = "  "
label7.Caption = "  "
label8.Caption = " "
label9.Caption = ""
End Sub

Private Sub SSCommand5_Click()
Beep
dis
label1.Caption = "１、持行驶证到牌证业务大厅领填《报废审批申请表》。  "
label2.Caption = "２、公有车持本单位介绍信；私有车持街道或居（村）委会介绍信，车主身份证。 "
label3.Caption = "３、缴回号牌和行驶证。  "
label4.Caption = "４、将申请报废车辆送交交警指定的金属回收公司，金属回收部门在《报废审批申请表》签章，并签注《报废车辆回收证明》。 "
label5.Caption = "５、将《报废审批申请表》和《报废车辆回收证明》交回业务窗口，加盖业务章后，报废生效。   "
label6.Caption = "  "
label7.Caption = "  "
label8.Caption = " "
label9.Caption = " "

End Sub

Private Sub SSCommand6_Click()
dis
     Beep
label1.Caption = "１、持行驶证、单位或街道委员会介绍信到牌证业务大厅领填《机动车变更、改装申请表》。     "
label2.Caption = "２、办理车主住址等变更手续时，须有原、新住地街道或派出所的相关证明。  "
label3.Caption = "３、办理改装手续时，将填好的《机动车改装申请表》和介绍信交回相应的业务窗口审批后，按照审批事项进行改装，改装后须将改换总表交"
label4.Caption = "回统一处理。    "
label5.Caption = "   "
label6.Caption = "  "
label7.Caption = "   "
label8.Caption = "  "
label9.Caption = "  "

End Sub

Private Sub SSCommand7_Click()
dis
Beep
label1.Caption = "１、由车主持本人身份证、单位介绍信到牌证业务大厅领取牌、证补发申请表.   "
label2.Caption = "２、到所属单位、街道或居（村）委会、保卫部门（派出所）签章，到白塔交警大队一楼办理广告登记。  "
label3.Caption = "３、将牌、证补发申请表交回相应窗口。   "
label4.Caption = " "
label5.Caption = ""
label6.Caption = " "
label7.Caption = " "
label8.Caption = ""
label9.Caption = " "

End Sub

Private Sub SSCommand8_Click()
Beep
Form2.Hide
Form1.Show
Form2.Hide

End Sub

Private Sub SSCommand9_Click()
t = 0
Beep
  SSCommand1.Visible = True
  SSCommand2.Visible = True
  SSCommand3.Visible = True
  SSCommand4.Visible = True
  SSCommand5.Visible = True
  SSCommand6.Visible = True
    SSCommand7.Visible = True
    SSCommand9.Visible = False
    SSCommand8.Visible = True
label1.Caption = ""
label2.Caption = " "
label3.Caption = " "
label4.Caption = "  "
label5.Caption = "   "
label6.Caption = "  "
label7.Caption = "  "
label8.Caption = " "
label9.Caption = " "

End Sub

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