home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / apprai / testdbf.frm < prev   
Text File  |  1993-08-15  |  4KB  |  187 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Appraisal Jobs"
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   1485
  6.    ClientTop       =   1470
  7.    ClientWidth     =   6735
  8.    FontBold        =   -1  'True
  9.    FontItalic      =   0   'False
  10.    FontName        =   "MS Sans Serif"
  11.    FontSize        =   12
  12.    FontStrikethru  =   0   'False
  13.    FontUnderline   =   0   'False
  14.    Height          =   2475
  15.    Left            =   1425
  16.    LinkTopic       =   "Form1"
  17.    ScaleHeight     =   2070
  18.    ScaleWidth      =   6735
  19.    Top             =   1125
  20.    Width           =   6855
  21.    Begin CommandButton DeleteBut 
  22.       Caption         =   "Delete"
  23.       Height          =   495
  24.       Left            =   1320
  25.       TabIndex        =   4
  26.       Top             =   960
  27.       Width           =   735
  28.    End
  29.    Begin TextBox Text3 
  30.       DataField       =   "PART_NO"
  31.       DataSource      =   "JOBS"
  32.       Height          =   495
  33.       Left            =   480
  34.       TabIndex        =   1
  35.       Text            =   "Text3"
  36.       Top             =   240
  37.       Width           =   1215
  38.    End
  39.    Begin TextBox Text2 
  40.       DataField       =   "desc"
  41.       DataSource      =   "JOBS"
  42.       Height          =   495
  43.       Left            =   2040
  44.       TabIndex        =   2
  45.       Text            =   "Text2"
  46.       Top             =   240
  47.       Width           =   3975
  48.    End
  49.    Begin CommandButton CancelBut 
  50.       Caption         =   "Cancel"
  51.       Enabled         =   0   'False
  52.       Height          =   495
  53.       Left            =   3120
  54.       TabIndex        =   0
  55.       Top             =   960
  56.       Width           =   735
  57.    End
  58.    Begin CommandButton SaveBut 
  59.       Caption         =   "Save"
  60.       Enabled         =   0   'False
  61.       Height          =   495
  62.       Left            =   2280
  63.       TabIndex        =   5
  64.       Top             =   960
  65.       Width           =   735
  66.    End
  67.    Begin CommandButton NewBut 
  68.       Caption         =   "New"
  69.       Height          =   495
  70.       Left            =   480
  71.       TabIndex        =   3
  72.       Top             =   960
  73.       Width           =   735
  74.    End
  75.    Begin Data Jobs 
  76.       Caption         =   "Jobs"
  77.       Connect         =   "FOXPRO 2.5"
  78.       DatabaseName    =   "c:\apprais"
  79.       Exclusive       =   0   'False
  80.       Height          =   495
  81.       Left            =   3960
  82.       Options         =   0
  83.       ReadOnly        =   0   'False
  84.       RecordSource    =   ""
  85.       Top             =   960
  86.       Width           =   2055
  87.    End
  88. End
  89.  
  90. Sub beginedit ()
  91.     cancelbut.Enabled = True
  92.     savebut.Enabled = True
  93.     newbut.Enabled = False
  94.     deletebut.Enabled = False
  95.     jobs.Enabled = False
  96.     'MsgBox "Begin edit", 64
  97.     jobs.Recordset.Edit
  98.  
  99. End Sub
  100.  
  101. Sub CancelBut_Click ()
  102.     newbut.Enabled = True
  103.     deletebut.Enabled = True
  104.     savebut.Enabled = False
  105.     cancelbut.Enabled = False
  106.     emode = jobs.EditMode
  107.     jobs.Enabled = True
  108.     jobs.UpdateControls
  109.     If emode = 2 Then
  110.         jobs.Recordset.Bookmark = oldbookmark
  111.     End If
  112.  
  113. End Sub
  114.  
  115. Sub DeleteBut_Click ()
  116.     cancelbut.Enabled = False
  117.     savebut.Enabled = False
  118.     newbut.Enabled = True
  119.     jobs.Recordset.Delete
  120. End Sub
  121.  
  122. Sub Form_GotFocus ()
  123.       'jobs.Recordset.LockEdits = True
  124.  
  125. End Sub
  126.  
  127. Sub Form_KeyPress (KeyAscii As Integer)
  128.     'MsgBox "got keypress"
  129.     Exit Sub
  130.  
  131.  
  132.     If jobs.EditMode = data_editnone Then
  133.         MsgBox "Begining an Edit", 64
  134.         beginedit
  135.  
  136.     End If
  137.  
  138.  
  139. End Sub
  140.  
  141. Sub Form_Load ()
  142.     form1.KeyPreview = True
  143.     jobs.RecordSource = sqls
  144.  
  145.  
  146. End Sub
  147.  
  148. Sub NewBut_Click ()
  149.     oldbookmark = jobs.Recordset.Bookmark
  150.     cancelbut.Enabled = True
  151.     savebut.Enabled = True
  152.     newbut.Enabled = False
  153.     deletebut.Enabled = False
  154.     jobs.Enabled = False
  155.     jobs.Recordset.AddNew
  156.  
  157. End Sub
  158.  
  159. Sub SaveBut_Click ()
  160.     cancelbut.Enabled = False
  161.     savebut.Enabled = False
  162.     newbut.Enabled = True
  163.     deletebut.Enabled = True
  164.     emode = jobs.EditMode
  165.     jobs.Enabled = True
  166.     jobs.Recordset.Update
  167.     If emode = 2 Then
  168.         jobs.Recordset.MoveLast
  169.     End If
  170.     
  171. End Sub
  172.  
  173. Sub Text2_Change ()
  174.     If TEXT2.Text <> jobs.Recordset("desc") Then
  175.         beginedit
  176.     End If
  177.     
  178. End Sub
  179.  
  180. Sub Text3_Change ()
  181.     If TEXT3.Text <> jobs.Recordset("part_no") Then
  182.         beginedit
  183.     End If
  184.  
  185. End Sub
  186.  
  187.