home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1999 September / Dpcb0999.iso / Business / Empire / _SETUP.1 / EmpireBuilder.exe / 0 / RCDATA / TFMSTOCKCHECK / TFMSTOCKCHECK.txt
Text File  |  1999-06-21  |  13KB  |  488 lines
  1. object fmStockCheck: TfmStockCheck
  2.   Left = 70
  3.   Top = 87
  4.   AutoScroll = False
  5.   Caption = 'Stock Check Report'
  6.   ClientHeight = 432
  7.   ClientWidth = 698
  8.   Font.Charset = ANSI_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'Arial'
  12.   Font.Style = []
  13.   FormStyle = fsMDIChild
  14.   Position = poDefaultPosOnly
  15.   Scaled = False
  16.   Visible = True
  17.   OnActivate = FormActivate
  18.   OnClose = FormClose
  19.   OnCloseQuery = FormCloseQuery
  20.   OnCreate = FormCreate
  21.   OnDeactivate = FormDeactivate
  22.   OnShow = FormShow
  23.   PixelsPerInch = 120
  24.   TextHeight = 16
  25.   object Panel1: TPanel
  26.     Left = 0
  27.     Top = 0
  28.     Width = 698
  29.     Height = 53
  30.     Align = alTop
  31.     TabOrder = 0
  32.     object Label1: TLabel
  33.       Left = 24
  34.       Top = 4
  35.       Width = 100
  36.       Height = 16
  37.       Caption = 'Start Stock Code'
  38.     end
  39.     object Label2: TLabel
  40.       Left = 164
  41.       Top = 4
  42.       Width = 107
  43.       Height = 16
  44.       Caption = 'Finish Stock Code'
  45.     end
  46.     object Label3: TLabel
  47.       Left = 296
  48.       Top = 4
  49.       Width = 92
  50.       Height = 16
  51.       Caption = 'Start Prod. Grp.'
  52.     end
  53.     object Label4: TLabel
  54.       Left = 396
  55.       Top = 4
  56.       Width = 99
  57.       Height = 16
  58.       Caption = 'Finish Prod. Grp.'
  59.     end
  60.     object rxcbeStStock: TComboEdit
  61.       Left = 4
  62.       Top = 20
  63.       Width = 140
  64.       Height = 24
  65.       Hint = 'Press F1 for help'
  66.       HelpContext = 546
  67.       ButtonHint = 'Search'
  68.       CharCase = ecUpperCase
  69.       ClickKey = 16467
  70.       ButtonWidth = 24
  71.       MaxLength = 16
  72.       NumGlyphs = 1
  73.       ParentShowHint = False
  74.       ShowHint = True
  75.       TabOrder = 0
  76.       OnButtonClick = rxcbeStStockButtonClick
  77.       OnEnter = rxcbeStStockEnter
  78.       OnExit = rxcbeStStockExit
  79.     end
  80.     object rxcbeFinStock: TComboEdit
  81.       Left = 148
  82.       Top = 20
  83.       Width = 140
  84.       Height = 24
  85.       Hint = 'Press F1 for help'
  86.       HelpContext = 547
  87.       ButtonHint = 'Search'
  88.       CharCase = ecUpperCase
  89.       ClickKey = 16467
  90.       ButtonWidth = 24
  91.       MaxLength = 16
  92.       NumGlyphs = 1
  93.       ParentShowHint = False
  94.       ShowHint = True
  95.       TabOrder = 1
  96.       OnButtonClick = rxcbeFinStockButtonClick
  97.       OnEnter = rxcbeFinStockEnter
  98.       OnExit = rxcbeFinStockExit
  99.     end
  100.     object rxcbeStPG: TComboEdit
  101.       Left = 292
  102.       Top = 20
  103.       Width = 100
  104.       Height = 24
  105.       Hint = 'Press F1 for help'
  106.       HelpContext = 548
  107.       ButtonHint = 'Search'
  108.       CharCase = ecUpperCase
  109.       ClickKey = 16467
  110.       ButtonWidth = 24
  111.       MaxLength = 16
  112.       NumGlyphs = 1
  113.       ParentShowHint = False
  114.       ShowHint = True
  115.       TabOrder = 2
  116.       OnButtonClick = rxcbeStPGButtonClick
  117.       OnEnter = rxcbeStPGEnter
  118.       OnExit = rxcbeStPGExit
  119.     end
  120.     object rxcbeFinPG: TComboEdit
  121.       Left = 396
  122.       Top = 20
  123.       Width = 100
  124.       Height = 24
  125.       Hint = 'Press F1 for help'
  126.       HelpContext = 549
  127.       ButtonHint = 'Search'
  128.       CharCase = ecUpperCase
  129.       ClickKey = 16467
  130.       ButtonWidth = 24
  131.       MaxLength = 16
  132.       NumGlyphs = 1
  133.       ParentShowHint = False
  134.       ShowHint = True
  135.       TabOrder = 3
  136.       OnButtonClick = rxcbeFinPGButtonClick
  137.       OnEnter = rxcbeFinPGEnter
  138.       OnExit = rxcbeFinPGExit
  139.     end
  140.     object Panel3: TPanel
  141.       Left = 504
  142.       Top = 4
  143.       Width = 189
  144.       Height = 45
  145.       BevelInner = bvRaised
  146.       BevelOuter = bvLowered
  147.       TabOrder = 4
  148.       object cbxIncZero: TCheckBox
  149.         Left = 4
  150.         Top = 4
  151.         Width = 181
  152.         Height = 17
  153.         Hint = 'Press F1 for help'
  154.         HelpContext = 553
  155.         Alignment = taLeftJustify
  156.         Caption = 'Include Zero Stock Items'
  157.         ParentShowHint = False
  158.         ShowHint = True
  159.         State = cbChecked
  160.         TabOrder = 0
  161.         OnClick = cbxIncZeroClick
  162.       end
  163.       object cbxIncNon: TCheckBox
  164.         Left = 4
  165.         Top = 24
  166.         Width = 181
  167.         Height = 17
  168.         Hint = 'Press F1 for help'
  169.         HelpContext = 554
  170.         Alignment = taLeftJustify
  171.         Caption = 'Include Non Stock Items'
  172.         ParentShowHint = False
  173.         ShowHint = True
  174.         TabOrder = 1
  175.         OnClick = cbxIncNonClick
  176.       end
  177.     end
  178.   end
  179.   object Panel2: TPanel
  180.     Left = 0
  181.     Top = 53
  182.     Width = 698
  183.     Height = 379
  184.     Align = alClient
  185.     TabOrder = 1
  186.     object SpeedBar: TSpeedBar
  187.       Left = 1
  188.       Top = 1
  189.       Width = 696
  190.       Height = 49
  191.       Font.Charset = ANSI_CHARSET
  192.       Font.Color = clWindowText
  193.       Font.Height = -13
  194.       Font.Name = 'MS Sans Serif'
  195.       Font.Style = []
  196.       Options = [sbAllowDrag, sbFlatBtns, sbTransparentBtns]
  197.       BtnOffsetHorz = 3
  198.       BtnOffsetVert = 3
  199.       BtnWidth = 70
  200.       BtnHeight = 43
  201.       BevelOuter = bvNone
  202.       TabOrder = 0
  203.       InternalVer = 1
  204.       object Panel4: TPanel
  205.         Left = 520
  206.         Top = 2
  207.         Width = 173
  208.         Height = 45
  209.         BevelInner = bvRaised
  210.         BevelOuter = bvLowered
  211.         TabOrder = 0
  212.         object rbBySC: TRadioButton
  213.           Left = 5
  214.           Top = 4
  215.           Width = 161
  216.           Height = 17
  217.           Hint = 'Press F1 for help'
  218.           HelpContext = 550
  219.           Alignment = taLeftJustify
  220.           Caption = 'By Stock Code'
  221.           Checked = True
  222.           TabOrder = 0
  223.           TabStop = True
  224.         end
  225.         object rbByPG: TRadioButton
  226.           Left = 5
  227.           Top = 24
  228.           Width = 161
  229.           Height = 17
  230.           Hint = 'Press F1 for help'
  231.           HelpContext = 550
  232.           Alignment = taLeftJustify
  233.           Caption = 'By Product Group'
  234.           TabOrder = 1
  235.         end
  236.       end
  237.       object SpeedbarSection1: TSpeedbarSection
  238.         Caption = 'Untitled (0)'
  239.       end
  240.       object BtnPrint: TSpeedItem
  241.         BtnCaption = 'Print'
  242.         Caption = 'Print stock check report'
  243.         Hint = 'Print stock check report'
  244.         Spacing = 1
  245.         Left = 73
  246.         Top = 3
  247.         Visible = True
  248.         OnClick = BtnPrintClick
  249.         SectionName = 'Untitled (0)'
  250.       end
  251.       object BtnEmail: TSpeedItem
  252.         BtnCaption = 'Email'
  253.         Caption = 'Email stock check report'
  254.         Hint = 'Email stock check report'
  255.         Spacing = 1
  256.         Left = 143
  257.         Top = 3
  258.         Visible = True
  259.         OnClick = BtnEmailClick
  260.         SectionName = 'Untitled (0)'
  261.       end
  262.       object BtnClose: TSpeedItem
  263.         BtnCaption = 'Close'
  264.         Caption = 'Close'
  265.         Hint = 'Close report'
  266.         Spacing = 1
  267.         Left = 283
  268.         Top = 3
  269.         Visible = True
  270.         OnClick = BtnCloseClick
  271.         SectionName = 'Untitled (0)'
  272.       end
  273.       object BtnZoomIn: TSpeedItem
  274.         BtnCaption = 'Zoom In'
  275.         Caption = 'Transaction zoom-in'
  276.         Hint = 'Transaction zoom-in'
  277.         Spacing = 1
  278.         Left = 3
  279.         Top = 3
  280.         Visible = True
  281.         OnClick = BtnZoomInClick
  282.         SectionName = 'Untitled (0)'
  283.       end
  284.       object btnHelp: TSpeedItem
  285.         BtnCaption = '&Help'
  286.         Caption = 'View help on this window'
  287.         Glyph.Data = {
  288.           F6000000424DF600000000000000760000002800000010000000100000000100
  289.           0400000000008000000000000000000000001000000010000000000000000000
  290.           8000008000000080800080000000800080008080000080808000C0C0C0000000
  291.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888886446888
  292.           888888888E6648888888888888E6688888888888888888888888888888446888
  293.           8888888886664888888888888E664888888888888E6664888888888888E66648
  294.           88888888888E6664888888844888E6664888886664888E66488888E666444666
  295.           4888888E6666666668888888EE6666668888888888EEEEE88888}
  296.         Hint = 'View help on this window|'
  297.         Spacing = 1
  298.         Left = 213
  299.         Top = 3
  300.         Visible = True
  301.         OnClick = btnHelpClick
  302.         SectionName = 'Untitled (0)'
  303.       end
  304.     end
  305.     object wwDBGrid1: TwwDBGrid
  306.       Left = 1
  307.       Top = 50
  308.       Width = 696
  309.       Height = 328
  310.       Selected.Strings = (
  311.         'STOCKCODE'#9'16'#9'Stock Code'#9'F'
  312.         'DESC'#9'40'#9'Description'#9'F'
  313.         'INSTOCK'#9'10'#9'Quantity~In Stock'#9'F'
  314.         'REORDLEV'#9'10'#9'Reorder~Level'#9'F'
  315.         'LOCATION'#9'15'#9'Location'#9'F'
  316.         'REORDQUAN'#9'10'#9'Reorder~Quantity'#9'F'
  317.         'PRODGROUP'#9'15'#9'Product~Group'#9'F')
  318.       TitleColor = clBtnFace
  319.       FixedCols = 1
  320.       ShowHorzScrollBar = True
  321.       Align = alClient
  322.       DataSource = dsStock
  323.       Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
  324.       PopupMenu = rxpmStockAdj
  325.       TabOrder = 1
  326.       TitleAlignment = taLeftJustify
  327.       TitleFont.Charset = ANSI_CHARSET
  328.       TitleFont.Color = clWindowText
  329.       TitleFont.Height = -13
  330.       TitleFont.Name = 'Arial'
  331.       TitleFont.Style = []
  332.       TitleLines = 2
  333.       TitleButtons = True
  334.       OnCalcCellColors = wwDBGrid1CalcCellColors
  335.       OnCalcTitleAttributes = wwDBGrid1CalcTitleAttributes
  336.       OnTitleButtonClick = wwDBGrid1TitleButtonClick
  337.       OnDblClick = BtnZoomInClick
  338.       IndicatorColor = icBlack
  339.       OnTopRowChanged = wwDBGrid1TopRowChanged
  340.       OnCalcTitleImage = wwDBGrid1CalcTitleImage
  341.       TitleImageList = ImagesDM.GenralBM
  342.     end
  343.   end
  344.   object Sizer1: TSizer
  345.     Enabled = True
  346.     ExceptionAction = eaIgnoreControl
  347.     GridColumnSizing = gcSizeAllColumns
  348.     GridRowSizing = grSizeByDefaults
  349.     MinimumSize = True
  350.     NavigateOnEnter = True
  351.     OverrideParentFont = True
  352.     PerformAssertions = True
  353.     ShowAssertionFailures = False
  354.     StretchFonts = True
  355.     StretchImages = True
  356.     StretchOnResize = True
  357.     ThreadProcessing = False
  358.     Left = 504
  359.     Top = 178
  360.     ScreenWidth = (
  361.       800)
  362.     ScreenHeight = (
  363.       600)
  364.     OriginalFormWidth = (
  365.       706)
  366.     OriginalFormHeight = (
  367.       459)
  368.     OriginalFormLeft = (
  369.       70)
  370.     OriginalFormTop = (
  371.       87)
  372.     OriginalFormPPI = (
  373.       120)
  374.     OriginalClientWidth = (
  375.       698)
  376.     OriginalClientHeight = (
  377.       432)
  378.   end
  379.   object dsStock: TwwDataSource
  380.     DataSet = qyStock
  381.     Left = 465
  382.     Top = 179
  383.   end
  384.   object rxpmStockAdj: TRxPopupMenu
  385.     Style = msOwnerDraw
  386.     ShowCheckMarks = False
  387.     OnGetItemParams = rxpmStockAdjGetItemParams
  388.     Left = 433
  389.     Top = 178
  390.     object rxpmiStockAdj: TMenuItem
  391.       Caption = 'Stock Adjustment'
  392.       OnClick = rxpmiStockAdjClick
  393.     end
  394.     object N1: TMenuItem
  395.       Caption = '-'
  396.     end
  397.     object pmZoomIn: TMenuItem
  398.       Caption = 'Zoom In'
  399.       OnClick = BtnZoomInClick
  400.     end
  401.     object N3: TMenuItem
  402.       Caption = '-'
  403.     end
  404.     object pmPrintReport: TMenuItem
  405.       Caption = 'Print Report'
  406.       OnClick = BtnPrintClick
  407.     end
  408.     object pmEMailReport: TMenuItem
  409.       Caption = 'Email Report'
  410.     end
  411.     object N2: TMenuItem
  412.       Caption = '-'
  413.     end
  414.     object pmChangeGridColour: TMenuItem
  415.       Caption = 'Change Grid Colour'
  416.       OnClick = pmChangeGridColourClick
  417.     end
  418.   end
  419.   object qyStock: TwwQuery
  420.     DatabaseName = 'EmpireBuilder'
  421.     SQL.Strings = (
  422.       'SELECT Stock.STOCKCODE,'
  423.       '         Stock."DESC",'
  424.       '         Stock.INSTOCK,'
  425.       '         Stock.REORDLEV,'
  426.       '         Stock.LOCATION,'
  427.       '         Stock.REORDQUAN,'
  428.       '         Stock.PRODGROUP,'
  429.       '         Stock.LEVELS'
  430.       '    FROM ":EmpireBuilder:Stock.DBF" Stock'
  431.       '  ')
  432.     ValidateWithMask = True
  433.     Left = 433
  434.     Top = 210
  435.     object qyStockSTOCKCODE: TStringField
  436.       DisplayLabel = 'Stock Code'
  437.       DisplayWidth = 16
  438.       FieldName = 'STOCKCODE'
  439.       Origin = '"Stock.DBF".STOCKCODE'
  440.       Size = 16
  441.     end
  442.     object qyStockDESC: TStringField
  443.       DisplayLabel = 'Description'
  444.       DisplayWidth = 40
  445.       FieldName = 'DESC'
  446.       Origin = '"Stock.DBF".DESC'
  447.       Size = 40
  448.     end
  449.     object qyStockINSTOCK: TFloatField
  450.       DisplayLabel = 'Quantity~In Stock'
  451.       DisplayWidth = 10
  452.       FieldName = 'INSTOCK'
  453.       Origin = '"Stock.DBF".INSTOCK'
  454.     end
  455.     object qyStockREORDLEV: TFloatField
  456.       DisplayLabel = 'Reorder~Level'
  457.       DisplayWidth = 10
  458.       FieldName = 'REORDLEV'
  459.       Origin = '"Stock.DBF".REORDLEV'
  460.     end
  461.     object qyStockLOCATION: TStringField
  462.       DisplayLabel = 'Location'
  463.       DisplayWidth = 15
  464.       FieldName = 'LOCATION'
  465.       Origin = '"Stock.DBF".LOCATION'
  466.       Size = 15
  467.     end
  468.     object qyStockREORDQUAN: TFloatField
  469.       DisplayLabel = 'Reorder~Quantity'
  470.       DisplayWidth = 10
  471.       FieldName = 'REORDQUAN'
  472.       Origin = '"Stock.DBF".REORDQUAN'
  473.     end
  474.     object qyStockPRODGROUP: TStringField
  475.       DisplayLabel = 'Product~Group'
  476.       DisplayWidth = 15
  477.       FieldName = 'PRODGROUP'
  478.       Origin = '"Stock.DBF".PRODGROUP'
  479.       Size = 10
  480.     end
  481.     object qyStockLEVELS: TBooleanField
  482.       FieldName = 'LEVELS'
  483.       Origin = '"Stock.DBF".LEVELS'
  484.       Visible = False
  485.     end
  486.   end
  487. end
  488.