开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 文章/文档 > 软件设计/软件工程 > 查看源码
frmcarBFlr.frm
资源名称：0123..rar　[点击查看]
上传用户：naidiweb
上传日期：2013-08-15
资源大小：672k
文件大小：14k
源码类别：

软件设计/软件工程

开发平台：

WORD

frmcarBFlr.frm：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  4. Begin VB.Form frmcarBFlr 
  5.    BackColor       =   &H8000000A&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "车辆报废记录"
  8.    ClientHeight    =   2040
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   6690
  12.    LinkTopic       =   "Form8"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2040
  17.    ScaleWidth      =   6690
  18.    ShowInTaskbar   =   0   'False
  19.    Begin MSAdodcLib.Adodc Adodc1 
  20.       Height          =   330
  21.       Left            =   3210
  22.       Top             =   1110
  23.       Visible         =   0   'False
  24.       Width           =   1200
  25.       _ExtentX        =   2117
  26.       _ExtentY        =   582
  27.       ConnectMode     =   0
  28.       CursorLocation  =   3
  29.       IsolationLevel  =   -1
  30.       ConnectionTimeout=   15
  31.       CommandTimeout  =   30
  32.       CursorType      =   3
  33.       LockType        =   3
  34.       CommandType     =   1
  35.       CursorOptions   =   0
  36.       CacheSize       =   50
  37.       MaxRecords      =   0
  38.       BOFAction       =   0
  39.       EOFAction       =   0
  40.       ConnectStringType=   1
  41.       Appearance      =   1
  42.       BackColor       =   14737632
  43.       ForeColor       =   16711680
  44.       Orientation     =   0
  45.       Enabled         =   -1
  46.       Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  47.       OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clgl.mdb;Persist Security Info=False"
  48.       OLEDBFile       =   ""
  49.       DataSourceName  =   ""
  50.       OtherAttributes =   ""
  51.       UserName        =   ""
  52.       Password        =   ""
  53.       RecordSource    =   "select * from 车辆报废表"
  54.       Caption         =   "                车 辆 异 动 记 录 浏 览  "
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "宋体"
  57.          Size            =   10.5
  58.          Charset         =   134
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       _Version        =   393216
  65.    End
  66.    Begin VB.CommandButton cmdExit 
  67.       BackColor       =   &H80000004&
  68.       Caption         =   "退 出(&E)"
  69.       Height          =   330
  70.       Left            =   5610
  71.       Style           =   1  'Graphical
  72.       TabIndex        =   17
  73.       Top             =   1590
  74.       Width           =   935
  75.    End
  76.    Begin VB.CommandButton cmdCancel 
  77.       BackColor       =   &H80000004&
  78.       Caption         =   "取 消(&Q)"
  79.       Enabled         =   0   'False
  80.       Height          =   330
  81.       Left            =   4695
  82.       Style           =   1  'Graphical
  83.       TabIndex        =   16
  84.       Top             =   1590
  85.       Width           =   935
  86.    End
  87.    Begin VB.CommandButton cmdOk 
  88.       BackColor       =   &H80000004&
  89.       Caption         =   "确 定(&O)"
  90.       Enabled         =   0   'False
  91.       Height          =   330
  92.       Left            =   3780
  93.       Style           =   1  'Graphical
  94.       TabIndex        =   15
  95.       Top             =   1590
  96.       Width           =   935
  97.    End
  98.    Begin VB.Frame Frame1 
  99.       BackColor       =   &H8000000A&
  100.       Caption         =   "◆车辆报废记录◆"
  101.       BeginProperty Font 
  102.          Name            =   "宋体"
  103.          Size            =   10.5
  104.          Charset         =   134
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       ForeColor       =   &H80000001&
  111.       Height          =   1470
  112.       Left            =   105
  113.       TabIndex        =   2
  114.       Top             =   75
  115.       Width           =   6495
  116.       Begin VB.TextBox Text4 
  117.          BackColor       =   &H00E0E0E0&
  118.          Enabled         =   0   'False
  119.          Height          =   615
  120.          Left            =   4440
  121.          TabIndex        =   6
  122.          Top             =   667
  123.          Width           =   1815
  124.       End
  125.       Begin VB.TextBox Text3 
  126.          BackColor       =   &H00E0E0E0&
  127.          Enabled         =   0   'False
  128.          Height          =   285
  129.          Left            =   4440
  130.          TabIndex        =   5
  131.          Top             =   315
  132.          Width           =   1815
  133.       End
  134.       Begin VB.TextBox Text2 
  135.          BackColor       =   &H00E0E0E0&
  136.          Enabled         =   0   'False
  137.          Height          =   285
  138.          Left            =   1200
  139.          TabIndex        =   4
  140.          Top             =   667
  141.          Width           =   1815
  142.       End
  143.       Begin VB.TextBox Text1 
  144.          BackColor       =   &H00E0E0E0&
  145.          Enabled         =   0   'False
  146.          Height          =   285
  147.          Left            =   1200
  148.          TabIndex        =   3
  149.          Top             =   315
  150.          Width           =   1815
  151.       End
  152.       Begin MSComCtl2.DTPicker DTPicker1 
  153.          Height          =   285
  154.          Left            =   1200
  155.          TabIndex        =   18
  156.          Top             =   1020
  157.          Width           =   1815
  158.          _ExtentX        =   3201
  159.          _ExtentY        =   503
  160.          _Version        =   393216
  161.          Enabled         =   0   'False
  162.          Format          =   65994753
  163.          CurrentDate     =   38053
  164.       End
  165.       Begin VB.Label Label7 
  166.          BackColor       =   &H00C0C000&
  167.          BackStyle       =   0  'Transparent
  168.          Caption         =   "*"
  169.          ForeColor       =   &H000000FF&
  170.          Height          =   255
  171.          Left            =   1035
  172.          TabIndex        =   13
  173.          Top             =   1020
  174.          Width           =   255
  175.       End
  176.       Begin VB.Label Label6 
  177.          BackColor       =   &H00C0C000&
  178.          BackStyle       =   0  'Transparent
  179.          Caption         =   "*"
  180.          ForeColor       =   &H000000FF&
  181.          Height          =   135
  182.          Left            =   1065
  183.          TabIndex        =   12
  184.          Top             =   315
  185.          Width           =   255
  186.       End
  187.       Begin VB.Label Label5 
  188.          BackStyle       =   0  'Transparent
  189.          Caption         =   "备  注："
  190.          Height          =   255
  191.          Left            =   3480
  192.          TabIndex        =   11
  193.          Top             =   690
  194.          Width           =   855
  195.       End
  196.       Begin VB.Label Label4 
  197.          BackStyle       =   0  'Transparent
  198.          Caption         =   "经手人："
  199.          Height          =   255
  200.          Left            =   3480
  201.          TabIndex        =   10
  202.          Top             =   315
  203.          Width           =   735
  204.       End
  205.       Begin VB.Label Label3 
  206.          BackStyle       =   0  'Transparent
  207.          Caption         =   "报废原因："
  208.          Height          =   255
  209.          Left            =   90
  210.          TabIndex        =   9
  211.          Top             =   645
  212.          Width           =   1095
  213.       End
  214.       Begin VB.Label Label2 
  215.          BackStyle       =   0  'Transparent
  216.          Caption         =   "报废日期："
  217.          Height          =   255
  218.          Left            =   90
  219.          TabIndex        =   8
  220.          Top             =   975
  221.          Width           =   1095
  222.       End
  223.       Begin VB.Label Label1 
  224.          BackStyle       =   0  'Transparent
  225.          Caption         =   "车牌号码："
  226.          Height          =   255
  227.          Left            =   90
  228.          TabIndex        =   7
  229.          Top             =   315
  230.          Width           =   1095
  231.       End
  232.    End
  233.    Begin VB.CommandButton cmdFind 
  234.       BackColor       =   &H80000004&
  235.       Caption         =   "查询 (&F)"
  236.       Height          =   330
  237.       Left            =   2865
  238.       Style           =   1  'Graphical
  239.       TabIndex        =   19
  240.       Top             =   1590
  241.       Width           =   935
  242.    End
  243.    Begin VB.CommandButton cmdDelete 
  244.       BackColor       =   &H80000004&
  245.       Caption         =   "删 除(&D)"
  246.       Height          =   330
  247.       Left            =   1950
  248.       Style           =   1  'Graphical
  249.       TabIndex        =   14
  250.       Top             =   1590
  251.       Width           =   935
  252.    End
  253.    Begin VB.CommandButton cmdUpdate 
  254.       BackColor       =   &H80000004&
  255.       Caption         =   "修 改(&U)"
  256.       Height          =   330
  257.       Left            =   1035
  258.       Style           =   1  'Graphical
  259.       TabIndex        =   0
  260.       Top             =   1590
  261.       Width           =   935
  262.    End
  263.    Begin VB.CommandButton cmdAdd 
  264.       BackColor       =   &H80000004&
  265.       Caption         =   "添 加(&A)"
  266.       Height          =   330
  267.       Left            =   120
  268.       Style           =   1  'Graphical
  269.       TabIndex        =   1
  270.       Top             =   1590
  271.       Width           =   935
  272.    End
  273. End
  274. Attribute VB_Name = "frmcarBFlr"
  275. Attribute VB_GlobalNameSpace = False
  276. Attribute VB_Creatable = False
  277. Attribute VB_PredeclaredId = True
  278. Attribute VB_Exposed = False
  279. Dim i As Integer
  280. Private Sub cmdAdd_Click()
  281.   Unlockctl
  282.   Text1 = ""
  283.   Text2 = ""
  284.   Text3 = ""
  285.   Text4 = ""
  286.   DTPicker1.Value = Format(Now, "yyyy-mm-dd")
  287.   Text1.SetFocus
  288.   cmdOk.Enabled = True
  289.   cmdCancel.Enabled = True
  290.   cmdUpdate.Enabled = False
  291.   cmdDelete.Enabled = False
  292.   DTPicker1.Visible = True
  293.   Adodc1.Enabled = False
  294.   i = 1
  295. End Sub
  296. Private Sub cmdFind_Click()
  297.   Dim str As String
  298.   str = InputBox$("输入你要查询的车牌号码：", "系统提示")
  299.   If str = "" Then Exit Sub
  300.   Adodc1.RecordSource = "select * from 车辆报废表 where 车牌号码='" + str + "'"
  301.   Adodc1.Refresh
  302.   If Adodc1.Recordset.RecordCount > 0 Then
  303.      Text1.Text = Adodc1.Recordset.Fields(0)
  304.      DTPicker1.Value = Adodc1.Recordset.Fields(2)
  305.      Text2.Text = Adodc1.Recordset.Fields(1)
  306.      Text3.Text = Adodc1.Recordset.Fields(3)
  307.      Text4.Text = Adodc1.Recordset.Fields(4)
  308.      cmdUpdate.Enabled = True
  309.      cmdDelete.Enabled = True
  310.   Else
  311.      MsgBox "没有你需要的信息！", , "系统提示"
  312.      cmdUpdate.Enabled = False
  313.      cmdDelete.Enabled = False
  314.   End If
  315. End Sub
  317. Private Sub cmdUpdate_Click()
  318.   Unlockctl
  319.   Text1.Enabled = False
  320.   i = 2
  321.   cmdOk.Enabled = True
  322.   cmdCancel.Enabled = True
  323.   cmdAdd.Enabled = False
  324.   cmdDelete.Enabled = False
  325.   DTPicker1.Visible = True
  326.   Adodc1.Enabled = False
  327. End Sub
  330. Private Sub cmdCancel_Click()
  331.   On Error Resume Next
  332.   Adodc1.Recordset.CancelUpdate
  333.   Adodc1.Refresh
  334.   Lockctl
  335.   cmdOk.Enabled = False
  336.   cmdCancel.Enabled = False
  337.   cmdAdd.Enabled = True
  338.   cmdUpdate.Enabled = True
  339.   cmdDelete.Enabled = True
  340.   Adodc1.Enabled = True
  341. End Sub
  343. Private Sub cmdDelete_Click()
  344.   If MsgBox("您确实要删除记录吗？", vbOKCancel, "系统提示") = vbOK Then
  345.      adoCon.Execute ("delete from 车辆报废表 where 车牌号码='" & Text1 & "'")
  346.      MsgBox " 记录已删除！", , "系统提示"
  347.      Adodc1.Refresh
  348.      Text1 = ""
  349.      Text2 = ""
  350.      Text3 = ""
  351.      Text4 = ""
  352.   End If
  353. End Sub
  355. Private Sub cmdExit_Click()
  356.   MDIForm1.StatusBar1.Panels(1).Text = ""
  357.   Unload Me
  358. End Sub
  360. Private Sub cmdOk_Click()
  361.    Select Case i
  362.           Case 1
  363.             If Text1 = "" Then
  364.                 MsgBox "车牌号码不能为空", , "系统提示"
  365.                 Text1.SetFocus
  366.                 Exit Sub
  367.             End If
  368.             If DTPicker1.Value = "" Then
  369.                 MsgBox "报废日期不能为空", , "系统提示"
  370.                 DTPicker1.SetFocus
  371.                 Exit Sub
  372.             End If
  373.             adoCon.Execute ("insert into 车辆报废表 values ('" & Text1 & "','" & Text2 & "','" & DTPicker1.Value & "','" & Text3 & "','" & Text4 & "')")
  374.             MsgBox "记录添加成功！", , "系统提示"
  375.             Adodc1.Refresh
  376.           Case 2
  377.                adoCon.Execute ("update 车辆报废表 set 报废日期='" & DTPicker1.Value & "', 报废原因='" & Text2 & "',经手人='" & Text3 & "',备注='" & Text4 & "' where 车牌号码='" & Text1 & "'")
  378.                MsgBox "记录修改成功！", , "系统提示"
  379.                Adodc1.Refresh
  380.   End Select
  381.   Lockctl
  382.   cmdOk.Enabled = False
  383.   cmdCancel.Enabled = False
  384.   cmdAdd.Visible = True
  385.   cmdUpdate.Enabled = True
  386.   cmdDelete.Enabled = True
  387.   Adodc1.Enabled = True
  388. End Sub
  390. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  391.     cmdExit_Click
  392. End Sub
  394. Private Sub Text1_KeyPress(KeyAscii As Integer)
  395.     If KeyAscii = 13 Then
  396.        If Text1.Text = "" Then
  397.           MsgBox "车牌号码不能为空！", , "系统提示"
  398.           Text1.SetFocus
  399.           Exit Sub
  400.        End If
  401.        Text2.SetFocus
  402.     End If
  403. End Sub
  405. Private Sub Text1_LostFocus()
  406.   If Text1.Text = "" Then Exit Sub
  407.   Dim rss As New ADODB.Recordset
  408.   Set rss = adoCon.Execute("select * from 车辆档案 where 车牌号码='" & Text1.Text & "'")
  409.   If rss.EOF Then
  410.      MsgBox "这辆车不属于本公司的！", , "系统提示"
  411.      Text1.Text = ""
  412.      Text1.SetFocus
  413.      Exit Sub
  414.   End If
  415.   
  416.   Dim rss1 As New ADODB.Recordset
  417.   Set rss1 = adoCon.Execute("select * from 车辆异动表 where 车牌号码='" & Text1.Text & "'")
  418.   If rss1.EOF Then
  419.   Else
  420.       MsgBox "该车为异动车辆，不能报废！", , "系统提示"
  421.       Text1 = ""
  422.       Text1.SetFocus
  423.   End If
  424.   rss1.Close
  425.   
  426.   Dim rs As New ADODB.Recordset
  427.   Set rs = adoCon.Execute("select * from 车辆报废表 where 车牌号码='" & Text1.Text & "'")
  428.   If rs.EOF = False Then
  429.       MsgBox "这辆车已经报废！", , "系统提示"
  430.       Text1 = ""
  431.       Text1.SetFocus
  432.   End If
  433.   rss.Close
  434.   rs.Close
  435. End Sub
  437. Private Sub Text2_KeyPress(KeyAscii As Integer)
  438.     If KeyAscii = 13 Then DTPicker1.SetFocus
  439. End Sub
  440. Private Sub Text3_KeyPress(KeyAscii As Integer)
  441.     If KeyAscii = 13 Then Text4.SetFocus
  442. End Sub
  444. Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
  445.     If KeyAscii = 13 Then Text3.SetFocus
  446. End Sub
  447. Private Sub Lockctl()
  448.   Text1.Enabled = False
  449.   Text2.Enabled = False
  450.   Text3.Enabled = False
  451.   Text4.Enabled = False
  452.   DTPicker1.Enabled = False
  453. End Sub
  454. Private Sub Unlockctl()
  455.   Text1.Enabled = True
  456.   Text2.Enabled = True
  457.   Text3.Enabled = True
  458.   Text4.Enabled = True
  459.   DTPicker1.Enabled = True
  460. End Sub
  461. Private Sub Form_Load()
  462.   frmcarBFlr.Height = 2415
  463.   frmcarBFlr.Width = 6870
  464.   cmdUpdate.Enabled = False
  465.   cmdDelete.Enabled = False
  466. End Sub
  467. Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
  468.   If KeyCode = vbKeyReturn Then
  469.      cmdOk.SetFocus
  470.   End If
  471. End Sub