English
dlForm.frm
资源名称：七八个vb游戏.rar [点击查看]
上传用户：tashmp
上传日期：2010-04-03
资源大小：882k
文件大小：12k
源码类别：
其他游戏
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
- Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
- Begin VB.Form dlForm
- BackColor = &H00FF8080&
- BorderStyle = 1 'Fixed Single
- Caption = "驾照年审评定登陆界面"
- ClientHeight = 4230
- ClientLeft = 45
- ClientTop = 375
- ClientWidth = 6420
- FillColor = &H8000000E&
- Icon = "dlForm.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- ScaleHeight = 4230
- ScaleWidth = 6420
- StartUpPosition = 3 'Windows Default
- Begin MSAdodcLib.Adodc dlAdodc
- Height = 375
- Left = 2640
- Top = 3480
- Width = 1200
- _ExtentX = 2117
- _ExtentY = 661
- ConnectMode = 0
- CursorLocation = 3
- IsolationLevel = -1
- ConnectionTimeout= 15
- CommandTimeout = 30
- CursorType = 3
- LockType = 3
- CommandType = 8
- CursorOptions = 0
- CacheSize = 50
- MaxRecords = 0
- BOFAction = 0
- EOFAction = 0
- ConnectStringType= 1
- Appearance = 1
- BackColor = -2147483643
- ForeColor = -2147483640
- Orientation = 0
- Enabled = -1
- Connect = ""
- OLEDBString = ""
- OLEDBFile = ""
- DataSourceName = ""
- OtherAttributes = ""
- UserName = ""
- Password = ""
- RecordSource = ""
- Caption = "Adodc1"
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- _Version = 393216
- End
- Begin MSDataGridLib.DataGrid DataGrid1
- Bindings = "dlForm.frx":030A
- Height = 1935
- Left = 6000
- TabIndex = 10
- Top = 1080
- Width = 1815
- _ExtentX = 3201
- _ExtentY = 3413
- _Version = 393216
- HeadLines = 1
- RowHeight = 15
- BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ColumnCount = 2
- BeginProperty Column00
- DataField = ""
- Caption = ""
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column01
- DataField = ""
- Caption = ""
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- SplitCount = 1
- BeginProperty Split0
- BeginProperty Column00
- EndProperty
- BeginProperty Column01
- EndProperty
- EndProperty
- End
- Begin VB.ComboBox Combo1
- BackColor = &H00FFFFFF&
- Height = 315
- Left = 5760
- TabIndex = 9
- Text = "Combo1"
- Top = 3600
- Width = 495
- End
- Begin VB.CommandButton Command2
- BackColor = &H00FF8080&
- Caption = "退出"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 12
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 4080
- Style = 1 'Graphical
- TabIndex = 7
- Top = 3360
- Width = 1575
- End
- Begin VB.CommandButton Command1
- BackColor = &H00FF8080&
- Caption = "登陆"
- Default = -1 'True
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 12
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 720
- Style = 1 'Graphical
- TabIndex = 6
- Top = 3360
- Width = 1575
- End
- Begin VB.Frame Frame1
- BackColor = &H00FF8080&
- Height = 2295
- Left = 360
- TabIndex = 1
- Top = 840
- Width = 5535
- Begin VB.ComboBox Comboyh
- BackColor = &H00FFFFFF&
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 360
- Left = 1440
- TabIndex = 8
- Text = "Combo1"
- Top = 360
- Width = 2775
- End
- Begin VB.CheckBox Check1
- BackColor = &H00FF8080&
- Caption = "管理员登陆"
- Height = 375
- Left = 1440
- TabIndex = 5
- Top = 1800
- Value = 1 'Checked
- Width = 1335
- End
- Begin VB.TextBox Text1
- BackColor = &H8000000E&
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 9.75
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 375
- IMEMode = 3 'DISABLE
- Left = 1440
- PasswordChar = "*"
- TabIndex = 4
- Top = 1200
- Width = 2655
- End
- Begin VB.Image Image2
- Height = 720
- Left = 4560
- Picture = "dlForm.frx":0320
- Top = 1440
- Width = 720
- End
- Begin VB.Image Image1
- Height = 480
- Left = 4560
- Picture = "dlForm.frx":1AA2
- Top = 360
- Width = 480
- End
- Begin VB.Label Label3
- BackStyle = 0 'Transparent
- Caption = "密码"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 13.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 495
- Left = 240
- TabIndex = 3
- Top = 1080
- Width = 855
- End
- Begin VB.Label Label2
- BackStyle = 0 'Transparent
- Caption = "用户名"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 13.5
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 615
- Left = 240
- TabIndex = 2
- Top = 360
- Width = 975
- End
- End
- Begin VB.Label Label1
- BackStyle = 0 'Transparent
- Caption = "欢迎使用驾照年审管理系统"
- BeginProperty Font
- Name = "方正舒体"
- Size = 24
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H008080FF&
- Height = 615
- Left = 240
- TabIndex = 0
- Top = 120
- Width = 6015
- End
- End
- Attribute VB_Name = "dlForm"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub Comboyh_Click()
- Dim i As Integer
- End Sub
- '系统登陆button
- Private Sub Command1_Click()
- If Comboyh.Text <> "" And Text1.Text <> "" Then
- Dim flag As Boolean
- Dim con As Boolean
- '连接数据库
- Call dtlinedb
- 'flag = is_name_exit()
- 'Debug.Print flag
- '不存在加入文件名
- 'If flag = False Then
- 'Call add_name_to_file(Comboyh.Text)
- 'End If
- ''检查密码
- con = mima_right()
- If con = True Then
- '登陆成功
- ' flag = is_name_exit()
- 'Debug.Print flag
- '不存在加入文件名
- 'If flag = False Then
- Call add_name_to_file(Comboyh.Text)
- 'End If
- '成功登陆的权限分配
- If Check1.Value = 1 Then
- '分配管理员的权限
- priview = "admini"
- '进入主界面
- 'Debug.Print priview
- Unload Me
- mainForm.Show
- Else
- '进入主界面
- priview = "yh"
- 'Debug.Print priview
- Unload Me
- mainForm.Show
- End If
- Else
- MsgBox "请输入正确的密码!", 64, "提示对话框"
- End If
- Else
- MsgBox "请输入完整的用户名和密码!", 16, "提示对话框"
- End If
- End Sub
- Private Sub Command2_Click()
- End
- End Sub
- Private Sub Command3_Click()
- Dim i As Integer
- For i = 0 To dlAdodc.Recordset.RecordCount - 1 Step 1
- Debug.Print dlAdodc.Recordset.Fields(i).Value
- Next i
- End Sub
- '登陆界面
- Private Sub Form_Load()
- dlAdodc.Visible = False
- DataGrid1.Visible = False
- '窗体居中显示
- Me.Left = (Screen.Width - Me.Width) / 2 - 100
- Me.Top = (Screen.Height - Me.Height) / 2 - 150
- Me.Show '显示窗题
- '读入最近登陆的3个用户到comboyh中
- Call getzh
- '连接数据库
- 'Call dtlinedb
- End Sub
