home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1998 October
/
dpcb1098.iso
/
Business
/
Maxim
/
MAX5
/
data.z
/
MAIN.DFM
/
MAIN.txt
Wrap
Text File
|
1998-05-13
|
7KB
|
152 lines
object MainForm: TMainForm
Left = 225
Top = 138
Width = 368
Height = 203
Caption = 'Connecting Delphi and ReportSmith'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Rgrp_State: TRadioGroup
Left = 80
Top = 8
Width = 97
Height = 65
Caption = 'What State'
ItemIndex = 0
Items.Strings = (
'HI'
'CA'
'FL')
TabOrder = 0
OnClick = Rgrp_StateClick
end
object Rgrp_Mode: TRadioGroup
Left = 184
Top = 8
Width = 113
Height = 65
Caption = 'Mode'
ItemIndex = 0
Items.Strings = (
'Report Preview'
'Print and Close')
TabOrder = 1
end
object Btn_Run: TBitBtn
Left = 8
Top = 16
Width = 65
Height = 57
Caption = 'Run Report'
TabOrder = 2
OnClick = Btn_RunClick
Glyph.Data = {
48090000424D4809000000000000360400002800000021000000240000000100
08000000000010050000CE0E0000D80E00000001000000000000000000008080
8000000080000080800000800000808000008000000080008000408080004040
0000FF80000080400000FF00400000408000FFFFFF00C0C0C0000000FF0000FF
FF0000FF0000FFFF0000FF000000FF00FF0080FFFF0080FF0000FFFF8000FF80
80008000FF004080FF00C0DCC000F0CAA6000000BF0000BF000000BFBF00BF00
0000BF00BF00BFBF0000F0C8A400330000006600000099000000003300003333
000066330000FF33000000660000336600006666000099660000009900003399
0000669900009999000000CC000033CC000066CC000099CC000033FF000066FF
0000000033003300330066003300FF0033000033330033333300663333009933
3300006633003366330066663300996633000099330033993300669933009999
330000CC330033CC330066CC330000FF330033FF330066FF3300000066003300
6600660066009900660000336600333366006633660099336600006666003366
6600666666000099660033996600669966009999660000CC660033CC660000FF
660033FF66000000990033009900660099009900990000339900333399006633
9900993399000066990033669900666699009966990000999900339999006699
99009999990000CC990033CC990066CC990000FF990033FF990066FF99000000
CC003300CC006600CC009900CC00FF00CC000033CC003333CC006633CC009933
CC000066CC003366CC006666CC009966CC000099CC003399CC006699CC009999
CC0000CCCC0033CCCC0066CCCC0000FFCC0033FFCC0066FFCC003300FF006600
FF009900FF00CC00FF000033FF003333FF006633FF009933FF000066FF003366
FF000099FF003399FF006699FF009999FF0000CCFF0033CCFF0066CCFF0033FF
FF00D6AD7B00DEB58400D6AD7300DEAD7B00DEBD9400DEB57B00DEB58C00DEBD
8C0099CC330066CC660099CC990099CCCC0099CCFF0099FF000099FF330099CC
660099FF990099FFCC0099FFFF00CC00000099003300CC006600CC009900CC00
CC0099330000CC333300CC336600CC339900CC33CC00CC33FF00CC660000CC66
330099666600CC669900CC66CC009966FF00CC990000CC993300CC996600CC99
9900CC99CC00CC99FF00CCCC0000CCCC3300CCCC6600CCCC9900CCCCCC00CCCC
FF00CCFF0000CCFF330099FF6600CCFF9900CCFFCC00CCFFFF00CC003300FF00
6600FF009900CC330000FF333300FF336600FF339900FF33CC00FF33FF00FF66
0000FF663300CC666600FF669900FF66CC00CC66FF00FF990000FF993300FF99
6600FF999900FF99CC00FF99FF00FFCC0000FFCC3300FFCC6600FFCC9900FFCC
CC00FFCCFF00FFFF3300CCFF6600FFFF9900FFFFCC006666FF0066FF660066FF
FF00FF666600FF66FF00FFFF6600DEC69C00EFDECE00EFE7DE000E0E0E0E0E0E
0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0000000E0E
0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E00
000000000000000000000000000E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0100
0F0F0E000000010E0E0E0E0E0E0E0E0E000E0E0E0E0E0E010101010101010101
0E01000F0F0F0E000000010E0E0E000E0E0E0E0E000E0E0E0101010000000000
0000000101000F0F0F0F0E000000010E0E000E0E0E0E0E0E000E0E0101000000
000000000000000000010F0F0F000E000000010E0E00000E0E0E0E0E00000100
0000000E0E0E0E0E0E0E0E000000000F000E0E000000010E0E0000000E000E0E
000E0000000E0E0E0E01010E0E0E0E0E0E0000000E0E0E000000010E0E0E0000
00000E0E000000000E0E0E01010E0E01010E0E0E0E0E00000E0E0E000000010E
0E0E0E0000000E0E0000000E0E0101010E0E0E0E0E01010E0E0E0E00000E0E00
0000010E0E0E000000000E0E00000E0E010E0E0E01010E0E01150E010E0E0E0E
000E0E000000010E0E0E0E0E0E0E0E0E00000E010E0E0E0E0E0E0101150E150E
01010E0E0E000E00000001010101010101010101000E010E010E0E0E0E010E13
01150E150E01010E0E000E000000000E0E0E0E0E000E0E0E00010E0E0E01010E
010E130E1301150E010E15010E000E00000000010E0E0E0E0E0E0E0E000E0101
0E0E0E011301010E130E010101150E1501000E000000000E01010E0E0E0E0E0E
0E000E0E010E01130E130E010E010E130E01150E000E0E000000000E0E0E0101
0E0E0E0E0E000E0E0E01130E130E130E010E130E130E0101000E0E000000000E
0E0E0E0E01010E0E0E0E000E010E01010E1301010E010E130E130E000E0E0E00
00000001010E0E000E0E01010E0E0E00000E0E0E01010E0E130E010E1301000E
0E0E0E000000000E0E01010E00000E0E01010E0E0E0000010E0E01010E130E00
00000E0E0E0E0E000000000E0E0E0E01010E00000E0E01010E0E0E0000000000
0000000E0E000E0E0E0E0E0000000000000E0E0E0E01010E00000E0E01010E0E
0E0E0E0E0E0E0E0E00000E0E0E0E0E00000000140000000E0E0E0E01010E000E
0E0E01010E0E0E0E0E0E0E0014000E0E0E0E0E000000001400101000000E0E0E
0E01010E0E0E0E0E01010E0E0E0E001414000E0E0E0E0E000000001400101010
1000000E0E0E0E01010E0E0E0E0E010E0E00141414000E0E0E0E0E0000000014
0010101010101000000E0E0E0E01010000010E0E0014141414000E0E0E0E0E00
0000001414001010101000121200000E0E0E0E01010E0E001414141414000E0E
0E0E0E0000000014140010101010001212121200000E0E0E0E0E001414141414
14000E0E0E0E0E00000000141414001010001212121212121200000E0E001414
1414141414000E0E0E0E0E000000001414141400001212121212121212120000
001414141414141414000E0E0E0E0E0000000014141414140000121212121200
00001414141414141414141414000E0E0E0E0E00000000141414141414140000
0000001414141414141414141414141414000E0E0E0E0E000000001414141414
141414141414141414141414141414141414141414000E0E0E0E0E0000000000
00000000000000000000000000000000000000000000000000000E0E0E0E0E00
00000E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
0E0E0E0000000E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
0E0E0E0E0E0E0E000000FFFF}
Layout = blGlyphTop
end
object Report: TReport
ReportName = 'Dphidata.rpt'
AutoUnload = True
Left = 120
Top = 88
end
object Query1: TQuery
Active = True
DatabaseName = 'dbdemos'
Params.Data = {01000100025354000103004849000001}
SQL.Strings = (
'SELECT CUSTOMER.CustNo , CUSTOMER.Company , CUSTOMER.State , '
'( ORDERS.ItemsTotal - ORDERS.AmountPaid ), CUSTOMER.Phone , '
'ORDERS.OrderNo , ORDERS.CustNo , ORDERS.ItemsTotal , '
'ORDERS.AmountPaid '
''
'FROM CUSTOMER.DB CUSTOMER , '
'ORDERS.DB ORDERS '
''
'WHERE CUSTOMER.State = :ST '
'AND CUSTOMER.CustNo = ORDERS.CustNo ')
Left = 40
Top = 88
end
end