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

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

其他游戏

开发平台：

Visual Basic

ns_tjForm.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 ns_tjForm 
  5.    BackColor       =   &H00FFC0C0&
  6.    Caption         =   "年审评定"
  7.    ClientHeight    =   6465
  8.    ClientLeft      =   60
  9.    ClientTop       =   390
  10.    ClientWidth     =   9390
  11.    Icon            =   "ns_tjForm.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   6465
  14.    ScaleWidth      =   9390
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin MSDataGridLib.DataGrid DataGrid1 
  17.       Bindings        =   "ns_tjForm.frx":0442
  18.       Height          =   855
  19.       Left            =   5400
  20.       TabIndex        =   9
  21.       Top             =   1920
  22.       Width           =   3375
  23.       _ExtentX        =   5953
  24.       _ExtentY        =   1508
  25.       _Version        =   393216
  26.       HeadLines       =   1
  27.       RowHeight       =   15
  28.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  29.          Name            =   "MS Sans Serif"
  30.          Size            =   8.25
  31.          Charset         =   0
  32.          Weight          =   400
  33.          Underline       =   0   'False
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       ColumnCount     =   2
  47.       BeginProperty Column00 
  48.          DataField       =   ""
  49.          Caption         =   ""
  50.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  51.             Type            =   0
  52.             Format          =   ""
  53.             HaveTrueFalseNull=   0
  54.             FirstDayOfWeek  =   0
  55.             FirstWeekOfYear =   0
  56.             LCID            =   2052
  57.             SubFormatType   =   0
  58.          EndProperty
  59.       EndProperty
  60.       BeginProperty Column01 
  61.          DataField       =   ""
  62.          Caption         =   ""
  63.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  64.             Type            =   0
  65.             Format          =   ""
  66.             HaveTrueFalseNull=   0
  67.             FirstDayOfWeek  =   0
  68.             FirstWeekOfYear =   0
  69.             LCID            =   2052
  70.             SubFormatType   =   0
  71.          EndProperty
  72.       EndProperty
  73.       SplitCount      =   1
  74.       BeginProperty Split0 
  75.          BeginProperty Column00 
  76.          EndProperty
  77.          BeginProperty Column01 
  78.          EndProperty
  79.       EndProperty
  80.    End
  81.    Begin MSAdodcLib.Adodc ns_tjAdodc 
  82.       Height          =   495
  83.       Left            =   5400
  84.       Top             =   240
  85.       Width           =   1215
  86.       _ExtentX        =   2143
  87.       _ExtentY        =   873
  88.       ConnectMode     =   0
  89.       CursorLocation  =   3
  90.       IsolationLevel  =   -1
  91.       ConnectionTimeout=   15
  92.       CommandTimeout  =   30
  93.       CursorType      =   3
  94.       LockType        =   3
  95.       CommandType     =   8
  96.       CursorOptions   =   0
  97.       CacheSize       =   50
  98.       MaxRecords      =   0
  99.       BOFAction       =   0
  100.       EOFAction       =   0
  101.       ConnectStringType=   1
  102.       Appearance      =   1
  103.       BackColor       =   -2147483643
  104.       ForeColor       =   -2147483640
  105.       Orientation     =   0
  106.       Enabled         =   -1
  107.       Connect         =   ""
  108.       OLEDBString     =   ""
  109.       OLEDBFile       =   ""
  110.       DataSourceName  =   ""
  111.       OtherAttributes =   ""
  112.       UserName        =   ""
  113.       Password        =   ""
  114.       RecordSource    =   ""
  115.       Caption         =   "Adodc1"
  116.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  117.          Name            =   "MS Sans Serif"
  118.          Size            =   8.25
  119.          Charset         =   0
  120.          Weight          =   400
  121.          Underline       =   0   'False
  122.          Italic          =   0   'False
  123.          Strikethrough   =   0   'False
  124.       EndProperty
  125.       _Version        =   393216
  126.    End
  127.    Begin VB.CommandButton Command1 
  128.       BackColor       =   &H00FFC0C0&
  129.       Caption         =   "添加记录"
  130.       Height          =   975
  131.       Left            =   5400
  132.       Style           =   1  'Graphical
  133.       TabIndex        =   8
  134.       Top             =   840
  135.       Width           =   1815
  136.    End
  137.    Begin VB.Frame Frame1 
  138.       BackColor       =   &H00FFC0C0&
  139.       Caption         =   "年审评定"
  140.       Height          =   3495
  141.       Left            =   240
  142.       TabIndex        =   6
  143.       Top             =   2760
  144.       Width           =   9015
  145.       Begin VB.TextBox Text4 
  146.          BackColor       =   &H00FFFFFF&
  147.          Height          =   3135
  148.          Left            =   240
  149.          MultiLine       =   -1  'True
  150.          TabIndex        =   7
  151.          Top             =   240
  152.          Width           =   8655
  153.       End
  154.    End
  155.    Begin VB.TextBox Text3 
  156.       BackColor       =   &H00FFC0C0&
  157.       BeginProperty Font 
  158.          Name            =   "MS Sans Serif"
  159.          Size            =   12
  160.          Charset         =   0
  161.          Weight          =   700
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   495
  167.       Left            =   2040
  168.       TabIndex        =   5
  169.       Top             =   1920
  170.       Width           =   2895
  171.    End
  172.    Begin VB.TextBox Text2 
  173.       BackColor       =   &H00FFC0C0&
  174.       BeginProperty Font 
  175.          Name            =   "MS Sans Serif"
  176.          Size            =   12
  177.          Charset         =   0
  178.          Weight          =   700
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   495
  184.       Left            =   2040
  185.       TabIndex        =   3
  186.       Top             =   1080
  187.       Width           =   2895
  188.    End
  189.    Begin VB.TextBox Text1 
  190.       BackColor       =   &H00FFC0C0&
  191.       BeginProperty Font 
  192.          Name            =   "MS Sans Serif"
  193.          Size            =   12
  194.          Charset         =   0
  195.          Weight          =   700
  196.          Underline       =   0   'False
  197.          Italic          =   0   'False
  198.          Strikethrough   =   0   'False
  199.       EndProperty
  200.       Height          =   495
  201.       Left            =   2040
  202.       TabIndex        =   1
  203.       Top             =   240
  204.       Width           =   2895
  205.    End
  206.    Begin VB.Image Image1 
  207.       Height          =   480
  208.       Left            =   7920
  209.       Picture         =   "ns_tjForm.frx":045B
  210.       Top             =   960
  211.       Width           =   480
  212.    End
  213.    Begin VB.Label Label3 
  214.       BackStyle       =   0  'Transparent
  215.       Caption         =   "评定单位"
  216.       BeginProperty Font 
  217.          Name            =   "MS Sans Serif"
  218.          Size            =   12
  219.          Charset         =   0
  220.          Weight          =   700
  221.          Underline       =   0   'False
  222.          Italic          =   0   'False
  223.          Strikethrough   =   0   'False
  224.       EndProperty
  225.       Height          =   375
  226.       Left            =   360
  227.       TabIndex        =   4
  228.       Top             =   1920
  229.       Width           =   1335
  230.    End
  231.    Begin VB.Label Label2 
  232.       BackStyle       =   0  'Transparent
  233.       Caption         =   "姓名"
  234.       BeginProperty Font 
  235.          Name            =   "MS Sans Serif"
  236.          Size            =   12
  237.          Charset         =   0
  238.          Weight          =   700
  239.          Underline       =   0   'False
  240.          Italic          =   0   'False
  241.          Strikethrough   =   0   'False
  242.       EndProperty
  243.       Height          =   375
  244.       Left            =   360
  245.       TabIndex        =   2
  246.       Top             =   1080
  247.       Width           =   1335
  248.    End
  249.    Begin VB.Label Label1 
  250.       BackStyle       =   0  'Transparent
  251.       Caption         =   "驾驶证号"
  252.       BeginProperty Font 
  253.          Name            =   "MS Sans Serif"
  254.          Size            =   12
  255.          Charset         =   0
  256.          Weight          =   700
  257.          Underline       =   0   'False
  258.          Italic          =   0   'False
  259.          Strikethrough   =   0   'False
  260.       EndProperty
  261.       Height          =   375
  262.       Left            =   360
  263.       TabIndex        =   0
  264.       Top             =   240
  265.       Width           =   1335
  266.    End
  267. End
  268. Attribute VB_Name = "ns_tjForm"
  269. Attribute VB_GlobalNameSpace = False
  270. Attribute VB_Creatable = False
  271. Attribute VB_PredeclaredId = True
  272. Attribute VB_Exposed = False
  273. Option Explicit
  275. '添加记录
  276. Private Sub Command1_Click()
  277. Dim i As Integer
  279. Dim da As Date
  280. ns_tjAdodc.Recordset.MoveFirst
  281. For i = 0 To ns_tjAdodc.Recordset.RecordCount - 1 Step 1
  282.   If ns_tjAdodc.Recordset.Fields(0).Value = Text1.Text Then
  283.    
  284.    MsgBox "该记录以存在!!", 64, "友情提示"
  285.    Exit Sub
  286.    Else
  287.    ns_tjAdodc.Recordset.MoveNext
  288.    End If
  289.    If i = ns_tjAdodc.Recordset.RecordCount - 1 Then
  290.    '该记录不存在 开始添加
  291.    
  292.    ns_tjAdodc.Recordset.AddNew
  293.    ns_tjAdodc.Recordset.Fields(0).Value = Text1
  294.    ns_tjAdodc.Recordset.Fields(1).Value = Text2
  295.    ns_tjAdodc.Recordset.Fields(2).Value = Text3
  296.    ns_tjAdodc.Recordset.Fields(3).Value = Text4
  297.    ns_tjAdodc.Recordset.Update
  298.    MsgBox "该记录以添加！", 64, "友情提示"
  299.   End If
  300. Next i
  301. End Sub
  303. Private Sub Form_Load()
  304. Dim revalu As Long
  305. ns_tjAdodc.Visible = False
  306. DataGrid1.Visible = False
  307. 'Me.Show '显示窗题
  308. '连接驾驶员资料表
  309.  revalu = SetWindowPos(ns_tjForm.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, _
  310.     1 / 15 * Me.Width, 1 / 15 * Me.Height, SWP_SHOWWINDOW)
  311.   
  312.    Me.Left = (Screen.Width - Me.Width) / 2 - 150
  313.     Me.Top = (Screen.Height - Me.Height) / 2 - 150
  314.     '连接数据库
  315.     Call lind_nstj_db
  316. End Sub
  317. '连接数据库
  318. Sub lind_nstj_db()
  319.  Dim dbpath As String
  321. If Right(App.Path, 1) <> "" Then
  322. dbpath = App.Path & ""
  323. Else
  324. dbpath = App.Path
  325. End If
  326.  
  327.  '以管理员登陆
  328.  'MsgBox "gly"
  329. dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & dbpath & "年审评定数据库.mdb"
  331. ns_tjAdodc.ConnectionString = dbpath
  332. ns_tjAdodc.CommandType = adCmdText
  333. ns_tjAdodc.RecordSource = "select * from  年审评定表"
  334. '动态连接数据库时一定要刷新数据库
  335. ns_tjAdodc.Refresh
  336. End Sub