home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1998 July
/
dpcb0798.bin
/
Business
/
Persdesk
/
_SETUP.1
/
PERSYST1.EXE
/
0
/
RCDATA
/
TCALENDARSETUP
/
TCALENDARSETUP.txt
Wrap
Text File
|
1998-04-21
|
4KB
|
139 lines
object CalendarSetup: TCalendarSetup
Left = 70
Top = 100
Width = 577
Height = 285
Caption = 'Calendar Table Setup'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
KeyPreview = True
Position = poDefault
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyUp = FormKeyUp
PixelsPerInch = 96
TextHeight = 16
object SelectAll: TBitBtn
Left = 20
Top = 4
Width = 65
Height = 29
Hint = 'Select All Employees'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = SelectAllClick
Kind = bkAll
end
object Cancel: TBitBtn
Left = 232
Top = 4
Width = 73
Height = 29
TabOrder = 1
OnClick = CancelClick
Kind = bkCancel
end
object OK: TBitBtn
Left = 328
Top = 4
Width = 73
Height = 29
Hint = 'Look at Calendar'
TabOrder = 2
OnClick = OKClick
Kind = bkOK
end
object DBGrid1: TDBGrid
Left = 0
Top = 52
Width = 569
Height = 205
Hint = 'Double click to Select employees by pressing Check box.'
Columns = <
item
FieldName = 'Check'
end
item
FieldName = 'Surname'
ReadOnly = True
end
item
FieldName = 'First Names'
ReadOnly = True
end>
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentShowHint = False
ShowHint = True
TabOrder = 3
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'System'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
end
object DBNavigator1: TDBNavigator
Left = 424
Top = 4
Width = 120
Height = 29
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object CancelAll: TBitBtn
Left = 108
Top = 4
Width = 93
Height = 29
Caption = 'Cancel All'
TabOrder = 5
OnClick = CancelAllClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B55555555555555750000}
NumGlyphs = 2
end
object Table1: TTable
DatabaseName = 'Personnel_System'
IndexFieldNames = 'Surname;First Names;Title'
TableName = 'EMPLOYEE.DB'
Left = 180
Top = 68
object Table1Check: TBooleanField
DisplayWidth = 3
FieldName = 'Check'
end
object Table1Surname: TStringField
FieldName = 'Surname'
Size = 25
end
object Table1FirstNames: TStringField
FieldName = 'First Names'
Size = 35
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 248
Top = 68
end
end