home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / sdk / dbmsg / sql / vbsql / adblogon.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-03  |  8.5 KB  |  276 lines
  1. VERSION 2.00
  2. Begin Form fLogin 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Logon to SQL Server"
  6.    ControlBox      =   0   'False
  7.    ForeColor       =   &H00C0C0C0&
  8.    Height          =   2850
  9.    Left            =   2100
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2445
  16.    ScaleWidth      =   3480
  17.    Top             =   1875
  18.    Width           =   3600
  19.    Begin SSPanel Panel3D4 
  20.       AutoSize        =   3  'AutoSize Child To Panel
  21.       BackColor       =   &H00C0C0C0&
  22.       BevelInner      =   1  'Inset
  23.       BevelOuter      =   0  'None
  24.       BorderWidth     =   0
  25.       Font3D          =   0  'None
  26.       ForeColor       =   &H00000000&
  27.       Height          =   330
  28.       Left            =   1110
  29.       TabIndex        =   12
  30.       Top             =   1410
  31.       Width           =   2145
  32.       Begin TextBox txtDatabase 
  33.          BackColor       =   &H00FFFFFF&
  34.          ForeColor       =   &H00000000&
  35.          Height          =   300
  36.          Left            =   15
  37.          TabIndex        =   13
  38.          Top             =   15
  39.          Width           =   2115
  40.       End
  41.    End
  42.    Begin SSPanel Panel3D3 
  43.       AutoSize        =   3  'AutoSize Child To Panel
  44.       BackColor       =   &H00C0C0C0&
  45.       BevelInner      =   1  'Inset
  46.       BevelOuter      =   0  'None
  47.       BorderWidth     =   0
  48.       Font3D          =   0  'None
  49.       ForeColor       =   &H00000000&
  50.       Height          =   330
  51.       Left            =   1110
  52.       TabIndex        =   10
  53.       Top             =   975
  54.       Width           =   2145
  55.       Begin TextBox txtPassword 
  56.          BackColor       =   &H00FFFFFF&
  57.          ForeColor       =   &H00000000&
  58.          Height          =   300
  59.          Left            =   15
  60.          PasswordChar    =   "*"
  61.          TabIndex        =   11
  62.          Top             =   15
  63.          Width           =   2115
  64.       End
  65.    End
  66.    Begin SSPanel Panel3D2 
  67.       AutoSize        =   3  'AutoSize Child To Panel
  68.       BackColor       =   &H00C0C0C0&
  69.       BevelInner      =   1  'Inset
  70.       BevelOuter      =   0  'None
  71.       BorderWidth     =   0
  72.       Font3D          =   0  'None
  73.       ForeColor       =   &H00000000&
  74.       Height          =   330
  75.       Left            =   1110
  76.       TabIndex        =   8
  77.       Top             =   555
  78.       Width           =   2145
  79.       Begin TextBox txtLoginId 
  80.          BackColor       =   &H00FFFFFF&
  81.          Height          =   300
  82.          Left            =   15
  83.          TabIndex        =   9
  84.          Top             =   15
  85.          Width           =   2115
  86.       End
  87.    End
  88.    Begin SSPanel Panel3D1 
  89.       AutoSize        =   3  'AutoSize Child To Panel
  90.       BackColor       =   &H00C0C0C0&
  91.       BevelInner      =   1  'Inset
  92.       BevelOuter      =   0  'None
  93.       BorderWidth     =   0
  94.       Font3D          =   0  'None
  95.       ForeColor       =   &H00000000&
  96.       Height          =   330
  97.       Left            =   1110
  98.       TabIndex        =   6
  99.       Top             =   135
  100.       Width           =   2145
  101.       Begin ComboBox cboServer 
  102.          BackColor       =   &H00FFFFFF&
  103.          Height          =   300
  104.          Left            =   15
  105.          TabIndex        =   7
  106.          Text            =   "Combo1"
  107.          Top             =   15
  108.          Width           =   2115
  109.       End
  110.    End
  111.    Begin CommandButton cmdLogin 
  112.       Caption         =   "&Login"
  113.       Default         =   -1  'True
  114.       Height          =   390
  115.       Left            =   225
  116.       TabIndex        =   0
  117.       Top             =   1920
  118.       Width           =   1335
  119.    End
  120.    Begin CommandButton cmdCancel 
  121.       Caption         =   "&Cancel"
  122.       Height          =   390
  123.       Left            =   1875
  124.       TabIndex        =   2
  125.       Top             =   1920
  126.       Width           =   1335
  127.    End
  128.    Begin Label lblLogin 
  129.       AutoSize        =   -1  'True
  130.       BackColor       =   &H00C0C0C0&
  131.       Caption         =   "Database"
  132.       Height          =   195
  133.       Index           =   3
  134.       Left            =   165
  135.       TabIndex        =   5
  136.       Top             =   1515
  137.       Width           =   825
  138.    End
  139.    Begin Label lblLogin 
  140.       AutoSize        =   -1  'True
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   "Password"
  143.       Height          =   195
  144.       Index           =   2
  145.       Left            =   165
  146.       TabIndex        =   4
  147.       Top             =   1080
  148.       Width           =   825
  149.    End
  150.    Begin Label lblLogin 
  151.       AutoSize        =   -1  'True
  152.       BackColor       =   &H00C0C0C0&
  153.       Caption         =   "Login Id"
  154.       Height          =   195
  155.       Index           =   0
  156.       Left            =   165
  157.       TabIndex        =   3
  158.       Top             =   660
  159.       Width           =   705
  160.    End
  161.    Begin Label lblLogin 
  162.       AutoSize        =   -1  'True
  163.       BackColor       =   &H00C0C0C0&
  164.       Caption         =   "Server"
  165.       Height          =   195
  166.       Index           =   1
  167.       Left            =   165
  168.       TabIndex        =   1
  169.       Top             =   255
  170.       Width           =   570
  171.    End
  172. Sub cmdCancel_Click ()
  173.     Unload Me
  174. End Sub
  175. Sub cmdLogin_Click ()
  176. Dim Channel%
  177. On Error GoTo LoginError
  178.     screen.MousePointer = 11
  179.     Server$ = cboServer.Text
  180.     LoginId$ = txtLoginId.Text
  181.     Password$ = txtPassword.Text
  182.     Database$ = txtDatabase.Text
  183.     WorkSta$ = ""
  184.     Res% = SQLSetLogintime(30)
  185.     Res% = SQLSettime(30)
  186.     Channel% = Logon%(Server$, LoginId$, Password$, WorkSta$, AppName$)
  187.     If (Channel% = FAIL%) Then
  188.         Beep
  189.         txtPassword.SetFocus
  190.     Else
  191.         Results% = SqlUse(Channel%, Database$)
  192.         If (Results% = FAIL%) Then
  193.             Beep
  194.             MsgBox "Could not access database " + Database$
  195.             GoTo LoginError
  196.         Else
  197.             MDIMA.altAuthors.Enabled = True
  198.             MDIMA.altLogout.Enabled = True
  199.             MDIMA.cmdLogout.Enabled = True
  200.             ' Get info on who is logged in for panel display:
  201.             Res% = SQLComm(Channel%, "select User_Name()")
  202.             If Res% = SUCCEED% Then
  203.                 Res% = SQLNextRow(Channel%)
  204.                 If REGROW Then
  205.                     SQLUser$ = SQLData(Channel%, 1)
  206.                 Else
  207.                     SQLUser$ = ""
  208.                 End If
  209.             Else
  210.                 SQLUser$ = ""
  211.             End If
  212.             Sqlclose (Channel%)
  213.             'Save login info in local log file for next time:
  214.             Open "c:\adbpubs.log" For Output As #1
  215.             Print #1, Server$
  216.             Print #1, Database$
  217.             Print #1, LoginId$
  218.             Close #1
  219.             screen.MousePointer = 0
  220.             MDIMA.cmdUnloadActForms.Value = True
  221.         End If
  222.     End If
  223. LoginExit:
  224.     SetLoginInfo Server$, LoginId$, Database$, SQLUser$
  225.     screen.MousePointer = 0
  226.     Exit Sub
  227. LoginError:
  228.     Resume Next
  229. End Sub
  230. Sub Form_Load ()
  231. Dim Srvr$, Db$, Usr$
  232. On Error GoTo FormLoadError
  233.     cboServer.Text = ""
  234.     txtLoginId.Text = ""
  235.     txtPassword.Text = ""
  236.     txtDatabase.Text = ""
  237.     Me.Width = 3600
  238.     Me.Height = 2850
  239.     Me.Top = screen.Height / 2 - Me.Height / 2 - 710
  240.     Me.Left = screen.Width / 2 - Me.Width / 2
  241.     Open "c:\adbpubs.log" For Input As #1
  242.     Input #1, Srvr$
  243.     Input #1, Db$
  244.     Input #1, Usr$
  245.     Close #1
  246.     cboServer.Text = Srvr$
  247.     txtDatabase.Text = Db$
  248.     txtLoginId.Text = Usr$
  249.     Me.Show
  250.     If Len(RTrim$(cboServer.Text)) Then txtPassword.SetFocus
  251. FormLoadExit:
  252.     Exit Sub
  253. FormLoadError:
  254.     Resume FormLoadExit
  255. End Sub
  256. Sub SetLoginInfo (pServer$, pLoginId$, pDatabase$, pUser$)
  257. Dim lInfo$
  258.     lInfo$ = " Server: " + pServer$
  259.     lInfo$ = lInfo$ + "    Login: " + pLoginId$
  260.     lInfo$ = lInfo$ + "    Database: " + pDatabase$
  261.     lInfo$ = lInfo$ + "    User: " + pUser$
  262.     MDIMA.panInfo.Caption = lInfo$
  263. End Sub
  264. Sub txtDatabase_GotFocus ()
  265.     txtDatabase.SelStart = 0
  266.     txtDatabase.SelLength = Len(txtDatabase.Text)
  267. End Sub
  268. Sub txtLoginId_GotFocus ()
  269.     txtLoginId.SelStart = 0
  270.     txtLoginId.SelLength = Len(txtLoginId.Text)
  271. End Sub
  272. Sub txtPassword_GotFocus ()
  273.     txtPassword.SelStart = 0
  274.     txtPassword.SelLength = Len(txtPassword.Text)
  275. End Sub
  276.