home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1998 July
/
dpcb0798.bin
/
Business
/
Persdesk
/
_SETUP.1
/
REC.DLL
/
0
/
RCDATA
/
TSQLFORM1
/
TSQLFORM1.txt
Wrap
Text File
|
1998-03-24
|
13KB
|
387 lines
inherited SQLForm1: TSQLForm1
Left = 7
Top = 88
Width = 771
Height = 397
Caption = 'Report Records Selection'
KeyPreview = True
Menu = MainMenu1
OnActivate = FormActivate
OnKeyUp = FormKeyUp
PixelsPerInch = 96
TextHeight = 16
object Label7: TLabel [0]
Left = 448
Top = 56
Width = 58
Height = 16
Caption = 'Order By'
end
inherited Panel1: TPanel
Width = 763
Height = 181
ParentShowHint = False
ShowHint = True
inherited Label2: TLabel
Left = 160
end
inherited Label3: TLabel
Left = 276
Width = 61
Caption = 'Group By'
Visible = True
end
inherited Label4: TLabel
Top = 148
Width = 761
Height = 32
Font.Height = -8
end
object Label5: TLabel [4]
Left = 416
Top = 8
Width = 85
Height = 16
Caption = 'Master Table'
end
object Label6: TLabel [5]
Left = 416
Top = 64
Width = 127
Height = 16
Caption = 'Primary Field Order'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'System'
Font.Style = []
ParentFont = False
end
object Label8: TLabel [6]
Left = 560
Top = 8
Width = 105
Height = 13
Caption = 'Secondary Field Order'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel [7]
Left = 560
Top = 76
Width = 89
Height = 13
Caption = 'Tertiary Field Order'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
inherited DirectoryListBox1: TDirectoryListBox
Height = 119
Hint = 'Select Directory where master table is kept'
ParentShowHint = False
ShowHint = True
end
inherited FileListBox1: TFileListBox
Left = 156
Width = 117
Height = 119
Hint = 'Select Table to use as Master'
MultiSelect = True
ParentShowHint = False
ShowHint = True
end
inherited OKButton: TBitBtn
Left = 680
Top = 116
Hint = 'Begins merge if records chosen'
end
inherited OrderBy: TListBox
Left = 276
Top = 26
Width = 129
Height = 121
Hint = 'Decide the order you wish to merge records'
MultiSelect = True
ParentShowHint = False
ShowHint = True
Visible = True
end
object cancelbutton: TBitBtn
Left = 680
Top = 92
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
TabOrder = 7
OnClick = cancelbuttonClick
Glyph.Data = {
CE070000424DCE07000000000000360000002800000024000000120000000100
1800000000009807000000000000000000000000000000000000008080008080
0080800080800080800080800080800080800080800080800080800080800080
8000808000808000808000808000808000808000808000808000808000808000
8080008080008080008080008080008080008080008080008080008080008080
0080800080800080800080800080800080808080808080800080800080800080
8000808000808000808000808000808000808000808000808000808000808000
8080008080008080008080FFFFFF008080008080008080008080008080008080
0080800080800080800080800080800080800080800080800080800000FF0000
800000808080800080800080800080800080800080800000FF80808000808000
8080008080008080008080008080008080008080808080808080FFFFFF008080
008080008080008080008080008080FFFFFF0080800080800080800080800080
800080800080800000FF00008000008000008080808000808000808000808000
00FF000080000080808080008080008080008080008080008080008080808080
FFFFFF008080808080FFFFFF008080008080008080FFFFFF808080808080FFFF
FF0080800080800080800080800080800080800000FF00008000008000008000
00808080800080800000FF000080000080000080000080808080008080008080
008080008080008080808080FFFFFF008080008080808080FFFFFF008080FFFF
FF808080008080008080808080FFFFFF00808000808000808000808000808000
80800000FF000080000080000080000080808080000080000080000080000080
000080808080008080008080008080008080008080808080FFFFFF0080800080
80008080808080FFFFFF808080008080008080008080008080808080FFFFFF00
80800080800080800080800080800080800000FF000080000080000080000080
0000800000800000800000808080800080800080800080800080800080800080
80008080808080FFFFFF00808000808000808080808000808000808000808000
8080FFFFFF808080008080008080008080008080008080008080008080008080
0000FF0000800000800000800000800000800000808080800080800080800080
80008080008080008080008080008080008080808080FFFFFF00808000808000
8080008080008080008080FFFFFF808080008080008080008080008080008080
0080800080800080800080800080800000800000800000800000800000808080
8000808000808000808000808000808000808000808000808000808000808000
8080808080FFFFFF008080008080008080008080008080808080008080008080
0080800080800080800080800080800080800080800080800080800000FF0000
8000008000008000008080808000808000808000808000808000808000808000
8080008080008080008080008080008080808080FFFFFF008080008080008080
8080800080800080800080800080800080800080800080800080800080800080
800080800000FF00008000008000008000008000008080808000808000808000
8080008080008080008080008080008080008080008080008080008080808080
008080008080008080008080808080FFFFFF0080800080800080800080800080
800080800080800080800080800000FF00008000008000008080808000008000
0080000080808080008080008080008080008080008080008080008080008080
008080008080808080008080008080008080008080008080808080FFFFFF0080
800080800080800080800080800080800080800080800000FF00008000008000
00808080800080800000FF000080000080000080808080008080008080008080
008080008080008080008080008080808080008080008080008080808080FFFF
FF008080008080808080FFFFFF00808000808000808000808000808000808000
80800000FF0000800000808080800080800080800080800000FF000080000080
000080808080008080008080008080008080008080008080808080FFFFFF0080
80008080808080008080808080FFFFFF008080008080808080FFFFFF00808000
80800080800080800080800080800080800000FF000080008080008080008080
0080800080800000FF0000800000800000800080800080800080800080800080
80008080808080FFFFFFFFFFFF808080008080008080008080808080FFFFFF00
8080008080808080FFFFFF008080008080008080008080008080008080008080
0080800080800080800080800080800080800080800000FF0000800000FF0080
8000808000808000808000808000808000808080808080808000808000808000
8080008080008080808080FFFFFFFFFFFFFFFFFF808080008080008080008080
0080800080800080800080800080800080800080800080800080800080800080
8000808000808000808000808000808000808000808000808000808000808000
8080008080008080008080008080008080008080008080808080808080808080
0080800080800080800080800080800080800080800080800080800080800080
8000808000808000808000808000808000808000808000808000808000808000
8080008080008080008080008080008080008080008080008080008080008080
008080008080008080008080008080008080}
NumGlyphs = 2
end
object Masterfile: TComboBox
Left = 412
Top = 26
Width = 145
Height = 24
ItemHeight = 16
TabOrder = 4
OnClick = MasterfileClick
end
object Order1: TListBox
Left = 416
Top = 82
Width = 137
Height = 63
Hint = 'Decide the order you wish to merge records'
ItemHeight = 16
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = Order1Click
OnMouseUp = OrderByMouseUp
end
object Range: TBitBtn
Left = 680
Top = 4
Width = 73
Height = 49
Hint = 'To set range of values to merge'
Caption = 'Set Range'
TabOrder = 6
OnClick = RangeClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333FFF33F333FF3F330E0330FFFCCFCC33777FF7F3377F7730EEE030FFFC
CFCC377777F7F33773770EEE0000FFFFFCCF777777773F33377FEEE0BFBF0FFF
FCCF7777333373F337730E0BFBFBF0FFCCFF77733333373F77F330BFBFBFBF0F
CCFF37F333333F7F773330FBFBFB0B0FFFFF37F3F33F737FFFFF30B0BF0FB000
000037F73F73F777777730FB0BF0FB0FFFFF373F73F73F7F333F330030BF0F0F
FF993F77373F737F3377CC33330BF00FFF9977FFF373F77F3F77CC993330009F
99FF7777F337777F77F333993330F99F99FF3F77FF37F773773F993CC330FFF9
9F9977F77F37F3377F77993CC330FFF99F997737733733377377}
Layout = blGlyphTop
NumGlyphs = 2
end
object Order2: TListBox
Left = 564
Top = 26
Width = 109
Height = 49
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 8
OnClick = Order1Click
end
object Order3: TListBox
Left = 564
Top = 92
Width = 109
Height = 53
Font.Color = clWindowText
Font.Height = -8
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 9
OnClick = Order1Click
end
object FieldLinks: TBitBtn
Left = 680
Top = 52
Width = 75
Height = 41
Hint = 'Allows links between multiple fields across tables'
Caption = 'Field Links'
TabOrder = 10
OnClick = FieldLinksClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300003333330
0003388888FFFF88888330FF03333330FF033FFFF888888FFFF330FF03333330
FF033888883333888883300003333330000338FF8F333338FF83339933333333
9933388883333338888333993333333399333F8FFFF3333FF8F3300003333330
0003388888F33388888330FF03333330FF033FFFF8F3338FFFF330FF03333330
FF033888883333888883300003333330000338FF8F333338FF83339933333333
9933388883FFFFF888833399330000339933338F3888888F38F33399990FF099
99333383F8FFFF8FF8333339990FF09993333338888888888333F33333000033
33333333338FF8F33333F3333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
end
object Field2: TScrollBox
Left = 1
Top = 1
Width = 761
Height = 147
VertScrollBar.Visible = False
Align = alClient
TabOrder = 11
Visible = False
object Label10: TLabel
Left = 4
Top = 4
Width = 76
Height = 16
Caption = 'Table Order'
end
object ConnectLabel: TLabel
Left = 208
Top = 4
Width = 3
Height = 13
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ListBox1: TListBox
Left = 4
Top = 20
Width = 121
Height = 121
Color = clRed
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 0
OnClick = ListBox1Click
OnMouseDown = ListBox1MouseDown
OnMouseUp = ListBox1MouseUp
end
object Button1: TButton
Left = 96
Top = 0
Width = 111
Height = 17
Caption = 'Cancel Connect'
TabOrder = 1
OnClick = Button1Click
end
end
end
inherited DBGrid1: TDBRowGrid
Top = 181
Width = 763
Height = 170
Hint =
'Select Rows you wish to merge from by using the left mouse key a' +
'nd either Ctrl key or Shift and cursor key.'
Font.Height = -11
Font.Name = 'MS Sans Serif'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit, dgMultiSelect]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
inherited master: TDataSource
Left = 56
Top = 40
end
object MainMenu1: TMainMenu [4]
Left = 35
Top = 19
object View1: TMenuItem
Caption = 'View'
ShortCut = 0
Visible = False
object ShowFieldLists1: TMenuItem
Caption = 'Show Field Lists'
ShortCut = 0
OnClick = ShowFileList1Click
end
end
object Exit1: TMenuItem
Caption = 'Exit'
ShortCut = 0
OnClick = Exit1Click
end
end
object Query2: TQuery [5]
DatabaseName = 'Personnel_System'
Left = 519
Top = 51
end
end
