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