home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMCUSTTURNOVER / TFMCUSTTURNOVER.txt
Text File  |  1999-06-21  |  30KB  |  1,029 lines
  1. object fmCustTurnover: TfmCustTurnover
  2.   Left = 56
  3.   Top = 105
  4.   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  5.   AutoScroll = False
  6.   Caption = 'Customer Turnover'
  7.   ClientHeight = 432
  8.   ClientWidth = 698
  9.   Font.Charset = ANSI_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   FormStyle = fsMDIChild
  15.   Position = poDefaultPosOnly
  16.   Scaled = False
  17.   Visible = True
  18.   OnActivate = FormActivate
  19.   OnClose = FormClose
  20.   OnCloseQuery = FormCloseQuery
  21.   OnCreate = FormCreate
  22.   OnDeactivate = FormDeactivate
  23.   OnShow = FormShow
  24.   PixelsPerInch = 120
  25.   TextHeight = 16
  26.   object PageControl1: TPageControl
  27.     Left = 0
  28.     Top = 52
  29.     Width = 698
  30.     Height = 380
  31.     ActivePage = TSReport
  32.     Align = alBottom
  33.     TabOrder = 1
  34.     OnChange = PageControl1Change
  35.     object TSReport: TTabSheet
  36.       Caption = 'Report'
  37.       object SpeedBar: TSpeedBar
  38.         Left = 0
  39.         Top = 0
  40.         Width = 690
  41.         Height = 49
  42.         Font.Charset = ANSI_CHARSET
  43.         Font.Color = clWindowText
  44.         Font.Height = -13
  45.         Font.Name = 'MS Sans Serif'
  46.         Font.Style = []
  47.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  48.         BtnOffsetHorz = 3
  49.         BtnOffsetVert = 3
  50.         BtnWidth = 70
  51.         BtnHeight = 43
  52.         TabOrder = 1
  53.         OnDblClick = BtnZoomClick
  54.         InternalVer = 1
  55.         object SpeedbarSection1: TSpeedbarSection
  56.           Caption = 'Untitled (0)'
  57.         end
  58.         object BtnZoom: TSpeedItem
  59.           BtnCaption = 'Zoom In'
  60.           Caption = 'Transaction zoom-in'
  61.           Hint = 'Transaction zoom-in'
  62.           Spacing = 1
  63.           Left = 3
  64.           Top = 3
  65.           Visible = True
  66.           OnClick = BtnZoomClick
  67.           SectionName = 'Untitled (0)'
  68.         end
  69.         object BtnRepPrint: TSpeedItem
  70.           BtnCaption = 'Print'
  71.           Caption = 'Print turnover report'
  72.           Hint = 'Print turnover report'
  73.           Spacing = 1
  74.           Left = 73
  75.           Top = 3
  76.           Visible = True
  77.           OnClick = BtnRepPrintClick
  78.           SectionName = 'Untitled (0)'
  79.         end
  80.         object BtnRepEmail: TSpeedItem
  81.           BtnCaption = 'Email'
  82.           Caption = 'Email turnover report'
  83.           Hint = 'Email turnover report'
  84.           Spacing = 1
  85.           Left = 143
  86.           Top = 3
  87.           Visible = True
  88.           OnClick = BtnRepEmailClick
  89.           SectionName = 'Untitled (0)'
  90.         end
  91.         object BtnRepClose: TSpeedItem
  92.           BtnCaption = 'Close'
  93.           Caption = 'Close this window'
  94.           Hint = 'Close this window'
  95.           Spacing = 1
  96.           Left = 283
  97.           Top = 3
  98.           Visible = True
  99.           OnClick = BtnRepCloseClick
  100.           SectionName = 'Untitled (0)'
  101.         end
  102.         object btnHelp: TSpeedItem
  103.           BtnCaption = '&Help'
  104.           Caption = 'View full help on this window'
  105.           Glyph.Data = {
  106.             F6000000424DF600000000000000760000002800000010000000100000000100
  107.             0400000000008000000000000000000000001000000010000000000000000000
  108.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  109.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  110.             888888888E6648888888888888E6688888888888888888888888888888446888
  111.             8888888886664888888888888E664888888888888E6664888888888888E66648
  112.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  113.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  114.           Hint = 'View full help on this window|'
  115.           Spacing = 1
  116.           Left = 213
  117.           Top = 3
  118.           Visible = True
  119.           OnClick = btnHelpClick
  120.           SectionName = 'Untitled (0)'
  121.         end
  122.       end
  123.       object Panel2: TPanel
  124.         Left = 0
  125.         Top = 49
  126.         Width = 690
  127.         Height = 300
  128.         Align = alClient
  129.         Caption = 'Panel2'
  130.         TabOrder = 0
  131.         object wwDBGrid1: TwwDBGrid
  132.           Left = 1
  133.           Top = 1
  134.           Width = 688
  135.           Height = 298
  136.           Selected.Strings = (
  137.             'ACCREF'#9'12'#9'Cust. Ref'
  138.             'NAME'#9'40'#9'Customer Name'
  139.             'MTOVER'#9'12'#9'Turnover~This Month'
  140.             'YTOVER'#9'12'#9'Turnover~This Year'
  141.             'REP_T_VAL1'#9'12'#9'Selected ~Period Turnover')
  142.           TitleColor = clBtnFace
  143.           FixedCols = 0
  144.           ShowHorzScrollBar = True
  145.           Align = alClient
  146.           DataSource = dsCustomer
  147.           KeyOptions = [dgAllowDelete]
  148.           Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells]
  149.           PopupMenu = pmRClick
  150.           TabOrder = 0
  151.           TitleAlignment = taLeftJustify
  152.           TitleFont.Charset = ANSI_CHARSET
  153.           TitleFont.Color = clWindowText
  154.           TitleFont.Height = -13
  155.           TitleFont.Name = 'Arial'
  156.           TitleFont.Style = []
  157.           TitleLines = 2
  158.           TitleButtons = True
  159.           OnCalcCellColors = wwDBGrid1CalcCellColors
  160.           OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  161.           OnTitleButtonClick = wwDBGrid1TitleButtonClick
  162.           OnDblClick = BtnZoomClick
  163.           IndicatorColor = icBlack
  164.           OnTopRowChanged = wwDBGrid1TopRowChanged
  165.           OnCalcTitleImage = wwDBGrid1CalcTitleImage
  166.           TitleImageList = ImagesDM.GenralBM
  167.           FooterCellColor = clYellow
  168.           FooterHeight = 25
  169.         end
  170.       end
  171.     end
  172.     object TSGraph: TTabSheet
  173.       Caption = 'Graph'
  174.       object SpeedBar1: TSpeedBar
  175.         Left = 0
  176.         Top = 0
  177.         Width = 0
  178.         Height = 49
  179.         Font.Charset = ANSI_CHARSET
  180.         Font.Color = clWindowText
  181.         Font.Height = -13
  182.         Font.Name = 'MS Sans Serif'
  183.         Font.Style = []
  184.         Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  185.         BtnOffsetHorz = 3
  186.         BtnOffsetVert = 3
  187.         BtnWidth = 70
  188.         BtnHeight = 43
  189.         TabOrder = 0
  190.         InternalVer = 1
  191.         object Label7: TLabel
  192.           Left = 540
  193.           Top = 4
  194.           Width = 72
  195.           Height = 16
  196.           Caption = 'Graph Type'
  197.         end
  198.         object cbGraphType: TComboBox
  199.           Left = 540
  200.           Top = 20
  201.           Width = 137
  202.           Height = 24
  203.           ItemHeight = 16
  204.           Items.Strings = (
  205.             'Vertical Bar '
  206.             'Horizontal Bar'
  207.             'Pie'
  208.             'Line'
  209.             'Fast Line'
  210.             'Point'
  211.             'Area')
  212.           TabOrder = 0
  213.           Text = 'Vertical Bar'
  214.           OnChange = cbGraphTypeChange
  215.         end
  216.         object cbMarks: TCheckBox
  217.           Left = 389
  218.           Top = 20
  219.           Width = 125
  220.           Height = 17
  221.           HelpContext = 147
  222.           Alignment = taLeftJustify
  223.           Caption = '&Toggle Marks'
  224.           State = cbChecked
  225.           TabOrder = 1
  226.           OnClick = cbMarksClick
  227.         end
  228.         object SpeedbarSection2: TSpeedbarSection
  229.           Caption = 'Untitled (0)'
  230.         end
  231.         object BtnSaveGraph: TSpeedItem
  232.           BtnCaption = 'Save'
  233.           Caption = 'Save turnover graph'
  234.           DropDownMenu = SaveGraphMenu
  235.           Hint = 'Save graph'
  236.           NumGlyphs = 2
  237.           Spacing = 1
  238.           Left = 3
  239.           Top = 3
  240.           Visible = True
  241.           SectionName = 'Untitled (0)'
  242.         end
  243.         object BtnPrintGraph: TSpeedItem
  244.           BtnCaption = 'Print'
  245.           Caption = 'Print turnover graph'
  246.           Hint = 'Print report'
  247.           Spacing = 1
  248.           Left = 73
  249.           Top = 3
  250.           Visible = True
  251.           OnClick = BtnPrintGraphClick
  252.           SectionName = 'Untitled (0)'
  253.         end
  254.         object BtnEmailGraph: TSpeedItem
  255.           BtnCaption = 'Email'
  256.           Caption = 'Email turnover graph'
  257.           Hint = 'Email Report'
  258.           Spacing = 1
  259.           Left = 143
  260.           Top = 3
  261.           Visible = True
  262.           OnClick = BtnEmailGraphClick
  263.           SectionName = 'Untitled (0)'
  264.         end
  265.         object BtnCloseGraph: TSpeedItem
  266.           BtnCaption = 'Close'
  267.           Caption = 'Close this window'
  268.           Hint = 'Close this window|'
  269.           Spacing = 1
  270.           Left = 283
  271.           Top = 3
  272.           Visible = True
  273.           OnClick = BtnCloseGraphClick
  274.           SectionName = 'Untitled (0)'
  275.         end
  276.         object btnGraHelp: TSpeedItem
  277.           BtnCaption = '&Help'
  278.           Caption = 'View full help on this window'
  279.           Glyph.Data = {
  280.             F6000000424DF600000000000000760000002800000010000000100000000100
  281.             0400000000008000000000000000000000001000000010000000000000000000
  282.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  283.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  284.             888888888E6648888888888888E6688888888888888888888888888888446888
  285.             8888888886664888888888888E664888888888888E6664888888888888E66648
  286.             88888888888E6664888888844888E6664888886664888E66488888E666444666
  287.             4888888E6666666668888888EE6666668888888888EEEEE88888}
  288.           Hint = 'View full help on this window|'
  289.           Spacing = 1
  290.           Left = 213
  291.           Top = 3
  292.           Visible = True
  293.           OnClick = btnGraHelpClick
  294.           SectionName = 'Untitled (0)'
  295.         end
  296.       end
  297.       object Notebook1: TNotebook
  298.         Left = 0
  299.         Top = 49
  300.         Width = 690
  301.         Height = 300
  302.         Align = alClient
  303.         TabOrder = 1
  304.         object TPage
  305.           Left = 0
  306.           Top = 0
  307.           Caption = 'AllCustomers'
  308.           object AllCustomerChart: TChart
  309.             Left = 0
  310.             Top = 0
  311.             Width = 690
  312.             Height = 300
  313.             BottomWall.Brush.Color = clBlue
  314.             BottomWall.Color = clWhite
  315.             Foot.Font.Charset = DEFAULT_CHARSET
  316.             Foot.Font.Color = clRed
  317.             Foot.Font.Height = -13
  318.             Foot.Font.Name = 'Arial'
  319.             Foot.Font.Style = [fsItalic]
  320.             Gradient.EndColor = 16711808
  321.             Gradient.Visible = True
  322.             LeftWall.Brush.Color = clBlue
  323.             LeftWall.Color = 16744448
  324.             LeftWall.Pen.Color = 8388863
  325.             Title.Font.Charset = ANSI_CHARSET
  326.             Title.Font.Color = clLime
  327.             Title.Font.Height = -17
  328.             Title.Font.Name = 'Arial'
  329.             Title.Font.Style = []
  330.             Title.Text.Strings = (
  331.               '')
  332.             BackColor = clWhite
  333.             BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  334.             BottomAxis.LabelsFont.Color = clBlack
  335.             BottomAxis.LabelsFont.Height = -10
  336.             BottomAxis.LabelsFont.Name = 'Arial'
  337.             BottomAxis.LabelsFont.Style = []
  338.             BottomAxis.Title.Caption = 'Customers'
  339.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  340.             BottomAxis.Title.Font.Color = clBlue
  341.             BottomAxis.Title.Font.Height = -13
  342.             BottomAxis.Title.Font.Name = 'Arial Black'
  343.             BottomAxis.Title.Font.Style = []
  344.             LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
  345.             LeftAxis.LabelsFont.Color = clBlack
  346.             LeftAxis.LabelsFont.Height = -10
  347.             LeftAxis.LabelsFont.Name = 'Arial'
  348.             LeftAxis.LabelsFont.Style = []
  349.             LeftAxis.Title.Caption = 'Amount'
  350.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  351.             LeftAxis.Title.Font.Color = clYellow
  352.             LeftAxis.Title.Font.Height = -13
  353.             LeftAxis.Title.Font.Name = 'Arial Black'
  354.             LeftAxis.Title.Font.Style = []
  355.             Legend.Color = 10738885
  356.             Legend.Font.Charset = DEFAULT_CHARSET
  357.             Legend.Font.Color = clBlue
  358.             Legend.Font.Height = -10
  359.             Legend.Font.Name = 'Arial'
  360.             Legend.Font.Style = []
  361.             Legend.TextStyle = ltsLeftPercent
  362.             Legend.ShadowColor = 10485760
  363.             Legend.ShadowSize = 2
  364.             MaxPointsPerPage = 12
  365.             Align = alClient
  366.             BorderStyle = bsSingle
  367.             Color = 8388863
  368.             TabOrder = 0
  369.             object BSAllCustomer: TBarSeries
  370.               ColorEachPoint = True
  371.               Marks.Arrow.Color = clBlue
  372.               Marks.ArrowLength = 11
  373.               Marks.BackColor = 8454016
  374.               Marks.Style = smsValue
  375.               Marks.Visible = True
  376.               Title = 'AgedDebtor'
  377.               SeriesColor = clRed
  378.               XValues.DateTime = False
  379.               XValues.Name = 'X'
  380.               XValues.Multiplier = 1.000000000000000000
  381.               XValues.Order = loAscending
  382.               YValues.DateTime = False
  383.               YValues.Name = 'Bar'
  384.               YValues.Multiplier = 1.000000000000000000
  385.               YValues.Order = loNone
  386.             end
  387.           end
  388.         end
  389.         object TPage
  390.           Left = 0
  391.           Top = 0
  392.           Caption = 'SelectedCustomer'
  393.           object SelectedCustomerChart: TChart
  394.             Left = 0
  395.             Top = 0
  396.             Width = 690
  397.             Height = 300
  398.             BottomWall.Color = clWhite
  399.             Foot.Font.Charset = DEFAULT_CHARSET
  400.             Foot.Font.Color = clRed
  401.             Foot.Font.Height = -13
  402.             Foot.Font.Name = 'Arial'
  403.             Foot.Font.Style = [fsItalic]
  404.             Gradient.EndColor = 8421440
  405.             Gradient.Visible = True
  406.             LeftWall.Color = 16744448
  407.             LeftWall.Pen.Color = 8388863
  408.             Title.Font.Charset = ANSI_CHARSET
  409.             Title.Font.Color = clLime
  410.             Title.Font.Height = -17
  411.             Title.Font.Name = 'Arial'
  412.             Title.Font.Style = []
  413.             Title.Text.Strings = (
  414.               '')
  415.             BackColor = clWhite
  416.             BottomAxis.Title.Caption = 'Periods'
  417.             BottomAxis.Title.Font.Charset = ANSI_CHARSET
  418.             BottomAxis.Title.Font.Color = clBlue
  419.             BottomAxis.Title.Font.Height = -13
  420.             BottomAxis.Title.Font.Name = 'Arial Black'
  421.             BottomAxis.Title.Font.Style = []
  422.             LeftAxis.Title.Caption = 'Amount'
  423.             LeftAxis.Title.Font.Charset = ANSI_CHARSET
  424.             LeftAxis.Title.Font.Color = clYellow
  425.             LeftAxis.Title.Font.Height = -13
  426.             LeftAxis.Title.Font.Name = 'Arial Black'
  427.             LeftAxis.Title.Font.Style = []
  428.             Legend.TextStyle = ltsRightValue
  429.             MaxPointsPerPage = 4
  430.             Align = alClient
  431.             BorderStyle = bsSingle
  432.             Color = 8388863
  433.             TabOrder = 0
  434.             object BSSelectedCustomer: TBarSeries
  435.               ColorEachPoint = True
  436.               Marks.Arrow.Color = clBlue
  437.               Marks.ArrowLength = 11
  438.               Marks.BackColor = 8454016
  439.               Marks.Style = smsValue
  440.               Marks.Visible = True
  441.               Title = 'AgedDebtor'
  442.               SeriesColor = clRed
  443.               XValues.DateTime = False
  444.               XValues.Name = 'X'
  445.               XValues.Multiplier = 1.000000000000000000
  446.               XValues.Order = loAscending
  447.               YValues.DateTime = False
  448.               YValues.Name = 'Bar'
  449.               YValues.Multiplier = 1.000000000000000000
  450.               YValues.Order = loNone
  451.             end
  452.           end
  453.         end
  454.       end
  455.     end
  456.   end
  457.   object Panel1: TPanel
  458.     Left = 0
  459.     Top = 0
  460.     Width = 698
  461.     Height = 52
  462.     Align = alClient
  463.     TabOrder = 0
  464.     object Label1: TLabel
  465.       Left = 24
  466.       Top = 4
  467.       Width = 88
  468.       Height = 16
  469.       Caption = 'Start Customer'
  470.     end
  471.     object Label2: TLabel
  472.       Left = 144
  473.       Top = 4
  474.       Width = 95
  475.       Height = 16
  476.       Caption = 'Finish Customer'
  477.     end
  478.     object Label3: TLabel
  479.       Left = 500
  480.       Top = 4
  481.       Width = 57
  482.       Height = 16
  483.       Caption = 'Include ...'
  484.     end
  485.     object Label4: TLabel
  486.       Left = 620
  487.       Top = 4
  488.       Width = 35
  489.       Height = 16
  490.       Caption = 'Above'
  491.     end
  492.     object Label5: TLabel
  493.       Left = 364
  494.       Top = 4
  495.       Width = 91
  496.       Height = 16
  497.       Caption = 'T/O Finish Date'
  498.     end
  499.     object Label6: TLabel
  500.       Left = 264
  501.       Top = 4
  502.       Width = 84
  503.       Height = 16
  504.       Caption = 'T/O Start Date'
  505.     end
  506.     object DBCDlgStCustRef: TComboEdit
  507.       Left = 8
  508.       Top = 20
  509.       Width = 120
  510.       Height = 24
  511.       Hint = 'Press F1 for help'
  512.       HelpContext = 100
  513.       CharCase = ecUpperCase
  514.       ClickKey = 16467
  515.       ButtonWidth = 24
  516.       MaxLength = 16
  517.       NumGlyphs = 1
  518.       ParentShowHint = False
  519.       ShowHint = True
  520.       TabOrder = 0
  521.       OnButtonClick = DBCDlgStCustReCustomDlg
  522.       OnEnter = DBCDlgStCustRefEnter
  523.       OnExit = DBCDlgStCustRefExit
  524.     end
  525.     object DBCDlgFiCustRef: TComboEdit
  526.       Left = 132
  527.       Top = 20
  528.       Width = 120
  529.       Height = 24
  530.       Hint = 'Press F1 for help'
  531.       HelpContext = 101
  532.       CharCase = ecUpperCase
  533.       ClickKey = 16467
  534.       ButtonWidth = 24
  535.       MaxLength = 16
  536.       NumGlyphs = 1
  537.       ParentShowHint = False
  538.       ShowHint = True
  539.       TabOrder = 1
  540.       OnButtonClick = DBCDlgFiCustReCustomDlg
  541.       OnEnter = DBCDlgFiCustRefEnter
  542.       OnExit = DBCDlgFiCustRefExit
  543.     end
  544.     object CEAbove: TRxCalcEdit
  545.       Left = 592
  546.       Top = 20
  547.       Width = 100
  548.       Height = 24
  549.       Hint = 'Press F1 for help'
  550.       HelpContext = 166
  551.       AutoSize = False
  552.       ClickKey = 16451
  553.       DisplayFormat = '0.00'
  554.       NumGlyphs = 2
  555.       ParentShowHint = False
  556.       ShowHint = True
  557.       TabOrder = 5
  558.       OnEnter = CEAboveEnter
  559.       OnExit = CEAboveExit
  560.     end
  561.     object CBInclude: TComboBox
  562.       Left = 464
  563.       Top = 20
  564.       Width = 125
  565.       Height = 24
  566.       Hint = 'Press F1 for help'
  567.       HelpContext = 165
  568.       ItemHeight = 16
  569.       Items.Strings = (
  570.         'This Month'
  571.         'This Year'
  572.         'Selected Period')
  573.       ParentShowHint = False
  574.       ShowHint = True
  575.       TabOrder = 4
  576.       Text = 'This Month'
  577.       OnChange = CBIncludeChange
  578.     end
  579.     object DEStartDate: TDateEdit
  580.       Left = 256
  581.       Top = 20
  582.       Width = 100
  583.       Height = 24
  584.       Hint = 'Press F1 for help'
  585.       HelpContext = 163
  586.       NumGlyphs = 2
  587.       ParentShowHint = False
  588.       ShowHint = True
  589.       CalendarStyle = csDialog
  590.       Weekends = [Sun, Sat]
  591.       YearDigits = dyFour
  592.       TabOrder = 2
  593.       OnAcceptDate = DEStartDateAcceptDate
  594.       OnEnter = DEStartDateEnter
  595.       OnExit = DEStartDateExit
  596.     end
  597.     object DEFinDate: TDateEdit
  598.       Left = 360
  599.       Top = 20
  600.       Width = 100
  601.       Height = 24
  602.       Hint = 'Press F1 for help'
  603.       HelpContext = 164
  604.       NumGlyphs = 2
  605.       ParentShowHint = False
  606.       ShowHint = True
  607.       CalendarStyle = csDialog
  608.       Weekends = [Sun, Sat]
  609.       YearDigits = dyFour
  610.       TabOrder = 3
  611.       OnAcceptDate = DEFinDateAcceptDate
  612.       OnEnter = DEFinDateEnter
  613.       OnExit = DEFinDateExit
  614.     end
  615.   end
  616.   object Sizer1: TSizer
  617.     Enabled = True
  618.     ExceptionAction = eaIgnoreControl
  619.     GridColumnSizing = gcSizeAllColumns
  620.     GridRowSizing = grSizeByDefaults
  621.     MinimumSize = True
  622.     NavigateOnEnter = True
  623.     OverrideParentFont = True
  624.     PerformAssertions = True
  625.     ShowAssertionFailures = False
  626.     StretchFonts = True
  627.     StretchImages = True
  628.     StretchOnResize = True
  629.     ThreadProcessing = True
  630.     Left = 580
  631.     Top = 369
  632.     ScreenWidth = (
  633.       800)
  634.     ScreenHeight = (
  635.       600)
  636.     OriginalFormWidth = (
  637.       706)
  638.     OriginalFormHeight = (
  639.       459)
  640.     OriginalFormLeft = (
  641.       56)
  642.     OriginalFormTop = (
  643.       105)
  644.     OriginalFormPPI = (
  645.       120)
  646.     OriginalClientWidth = (
  647.       698)
  648.     OriginalClientHeight = (
  649.       432)
  650.   end
  651.   object SaveGraphMenu: TRxPopupMenu
  652.     LeftMargin = 30
  653.     Style = msOwnerDraw
  654.     OnDrawMargin = SaveGraphMenuDrawMargin
  655.     Left = 482
  656.     Top = 290
  657.     object pmSaveAsBitmap: TMenuItem
  658.       Caption = 'Save As &Bitmap'
  659.       OnClick = pmSaveAsBitmapClick
  660.     end
  661.     object pmSaveAsMetafile: TMenuItem
  662.       Caption = 'Save As &Metafile'
  663.       OnClick = pmSaveAsMetafileClick
  664.     end
  665.     object pmCopyToClipboard: TMenuItem
  666.       Caption = 'Copy To &Clipboard'
  667.       OnClick = pmCopyToClipboardClick
  668.     end
  669.   end
  670.   object pmRClick: TRxPopupMenu
  671.     Style = msOwnerDraw
  672.     ShowCheckMarks = False
  673.     OnGetItemParams = pmRClickGetItemParams
  674.     Left = 408
  675.     Top = 261
  676.     object pmZoomIn: TMenuItem
  677.       Caption = 'Zoom In'
  678.       OnClick = BtnZoomClick
  679.     end
  680.     object pmPrint: TMenuItem
  681.       Caption = 'Print'
  682.       OnClick = BtnRepPrintClick
  683.     end
  684.     object pmEmail: TMenuItem
  685.       Caption = 'Email'
  686.       OnClick = BtnRepEmailClick
  687.     end
  688.     object N4: TMenuItem
  689.       Caption = '-'
  690.     end
  691.     object pmiGridColor: TMenuItem
  692.       Caption = 'Change Grid Colour'
  693.       OnClick = pmiGridColorClick
  694.     end
  695.   end
  696.   object taCustSumm: TwwQuery
  697.     DatabaseName = 'EmpireBuilder'
  698.     SQL.Strings = (
  699.       'select sum(mtover), sum(ytover), sum(rep_t_val1) from customer')
  700.     ValidateWithMask = True
  701.     Left = 595
  702.     Top = 230
  703.     object taCustSummSUM_OF_MTO: TFloatField
  704.       FieldName = 'SUM_OF_MTO'
  705.     end
  706.     object taCustSummSUM_OF_YTO: TFloatField
  707.       FieldName = 'SUM_OF_YTO'
  708.     end
  709.     object taCustSummSUM_OF_REP: TFloatField
  710.       FieldName = 'SUM_OF_REP'
  711.     end
  712.   end
  713.   object taTranSumm1: TwwQuery
  714.     DatabaseName = 'EmpireBuilder'
  715.     SQL.Strings = (
  716.       'SELECT SUM(Trans.NETVALUE)'
  717.       'FROM Trans'
  718.       'WHERE (((Trans.ACCREF =  :STACCREF)'
  719.       'AND (Trans.TRANSDATE BETWEEN :STDATE AND :FIDATE)'
  720.       '     AND (Trans.TRANSTYPE = "INVOICE")))')
  721.     Params.Data = {
  722.       0100030008535441434352454600010200300000000653544441544500090400
  723.       5A950A00000006464944415445000904005A950A000000}
  724.     ValidateWithMask = True
  725.     Left = 624
  726.     Top = 139
  727.     object taTranSumm1SUM_OF_NET: TFloatField
  728.       FieldName = 'SUM_OF_NET'
  729.     end
  730.   end
  731.   object taTranSumm2: TwwQuery
  732.     DatabaseName = 'EmpireBuilder'
  733.     SQL.Strings = (
  734.       'SELECT SUM(Trans.NETVALUE)'
  735.       'FROM Trans'
  736.       'WHERE (((Trans.ACCREF = :STACCREF)'
  737.       'AND (Trans.TRANSDATE BETWEEN :STDATE AND :FIDATE)'
  738.       '     AND (Trans.TRANSTYPE = "CREDIT")))')
  739.     Params.Data = {
  740.       0100030008535441434352454600010200300000000653544441544500090400
  741.       5A950A00000006464944415445000904005A950A000000}
  742.     ValidateWithMask = True
  743.     Left = 654
  744.     Top = 139
  745.     object taTranSumm2SUM_OF_NET: TFloatField
  746.       FieldName = 'SUM_OF_NET'
  747.     end
  748.   end
  749.   object taCustomer: TwwQuery
  750.     DatabaseName = 'EmpireBuilder'
  751.     SQL.Strings = (
  752.       'Select * from Customer')
  753.     ValidateWithMask = True
  754.     Left = 486
  755.     Top = 144
  756.     object taCustomerACCREF: TStringField
  757.       DisplayLabel = 'Cust. Ref'
  758.       DisplayWidth = 12
  759.       FieldName = 'ACCREF'
  760.       Origin = '"Customer.DBF".ACCREF'
  761.       Size = 10
  762.     end
  763.     object taCustomerNAME: TStringField
  764.       DisplayLabel = 'Customer Name'
  765.       DisplayWidth = 40
  766.       FieldName = 'NAME'
  767.       Origin = '"Customer.DBF".NAME'
  768.       Size = 40
  769.     end
  770.     object taCustomerMTOVER: TFloatField
  771.       DisplayLabel = 'Turnover~This Month'
  772.       DisplayWidth = 12
  773.       FieldName = 'MTOVER'
  774.       Origin = '"Customer.DBF".MTOVER'
  775.       DisplayFormat = '0.00'
  776.     end
  777.     object taCustomerYTOVER: TFloatField
  778.       DisplayLabel = 'Turnover~This Year'
  779.       DisplayWidth = 12
  780.       FieldName = 'YTOVER'
  781.       Origin = '"Customer.DBF".YTOVER'
  782.       DisplayFormat = '0.00'
  783.     end
  784.     object taCustomerREP_T_VAL1: TFloatField
  785.       DisplayLabel = 'Selected ~Period Turnover'
  786.       DisplayWidth = 12
  787.       FieldName = 'REP_T_VAL1'
  788.       Origin = '"Customer.DBF".REP_T_VAL1'
  789.       DisplayFormat = '0.00'
  790.     end
  791.     object taCustomerADDRESS1: TStringField
  792.       FieldName = 'ADDRESS1'
  793.       Origin = '"Customer.DBF".ADDRESS1'
  794.       Visible = False
  795.       Size = 30
  796.     end
  797.     object taCustomerADDRESS2: TStringField
  798.       FieldName = 'ADDRESS2'
  799.       Origin = '"Customer.DBF".ADDRESS2'
  800.       Visible = False
  801.       Size = 30
  802.     end
  803.     object taCustomerADDRESS3: TStringField
  804.       FieldName = 'ADDRESS3'
  805.       Origin = '"Customer.DBF".ADDRESS3'
  806.       Visible = False
  807.       Size = 30
  808.     end
  809.     object taCustomerPOSTCODE: TStringField
  810.       FieldName = 'POSTCODE'
  811.       Origin = '"Customer.DBF".POSTCODE'
  812.       Visible = False
  813.       Size = 10
  814.     end
  815.     object taCustomerTELNO1: TStringField
  816.       FieldName = 'TELNO1'
  817.       Origin = '"Customer.DBF".TELNO1'
  818.       Visible = False
  819.       Size = 15
  820.     end
  821.     object taCustomerTELNO2: TStringField
  822.       FieldName = 'TELNO2'
  823.       Origin = '"Customer.DBF".TELNO2'
  824.       Visible = False
  825.       Size = 15
  826.     end
  827.     object taCustomerFAXNO: TStringField
  828.       FieldName = 'FAXNO'
  829.       Origin = '"Customer.DBF".FAXNO'
  830.       Visible = False
  831.       Size = 15
  832.     end
  833.     object taCustomerEMAIL: TStringField
  834.       FieldName = 'EMAIL'
  835.       Origin = '"Customer.DBF".EMAIL'
  836.       Visible = False
  837.       Size = 70
  838.     end
  839.     object taCustomerCONTACT: TStringField
  840.       FieldName = 'CONTACT'
  841.       Origin = '"Customer.DBF".CONTACT'
  842.       Visible = False
  843.       Size = 25
  844.     end
  845.     object taCustomerCREITLMT: TFloatField
  846.       FieldName = 'CREITLMT'
  847.       Origin = '"Customer.DBF".CREITLMT'
  848.       Visible = False
  849.     end
  850.     object taCustomerTERMS: TSmallintField
  851.       FieldName = 'TERMS'
  852.       Origin = '"Customer.DBF".TERMS'
  853.       Visible = False
  854.     end
  855.     object taCustomerPRICECODE: TSmallintField
  856.       FieldName = 'PRICECODE'
  857.       Origin = '"Customer.DBF".PRICECODE'
  858.       Visible = False
  859.     end
  860.     object taCustomerONSTOP: TBooleanField
  861.       FieldName = 'ONSTOP'
  862.       Origin = '"Customer.DBF".ONSTOP'
  863.       Visible = False
  864.     end
  865.     object taCustomerCMLINK: TStringField
  866.       FieldName = 'CMLINK'
  867.       Origin = '"Customer.DBF".CMLINK'
  868.       Visible = False
  869.       Size = 10
  870.     end
  871.     object taCustomerVATID: TStringField
  872.       FieldName = 'VATID'
  873.       Origin = '"Customer.DBF".VATID'
  874.       Visible = False
  875.       Size = 15
  876.     end
  877.     object taCustomerVATCODE: TStringField
  878.       FieldName = 'VATCODE'
  879.       Origin = '"Customer.DBF".VATCODE'
  880.       Visible = False
  881.       Size = 1
  882.     end
  883.     object taCustomerECCODE: TStringField
  884.       FieldName = 'ECCODE'
  885.       Origin = '"Customer.DBF".ECCODE'
  886.       Visible = False
  887.       Size = 3
  888.     end
  889.     object taCustomerSETTDAYS: TSmallintField
  890.       FieldName = 'SETTDAYS'
  891.       Origin = '"Customer.DBF".SETTDAYS'
  892.       Visible = False
  893.     end
  894.     object taCustomerSETTDISC: TFloatField
  895.       FieldName = 'SETTDISC'
  896.       Origin = '"Customer.DBF".SETTDISC'
  897.       Visible = False
  898.     end
  899.     object taCustomerNOMACC: TStringField
  900.       FieldName = 'NOMACC'
  901.       Origin = '"Customer.DBF".NOMACC'
  902.       Visible = False
  903.       Size = 10
  904.     end
  905.     object taCustomerNOTEPAD: TMemoField
  906.       FieldName = 'NOTEPAD'
  907.       Origin = '"Customer.DBF".NOTEPAD'
  908.       Visible = False
  909.       BlobType = ftMemo
  910.       Size = 1
  911.     end
  912.     object taCustomerORVATCODE: TBooleanField
  913.       FieldName = 'ORVATCODE'
  914.       Origin = '"Customer.DBF".ORVATCODE'
  915.       Visible = False
  916.     end
  917.     object taCustomerORNOMACC: TBooleanField
  918.       FieldName = 'ORNOMACC'
  919.       Origin = '"Customer.DBF".ORNOMACC'
  920.       Visible = False
  921.     end
  922.     object taCustomerDISCOUNT: TFloatField
  923.       FieldName = 'DISCOUNT'
  924.       Origin = '"Customer.DBF".DISCOUNT'
  925.       Visible = False
  926.     end
  927.     object taCustomerBALANCE: TFloatField
  928.       FieldName = 'BALANCE'
  929.       Origin = '"Customer.DBF".BALANCE'
  930.       Visible = False
  931.     end
  932.     object taCustomerCURRENT: TFloatField
  933.       FieldName = 'CURRENT'
  934.       Origin = '"Customer.DBF".CURRENT'
  935.       Visible = False
  936.     end
  937.     object taCustomerPERBAL1: TFloatField
  938.       FieldName = 'PERBAL1'
  939.       Origin = '"Customer.DBF".PERBAL1'
  940.       Visible = False
  941.     end
  942.     object taCustomerPERBAL2: TFloatField
  943.       FieldName = 'PERBAL2'
  944.       Origin = '"Customer.DBF".PERBAL2'
  945.       Visible = False
  946.     end
  947.     object taCustomerPERBAL3: TFloatField
  948.       FieldName = 'PERBAL3'
  949.       Origin = '"Customer.DBF".PERBAL3'
  950.       Visible = False
  951.     end
  952.     object taCustomerPERBAL4: TFloatField
  953.       FieldName = 'PERBAL4'
  954.       Origin = '"Customer.DBF".PERBAL4'
  955.       Visible = False
  956.     end
  957.     object taCustomerLPAYDATE: TDateField
  958.       FieldName = 'LPAYDATE'
  959.       Origin = '"Customer.DBF".LPAYDATE'
  960.       Visible = False
  961.     end
  962.     object taCustomerLSALEDATE: TDateField
  963.       FieldName = 'LSALEDATE'
  964.       Origin = '"Customer.DBF".LSALEDATE'
  965.       Visible = False
  966.     end
  967.     object taCustomerAMTPAID: TFloatField
  968.       FieldName = 'AMTPAID'
  969.       Origin = '"Customer.DBF".AMTPAID'
  970.       Visible = False
  971.     end
  972.     object taCustomerPAYDUE: TFloatField
  973.       FieldName = 'PAYDUE'
  974.       Origin = '"Customer.DBF".PAYDUE'
  975.       Visible = False
  976.     end
  977.     object taCustomerAMTQUERY: TFloatField
  978.       FieldName = 'AMTQUERY'
  979.       Origin = '"Customer.DBF".AMTQUERY'
  980.       Visible = False
  981.     end
  982.     object taCustomerLASTUPDATE: TStringField
  983.       FieldName = 'LASTUPDATE'
  984.       Origin = '"Customer.DBF".LASTUPDATE'
  985.       Visible = False
  986.     end
  987.     object taCustomerLASTCALC: TStringField
  988.       FieldName = 'LASTCALC'
  989.       Origin = '"Customer.DBF".LASTCALC'
  990.       Visible = False
  991.     end
  992.     object taCustomerTAG1: TBooleanField
  993.       FieldName = 'TAG1'
  994.       Origin = '"Customer.DBF".TAG1'
  995.       Visible = False
  996.     end
  997.     object taCustomerTAG2: TBooleanField
  998.       FieldName = 'TAG2'
  999.       Origin = '"Customer.DBF".TAG2'
  1000.       Visible = False
  1001.     end
  1002.     object taCustomerREP_T_VAL2: TFloatField
  1003.       FieldName = 'REP_T_VAL2'
  1004.       Origin = '"Customer.DBF".REP_T_VAL2'
  1005.       Visible = False
  1006.     end
  1007.     object taCustomerREP_T_VAL3: TFloatField
  1008.       FieldName = 'REP_T_VAL3'
  1009.       Origin = '"Customer.DBF".REP_T_VAL3'
  1010.       Visible = False
  1011.     end
  1012.     object taCustomerREP_T_VAL4: TFloatField
  1013.       FieldName = 'REP_T_VAL4'
  1014.       Origin = '"Customer.DBF".REP_T_VAL4'
  1015.       Visible = False
  1016.     end
  1017.     object taCustomerREP_T_VAL5: TFloatField
  1018.       FieldName = 'REP_T_VAL5'
  1019.       Origin = '"Customer.DBF".REP_T_VAL5'
  1020.       Visible = False
  1021.     end
  1022.   end
  1023.   object dsCustomer: TwwDataSource
  1024.     DataSet = taCustomer
  1025.     Left = 316
  1026.     Top = 152
  1027.   end
  1028. end
  1029.