home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP14 / DeDemo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-06-11  |  2.8 KB  |  92 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton cmdQuit 
  13.       Caption         =   "Quit"
  14.       Height          =   375
  15.       Left            =   3120
  16.       TabIndex        =   6
  17.       Top             =   2520
  18.       Width           =   1335
  19.    End
  20.    Begin VB.CommandButton cmdNext 
  21.       Caption         =   "Next"
  22.       Height          =   375
  23.       Left            =   1680
  24.       TabIndex        =   5
  25.       Top             =   2520
  26.       Width           =   1335
  27.    End
  28.    Begin VB.CommandButton cmdPrev 
  29.       Caption         =   "Previous"
  30.       Height          =   375
  31.       Left            =   240
  32.       TabIndex        =   4
  33.       Top             =   2520
  34.       Width           =   1335
  35.    End
  36.    Begin VB.TextBox txtEmpId 
  37.       DataField       =   "EmployeeID"
  38.       DataMember      =   "cmdEmployees"
  39.       DataSource      =   "deNorthWind"
  40.       Height          =   375
  41.       Left            =   1680
  42.       TabIndex        =   1
  43.       Text            =   "Text2"
  44.       Top             =   720
  45.       Width           =   1815
  46.    End
  47.    Begin VB.TextBox txtEmployeeName 
  48.       Height          =   375
  49.       Left            =   1680
  50.       TabIndex        =   0
  51.       Text            =   "Text1"
  52.       Top             =   240
  53.       Width           =   1815
  54.    End
  55.    Begin VB.Label lblName 
  56.       Caption         =   "Employee Name"
  57.       Height          =   255
  58.       Left            =   120
  59.       TabIndex        =   3
  60.       Top             =   360
  61.       Width           =   1455
  62.    End
  63.    Begin VB.Label lblID 
  64.       Caption         =   "Employee ID"
  65.       Height          =   255
  66.       Left            =   120
  67.       TabIndex        =   2
  68.       Top             =   840
  69.       Width           =   1455
  70.    End
  71. Attribute VB_Name = "Form1"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Private Sub cmdNext_Click()
  77. deNorthWind.rscmdEmployees.MoveNext
  78. txtEmployeeName.Text = deNorthWind.rscmdEmployees.Fields!firstname & _
  79.                     deNorthWind.rscmdEmployees.Fields!lastname
  80. End Sub
  81. Private Sub cmdPrev_Click()
  82. deNorthWind.rscmdEmployees.MovePrevious
  83. txtEmployeeName.Text = deNorthWind.rscmdEmployees.Fields!firstname & _
  84.                     deNorthWind.rscmdEmployees.Fields!lastname
  85. End Sub
  86. Private Sub cmdQuit_Click()
  87. End Sub
  88. Private Sub Form_Load()
  89. txtEmployeeName.Text = deNorthWind.rscmdEmployees.Fields!firstname & _
  90.                     deNorthWind.rscmdEmployees.Fields!lastname
  91. End Sub
  92.