home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Attendance2158637282009.psc / frmMain.frm < prev    next >
Text File  |  2009-05-28  |  9KB  |  282 lines
  1. VERSION 5.00
  2. Object = "{EAFDAFBF-1D88-41DD-B117-60ECBC4B8441}#1.0#0"; "vkUserControlsXP.ocx"
  3. Begin VB.Form frmMain 
  4.    Caption         =   "Login"
  5.    ClientHeight    =   2535
  6.    ClientLeft      =   120
  7.    ClientTop       =   420
  8.    ClientWidth     =   5070
  9.    Icon            =   "frmMain.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2535
  12.    ScaleWidth      =   5070
  13.    StartUpPosition =   1  'CenterOwner
  14.    Begin vkUserContolsXP.vkScrollContainer vkScrollContainer1 
  15.       Height          =   2895
  16.       Left            =   0
  17.       TabIndex        =   0
  18.       Top             =   0
  19.       Width           =   5055
  20.       _ExtentX        =   8916
  21.       _ExtentY        =   5106
  22.       Begin VB.TextBox txtStaffID 
  23.          Height          =   285
  24.          Left            =   720
  25.          TabIndex        =   8
  26.          Text            =   "Text1"
  27.          Top             =   1680
  28.          Visible         =   0   'False
  29.          Width           =   495
  30.       End
  31.       Begin VB.TextBox txtRole 
  32.          Height          =   285
  33.          Left            =   240
  34.          TabIndex        =   7
  35.          Text            =   "Text1"
  36.          Top             =   1680
  37.          Visible         =   0   'False
  38.          Width           =   375
  39.       End
  40.       Begin vkUserContolsXP.vkCommand btnRegister 
  41.          Height          =   375
  42.          Left            =   2160
  43.          TabIndex        =   6
  44.          Top             =   1920
  45.          Width           =   2295
  46.          _ExtentX        =   4048
  47.          _ExtentY        =   661
  48.          Caption         =   "REGISTER USER"
  49.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  50.             Name            =   "MS Sans Serif"
  51.             Size            =   8.25
  52.             Charset         =   0
  53.             Weight          =   400
  54.             Underline       =   0   'False
  55.             Italic          =   0   'False
  56.             Strikethrough   =   0   'False
  57.          EndProperty
  58.       End
  59.       Begin vkUserContolsXP.vkCommand btnLogin 
  60.          Height          =   375
  61.          Left            =   2160
  62.          TabIndex        =   5
  63.          Top             =   1320
  64.          Width           =   2295
  65.          _ExtentX        =   4048
  66.          _ExtentY        =   661
  67.          Caption         =   "LOGIN"
  68.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  69.             Name            =   "MS Sans Serif"
  70.             Size            =   8.25
  71.             Charset         =   0
  72.             Weight          =   400
  73.             Underline       =   0   'False
  74.             Italic          =   0   'False
  75.             Strikethrough   =   0   'False
  76.          EndProperty
  77.       End
  78.       Begin vkUserContolsXP.vkTextBox txtPassword 
  79.          Height          =   255
  80.          Left            =   2160
  81.          TabIndex        =   4
  82.          Top             =   840
  83.          Width           =   2295
  84.          _ExtentX        =   4048
  85.          _ExtentY        =   450
  86.          BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  87.             Name            =   "MS Sans Serif"
  88.             Size            =   8.25
  89.             Charset         =   0
  90.             Weight          =   400
  91.             Underline       =   0   'False
  92.             Italic          =   0   'False
  93.             Strikethrough   =   0   'False
  94.          EndProperty
  95.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  96.             Name            =   "MS Sans Serif"
  97.             Size            =   8.25
  98.             Charset         =   0
  99.             Weight          =   400
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          PassWordChar    =   "*"
  105.          LegendForeColor =   15695701
  106.       End
  107.       Begin vkUserContolsXP.vkTextBox txtUsername 
  108.          Height          =   255
  109.          Left            =   2160
  110.          TabIndex        =   3
  111.          Top             =   480
  112.          Width           =   2295
  113.          _ExtentX        =   4048
  114.          _ExtentY        =   450
  115.          BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  116.             Name            =   "MS Sans Serif"
  117.             Size            =   8.25
  118.             Charset         =   0
  119.             Weight          =   400
  120.             Underline       =   0   'False
  121.             Italic          =   0   'False
  122.             Strikethrough   =   0   'False
  123.          EndProperty
  124.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  125.             Name            =   "MS Sans Serif"
  126.             Size            =   8.25
  127.             Charset         =   0
  128.             Weight          =   400
  129.             Underline       =   0   'False
  130.             Italic          =   0   'False
  131.             Strikethrough   =   0   'False
  132.          EndProperty
  133.          LegendForeColor =   15695701
  134.       End
  135.       Begin vkUserContolsXP.vkLabel vkLabel2 
  136.          Height          =   255
  137.          Left            =   120
  138.          TabIndex        =   2
  139.          Top             =   840
  140.          Width           =   1935
  141.          _ExtentX        =   3413
  142.          _ExtentY        =   450
  143.          BackColor       =   16777215
  144.          BackStyle       =   0
  145.          Caption         =   "Password :"
  146.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  147.             Name            =   "MS Sans Serif"
  148.             Size            =   8.25
  149.             Charset         =   0
  150.             Weight          =   400
  151.             Underline       =   0   'False
  152.             Italic          =   0   'False
  153.             Strikethrough   =   0   'False
  154.          EndProperty
  155.       End
  156.       Begin vkUserContolsXP.vkLabel vkLabel1 
  157.          Height          =   255
  158.          Left            =   120
  159.          TabIndex        =   1
  160.          Top             =   480
  161.          Width           =   1935
  162.          _ExtentX        =   3413
  163.          _ExtentY        =   450
  164.          BackColor       =   16777215
  165.          BackStyle       =   0
  166.          Caption         =   "Username :"
  167.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  168.             Name            =   "MS Sans Serif"
  169.             Size            =   8.25
  170.             Charset         =   0
  171.             Weight          =   400
  172.             Underline       =   0   'False
  173.             Italic          =   0   'False
  174.             Strikethrough   =   0   'False
  175.          EndProperty
  176.       End
  177.    End
  178. End
  179. Attribute VB_Name = "frmMain"
  180. Attribute VB_GlobalNameSpace = False
  181. Attribute VB_Creatable = False
  182. Attribute VB_PredeclaredId = True
  183. Attribute VB_Exposed = False
  184. Option Explicit
  185.  
  186. Dim db_name As String
  187. Dim db_server As String
  188. Dim db_port As String
  189. Dim db_user As String
  190. Dim db_pass As String
  191. Dim db_driver As String
  192. Dim constr As String
  193. Dim conn As ADODB.Connection
  194. Dim rsQuery
  195. Dim SQLText As String
  196.  
  197. Private Sub btnLogin_Click()
  198.     Dim staff_username As String
  199.     Dim staff_password As String
  200.     Dim staff_role As String
  201.     Dim staff_id As Long
  202.     
  203.     OpenServer
  204.     'Create table
  205.     
  206.     Set rsQuery = CreateObject("ADODB.Recordset")
  207.     SQLText = "SELECT StaffID,username,password,role FROM staff where username='" & txtUsername.Text & "' and password=SHA1('" & txtPassword.Text & "')"
  208.     Set rsQuery = conn.Execute(SQLText)
  209.          
  210.     If Not rsQuery.EOF Then
  211.         staff_role = rsQuery("role")
  212.         staff_id = rsQuery("StaffID")
  213.         txtRole.Text = staff_role
  214.         txtStaffID.Text = staff_id
  215.         frmMain2.Show
  216.         Unload Me
  217.     Else
  218.         MsgBox "Wrong Username or Password please try again."
  219.         txtUsername.Text = ""
  220.         txtPassword.Text = ""
  221.     End If
  222.     
  223.     
  224. End Sub
  225.  
  226. Private Sub btnRegister_Click()
  227.     frmAddUser.Show
  228. End Sub
  229.  
  230. Private Sub Form_Load()
  231.     OpenFileConfig
  232.     OpenServer ' Open without ODBC in Control Panel
  233. End Sub
  234. Private Sub OpenServer() 'Connect MySQL Server Without ODBC setup
  235. On Error GoTo DBerror
  236.     
  237.     constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=" & db_user & ";Extended Properties=" & Chr$(34) & "DRIVER={" & db_driver & "};DESC=;DATABASE=" & db_name & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
  238.     Set conn = New ADODB.Connection
  239.     conn.Open constr
  240.     
  241.     Exit Sub
  242.  
  243. DBerror:
  244.     frmSetupDB.Show
  245.     Unload Me
  246. End Sub
  247.  
  248. Private Sub OpenFileConfig()
  249.   On Error GoTo eexit
  250.     
  251.    Dim path As String
  252.    Dim aRecord As String
  253.    Dim EqualTo As Integer
  254.    
  255.   Open path & "Config.ebu" For Input As #2
  256.   
  257.    Do Until (EOF(2) = True)
  258.      Input #2, aRecord
  259.      EqualTo = InStr(aRecord, "=")
  260.     
  261.     Select Case Left(aRecord, EqualTo - 1)
  262.      
  263.     'Config DB
  264.     Case "db_name"
  265.         db_name = Mid(aRecord, EqualTo + 1)
  266.     Case "db_server"
  267.         db_server = Mid(aRecord, EqualTo + 1)
  268.     Case "db_port"
  269.         db_port = Mid(aRecord, EqualTo + 1)
  270.     Case "db_user"
  271.         db_user = Mid(aRecord, EqualTo + 1)
  272.     Case "db_pass"
  273.         db_pass = Mid(aRecord, EqualTo + 1)
  274.     Case "db_driver"
  275.         db_driver = Mid(aRecord, EqualTo + 1)
  276.  
  277.     End Select
  278.   Loop
  279. eexit:
  280.   Close 2
  281. End Sub
  282.