home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap36 / addjob.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-19  |  3.4 KB  |  117 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAddJobtitle 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Add Jobtitle"
  5.    ClientHeight    =   3690
  6.    ClientLeft      =   1545
  7.    ClientTop       =   3000
  8.    ClientWidth     =   6585
  9.    ControlBox      =   0   'False
  10.    Height          =   4095
  11.    Left            =   1485
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   3690
  17.    ScaleWidth      =   6585
  18.    ShowInTaskbar   =   0   'False
  19.    Top             =   2655
  20.    Width           =   6705
  21.    Begin VB.CommandButton cmdCancel 
  22.       Caption         =   "&Cancel"
  23.       Height          =   465
  24.       Left            =   5130
  25.       TabIndex        =   3
  26.       Top             =   600
  27.       Width           =   1245
  28.    End
  29.    Begin VB.CommandButton cmdSave 
  30.       Caption         =   "&Save"
  31.       Height          =   465
  32.       Left            =   5130
  33.       TabIndex        =   2
  34.       Top             =   90
  35.       Width           =   1245
  36.    End
  37.    Begin VB.TextBox txtName 
  38.       Height          =   285
  39.       Left            =   210
  40.       TabIndex        =   0
  41.       Top             =   450
  42.       Width           =   4095
  43.    End
  44.    Begin VB.Data dbaJobtitle 
  45.       Caption         =   "Skill"
  46.       Connect         =   "Access"
  47.       DatabaseName    =   "maketeam"
  48.       Exclusive       =   0   'False
  49.       Height          =   300
  50.       Left            =   0
  51.       Options         =   0
  52.       ReadOnly        =   0   'False
  53.       RecordsetType   =   1  'Dynaset
  54.       RecordSource    =   "tblJobtitle"
  55.       Top             =   60
  56.       Visible         =   0   'False
  57.       Width           =   3105
  58.    End
  59.    Begin RichtextLib.RichTextBox txtDetail 
  60.       Height          =   2235
  61.       Left            =   210
  62.       TabIndex        =   1
  63.       Top             =   1260
  64.       Width           =   6165
  65.       _Version        =   65536
  66.       _ExtentX        =   10874
  67.       _ExtentY        =   3942
  68.       _StockProps     =   69
  69.       BackColor       =   -2147483643
  70.       TextRTF         =   $"AddJob.frx":0000
  71.    End
  72. Attribute VB_Name = "frmAddJobtitle"
  73. Attribute VB_Creatable = False
  74. Attribute VB_Exposed = False
  75. Option Explicit
  76. Private Sub cmdCancel_Click()
  77.   gAction = -1
  78.   Unload frmAddJobtitle
  79. End Sub
  80. Private Sub cmdSave_Click()
  81.   If Len(Trim(txtName)) < 1 Then
  82.     MsgBox "Must enter a name.", 48, gProgramTitle
  83.     txtName.SetFocus
  84.     Exit Sub
  85.   End If
  86.   If gAction = 1 Then
  87.     dbaJobtitle.Recordset.AddNew
  88.   Else
  89.     dbaJobtitle.Recordset.Edit
  90.   End If
  91.   dbaJobtitle.Recordset![Name] = txtName
  92.   dbaJobtitle.Recordset![Detail] = txtDetail
  93.   dbaJobtitle.Recordset![LastUpdate] = Now
  94.   dbaJobtitle.UpdateRecord
  95.   gAction = 0
  96.   Unload frmAddJobtitle
  97. End Sub
  98. Private Sub Form_Load()
  99.   Left = (Screen.Width - Width) / 2
  100.   TOP = (Screen.Height - Height) / 2
  101.   MousePointer = 0
  102.   dbaJobtitle.DatabaseName = gMainDBName
  103.   dbaJobtitle.Refresh
  104.   If gAction = 1 Then
  105.     'Add
  106.     txtName = ""
  107.     txtDetail = ""
  108.     frmAddJobtitle.Caption = "Add New Title"
  109.   Else
  110.     'Edit
  111.     frmAddJobtitle.Caption = "Edit a Title"
  112.     dbaJobtitle.Recordset.FindFirst "JobtitleKey=" + gJobtitleKey
  113.     txtName = dbaJobtitle.Recordset![Name]
  114.     txtDetail = dbaJobtitle.Recordset![Detail]
  115.   End If
  116. End Sub
  117.