home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / airline_re204714292007.psc / DialogEmpNo.frm < prev    next >
Text File  |  2003-04-08  |  2KB  |  77 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDialog 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Dialog Caption"
  5.    ClientHeight    =   2100
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6030
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2100
  14.    ScaleWidth      =   6030
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "OK"
  18.       Height          =   375
  19.       Left            =   360
  20.       TabIndex        =   2
  21.       Top             =   1440
  22.       Width           =   735
  23.    End
  24.    Begin VB.ComboBox Combo1 
  25.       Height          =   315
  26.       Left            =   360
  27.       TabIndex        =   0
  28.       Top             =   840
  29.       Width           =   4455
  30.    End
  31.    Begin VB.Label Label1 
  32.       Caption         =   "Employee ID"
  33.       BeginProperty Font 
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   13.5
  36.          Charset         =   0
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   375
  43.       Left            =   360
  44.       TabIndex        =   1
  45.       Top             =   360
  46.       Width           =   2535
  47.    End
  48. End
  49. Attribute VB_Name = "frmDialog"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54.  
  55. Option Explicit
  56.  
  57. Private Sub Command1_Click()
  58. If Len(Trim(Combo1.Text)) > 0 Then
  59.     frmEmpDetails.empNoDialog = Combo1.Text
  60.     MsgBox frmEmpDetails.empNoDialog
  61.     frmEmpDetails.flag = "e"
  62.     frmEmpDetails.prcEnabled
  63.     Unload Me
  64.  
  65. End If
  66. End Sub
  67.  
  68. Private Sub Form_Load()
  69. prcConnection
  70. rs.Open "Select * from empmaster", con, adOpenDynamic, adLockOptimistic
  71. Do While Not rs.EOF
  72.     Combo1.AddItem rs("empno")
  73.     rs.MoveNext
  74. Loop
  75. rs.Close
  76. End Sub
  77.