home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 February
/
PCWK0296.iso
/
po7_win
/
object10
/
raise.frm
< prev
next >
Wrap
Text File
|
1994-10-20
|
6KB
|
196 lines
VERSION 2.00
Begin Form frmRaise
BorderStyle = 3 'Fixed Double
Caption = "Give Raises"
ClientHeight = 3000
ClientLeft = 1440
ClientTop = 1785
ClientWidth = 7020
Height = 3405
Left = 1380
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3000
ScaleWidth = 7020
Top = 1440
Width = 7140
Begin OraData EmpData
AllowMoveLast = -1 'True
AutoBinding = -1 'True
Caption = "OraData1"
Connect = "scott/tiger"
DatabaseName = "exampledb"
Height = 270
HiddenName = "EmpData"
Left = 0
Options = 0
ReadOnly = 0 'False
RecordSource = ""
TabIndex = 8
Top = 0
TrailingBlanks = 0 'False
Visible = 0 'False
Width = 1155
End
Begin CommandButton cmdExit
Caption = "Exit"
Height = 495
Left = 4800
TabIndex = 6
Top = 2400
Width = 1215
End
Begin TgDemo Table1
AllowArrows = -1 'True
AllowTabs = -1 'True
DataSource = "EmpData"
Editable = -1 'True
EditDropDown = -1 'True
ExposeCellMode = 0 'Expose upon selection
FetchMode = 0 'By cell
HeadingHeight = 1
Height = 1815
HorzLines = 0 'None
Layout = RAISE.FRX:0000
LayoutIndex = 1
Left = 120
LinesPerRow = 1
MarqueeUnique = -1 'True
SplitPropsGlobal= -1 'True
SplitTabMode = 0 'Don't tab across splits
TabCapture = 0 'False
TabIndex = 2
Top = 1080
UseBookmarks = -1 'True
Width = 3975
WrapCellPointer = 0 'False
End
Begin Frame Frame1
Caption = "Raise Amount"
Height = 2175
Left = 4200
TabIndex = 7
Top = 120
Width = 2655
Begin CommandButton cmdRaiseRandom
Caption = "Random"
Height = 375
Left = 1440
TabIndex = 4
Top = 960
Width = 975
End
Begin CommandButton cmdRaise200
Caption = "$200"
Height = 375
Left = 360
TabIndex = 5
Top = 1440
Width = 855
End
Begin CommandButton cmdRaise50
Caption = "$50"
Height = 375
Left = 360
TabIndex = 3
Top = 480
Width = 855
End
End
Begin TextBox txtDname
DataField = "dname"
DataSource = "DeptData"
Height = 375
Left = 840
TabIndex = 0
Top = 240
Width = 2415
End
Begin OraData DeptData
AllowMoveLast = -1 'True
AutoBinding = -1 'True
Caption = " Departments"
Connect = "scott/tiger"
DatabaseName = "ExampleDb"
Height = 270
HiddenName = "DeptData"
Left = 840
Options = 2162688
ReadOnly = 0 'False
RecordSource = "select deptno, dname from dept"
TabIndex = 1
Top = 720
TrailingBlanks = 0 'False
Width = 2415
End
End
Sub cmdExit_Click ()
Unload frmRaise
End
End Sub
Sub cmdRaise200_Click ()
dn$ = DeptData.Recordset.Fields("deptno").value
Call GiveRaise(dn$, 200)
Call DeptData_Reposition
End Sub
Sub cmdRaise50_Click ()
dn$ = DeptData.Recordset.Fields("deptno").value
Call GiveRaise(dn$, 50)
Call DeptData_Reposition
End Sub
Sub cmdRaiseRandom_Click ()
dn$ = DeptData.Recordset.Fields("deptno").value
Call GiveRaise(dn$, -500)
Call DeptData_Reposition
End Sub
Sub DeptData_Reposition ()
EmpData.RecordSource = "Select ename, sal from emp where deptno=" + DeptData.Recordset.Fields("deptno")
EmpData.Refresh
End Sub
'
' Routine to give raises to employees
'
' dn is the department number
' raisen is the amount of the raise. If raisen is negative, we give random raises
'
Sub GiveRaise (dn$, raisen%)
Dim mydb As object
Dim mydyn As object
' create a dynaset of the employee's salaries
Set mydb = DeptData.Recordset.Session.CreateDatabase(DeptData.DatabaseName, DeptData.Connect, 0&)
sql$ = "select empno, sal from emp where deptno = " + dn$
Set mydyn = mydb.DbCreateDynaset(sql$, 0&)
' now update all the salaries
mydyn.DbMoveFirst
While mydyn.EOF = 0
mydyn.DbEdit ' tell dynaset we're editing this record
If raisen% >= 0 Then
' normal raise
theraise% = raisen%
Else
' random raise
theraise% = Int(-raisen% * Rnd)
End If
mydyn.Fields("sal").value = mydyn.Fields("sal") + theraise%
mydyn.DbUpdate ' put into database
mydyn.DbMoveNext
Wend
End Sub