home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap21 / frm721.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-28  |  5.5 KB  |  181 lines
  1. VERSION 4.00
  2. Begin VB.Form frmdbcomgrid 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   1260
  5.    ClientLeft      =   3165
  6.    ClientTop       =   2550
  7.    ClientWidth     =   2595
  8.    Height          =   1665
  9.    Left            =   3105
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   1260
  12.    ScaleWidth      =   2595
  13.    Top             =   2205
  14.    Width           =   2715
  15.    Begin VB.CommandButton cmdversion 
  16.       Caption         =   "&Version"
  17.       Height          =   315
  18.       Left            =   780
  19.       TabIndex        =   8
  20.       Top             =   5160
  21.       Visible         =   0   'False
  22.       Width           =   1035
  23.    End
  24.    Begin VB.TextBox txtpubid 
  25.       Height          =   315
  26.       Left            =   1680
  27.       TabIndex        =   4
  28.       Top             =   1260
  29.       Visible         =   0   'False
  30.       Width           =   675
  31.    End
  32.    Begin VB.Data dtalist 
  33.       Caption         =   "Data1"
  34.       Connect         =   "Access"
  35.       DatabaseName    =   "\source\chap21\biblio.mdb"
  36.       Exclusive       =   0   'False
  37.       Height          =   300
  38.       Left            =   5220
  39.       Options         =   0
  40.       ReadOnly        =   0   'False
  41.       RecordsetType   =   1  'Dynaset
  42.       RecordSource    =   "select name,pubid,pubid & "" "" & name as test from publishers "
  43.       Top             =   3360
  44.       Visible         =   0   'False
  45.       Width           =   1155
  46.    End
  47.    Begin VB.CommandButton cmdexit 
  48.       Caption         =   "E&xit"
  49.       Height          =   315
  50.       Left            =   5220
  51.       TabIndex        =   2
  52.       Top             =   5280
  53.       Visible         =   0   'False
  54.       Width           =   1035
  55.    End
  56.    Begin VB.Data Data1 
  57.       Caption         =   "Data1"
  58.       Connect         =   "Access"
  59.       DatabaseName    =   "\source\chap21\biblio.mdb"
  60.       Exclusive       =   0   'False
  61.       Height          =   300
  62.       Left            =   4920
  63.       Options         =   0
  64.       ReadOnly        =   0   'False
  65.       RecordsetType   =   1  'Dynaset
  66.       RecordSource    =   "select title,pubid as conb, pubid form titles"
  67.       Top             =   120
  68.       Visible         =   0   'False
  69.       Width           =   1155
  70.    End
  71.    Begin MSMask.MaskEdBox txtdate 
  72.       Height          =   435
  73.       Left            =   180
  74.       TabIndex        =   7
  75.       Top             =   660
  76.       Width           =   2205
  77.       _Version        =   65536
  78.       _ExtentX        =   3889
  79.       _ExtentY        =   767
  80.       _StockProps     =   109
  81.       BorderStyle     =   1
  82.       AllowPrompt     =   -1  'True
  83.       Format          =   "MMMM-DD-YYYY"
  84.    End
  85.    Begin Spin.SpinButton spndate 
  86.       Height          =   435
  87.       Left            =   2760
  88.       TabIndex        =   6
  89.       Top             =   660
  90.       Visible         =   0   'False
  91.       Width           =   315
  92.       _Version        =   65536
  93.       _ExtentX        =   556
  94.       _ExtentY        =   767
  95.       _StockProps     =   73
  96.       Delay           =   200
  97.       MousePointer    =   13
  98.       ShadowThickness =   1
  99.       TdThickness     =   1
  100.    End
  101.    Begin VB.Label pnlpibid 
  102.       Caption         =   "Publisher ID"
  103.       Height          =   195
  104.       Left            =   120
  105.       TabIndex        =   5
  106.       Top             =   1320
  107.       Visible         =   0   'False
  108.       Width           =   1215
  109.    End
  110.    Begin VB.Label pnltitle 
  111.       Caption         =   "Publisher"
  112.       Height          =   195
  113.       Left            =   120
  114.       TabIndex        =   3
  115.       Top             =   240
  116.       Visible         =   0   'False
  117.       Width           =   1215
  118.    End
  119.    Begin MSDBCtls.DBList dblistpub 
  120.       Bindings        =   "FRM721.frx":0000
  121.       DataField       =   "PubID"
  122.       DataSource      =   "Data1"
  123.       Height          =   1815
  124.       Left            =   3780
  125.       TabIndex        =   1
  126.       Top             =   1260
  127.       Visible         =   0   'False
  128.       Width           =   2895
  129.       _Version        =   65536
  130.       _ExtentX        =   5106
  131.       _ExtentY        =   3201
  132.       _StockProps     =   77
  133.       ListField       =   "test"
  134.       BoundColumn     =   "pubid"
  135.    End
  136.    Begin MSDBCtls.DBCombo dbcompub 
  137.       Bindings        =   "FRM721.frx":0010
  138.       DataField       =   "PubID"
  139.       DataSource      =   "Data1"
  140.       Height          =   315
  141.       Left            =   1560
  142.       TabIndex        =   0
  143.       Top             =   180
  144.       Visible         =   0   'False
  145.       Width           =   3135
  146.       _Version        =   65536
  147.       _ExtentX        =   5530
  148.       _ExtentY        =   556
  149.       _StockProps     =   77
  150.       BackColor       =   12632256
  151.       MatchEntry      =   1
  152.       Style           =   2
  153.       ListField       =   "name"
  154.       BoundColumn     =   "pubid"
  155.    End
  156. Attribute VB_Name = "frmdbcomgrid"
  157. Attribute VB_Creatable = False
  158. Attribute VB_Exposed = False
  159. Option Explicit
  160. Private Sub cmdexit_Click()
  161. Unload Me
  162. Set frmdbcomgrid = Nothing
  163. End Sub
  164. Private Sub DBList1_Click()
  165. End Sub
  166. Private Sub dbcompub_Click(Area As Integer)
  167.     txtpubid.TEXT = dbcompub.BoundText
  168. End Sub
  169. Private Sub dblistpub_Click()
  170. txtpubid.TEXT = dblistpub.BoundText
  171. End Sub
  172. Private Sub Form_Load()
  173. txtdate.TEXT = Now
  174. End Sub
  175. Private Sub spndate_SpinDown()
  176. txtdate.TEXT = CVDate(txtdate.TEXT) - 1
  177. End Sub
  178. Private Sub spndate_SpinUp()
  179. txtdate.TEXT = CVDate(txtdate.TEXT) + 1
  180. End Sub
  181.