home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch18 / denv1 / frmdata.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-07-14  |  17.1 KB  |  540 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDataEnv 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5940
  5.    ClientLeft      =   60
  6.    ClientTop       =   348
  7.    ClientWidth     =   5868
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5940
  10.    ScaleWidth      =   5868
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command4 
  13.       Caption         =   "Last"
  14.       BeginProperty Font 
  15.          Name            =   "Verdana"
  16.          Size            =   9.6
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   375
  24.       Left            =   4170
  25.       TabIndex        =   25
  26.       Top             =   4845
  27.       Width           =   1200
  28.    End
  29.    Begin VB.CommandButton Command3 
  30.       Caption         =   "Next"
  31.       BeginProperty Font 
  32.          Name            =   "Verdana"
  33.          Size            =   9.6
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   375
  41.       Left            =   2870
  42.       TabIndex        =   24
  43.       Top             =   4845
  44.       Width           =   1200
  45.    End
  46.    Begin VB.CommandButton Command2 
  47.       Caption         =   "Previous"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   9.6
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   375
  58.       Left            =   1555
  59.       TabIndex        =   23
  60.       Top             =   4845
  61.       Width           =   1200
  62.    End
  63.    Begin VB.CommandButton Command1 
  64.       Caption         =   "First"
  65.       BeginProperty Font 
  66.          Name            =   "Verdana"
  67.          Size            =   9.6
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   375
  75.       Left            =   240
  76.       TabIndex        =   22
  77.       Top             =   4845
  78.       Width           =   1200
  79.    End
  80.    Begin VB.TextBox txtFax 
  81.       DataField       =   "Fax"
  82.       DataMember      =   "Command1"
  83.       DataSource      =   "DataEnvironment1"
  84.       BeginProperty Font 
  85.          Name            =   "Verdana"
  86.          Size            =   9
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   285
  94.       Left            =   2025
  95.       TabIndex        =   21
  96.       Top             =   4170
  97.       Width           =   3375
  98.    End
  99.    Begin VB.TextBox txtPhone 
  100.       DataField       =   "Phone"
  101.       DataMember      =   "Command1"
  102.       DataSource      =   "DataEnvironment1"
  103.       BeginProperty Font 
  104.          Name            =   "Verdana"
  105.          Size            =   9
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   285
  113.       Left            =   2025
  114.       TabIndex        =   19
  115.       Top             =   3795
  116.       Width           =   3375
  117.    End
  118.    Begin VB.TextBox txtCountry 
  119.       DataField       =   "Country"
  120.       DataMember      =   "Command1"
  121.       DataSource      =   "DataEnvironment1"
  122.       BeginProperty Font 
  123.          Name            =   "Verdana"
  124.          Size            =   9
  125.          Charset         =   0
  126.          Weight          =   400
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       Height          =   285
  132.       Left            =   2025
  133.       TabIndex        =   17
  134.       Top             =   3420
  135.       Width           =   2475
  136.    End
  137.    Begin VB.TextBox txtPostalCode 
  138.       DataField       =   "PostalCode"
  139.       DataMember      =   "Command1"
  140.       DataSource      =   "DataEnvironment1"
  141.       BeginProperty Font 
  142.          Name            =   "Verdana"
  143.          Size            =   9
  144.          Charset         =   0
  145.          Weight          =   400
  146.          Underline       =   0   'False
  147.          Italic          =   0   'False
  148.          Strikethrough   =   0   'False
  149.       EndProperty
  150.       Height          =   285
  151.       Left            =   2025
  152.       TabIndex        =   15
  153.       Top             =   3030
  154.       Width           =   1650
  155.    End
  156.    Begin VB.TextBox txtRegion 
  157.       DataField       =   "Region"
  158.       DataMember      =   "Command1"
  159.       DataSource      =   "DataEnvironment1"
  160.       BeginProperty Font 
  161.          Name            =   "Verdana"
  162.          Size            =   9
  163.          Charset         =   0
  164.          Weight          =   400
  165.          Underline       =   0   'False
  166.          Italic          =   0   'False
  167.          Strikethrough   =   0   'False
  168.       EndProperty
  169.       Height          =   285
  170.       Left            =   2025
  171.       TabIndex        =   13
  172.       Top             =   2655
  173.       Width           =   2475
  174.    End
  175.    Begin VB.TextBox txtCity 
  176.       DataField       =   "City"
  177.       DataMember      =   "Command1"
  178.       DataSource      =   "DataEnvironment1"
  179.       BeginProperty Font 
  180.          Name            =   "Verdana"
  181.          Size            =   9
  182.          Charset         =   0
  183.          Weight          =   400
  184.          Underline       =   0   'False
  185.          Italic          =   0   'False
  186.          Strikethrough   =   0   'False
  187.       EndProperty
  188.       Height          =   285
  189.       Left            =   2025
  190.       TabIndex        =   11
  191.       Top             =   2280
  192.       Width           =   2475
  193.    End
  194.    Begin VB.TextBox txtAddress 
  195.       DataField       =   "Address"
  196.       DataMember      =   "Command1"
  197.       DataSource      =   "DataEnvironment1"
  198.       BeginProperty Font 
  199.          Name            =   "Verdana"
  200.          Size            =   9
  201.          Charset         =   0
  202.          Weight          =   400
  203.          Underline       =   0   'False
  204.          Italic          =   0   'False
  205.          Strikethrough   =   0   'False
  206.       EndProperty
  207.       Height          =   285
  208.       Left            =   2025
  209.       TabIndex        =   9
  210.       Top             =   1890
  211.       Width           =   3375
  212.    End
  213.    Begin VB.TextBox txtContactTitle 
  214.       DataField       =   "ContactTitle"
  215.       DataMember      =   "Command1"
  216.       DataSource      =   "DataEnvironment1"
  217.       BeginProperty Font 
  218.          Name            =   "Verdana"
  219.          Size            =   9
  220.          Charset         =   0
  221.          Weight          =   400
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       Height          =   285
  227.       Left            =   2025
  228.       TabIndex        =   7
  229.       Top             =   1515
  230.       Width           =   3375
  231.    End
  232.    Begin VB.TextBox txtContactName 
  233.       DataField       =   "ContactName"
  234.       DataMember      =   "Command1"
  235.       DataSource      =   "DataEnvironment1"
  236.       BeginProperty Font 
  237.          Name            =   "Verdana"
  238.          Size            =   9
  239.          Charset         =   0
  240.          Weight          =   400
  241.          Underline       =   0   'False
  242.          Italic          =   0   'False
  243.          Strikethrough   =   0   'False
  244.       EndProperty
  245.       Height          =   285
  246.       Left            =   2025
  247.       TabIndex        =   5
  248.       Top             =   1140
  249.       Width           =   3375
  250.    End
  251.    Begin VB.TextBox txtCompanyName 
  252.       DataField       =   "CompanyName"
  253.       DataMember      =   "Command1"
  254.       DataSource      =   "DataEnvironment1"
  255.       BeginProperty Font 
  256.          Name            =   "Verdana"
  257.          Size            =   9
  258.          Charset         =   0
  259.          Weight          =   400
  260.          Underline       =   0   'False
  261.          Italic          =   0   'False
  262.          Strikethrough   =   0   'False
  263.       EndProperty
  264.       Height          =   285
  265.       Left            =   2025
  266.       TabIndex        =   3
  267.       Top             =   750
  268.       Width           =   3375
  269.    End
  270.    Begin VB.TextBox txtCustomerID 
  271.       DataField       =   "CustomerID"
  272.       DataMember      =   "Command1"
  273.       DataSource      =   "DataEnvironment1"
  274.       BeginProperty Font 
  275.          Name            =   "Verdana"
  276.          Size            =   9
  277.          Charset         =   0
  278.          Weight          =   400
  279.          Underline       =   0   'False
  280.          Italic          =   0   'False
  281.          Strikethrough   =   0   'False
  282.       EndProperty
  283.       Height          =   285
  284.       Left            =   2025
  285.       TabIndex        =   1
  286.       Top             =   375
  287.       Width           =   825
  288.    End
  289.    Begin VB.Label lblFieldLabel 
  290.       Alignment       =   1  'Right Justify
  291.       AutoSize        =   -1  'True
  292.       Caption         =   "Fax:"
  293.       BeginProperty Font 
  294.          Name            =   "Verdana"
  295.          Size            =   9
  296.          Charset         =   0
  297.          Weight          =   400
  298.          Underline       =   0   'False
  299.          Italic          =   0   'False
  300.          Strikethrough   =   0   'False
  301.       EndProperty
  302.       Height          =   210
  303.       Index           =   10
  304.       Left            =   1590
  305.       TabIndex        =   20
  306.       Top             =   4215
  307.       Width           =   405
  308.    End
  309.    Begin VB.Label lblFieldLabel 
  310.       Alignment       =   1  'Right Justify
  311.       AutoSize        =   -1  'True
  312.       Caption         =   "Phone:"
  313.       BeginProperty Font 
  314.          Name            =   "Verdana"
  315.          Size            =   9
  316.          Charset         =   0
  317.          Weight          =   400
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       Height          =   210
  323.       Index           =   9
  324.       Left            =   1320
  325.       TabIndex        =   18
  326.       Top             =   3840
  327.       Width           =   675
  328.    End
  329.    Begin VB.Label lblFieldLabel 
  330.       Alignment       =   1  'Right Justify
  331.       AutoSize        =   -1  'True
  332.       Caption         =   "Country:"
  333.       BeginProperty Font 
  334.          Name            =   "Verdana"
  335.          Size            =   9
  336.          Charset         =   0
  337.          Weight          =   400
  338.          Underline       =   0   'False
  339.          Italic          =   0   'False
  340.          Strikethrough   =   0   'False
  341.       EndProperty
  342.       Height          =   210
  343.       Index           =   8
  344.       Left            =   1170
  345.       TabIndex        =   16
  346.       Top             =   3465
  347.       Width           =   825
  348.    End
  349.    Begin VB.Label lblFieldLabel 
  350.       Alignment       =   1  'Right Justify
  351.       AutoSize        =   -1  'True
  352.       Caption         =   "PostalCode:"
  353.       BeginProperty Font 
  354.          Name            =   "Verdana"
  355.          Size            =   9
  356.          Charset         =   0
  357.          Weight          =   400
  358.          Underline       =   0   'False
  359.          Italic          =   0   'False
  360.          Strikethrough   =   0   'False
  361.       EndProperty
  362.       Height          =   210
  363.       Index           =   7
  364.       Left            =   840
  365.       TabIndex        =   14
  366.       Top             =   3075
  367.       Width           =   1155
  368.    End
  369.    Begin VB.Label lblFieldLabel 
  370.       Alignment       =   1  'Right Justify
  371.       AutoSize        =   -1  'True
  372.       Caption         =   "Region:"
  373.       BeginProperty Font 
  374.          Name            =   "Verdana"
  375.          Size            =   9
  376.          Charset         =   0
  377.          Weight          =   400
  378.          Underline       =   0   'False
  379.          Italic          =   0   'False
  380.          Strikethrough   =   0   'False
  381.       EndProperty
  382.       Height          =   210
  383.       Index           =   6
  384.       Left            =   1275
  385.       TabIndex        =   12
  386.       Top             =   2700
  387.       Width           =   720
  388.    End
  389.    Begin VB.Label lblFieldLabel 
  390.       Alignment       =   1  'Right Justify
  391.       AutoSize        =   -1  'True
  392.       Caption         =   "City:"
  393.       BeginProperty Font 
  394.          Name            =   "Verdana"
  395.          Size            =   9
  396.          Charset         =   0
  397.          Weight          =   400
  398.          Underline       =   0   'False
  399.          Italic          =   0   'False
  400.          Strikethrough   =   0   'False
  401.       EndProperty
  402.       Height          =   210
  403.       Index           =   5
  404.       Left            =   1560
  405.       TabIndex        =   10
  406.       Top             =   2325
  407.       Width           =   435
  408.    End
  409.    Begin VB.Label lblFieldLabel 
  410.       Alignment       =   1  'Right Justify
  411.       AutoSize        =   -1  'True
  412.       Caption         =   "Address:"
  413.       BeginProperty Font 
  414.          Name            =   "Verdana"
  415.          Size            =   9
  416.          Charset         =   0
  417.          Weight          =   400
  418.          Underline       =   0   'False
  419.          Italic          =   0   'False
  420.          Strikethrough   =   0   'False
  421.       EndProperty
  422.       Height          =   210
  423.       Index           =   4
  424.       Left            =   1155
  425.       TabIndex        =   8
  426.       Top             =   1935
  427.       Width           =   840
  428.    End
  429.    Begin VB.Label lblFieldLabel 
  430.       Alignment       =   1  'Right Justify
  431.       AutoSize        =   -1  'True
  432.       Caption         =   "ContactTitle:"
  433.       BeginProperty Font 
  434.          Name            =   "Verdana"
  435.          Size            =   9
  436.          Charset         =   0
  437.          Weight          =   400
  438.          Underline       =   0   'False
  439.          Italic          =   0   'False
  440.          Strikethrough   =   0   'False
  441.       EndProperty
  442.       Height          =   210
  443.       Index           =   3
  444.       Left            =   795
  445.       TabIndex        =   6
  446.       Top             =   1560
  447.       Width           =   1200
  448.    End
  449.    Begin VB.Label lblFieldLabel 
  450.       Alignment       =   1  'Right Justify
  451.       AutoSize        =   -1  'True
  452.       Caption         =   "ContactName:"
  453.       BeginProperty Font 
  454.          Name            =   "Verdana"
  455.          Size            =   9
  456.          Charset         =   0
  457.          Weight          =   400
  458.          Underline       =   0   'False
  459.          Italic          =   0   'False
  460.          Strikethrough   =   0   'False
  461.       EndProperty
  462.       Height          =   210
  463.       Index           =   2
  464.       Left            =   645
  465.       TabIndex        =   4
  466.       Top             =   1185
  467.       Width           =   1350
  468.    End
  469.    Begin VB.Label lblFieldLabel 
  470.       Alignment       =   1  'Right Justify
  471.       AutoSize        =   -1  'True
  472.       Caption         =   "CompanyName:"
  473.       BeginProperty Font 
  474.          Name            =   "Verdana"
  475.          Size            =   9
  476.          Charset         =   0
  477.          Weight          =   400
  478.          Underline       =   0   'False
  479.          Italic          =   0   'False
  480.          Strikethrough   =   0   'False
  481.       EndProperty
  482.       Height          =   210
  483.       Index           =   1
  484.       Left            =   495
  485.       TabIndex        =   2
  486.       Top             =   795
  487.       Width           =   1500
  488.    End
  489.    Begin VB.Label lblFieldLabel 
  490.       Alignment       =   1  'Right Justify
  491.       AutoSize        =   -1  'True
  492.       Caption         =   "CustomerID:"
  493.       BeginProperty Font 
  494.          Name            =   "Verdana"
  495.          Size            =   9
  496.          Charset         =   0
  497.          Weight          =   400
  498.          Underline       =   0   'False
  499.          Italic          =   0   'False
  500.          Strikethrough   =   0   'False
  501.       EndProperty
  502.       Height          =   210
  503.       Index           =   0
  504.       Left            =   795
  505.       TabIndex        =   0
  506.       Top             =   420
  507.       Width           =   1200
  508.    End
  509. Attribute VB_Name = "frmDataEnv"
  510. Attribute VB_GlobalNameSpace = False
  511. Attribute VB_Creatable = False
  512. Attribute VB_PredeclaredId = True
  513. Attribute VB_Exposed = False
  514. Private Sub Command1_Click()
  515.     DataEnvironment1.rsCommand1.MoveFirst
  516. End Sub
  517. Private Sub Command2_Click()
  518.     If DataEnvironment1.rsCommand1.BOF Then
  519.         Beep
  520.     Else
  521.         DataEnvironment1.rsCommand1.MovePrevious
  522.         If DataEnvironment1.rsCommand1.BOF Then
  523.             DataEnvironment1.rsCommand1.MoveFirst
  524.         End If
  525.     End If
  526. End Sub
  527. Private Sub Command3_Click()
  528.     If DataEnvironment1.rsCommand1.EOF Then
  529.         Beep
  530.     Else
  531.         DataEnvironment1.rsCommand1.MoveNext
  532.         If DataEnvironment1.rsCommand1.EOF Then
  533.             DataEnvironment1.rsCommand1.MoveLast
  534.         End If
  535.     End If
  536. End Sub
  537. Private Sub Command4_Click()
  538.     DataEnvironment1.rsCommand1.MoveLast
  539. End Sub
  540.