home *** CD-ROM | disk | FTP | other *** search
- object ScanHelp: TScanHelp
- Left = 369
- Top = 232
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Help'
- ClientHeight = 270
- ClientWidth = 332
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- TextHeight = 16
- object TabbedNotebook1: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 332
- Height = 225
- Align = alTop
- TabsPerRow = 4
- TabFont.Color = clBtnText
- TabFont.Height = -12
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 0
- object TTabPage
- Left = 5
- Top = 26
- Caption = '&Intro'
- object Memo1: TMemo
- Left = 3
- Top = 3
- Width = 315
- Height = 190
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- ''
- 'SCAN compares the data in two Paradox tables on a field-by-field'
- 'basis. It then reports the differences, including additions and '
- 'deletions, in a text file called SCANLOG.TXT.'
- ''
- 'SCENARIO : You need to identify edits made to a table.'
- 'Unfortunately, you cannot recall what these changes are - but'
- 'you do have a backup copy of the table. However the table holds'
- '2,000 records !'
- ''
- 'SOLUTION : You could spend hours comparing the data manually'
- 'or figure out some ad-hoc Paradox queries. Then again you could'
- 'run SCAN, sit back, and get the answers you need in a couple of'
- 'minutes or so !'
- '')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = '&Uses'
- object Memo2: TMemo
- Left = 3
- Top = 3
- Width = 315
- Height = 190
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- ''
- 'The SCAN program has 3 main uses:'
- ''
- '1. Identifying differences between current and backup versions'
- ' of tables.'
- '2. Producing an "audit trail" of changes made to tables.'
-
- '3. Assisting in re-syncronizing remote databases that are updat' +
- 'ed'
- ' separately by different users. ')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = '&Tips'
- object Memo3: TMemo
- Left = 3
- Top = 3
- Width = 315
- Height = 190
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- ''
- 'There are 4 important points to note :'
- ''
- '1. You MUST use Paradox tables.'
- '2. Both tables must have an IDENTICAL structure.'
- '3. Both tables MUST have an IDENTICAL Primary Index.'
-
- ' {This ensures that the tables do not contain duplicate reco' +
- 'rds,'
-
- ' and that records are maintained in sorted order based on th' +
- 'e'
- ' key field(s).}'
-
- '4. The table selected in the upper grid is taken as the "master' +
- '"'
- ' table. The table selected in the lower grid is compared to'
- ' the "master" table and the differences documented in'
- ' SCANLOG.TXT, which is written to the same directory that'
- ' contains the program.')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = '&Scanlog'
- object Memo4: TMemo
- Left = 3
- Top = 3
- Width = 315
- Height = 190
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- ''
- 'SCANLOG is a simple text file that is created every time SCAN'
- 'successfully completes the comparison routine. '
- ''
- 'If you want to maintain archive reports of table changes then '
- 'save this file with a different name etc. in the usual way.'
- ''
-
- 'Note - SCANLOG.TXT will overwrite itself each time the program i' +
- 's'
- 'run.')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- end
- end
- object BitBtn1: TBitBtn
- Left = 64
- Top = 232
- Width = 77
- Height = 27
- Caption = '&OK'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- Kind = bkOK
- Style = bsNew
- end
- object BitBtn2: TBitBtn
- Left = 192
- Top = 232
- Width = 77
- Height = 27
- Caption = '&About'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = BitBtn2Click
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555550555
- 555555555555F55555555505555B0555570555F55557F55555F55B50555B0555
- 7B55575F5557F555575555B5055B5557B5555575F55755557555555B5550005B
- 55555557555FFF575555555555BBB0055555555555777FF5555555555BBBBB00
- 55555555577777FF55555000BBBBBBB050005FFF7777777F5FFFBBB5BBBBBBB0
- BBB577757777777F77755555BBBBBBB55555555577777775555555555BBBBB55
- 55555555577777555555555705BBB55505555555F5777555F555557B5555055B
- 505555575555F5575F5557B5555B0555B50555755557F55575F55B55555B0555
- 5B5557555557F55557555555555B5555555555555557555555550000}
- NumGlyphs = 2
- Style = bsNew
- end
- end
-