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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 其他游戏 > 查看源码
zl_midForm.frm
资源名称：七八个vb游戏.rar　[点击查看]
上传用户：tashmp
上传日期：2010-04-03
资源大小：882k
文件大小：20k
源码类别：

其他游戏

开发平台：

Visual Basic

zl_midForm.frm：源码内容
  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Begin VB.Form zl_midForm 
  5.    BackColor       =   &H00FFC0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "驾驶员资料修改"
  8.    ClientHeight    =   4170
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   9720
  12.    Icon            =   "zl_midForm.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   4170
  16.    ScaleWidth      =   9720
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin MSDataGridLib.DataGrid DataGrid1 
  19.       Bindings        =   "zl_midForm.frx":030A
  20.       Height          =   735
  21.       Left            =   8520
  22.       TabIndex        =   20
  23.       Top             =   240
  24.       Width           =   975
  25.       _ExtentX        =   1720
  26.       _ExtentY        =   1296
  27.       _Version        =   393216
  28.       HeadLines       =   1
  29.       RowHeight       =   15
  30.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  40.          Name            =   "MS Sans Serif"
  41.          Size            =   8.25
  42.          Charset         =   0
  43.          Weight          =   400
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       ColumnCount     =   2
  49.       BeginProperty Column00 
  50.          DataField       =   ""
  51.          Caption         =   ""
  52.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  53.             Type            =   0
  54.             Format          =   ""
  55.             HaveTrueFalseNull=   0
  56.             FirstDayOfWeek  =   0
  57.             FirstWeekOfYear =   0
  58.             LCID            =   2052
  59.             SubFormatType   =   0
  60.          EndProperty
  61.       EndProperty
  62.       BeginProperty Column01 
  63.          DataField       =   ""
  64.          Caption         =   ""
  65.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  66.             Type            =   0
  67.             Format          =   ""
  68.             HaveTrueFalseNull=   0
  69.             FirstDayOfWeek  =   0
  70.             FirstWeekOfYear =   0
  71.             LCID            =   2052
  72.             SubFormatType   =   0
  73.          EndProperty
  74.       EndProperty
  75.       SplitCount      =   1
  76.       BeginProperty Split0 
  77.          BeginProperty Column00 
  78.          EndProperty
  79.          BeginProperty Column01 
  80.          EndProperty
  81.       EndProperty
  82.    End
  83.    Begin MSAdodcLib.Adodc zl_midAdodc 
  84.       Height          =   615
  85.       Left            =   720
  86.       Top             =   2280
  87.       Width           =   1695
  88.       _ExtentX        =   2990
  89.       _ExtentY        =   1085
  90.       ConnectMode     =   0
  91.       CursorLocation  =   3
  92.       IsolationLevel  =   -1
  93.       ConnectionTimeout=   15
  94.       CommandTimeout  =   30
  95.       CursorType      =   3
  96.       LockType        =   3
  97.       CommandType     =   8
  98.       CursorOptions   =   0
  99.       CacheSize       =   50
  100.       MaxRecords      =   0
  101.       BOFAction       =   0
  102.       EOFAction       =   0
  103.       ConnectStringType=   1
  104.       Appearance      =   1
  105.       BackColor       =   -2147483643
  106.       ForeColor       =   -2147483640
  107.       Orientation     =   0
  108.       Enabled         =   -1
  109.       Connect         =   ""
  110.       OLEDBString     =   ""
  111.       OLEDBFile       =   ""
  112.       DataSourceName  =   ""
  113.       OtherAttributes =   ""
  114.       UserName        =   ""
  115.       Password        =   ""
  116.       RecordSource    =   ""
  117.       Caption         =   ""
  118.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   8.25
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       _Version        =   393216
  128.    End
  129.    Begin VB.PictureBox Picture1 
  130.       BackColor       =   &H00FFFFFF&
  131.       Height          =   2535
  132.       Left            =   7560
  133.       ScaleHeight     =   2475
  134.       ScaleWidth      =   1995
  135.       TabIndex        =   18
  136.       Top             =   1440
  137.       Width           =   2055
  138.    End
  139.    Begin VB.CommandButton Command1 
  140.       BackColor       =   &H00FFC0C0&
  141.       Caption         =   "查找"
  142.       BeginProperty Font 
  143.          Name            =   "MS Sans Serif"
  144.          Size            =   12
  145.          Charset         =   0
  146.          Weight          =   700
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       Height          =   615
  152.       Left            =   7320
  153.       Style           =   1  'Graphical
  154.       TabIndex        =   16
  155.       Top             =   240
  156.       Width           =   1455
  157.    End
  158.    Begin VB.Frame Frame2 
  159.       BackColor       =   &H00FFC0C0&
  160.       Height          =   2895
  161.       Left            =   120
  162.       TabIndex        =   3
  163.       Top             =   1080
  164.       Width           =   7335
  165.       Begin VB.CommandButton Command2 
  166.          BackColor       =   &H00FFC0C0&
  167.          Caption         =   "删除记录"
  168.          Enabled         =   0   'False
  169.          BeginProperty Font 
  170.             Name            =   "MS Sans Serif"
  171.             Size            =   9.75
  172.             Charset         =   0
  173.             Weight          =   700
  174.             Underline       =   0   'False
  175.             Italic          =   0   'False
  176.             Strikethrough   =   0   'False
  177.          EndProperty
  178.          Height          =   495
  179.          Left            =   4920
  180.          Style           =   1  'Graphical
  181.          TabIndex        =   21
  182.          Top             =   2280
  183.          Width           =   1935
  184.       End
  185.       Begin VB.CommandButton Command3 
  186.          BackColor       =   &H00FFC0C0&
  187.          Caption         =   "确定修改"
  188.          BeginProperty Font 
  189.             Name            =   "MS Sans Serif"
  190.             Size            =   9.75
  191.             Charset         =   0
  192.             Weight          =   700
  193.             Underline       =   0   'False
  194.             Italic          =   0   'False
  195.             Strikethrough   =   0   'False
  196.          EndProperty
  197.          Height          =   495
  198.          Left            =   4920
  199.          Style           =   1  'Graphical
  200.          TabIndex        =   19
  201.          Top             =   1560
  202.          Width           =   1935
  203.       End
  204.       Begin VB.TextBox Text7 
  205.          Appearance      =   0  'Flat
  206.          BackColor       =   &H00FFC0C0&
  207.          BeginProperty Font 
  208.             Name            =   "MS Sans Serif"
  209.             Size            =   12
  210.             Charset         =   0
  211.             Weight          =   700
  212.             Underline       =   0   'False
  213.             Italic          =   0   'False
  214.             Strikethrough   =   0   'False
  215.          EndProperty
  216.          Height          =   375
  217.          Left            =   4920
  218.          TabIndex        =   15
  219.          Top             =   1080
  220.          Width           =   1935
  221.       End
  222.       Begin VB.TextBox Text6 
  223.          Appearance      =   0  'Flat
  224.          BackColor       =   &H00FFC0C0&
  225.          BeginProperty Font 
  226.             Name            =   "MS Sans Serif"
  227.             Size            =   12
  228.             Charset         =   0
  229.             Weight          =   700
  230.             Underline       =   0   'False
  231.             Italic          =   0   'False
  232.             Strikethrough   =   0   'False
  233.          EndProperty
  234.          Height          =   375
  235.          Left            =   4920
  236.          TabIndex        =   14
  237.          Top             =   240
  238.          Width           =   1935
  239.       End
  240.       Begin VB.TextBox Text5 
  241.          Appearance      =   0  'Flat
  242.          BackColor       =   &H00FFC0C0&
  243.          BeginProperty Font 
  244.             Name            =   "MS Sans Serif"
  245.             Size            =   12
  246.             Charset         =   0
  247.             Weight          =   700
  248.             Underline       =   0   'False
  249.             Italic          =   0   'False
  250.             Strikethrough   =   0   'False
  251.          EndProperty
  252.          Height          =   375
  253.          Left            =   1680
  254.          TabIndex        =   13
  255.          Top             =   2400
  256.          Width           =   1935
  257.       End
  258.       Begin VB.TextBox Text4 
  259.          Appearance      =   0  'Flat
  260.          BackColor       =   &H00FFC0C0&
  261.          BeginProperty Font 
  262.             Name            =   "MS Sans Serif"
  263.             Size            =   12
  264.             Charset         =   0
  265.             Weight          =   700
  266.             Underline       =   0   'False
  267.             Italic          =   0   'False
  268.             Strikethrough   =   0   'False
  269.          EndProperty
  270.          Height          =   375
  271.          Left            =   1680
  272.          TabIndex        =   12
  273.          Top             =   1680
  274.          Width           =   1935
  275.       End
  276.       Begin VB.TextBox Text3 
  277.          Appearance      =   0  'Flat
  278.          BackColor       =   &H00FFC0C0&
  279.          BeginProperty Font 
  280.             Name            =   "MS Sans Serif"
  281.             Size            =   12
  282.             Charset         =   0
  283.             Weight          =   700
  284.             Underline       =   0   'False
  285.             Italic          =   0   'False
  286.             Strikethrough   =   0   'False
  287.          EndProperty
  288.          Height          =   375
  289.          Left            =   1680
  290.          TabIndex        =   11
  291.          Top             =   960
  292.          Width           =   1935
  293.       End
  294.       Begin VB.TextBox Text2 
  295.          Appearance      =   0  'Flat
  296.          BackColor       =   &H00FFC0C0&
  297.          BeginProperty Font 
  298.             Name            =   "MS Sans Serif"
  299.             Size            =   12
  300.             Charset         =   0
  301.             Weight          =   700
  302.             Underline       =   0   'False
  303.             Italic          =   0   'False
  304.             Strikethrough   =   0   'False
  305.          EndProperty
  306.          Height          =   375
  307.          Left            =   1680
  308.          TabIndex        =   10
  309.          Top             =   240
  310.          Width           =   1935
  311.       End
  312.       Begin VB.Label Label7 
  313.          BackStyle       =   0  'Transparent
  314.          Caption         =   "身份:"
  315.          BeginProperty Font 
  316.             Name            =   "MS Sans Serif"
  317.             Size            =   12
  318.             Charset         =   0
  319.             Weight          =   700
  320.             Underline       =   0   'False
  321.             Italic          =   0   'False
  322.             Strikethrough   =   0   'False
  323.          EndProperty
  324.          Height          =   255
  325.          Left            =   3720
  326.          TabIndex        =   9
  327.          Top             =   1080
  328.          Width           =   735
  329.       End
  330.       Begin VB.Label Label6 
  331.          BackStyle       =   0  'Transparent
  332.          Caption         =   "发证时间:"
  333.          BeginProperty Font 
  334.             Name            =   "MS Sans Serif"
  335.             Size            =   12
  336.             Charset         =   0
  337.             Weight          =   700
  338.             Underline       =   0   'False
  339.             Italic          =   0   'False
  340.             Strikethrough   =   0   'False
  341.          EndProperty
  342.          Height          =   255
  343.          Left            =   3720
  344.          TabIndex        =   8
  345.          Top             =   240
  346.          Width           =   1095
  347.       End
  348.       Begin VB.Label Label5 
  349.          BackStyle       =   0  'Transparent
  350.          Caption         =   "驾驶类型:"
  351.          BeginProperty Font 
  352.             Name            =   "MS Sans Serif"
  353.             Size            =   12
  354.             Charset         =   0
  355.             Weight          =   700
  356.             Underline       =   0   'False
  357.             Italic          =   0   'False
  358.             Strikethrough   =   0   'False
  359.          EndProperty
  360.          Height          =   375
  361.          Left            =   480
  362.          TabIndex        =   7
  363.          Top             =   2400
  364.          Width           =   1455
  365.       End
  366.       Begin VB.Label Label4 
  367.          BackStyle       =   0  'Transparent
  368.          Caption         =   "年龄:"
  369.          BeginProperty Font 
  370.             Name            =   "MS Sans Serif"
  371.             Size            =   12
  372.             Charset         =   0
  373.             Weight          =   700
  374.             Underline       =   0   'False
  375.             Italic          =   0   'False
  376.             Strikethrough   =   0   'False
  377.          EndProperty
  378.          Height          =   255
  379.          Left            =   480
  380.          TabIndex        =   6
  381.          Top             =   1680
  382.          Width           =   615
  383.       End
  384.       Begin VB.Label Label3 
  385.          BackStyle       =   0  'Transparent
  386.          Caption         =   "姓名:"
  387.          BeginProperty Font 
  388.             Name            =   "MS Sans Serif"
  389.             Size            =   12
  390.             Charset         =   0
  391.             Weight          =   700
  392.             Underline       =   0   'False
  393.             Italic          =   0   'False
  394.             Strikethrough   =   0   'False
  395.          EndProperty
  396.          Height          =   255
  397.          Left            =   480
  398.          TabIndex        =   5
  399.          Top             =   960
  400.          Width           =   1095
  401.       End
  402.       Begin VB.Label Label2 
  403.          BackStyle       =   0  'Transparent
  404.          Caption         =   "驾驶证号:"
  405.          BeginProperty Font 
  406.             Name            =   "MS Sans Serif"
  407.             Size            =   12
  408.             Charset         =   0
  409.             Weight          =   700
  410.             Underline       =   0   'False
  411.             Italic          =   0   'False
  412.             Strikethrough   =   0   'False
  413.          EndProperty
  414.          Height          =   375
  415.          Left            =   480
  416.          TabIndex        =   4
  417.          Top             =   240
  418.          Width           =   1455
  419.       End
  420.    End
  421.    Begin VB.Frame Frame1 
  422.       BackColor       =   &H00FFC0C0&
  423.       Height          =   855
  424.       Left            =   120
  425.       TabIndex        =   0
  426.       Top             =   120
  427.       Width           =   7095
  428.       Begin VB.TextBox Text1 
  429.          Appearance      =   0  'Flat
  430.          BackColor       =   &H00FFC0C0&
  431.          BeginProperty Font 
  432.             Name            =   "MS Sans Serif"
  433.             Size            =   13.5
  434.             Charset         =   0
  435.             Weight          =   700
  436.             Underline       =   0   'False
  437.             Italic          =   0   'False
  438.             Strikethrough   =   0   'False
  439.          EndProperty
  440.          Height          =   495
  441.          Left            =   2760
  442.          TabIndex        =   2
  443.          Top             =   240
  444.          Width           =   4095
  445.       End
  446.       Begin VB.Label Label1 
  447.          BackStyle       =   0  'Transparent
  448.          Caption         =   "输入查找的驾驶证号"
  449.          BeginProperty Font 
  450.             Name            =   "MS Sans Serif"
  451.             Size            =   12
  452.             Charset         =   0
  453.             Weight          =   700
  454.             Underline       =   0   'False
  455.             Italic          =   0   'False
  456.             Strikethrough   =   0   'False
  457.          EndProperty
  458.          Height          =   375
  459.          Left            =   360
  460.          TabIndex        =   1
  461.          Top             =   240
  462.          Width           =   2415
  463.       End
  464.    End
  465.    Begin VB.Line Line1 
  466.       X1              =   0
  467.       X2              =   9720
  468.       Y1              =   4080
  469.       Y2              =   4080
  470.    End
  471.    Begin VB.Label Label8 
  472.       BackStyle       =   0  'Transparent
  473.       Caption         =   "图片"
  474.       BeginProperty Font 
  475.          Name            =   "MS Sans Serif"
  476.          Size            =   13.5
  477.          Charset         =   0
  478.          Weight          =   700
  479.          Underline       =   0   'False
  480.          Italic          =   0   'False
  481.          Strikethrough   =   0   'False
  482.       EndProperty
  483.       Height          =   375
  484.       Left            =   8160
  485.       TabIndex        =   17
  486.       Top             =   960
  487.       Width           =   735
  488.    End
  489. End
  490. Attribute VB_Name = "zl_midForm"
  491. Attribute VB_GlobalNameSpace = False
  492. Attribute VB_Creatable = False
  493. Attribute VB_PredeclaredId = True
  494. Attribute VB_Exposed = False
  495. Option Explicit
  498. '按的驾驶证号查找
  499. Function zl_midfind() As Boolean
  500.  On Error Resume Next
  501.  'MsgBox Text1
  502.  zl_midAdodc.Recordset.MoveFirst
  503.  Dim i As Integer
  504.  For i = 0 To zl_midAdodc.Recordset.RecordCount - 1 Step 1
  505.   If zl_midAdodc.Recordset.Fields(0).Value = Text1.Text Then
  506.     zl_midfind = True
  507.     Exit For
  508.     Else
  509.      zl_midAdodc.Recordset.MoveNext
  510.     
  511.     End If
  512.  Next i
  513.   If i = zl_midAdodc.Recordset.RecordCount Then
  514.     
  515.     zl_midfind = False
  516.   End If
  517. End Function
  519. '查找记录
  520. Private Sub Command1_Click()
  521. Dim bol As Boolean
  522. Dim i As Integer
  523. Dim da As Date
  524. bol = zl_midfind()
  525. Debug.Print bol
  526. If bol = False Then
  527. MsgBox "该记录不存在！", 64, "提示"
  528. Else
  529. '查找到该记录
  530. Command2.Enabled = True
  531. Text2 = zl_midAdodc.Recordset.Fields(0).Value
  532. Text3 = zl_midAdodc.Recordset.Fields(1).Value
  533. Text4 = zl_midAdodc.Recordset.Fields(2).Value
  534. Text5 = zl_midAdodc.Recordset.Fields(3).Value
  535.  If zl_midAdodc.Recordset.Fields(4).Value <> "" Then
  536.   'MsgBox "date"
  537.  da = zl_midAdodc.Recordset.Fields(4).Value
  539.  
  540.  Text6 = da
  541.  End If
  542. If zl_midAdodc.Recordset.Fields(5).Value <> "" Then
  543. Text7 = zl_midAdodc.Recordset.Fields(5).Value
  544. End If
  545. End If
  546. End Sub
  549. '删除该条记录
  550. Private Sub Command2_Click()
  551. zl_midAdodc.Recordset.Delete
  552. DoEvents
  553. zl_midAdodc.Recordset.MoveFirst
  554. Command2.Enabled = False
  555. End Sub
  557. '确定修改该记录
  558. Private Sub Command3_Click()
  559. If Text2.Text <> "" Then
  560. zl_midAdodc.Recordset.Fields("驾驶证号").Value = Text2
  561. If Text3.Text <> "" Then
  562. zl_midAdodc.Recordset.Fields("姓名").Value = Text3
  564. End If
  565. If Text4.Text <> "" Then
  566. zl_midAdodc.Recordset.Fields("年龄").Value = Text4
  567. End If
  568. If Text5.Text <> "" Then
  571. zl_midAdodc.Recordset.Fields("驾照类型").Value = Text5
  572. End If
  573. If Text6.Text <> "" Then
  574. Dim da As Date
  575. da = Text6.Text
  576. zl_midAdodc.Recordset.Fields("发证时间").Value = da
  577. End If
  578. If Text7.Text <> "" Then
  579. zl_midAdodc.Recordset.Fields("省份").Value = Text7
  580. End If
  581. MsgBox "记录以修改!", 64, "修改提示!!"
  582. Else
  583. '关键字不能为空
  584. MsgBox "关键字不能为空 请输关键字入", 16, "友情提示!!"
  586. End If
  587. End Sub
  589. Private Sub Form_Load()
  590. Dim revalu   As Long
  591. revalu = SetWindowPos(zl_midForm.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, _
  592.     1 / 15 * Me.Width, 1 / 15 * Me.Height, SWP_SHOWWINDOW)
  593. '连接数据库
  596. Me.Left = (Screen.Width - Me.Width) / 2 - 150
  597. Me.Top = (Screen.Height - Me.Height) / 2
  599. zl_midAdodc.Visible = False
  600. DataGrid1.Visible = False
  601. Call zl_lindmid_db
  602. End Sub
  604. '连接数据库
  605. Sub zl_lindmid_db()
  606. Dim dbpath As String
  607.  
  608. If Right(App.Path, 1) <> "" Then
  609. dbpath = App.Path & ""
  610. Else
  611. dbpath = App.Path
  612. End If
  613.  
  614.  '以管理员登陆
  615.  'MsgBox "gly"
  616. dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & dbpath & "年审评定数据库.mdb"
  618. zl_midAdodc.ConnectionString = dbpath
  619. zl_midAdodc.CommandType = adCmdText
  620. zl_midAdodc.RecordSource = "select * from 驾驶员资料表"
  621. '动态连接数据库时一定要刷新数据库
  622. zl_midAdodc.Refresh
  623. End Sub