zl_tjForm.frm
上传用户:tashmp
上传日期:2010-04-03
资源大小:882k
文件大小:14k
源码类别:

其他游戏

开发平台:

Visual Basic

  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_tjForm 
  5.    BackColor       =   &H00FFC0C0&
  6.    BorderStyle     =   1  'Fixed Single
  7.    Caption         =   "驾驶员资料添加"
  8.    ClientHeight    =   4290
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   8490
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4290
  16.    ScaleWidth      =   8490
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin MSDataGridLib.DataGrid DataGrid1 
  19.       Bindings        =   "zl_tjForm.frx":0000
  20.       Height          =   855
  21.       Left            =   5160
  22.       TabIndex        =   14
  23.       Top             =   3000
  24.       Width           =   2775
  25.       _ExtentX        =   4895
  26.       _ExtentY        =   1508
  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_tjAdodc 
  84.       Height          =   375
  85.       Left            =   2280
  86.       Top             =   3000
  87.       Width           =   1935
  88.       _ExtentX        =   3413
  89.       _ExtentY        =   661
  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         =   "Adodc1"
  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.TextBox Text6 
  130.       Appearance      =   0  'Flat
  131.       BackColor       =   &H00FFC0C0&
  132.       BeginProperty Font 
  133.          Name            =   "MS Sans Serif"
  134.          Size            =   12
  135.          Charset         =   0
  136.          Weight          =   700
  137.          Underline       =   0   'False
  138.          Italic          =   0   'False
  139.          Strikethrough   =   0   'False
  140.       EndProperty
  141.       Height          =   495
  142.       Left            =   6240
  143.       TabIndex        =   13
  144.       Top             =   840
  145.       Width           =   2175
  146.    End
  147.    Begin VB.TextBox Text5 
  148.       Appearance      =   0  'Flat
  149.       BackColor       =   &H00FFC0C0&
  150.       BeginProperty Font 
  151.          Name            =   "MS Sans Serif"
  152.          Size            =   12
  153.          Charset         =   0
  154.          Weight          =   700
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       Height          =   495
  160.       Left            =   6240
  161.       TabIndex        =   12
  162.       Top             =   120
  163.       Width           =   2175
  164.    End
  165.    Begin VB.TextBox Text4 
  166.       Appearance      =   0  'Flat
  167.       BackColor       =   &H00FFC0C0&
  168.       BeginProperty Font 
  169.          Name            =   "MS Sans Serif"
  170.          Size            =   12
  171.          Charset         =   0
  172.          Weight          =   700
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       Height          =   495
  178.       Left            =   2160
  179.       TabIndex        =   11
  180.       Top             =   2280
  181.       Width           =   2175
  182.    End
  183.    Begin VB.TextBox Text3 
  184.       Appearance      =   0  'Flat
  185.       BackColor       =   &H00FFC0C0&
  186.       BeginProperty Font 
  187.          Name            =   "MS Sans Serif"
  188.          Size            =   12
  189.          Charset         =   0
  190.          Weight          =   700
  191.          Underline       =   0   'False
  192.          Italic          =   0   'False
  193.          Strikethrough   =   0   'False
  194.       EndProperty
  195.       Height          =   495
  196.       Left            =   2160
  197.       TabIndex        =   10
  198.       Top             =   1560
  199.       Width           =   2175
  200.    End
  201.    Begin VB.TextBox Text2 
  202.       Appearance      =   0  'Flat
  203.       BackColor       =   &H00FFC0C0&
  204.       BeginProperty Font 
  205.          Name            =   "MS Sans Serif"
  206.          Size            =   12
  207.          Charset         =   0
  208.          Weight          =   700
  209.          Underline       =   0   'False
  210.          Italic          =   0   'False
  211.          Strikethrough   =   0   'False
  212.       EndProperty
  213.       Height          =   495
  214.       Left            =   2160
  215.       TabIndex        =   9
  216.       Top             =   840
  217.       Width           =   2175
  218.    End
  219.    Begin VB.TextBox Text1 
  220.       Appearance      =   0  'Flat
  221.       BackColor       =   &H00FFC0C0&
  222.       BeginProperty Font 
  223.          Name            =   "MS Sans Serif"
  224.          Size            =   12
  225.          Charset         =   0
  226.          Weight          =   700
  227.          Underline       =   0   'False
  228.          Italic          =   0   'False
  229.          Strikethrough   =   0   'False
  230.       EndProperty
  231.       Height          =   495
  232.       Left            =   2160
  233.       TabIndex        =   8
  234.       Top             =   120
  235.       Width           =   2175
  236.    End
  237.    Begin VB.CommandButton Command2 
  238.       BackColor       =   &H00FFC0C0&
  239.       Caption         =   "取消"
  240.       Height          =   495
  241.       Left            =   6240
  242.       Style           =   1  'Graphical
  243.       TabIndex        =   7
  244.       Top             =   2400
  245.       Width           =   1335
  246.    End
  247.    Begin VB.CommandButton Command1 
  248.       BackColor       =   &H00FFC0C0&
  249.       Caption         =   "添加"
  250.       Height          =   495
  251.       Left            =   6240
  252.       Style           =   1  'Graphical
  253.       TabIndex        =   6
  254.       Top             =   1560
  255.       Width           =   1335
  256.    End
  257.    Begin VB.Label Label6 
  258.       BackStyle       =   0  'Transparent
  259.       Caption         =   "省份:"
  260.       BeginProperty Font 
  261.          Name            =   "MS Sans Serif"
  262.          Size            =   13.5
  263.          Charset         =   0
  264.          Weight          =   700
  265.          Underline       =   0   'False
  266.          Italic          =   0   'False
  267.          Strikethrough   =   0   'False
  268.       EndProperty
  269.       Height          =   375
  270.       Left            =   4560
  271.       TabIndex        =   5
  272.       Top             =   840
  273.       Width           =   1095
  274.    End
  275.    Begin VB.Label Label5 
  276.       BackStyle       =   0  'Transparent
  277.       Caption         =   "发证时间:"
  278.       BeginProperty Font 
  279.          Name            =   "MS Sans Serif"
  280.          Size            =   13.5
  281.          Charset         =   0
  282.          Weight          =   700
  283.          Underline       =   0   'False
  284.          Italic          =   0   'False
  285.          Strikethrough   =   0   'False
  286.       EndProperty
  287.       Height          =   375
  288.       Left            =   4560
  289.       TabIndex        =   4
  290.       Top             =   120
  291.       Width           =   1455
  292.    End
  293.    Begin VB.Label Label4 
  294.       BackStyle       =   0  'Transparent
  295.       Caption         =   "驾驶类型:"
  296.       BeginProperty Font 
  297.          Name            =   "MS Sans Serif"
  298.          Size            =   13.5
  299.          Charset         =   0
  300.          Weight          =   700
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       Height          =   375
  306.       Left            =   360
  307.       TabIndex        =   3
  308.       Top             =   2280
  309.       Width           =   1455
  310.    End
  311.    Begin VB.Label Label3 
  312.       BackStyle       =   0  'Transparent
  313.       Caption         =   "年龄:"
  314.       BeginProperty Font 
  315.          Name            =   "MS Sans Serif"
  316.          Size            =   13.5
  317.          Charset         =   0
  318.          Weight          =   700
  319.          Underline       =   0   'False
  320.          Italic          =   0   'False
  321.          Strikethrough   =   0   'False
  322.       EndProperty
  323.       Height          =   375
  324.       Left            =   480
  325.       TabIndex        =   2
  326.       Top             =   1560
  327.       Width           =   855
  328.    End
  329.    Begin VB.Label Label2 
  330.       BackStyle       =   0  'Transparent
  331.       Caption         =   "姓名:"
  332.       BeginProperty Font 
  333.          Name            =   "MS Sans Serif"
  334.          Size            =   13.5
  335.          Charset         =   0
  336.          Weight          =   700
  337.          Underline       =   0   'False
  338.          Italic          =   0   'False
  339.          Strikethrough   =   0   'False
  340.       EndProperty
  341.       Height          =   375
  342.       Left            =   480
  343.       TabIndex        =   1
  344.       Top             =   840
  345.       Width           =   855
  346.    End
  347.    Begin VB.Label Label1 
  348.       BackStyle       =   0  'Transparent
  349.       Caption         =   "驾驶证号:"
  350.       BeginProperty Font 
  351.          Name            =   "MS Sans Serif"
  352.          Size            =   13.5
  353.          Charset         =   0
  354.          Weight          =   700
  355.          Underline       =   0   'False
  356.          Italic          =   0   'False
  357.          Strikethrough   =   0   'False
  358.       EndProperty
  359.       Height          =   375
  360.       Left            =   480
  361.       TabIndex        =   0
  362.       Top             =   120
  363.       Width           =   1455
  364.    End
  365. End
  366. Attribute VB_Name = "zl_tjForm"
  367. Attribute VB_GlobalNameSpace = False
  368. Attribute VB_Creatable = False
  369. Attribute VB_PredeclaredId = True
  370. Attribute VB_Exposed = False
  371. Option Explicit
  372. Private Sub Command1_Click()
  373. Dim i As Integer
  374. Dim da As Date
  375. zl_tjAdodc.Recordset.MoveFirst
  376. For i = 0 To zl_tjAdodc.Recordset.RecordCount - 1 Step 1
  377.   If zl_tjAdodc.Recordset.Fields(0).Value = Text1.Text Then
  378.    
  379.    MsgBox "该记录以存在!!", 64
  380.    Exit Sub
  381.    Else
  382.    zl_tjAdodc.Recordset.MoveNext
  383.    End If
  384.    If i = zl_tjAdodc.Recordset.RecordCount - 1 Then
  385.    '该记录不存在 开始添加
  386.    
  387.    zl_tjAdodc.Recordset.AddNew
  388.     zl_tjAdodc.Recordset.Fields(0) = Text1.Text
  389.     zl_tjAdodc.Recordset.Fields(1) = Text2.Text
  390.     zl_tjAdodc.Recordset.Fields(2) = Int(Val(Text3.Text))
  391.     zl_tjAdodc.Recordset.Fields(3) = Text4.Text
  392.     '把文本转换问Date型
  393.     da = Text5.Text
  394.     zl_tjAdodc.Recordset.Fields(4) = da
  395.     zl_tjAdodc.Recordset.Fields(5) = Text6.Text
  396.     zl_tjAdodc.Recordset.Update
  397.     MsgBox "该记录以添加!", 64, "友情提示"
  398.   End If
  399. Next i
  400. End Sub
  401. Private Sub Command2_Click()
  402. Unload Me
  403. End Sub
  404. Private Sub Form_Load()
  405. Dim revalu   As Long
  406. revalu = SetWindowPos(zl_tjForm.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, _
  407.     1 / 15 * Me.Width, 1 / 15 * Me.Height, SWP_SHOWWINDOW)
  408. '连接数据库
  409. zl_tjForm.Left = (Screen.Width - zl_tjForm.Width) / 2
  410. zl_tjForm.Top = (Screen.Height - zl_tjForm.Height) / 2
  411. Call lind_zldbti
  412. zl_tjAdodc.Visible = False
  413. DataGrid1.Visible = False
  414. End Sub
  415. Sub lind_zldbti()
  416. Dim dbpath As String
  417.  
  418. If Right(App.Path, 1) <> "" Then
  419. dbpath = App.Path & ""
  420. Else
  421. dbpath = App.Path
  422. End If
  423.  
  424.  '以管理员登陆
  425.  'MsgBox "gly"
  426. dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False; Data Source=" & dbpath & "年审评定数据库.mdb"
  427. zl_tjAdodc.ConnectionString = dbpath
  428. zl_tjAdodc.CommandType = adCmdText
  429. zl_tjAdodc.RecordSource = "select * from 驾驶员资料表"
  430. '动态连接数据库时一定要刷新数据库
  431. zl_tjAdodc.Refresh
  432. End Sub
  433. Private Sub Label7_Click()
  434. End Sub