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

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

其他游戏

开发平台：

Visual Basic

bx_Form.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 bx_Form 
  5.    BackColor       =   &H00FFC0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "驾驶员表现管理"
  8.    ClientHeight    =   6840
  9.    ClientLeft      =   45
  10.    ClientTop       =   375
  11.    ClientWidth     =   9705
  12.    Icon            =   "bx_Form.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6840
  17.    ScaleWidth      =   9705
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.CommandButton Command4 
  20.       BackColor       =   &H00FFC0C0&
  21.       Caption         =   "删除"
  22.       Enabled         =   0   'False
  23.       Height          =   495
  24.       Left            =   7440
  25.       MaskColor       =   &H00FFFFFF&
  26.       Style           =   1  'Graphical
  27.       TabIndex        =   16
  28.       Top             =   6240
  29.       Width           =   1575
  30.    End
  31.    Begin VB.CommandButton Command3 
  32.       BackColor       =   &H00FFC0C0&
  33.       Caption         =   "修改"
  34.       Enabled         =   0   'False
  35.       Height          =   495
  36.       Left            =   3960
  37.       MaskColor       =   &H00FFFFFF&
  38.       Style           =   1  'Graphical
  39.       TabIndex        =   15
  40.       Top             =   6240
  41.       Width           =   1575
  42.    End
  43.    Begin VB.CommandButton Command2 
  44.       BackColor       =   &H00FFC0C0&
  45.       Caption         =   "添加"
  46.       Height          =   495
  47.       Left            =   600
  48.       MaskColor       =   &H00C0C0FF&
  49.       Style           =   1  'Graphical
  50.       TabIndex        =   14
  51.       Top             =   6240
  52.       Width           =   1575
  53.    End
  54.    Begin VB.Frame Frame3 
  55.       BackColor       =   &H00FFC0C0&
  56.       Caption         =   "驾驶员表现"
  57.       Height          =   3615
  58.       Left            =   240
  59.       TabIndex        =   11
  60.       Top             =   2520
  61.       Width           =   9255
  62.       Begin MSDataGridLib.DataGrid DataGrid1 
  63.          Bindings        =   "bx_Form.frx":030A
  64.          Height          =   1695
  65.          Left            =   7320
  66.          TabIndex        =   13
  67.          Top             =   960
  68.          Width           =   1455
  69.          _ExtentX        =   2566
  70.          _ExtentY        =   2990
  71.          _Version        =   393216
  72.          HeadLines       =   1
  73.          RowHeight       =   15
  74.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  75.             Name            =   "MS Sans Serif"
  76.             Size            =   8.25
  77.             Charset         =   0
  78.             Weight          =   400
  79.             Underline       =   0   'False
  80.             Italic          =   0   'False
  81.             Strikethrough   =   0   'False
  82.          EndProperty
  83.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  84.             Name            =   "MS Sans Serif"
  85.             Size            =   8.25
  86.             Charset         =   0
  87.             Weight          =   400
  88.             Underline       =   0   'False
  89.             Italic          =   0   'False
  90.             Strikethrough   =   0   'False
  91.          EndProperty
  92.          ColumnCount     =   2
  93.          BeginProperty Column00 
  94.             DataField       =   ""
  95.             Caption         =   ""
  96.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  97.                Type            =   0
  98.                Format          =   ""
  99.                HaveTrueFalseNull=   0
  100.                FirstDayOfWeek  =   0
  101.                FirstWeekOfYear =   0
  102.                LCID            =   2052
  103.                SubFormatType   =   0
  104.             EndProperty
  105.          EndProperty
  106.          BeginProperty Column01 
  107.             DataField       =   ""
  108.             Caption         =   ""
  109.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  110.                Type            =   0
  111.                Format          =   ""
  112.                HaveTrueFalseNull=   0
  113.                FirstDayOfWeek  =   0
  114.                FirstWeekOfYear =   0
  115.                LCID            =   2052
  116.                SubFormatType   =   0
  117.             EndProperty
  118.          EndProperty
  119.          SplitCount      =   1
  120.          BeginProperty Split0 
  121.             BeginProperty Column00 
  122.             EndProperty
  123.             BeginProperty Column01 
  124.             EndProperty
  125.          EndProperty
  126.       End
  127.       Begin MSAdodcLib.Adodc bx_Adodc 
  128.          Height          =   495
  129.          Left            =   7680
  130.          Top             =   360
  131.          Width           =   1215
  132.          _ExtentX        =   2143
  133.          _ExtentY        =   873
  134.          ConnectMode     =   0
  135.          CursorLocation  =   3
  136.          IsolationLevel  =   -1
  137.          ConnectionTimeout=   15
  138.          CommandTimeout  =   30
  139.          CursorType      =   3
  140.          LockType        =   3
  141.          CommandType     =   8
  142.          CursorOptions   =   0
  143.          CacheSize       =   50
  144.          MaxRecords      =   0
  145.          BOFAction       =   0
  146.          EOFAction       =   0
  147.          ConnectStringType=   1
  148.          Appearance      =   1
  149.          BackColor       =   -2147483643
  150.          ForeColor       =   -2147483640
  151.          Orientation     =   0
  152.          Enabled         =   -1
  153.          Connect         =   ""
  154.          OLEDBString     =   ""
  155.          OLEDBFile       =   ""
  156.          DataSourceName  =   ""
  157.          OtherAttributes =   ""
  158.          UserName        =   ""
  159.          Password        =   ""
  160.          RecordSource    =   ""
  161.          Caption         =   ""
  162.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  163.             Name            =   "MS Sans Serif"
  164.             Size            =   8.25
  165.             Charset         =   0
  166.             Weight          =   400
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          _Version        =   393216
  172.       End
  173.       Begin VB.TextBox Text5 
  174.          BackColor       =   &H00FFFFFF&
  175.          Height          =   3255
  176.          Left            =   240
  177.          MultiLine       =   -1  'True
  178.          TabIndex        =   12
  179.          Top             =   240
  180.          Width           =   8775
  181.       End
  182.    End
  183.    Begin VB.Frame Frame2 
  184.       BackColor       =   &H00FFC0C0&
  185.       Caption         =   "基本资料"
  186.       Height          =   1095
  187.       Left            =   240
  188.       TabIndex        =   4
  189.       Top             =   1200
  190.       Width           =   9255
  191.       Begin VB.TextBox Text4 
  192.          BackColor       =   &H00FFC0C0&
  193.          BeginProperty Font 
  194.             Name            =   "MS Sans Serif"
  195.             Size            =   12
  196.             Charset         =   0
  197.             Weight          =   700
  198.             Underline       =   0   'False
  199.             Italic          =   0   'False
  200.             Strikethrough   =   0   'False
  201.          EndProperty
  202.          Height          =   495
  203.          Left            =   7440
  204.          TabIndex        =   10
  205.          Top             =   360
  206.          Width           =   1695
  207.       End
  208.       Begin VB.TextBox Text3 
  209.          BackColor       =   &H00FFC0C0&
  210.          BeginProperty Font 
  211.             Name            =   "MS Sans Serif"
  212.             Size            =   12
  213.             Charset         =   0
  214.             Weight          =   700
  215.             Underline       =   0   'False
  216.             Italic          =   0   'False
  217.             Strikethrough   =   0   'False
  218.          EndProperty
  219.          Height          =   495
  220.          Left            =   4680
  221.          TabIndex        =   9
  222.          Top             =   360
  223.          Width           =   1695
  224.       End
  225.       Begin VB.TextBox Text2 
  226.          BackColor       =   &H00FFC0C0&
  227.          BeginProperty Font 
  228.             Name            =   "MS Sans Serif"
  229.             Size            =   12
  230.             Charset         =   0
  231.             Weight          =   700
  232.             Underline       =   0   'False
  233.             Italic          =   0   'False
  234.             Strikethrough   =   0   'False
  235.          EndProperty
  236.          Height          =   495
  237.          Left            =   1560
  238.          TabIndex        =   8
  239.          Top             =   360
  240.          Width           =   2055
  241.       End
  242.       Begin VB.Label Label4 
  243.          BackStyle       =   0  'Transparent
  244.          Caption         =   "年龄："
  245.          BeginProperty Font 
  246.             Name            =   "MS Sans Serif"
  247.             Size            =   12
  248.             Charset         =   0
  249.             Weight          =   700
  250.             Underline       =   0   'False
  251.             Italic          =   0   'False
  252.             Strikethrough   =   0   'False
  253.          EndProperty
  254.          Height          =   375
  255.          Left            =   6720
  256.          TabIndex        =   7
  257.          Top             =   360
  258.          Width           =   855
  259.       End
  260.       Begin VB.Label Label3 
  261.          BackStyle       =   0  'Transparent
  262.          Caption         =   "姓名："
  263.          BeginProperty Font 
  264.             Name            =   "MS Sans Serif"
  265.             Size            =   12
  266.             Charset         =   0
  267.             Weight          =   700
  268.             Underline       =   0   'False
  269.             Italic          =   0   'False
  270.             Strikethrough   =   0   'False
  271.          EndProperty
  272.          Height          =   375
  273.          Left            =   3720
  274.          TabIndex        =   6
  275.          Top             =   360
  276.          Width           =   855
  277.       End
  278.       Begin VB.Label Label2 
  279.          BackStyle       =   0  'Transparent
  280.          Caption         =   "驾照号码："
  281.          BeginProperty Font 
  282.             Name            =   "MS Sans Serif"
  283.             Size            =   12
  284.             Charset         =   0
  285.             Weight          =   700
  286.             Underline       =   0   'False
  287.             Italic          =   0   'False
  288.             Strikethrough   =   0   'False
  289.          EndProperty
  290.          Height          =   375
  291.          Left            =   240
  292.          TabIndex        =   5
  293.          Top             =   360
  294.          Width           =   1335
  295.       End
  296.    End
  297.    Begin VB.Frame Frame1 
  298.       BackColor       =   &H00FFC0C0&
  299.       Height          =   855
  300.       Left            =   120
  301.       TabIndex        =   0
  302.       Top             =   120
  303.       Width           =   9375
  304.       Begin VB.CommandButton Command1 
  305.          BackColor       =   &H00FFC0C0&
  306.          Caption         =   "查询"
  307.          Height          =   495
  308.          Left            =   7200
  309.          Style           =   1  'Graphical
  310.          TabIndex        =   3
  311.          Top             =   240
  312.          Width           =   1935
  313.       End
  314.       Begin VB.TextBox Text1 
  315.          BackColor       =   &H00FFC0C0&
  316.          BeginProperty Font 
  317.             Name            =   "MS Sans Serif"
  318.             Size            =   13.5
  319.             Charset         =   0
  320.             Weight          =   700
  321.             Underline       =   0   'False
  322.             Italic          =   0   'False
  323.             Strikethrough   =   0   'False
  324.          EndProperty
  325.          Height          =   615
  326.          Left            =   2160
  327.          TabIndex        =   2
  328.          Top             =   120
  329.          Width           =   4935
  330.       End
  331.       Begin VB.Label Label1 
  332.          BackStyle       =   0  'Transparent
  333.          Caption         =   "输入驾照号码:"
  334.          BeginProperty Font 
  335.             Name            =   "MS Sans Serif"
  336.             Size            =   12
  337.             Charset         =   0
  338.             Weight          =   700
  339.             Underline       =   0   'False
  340.             Italic          =   0   'False
  341.             Strikethrough   =   0   'False
  342.          EndProperty
  343.          Height          =   375
  344.          Left            =   360
  345.          TabIndex        =   1
  346.          Top             =   240
  347.          Width           =   1695
  348.       End
  349.    End
  350. End
  351. Attribute VB_Name = "bx_Form"
  352. Attribute VB_GlobalNameSpace = False
  353. Attribute VB_Creatable = False
  354. Attribute VB_PredeclaredId = True
  355. Attribute VB_Exposed = False
  356. Option Explicit
  361. '查找驾驶员表现记录
  362. Private Sub Command1_Click()
  363. Dim i As Integer
  364. 'bx_Form.Command2.Enabled = False
  365. 'bx_Form.Command3.Enabled = False
  366. 'bx_Form.Command4.Enabled = False
  367. bx_Adodc.Recordset.MoveFirst
  368. For i = 0 To bx_Adodc.Recordset.RecordCount - 1 Step 1
  369.  If bx_Adodc.Recordset.Fields(0).Value = Text1.Text Then
  370.      Text2.Text = bx_Adodc.Recordset.Fields(0).Value
  371.      Text3.Text = bx_Adodc.Recordset.Fields(1).Value
  372.      Text4.Text = bx_Adodc.Recordset.Fields(2).Value
  373.      Text5.Text = bx_Adodc.Recordset.Fields(3).Value
  374.      Command3.Enabled = True
  375.      Command4.Enabled = True
  376.      Exit For
  377.  Else
  378.   bx_Adodc.Recordset.MoveNext
  379.   End If
  380. Next i
  381.  If i = bx_Adodc.Recordset.RecordCount Then
  382.   '没有查找到记录
  383.    Text2.Text = ""
  384.    Text3.Text = ""
  385.    Text4.Text = ""
  386.    Text5.Text = ""
  387.    
  388.    MsgBox "没有查找到记录!!!", 64, "查找提示!"
  390.   End If
  391. End Sub
  392. '添加记录
  393. Private Sub Command2_Click()
  394. 'MsgBox "ddd"
  395. If bx_Adodc.Recordset.EOF = True Then
  396.  bx_Adodc.Recordset.MoveLast
  397.  End If
  398. Dim flag As Boolean
  399. flag = True
  400. Command3.Enabled = False
  401. Command4.Enabled = False
  402. Debug.Print priview
  403. If priview = "admini" Then
  404.   If Text2.Text = "" Then
  405.     MsgBox "关键不能为空", 16, "友情提示"
  406.     Else
  407.      Dim i As Integer
  408.      For i = 0 To bx_Adodc.Recordset.RecordCount - 1 Step 1
  409.         If bx_Adodc.Recordset.Fields(0).Value = Text2.Text Then
  410.          flag = False
  411.          Exit For
  412.          End If
  413.      Next i
  414.        If flag = True Then
  415.       bx_Adodc.Recordset.AddNew
  416.       bx_Adodc.Recordset.Fields(0).Value = Text2.Text
  417.       bx_Adodc.Recordset.Fields(1).Value = Text3.Text
  418.       bx_Adodc.Recordset.Fields(2).Value = Text4.Text
  419.       bx_Adodc.Recordset.Fields(3).Value = Text5.Text
  420.       bx_Adodc.Recordset.Update
  421.        MsgBox "该记录以添加!!!", 46, "友情提示!!"
  422.       Else
  423.       MsgBox "该记录以存在!!!", 46, "友情提示!!"
  424.       End If
  425.   End If
  426.  Else
  427.  MsgBox "你没有使用权限!!!", 16, "友情提示"
  428. End If
  429. End Sub
  432. '修改记录
  433. Private Sub Command3_Click()
  434. If Text2 = "" Then
  435. MsgBox "主关键字不能为空!!!", 64, "友情提示!!"
  436. Else
  437. bx_Adodc.Recordset.Fields(0).Value = Text2
  438. bx_Adodc.Recordset.Fields(1).Value = Text3
  439. bx_Adodc.Recordset.Fields(2).Value = Text4
  440. bx_Adodc.Recordset.Fields(3).Value = Text5
  441. MsgBox "该记录以修改"
  442. End If
  443. End Sub
  445. '删除记录
  446. Private Sub Command4_Click()
  447. bx_Adodc.Recordset.Delete
  448. bx_Adodc.Recordset.MoveFirst
  449. Text2 = ""
  450. Text3 = ""
  451. Text4 = ""
  452. Text5.Text = ""
  453. MsgBox "该记录以删除!!", 64, "友情提示!!"
  454. End Sub
  456. '驾驶员表现管理
  457. Private Sub Form_Load()
  458. Dim revalu As Long
  459. bx_Adodc.Visible = False
  460. DataGrid1.Visible = False
  461. 'Me.Show '显示窗题
  462. '连接驾驶员资料表
  463.  revalu = SetWindowPos(bx_Form.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, _
  464.     1 / 15 * Me.Width, 1 / 15 * Me.Height, SWP_SHOWWINDOW)
  465.     Me.Left = (Screen.Width - Me.Width) / 2 - 100
  466.     Me.Top = (Screen.Height - Me.Height) / 2 - 150
  467.     
  468.     ''连接数据库
  469.     Call bx_linedb
  470.     
  471.     
  472. End Sub
  474. '连接数据库
  475. Sub bx_linedb()
  476. Dim dbpath As String
  477.  
  478. If Right(App.Path, 1) <> "" Then
  479. dbpath = App.Path & ""
  480. Else
  481. dbpath = App.Path
  482. End If
  483.  
  484.  '以管理员登陆
  485.  'MsgBox "gly"
  486. dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & dbpath & "年审评定数据库.mdb"
  488. bx_Adodc.ConnectionString = dbpath
  489. bx_Adodc.CommandType = adCmdText
  490. bx_Adodc.RecordSource = "select * from 驾驶员表现表"
  491. '动态连接数据库时一定要刷新数据库
  492. bx_Adodc.Refresh
  493. End Sub