home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / DATAFRM.DF_ / DATAFRM.DF / DATAFRM.txt next >
Text File  |  1996-10-18  |  14KB  |  441 lines
  1. object FrmData1: TFrmData1
  2.   Left = 200
  3.   Top = 99
  4.   BorderStyle = bsDialog
  5.   Caption = 'Data-Aware Components'
  6.   ClientHeight = 333
  7.   ClientWidth = 403
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   ShowHint = True
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   TextHeight = 13
  19.   object RzBorder2: TRzBorder
  20.     Left = 328
  21.     Top = 300
  22.     Width = 37
  23.     Height = 25
  24.     BorderSides = [sdTop, sdRight]
  25.   end
  26.   object RzBorder1: TRzBorder
  27.     Left = 8
  28.     Top = 300
  29.     Width = 225
  30.     Height = 17
  31.     BorderSides = [sdLeft, sdTop, sdRight]
  32.   end
  33.   object RzLabel1: TRzLabel
  34.     Left = 8
  35.     Top = 8
  36.     Width = 145
  37.     Height = 39
  38.     TextStyle = tsNormal
  39.     Caption = 
  40.       'This form uses the Parts table from the DBDEMOS database that wa' +
  41.       's shipped with Delphi.'
  42.     Font.Color = clNavy
  43.     Font.Height = -11
  44.     Font.Name = 'MS Sans Serif'
  45.     Font.Style = []
  46.     ParentFont = False
  47.     WordWrap = True
  48.   end
  49.   object RzLabel4: TRzLabel
  50.     Left = 24
  51.     Top = 296
  52.     Width = 195
  53.     Height = 13
  54.     TextStyle = tsNormal
  55.     Caption = 'These are RzDBStatusPane components'
  56.     Font.Color = clNavy
  57.     Font.Height = -11
  58.     Font.Name = 'MS Sans Serif'
  59.     Font.Style = []
  60.     ParentFont = False
  61.   end
  62.   object RzLabel6: TRzLabel
  63.     Left = 264
  64.     Top = 296
  65.     Width = 83
  66.     Height = 13
  67.     TextStyle = tsNormal
  68.     Caption = 'RzDBStateStatus'
  69.     Font.Color = clNavy
  70.     Font.Height = -11
  71.     Font.Name = 'MS Sans Serif'
  72.     Font.Style = []
  73.     ParentFont = False
  74.   end
  75.   object BtnOK: TButton
  76.     Left = 320
  77.     Top = 264
  78.     Width = 75
  79.     Height = 25
  80.     Caption = 'Done'
  81.     ModalResult = 1
  82.     TabOrder = 0
  83.   end
  84.   object RzStatusBar1: TRzStatusBar
  85.     Left = 0
  86.     Top = 312
  87.     Width = 403
  88.     ShowSizeGrip = False
  89.     TabOrder = 1
  90.     object RzDBStatusPane1: TRzDBStatusPane
  91.       Left = 0
  92.       Top = 0
  93.       Width = 117
  94.       Height = 23
  95.       Hint = 'Cost'
  96.       Align = alLeft
  97.       ParentShowHint = False
  98.       DataField = 'Cost'
  99.       DataSource = SrcParts
  100.       FieldLabel = 'Cost:  '
  101.     end
  102.     object RzDBStatusPane2: TRzDBStatusPane
  103.       Left = 117
  104.       Top = 0
  105.       Width = 133
  106.       Height = 23
  107.       Hint = 'ListPrice'
  108.       Align = alLeft
  109.       ParentShowHint = False
  110.       DataField = 'ListPrice'
  111.       DataSource = SrcParts
  112.       FieldLabel = 'List Price:  '
  113.     end
  114.     object RzDBStateStatus1: TRzDBStateStatus
  115.       Left = 250
  116.       Top = 0
  117.       Width = 153
  118.       Height = 23
  119.       Hint = 'Graphically displays the state of the selected Dataset'
  120.       Align = alClient
  121.       DataSource = SrcParts
  122.       GlyphOffset = 5
  123.     end
  124.   end
  125.   object DBGrid1: TDBGrid
  126.     Left = 8
  127.     Top = 52
  128.     Width = 385
  129.     Height = 73
  130.     DataSource = SrcParts
  131.     TabOrder = 2
  132.     TitleFont.Color = clWindowText
  133.     TitleFont.Height = -11
  134.     TitleFont.Name = 'MS Sans Serif'
  135.     TitleFont.Style = []
  136.   end
  137.   object DBNavigator1: TDBNavigator
  138.     Left = 168
  139.     Top = 20
  140.     Width = 217
  141.     Height = 25
  142.     DataSource = SrcParts
  143.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
  144.     TabOrder = 3
  145.   end
  146.   object GroupBox1: TGroupBox
  147.     Left = 8
  148.     Top = 243
  149.     Width = 217
  150.     Height = 49
  151.     Caption = 'RzDBSpinEdit Components'
  152.     TabOrder = 4
  153.     object RzLabel2: TRzLabel
  154.       Left = 8
  155.       Top = 24
  156.       Width = 43
  157.       Height = 13
  158.       TextStyle = tsNormal
  159.       Caption = 'On Hand'
  160.     end
  161.     object RzLabel3: TRzLabel
  162.       Left = 112
  163.       Top = 24
  164.       Width = 43
  165.       Height = 13
  166.       TextStyle = tsNormal
  167.       Caption = 'On Order'
  168.     end
  169.     object SpnOnHand: TRzDBSpinEdit
  170.       Left = 56
  171.       Top = 20
  172.       Width = 47
  173.       Height = 21
  174.       ButtonUpGlyph.Data = {
  175.         12010000424D120100000000000036000000280000000E000000050000000100
  176.         180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0
  177.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  178.         C0C0C0C000000000000000000000000000000000000000000000008080808080
  179.         808080808080808080808080808080800000C0C0C00000000000000000000000
  180.         00000000C0C0C0C0C0C0808080808080808080808080808080C0C0C00000C0C0
  181.         C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C080808080808080
  182.         8080C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0
  183.         C0C0C0C0C0C0C0C0808080C0C0C0C0C0C0C0C0C00000}
  184.       ButtonDownGlyph.Data = {
  185.         12010000424D120100000000000036000000280000000E000000050000000100
  186.         180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0
  187.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  188.         C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  189.         C0C0C0C0808080C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C00000000000000000
  190.         00C0C0C0C0C0C0C0C0C0C0C0C0808080808080808080C0C0C0C0C0C00000C0C0
  191.         C0000000000000000000000000000000C0C0C0C0C0C080808080808080808080
  192.         8080808080C0C0C0000000000000000000000000000000000000000000000080
  193.         80808080808080808080808080808080808080800000}
  194.       Increment = 1.000000000000000000
  195.       Max = 100.000000000000000000
  196.       PageSize = 10.000000000000000000
  197.       Value = 27.000000000000000000
  198.       ParentColor = False
  199.       TabOrder = 0
  200.       DataField = 'OnHand'
  201.       DataSource = SrcParts
  202.     end
  203.     object SpnOnOrder: TRzDBSpinEdit
  204.       Left = 160
  205.       Top = 20
  206.       Width = 47
  207.       Height = 21
  208.       ButtonUpGlyph.Data = {
  209.         12010000424D120100000000000036000000280000000E000000050000000100
  210.         180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0
  211.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  212.         C0C0C0C000000000000000000000000000000000000000000000008080808080
  213.         808080808080808080808080808080800000C0C0C00000000000000000000000
  214.         00000000C0C0C0C0C0C0808080808080808080808080808080C0C0C00000C0C0
  215.         C0C0C0C0000000000000000000C0C0C0C0C0C0C0C0C0C0C0C080808080808080
  216.         8080C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0
  217.         C0C0C0C0C0C0C0C0808080C0C0C0C0C0C0C0C0C00000}
  218.       ButtonDownGlyph.Data = {
  219.         12010000424D120100000000000036000000280000000E000000050000000100
  220.         180000000000DC00000000000000000000000000000000000000C0C0C0C0C0C0
  221.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  222.         C0C0C0C00000C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  223.         C0C0C0C0808080C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C00000000000000000
  224.         00C0C0C0C0C0C0C0C0C0C0C0C0808080808080808080C0C0C0C0C0C00000C0C0
  225.         C0000000000000000000000000000000C0C0C0C0C0C080808080808080808080
  226.         8080808080C0C0C0000000000000000000000000000000000000000000000080
  227.         80808080808080808080808080808080808080800000}
  228.       Increment = 1.000000000000000000
  229.       Max = 100.000000000000000000
  230.       PageSize = 10.000000000000000000
  231.       Value = 21.000000000000000000
  232.       ParentColor = False
  233.       TabOrder = 1
  234.       DataField = 'OnOrder'
  235.       DataSource = SrcParts
  236.     end
  237.   end
  238.   object RzPanel1: TRzPanel
  239.     Left = 8
  240.     Top = 136
  241.     Width = 217
  242.     Height = 101
  243.     Alignment = taLeftJustify
  244.     AlignmentVertical = avTop
  245.     BorderOuter = fsGroove
  246.     BorderWidth = 4
  247.     Caption = 
  248.       'This is an RzDBButtonEdit which displays an RzDBLookupDialog whe' +
  249.       'n the ... button is pressed.  The RzDBLookupDialog uses a Query ' +
  250.       'to only display vendors from California.'
  251.     Font.Color = clNavy
  252.     Font.Height = -11
  253.     Font.Name = 'MS Sans Serif'
  254.     Font.Style = []
  255.     FrameSides = []
  256.     ParentFont = False
  257.     TabOrder = 5
  258.     object RzLabel5: TRzLabel
  259.       Left = 36
  260.       Top = 74
  261.       Width = 51
  262.       Height = 13
  263.       TextStyle = tsNormal
  264.       Caption = 'Vendor No'
  265.       Font.Color = clBlack
  266.       Font.Height = -11
  267.       Font.Name = 'MS Sans Serif'
  268.       Font.Style = []
  269.       ParentFont = False
  270.     end
  271.     object EdtVendorNo: TRzDBButtonEdit
  272.       Left = 92
  273.       Top = 70
  274.       Width = 85
  275.       Height = 21
  276.       ButtonGlyph.Data = {
  277.         8E020000424D8E020000000000003600000028000000140000000A0000000100
  278.         1800000000005802000000000000000000000000000000000000C0C0C0C0C0C0
  279.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  280.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  281.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  282.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  283.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  284.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  285.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  286.         C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0000000000000C0C0C000
  287.         0000000000C0C0C0C0C0C0808080FFFFFFC0C0C0808080FFFFFFC0C0C0808080
  288.         FFFFFFC0C0C0C0C0C0808080000000C0C0C0808080000000C0C0C08080800000
  289.         00C0C0C0C0C0C0808080808080C0C0C0808080808080C0C0C0808080808080C0
  290.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  291.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  292.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  293.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  294.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  295.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  296.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  297.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  298.       AltBtnGlyph.Data = {
  299.         8E020000424D8E020000000000003600000028000000140000000A0000000100
  300.         1800000000005802000000000000000000000000000000000000C0C0C0C0C0C0
  301.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  302.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  303.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  304.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  305.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  306.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  307.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  308.         C0C0C0C0C0C0C0C0C0C0C0C0C0000000000000C0C0C0000000000000C0C0C000
  309.         0000000000C0C0C0C0C0C0808080FFFFFFC0C0C0808080FFFFFFC0C0C0808080
  310.         FFFFFFC0C0C0C0C0C0808080000000C0C0C0808080000000C0C0C08080800000
  311.         00C0C0C0C0C0C0808080808080C0C0C0808080808080C0C0C0808080808080C0
  312.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  313.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  314.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  315.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  316.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  317.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  318.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
  319.         C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0}
  320.       Text = 'VN 3820'
  321.       OnButtonClick = EdtVendorNoButtonClick
  322.       Font.Color = clBlack
  323.       Font.Height = -11
  324.       Font.Name = 'MS Sans Serif'
  325.       Font.Style = []
  326.       ParentColor = False
  327.       ParentFont = False
  328.       TabOrder = 0
  329.       DataField = 'VendorNo'
  330.       DataSource = SrcParts
  331.     end
  332.   end
  333.   object RzPanel2: TRzPanel
  334.     Left = 236
  335.     Top = 136
  336.     Width = 157
  337.     Height = 101
  338.     Alignment = taLeftJustify
  339.     AlignmentVertical = avTop
  340.     BorderOuter = fsGroove
  341.     BorderWidth = 4
  342.     Caption = 
  343.       'This RzDBProgressBar component displays the percentage of the "C' +
  344.       'ost" to the "List Price."'
  345.     Font.Color = clNavy
  346.     Font.Height = -11
  347.     Font.Name = 'MS Sans Serif'
  348.     Font.Style = []
  349.     FrameSides = []
  350.     ParentFont = False
  351.     TabOrder = 6
  352.     object PbrPrice: TRzDBProgressBar
  353.       Left = 10
  354.       Top = 67
  355.       Width = 139
  356.       BaseField = 'ListPrice'
  357.       DataField = 'Cost'
  358.       DataSource = SrcParts
  359.       BarColor = clMaroon
  360.       BorderWidth = 0
  361.       Font.Color = clMaroon
  362.       Font.Height = -11
  363.       Font.Name = 'MS Sans Serif'
  364.       Font.Style = []
  365.       InteriorOffset = 0
  366.       ParentFont = False
  367.     end
  368.   end
  369.   object TblParts: TTable
  370.     Active = True
  371.     DatabaseName = 'DBDEMOS'
  372.     TableName = 'PARTS.DB'
  373.     Left = 272
  374.     Top = 16
  375.     object TblPartsPartNo: TFloatField
  376.       Alignment = taLeftJustify
  377.       DisplayWidth = 11
  378.       FieldName = 'PartNo'
  379.       DisplayFormat = 'PN-00000'
  380.     end
  381.     object TblPartsVendorNo: TFloatField
  382.       DisplayWidth = 10
  383.       FieldName = 'VendorNo'
  384.       DisplayFormat = 'VN 0000'
  385.       MaxValue = 9999.000000000000000000
  386.       MinValue = 1000.000000000000000000
  387.     end
  388.     object TblPartsDescription: TStringField
  389.       DisplayWidth = 26
  390.       FieldName = 'Description'
  391.       Size = 30
  392.     end
  393.     object TblPartsOnHand: TFloatField
  394.       DisplayWidth = 9
  395.       FieldName = 'OnHand'
  396.     end
  397.     object TblPartsOnOrder: TFloatField
  398.       DisplayWidth = 9
  399.       FieldName = 'OnOrder'
  400.     end
  401.     object TblPartsCost: TCurrencyField
  402.       DisplayWidth = 12
  403.       FieldName = 'Cost'
  404.       Currency = True
  405.     end
  406.     object TblPartsListPrice: TCurrencyField
  407.       DisplayWidth = 12
  408.       FieldName = 'ListPrice'
  409.       Currency = True
  410.     end
  411.   end
  412.   object SrcParts: TDataSource
  413.     DataSet = TblParts
  414.     Left = 300
  415.     Top = 16
  416.   end
  417.   object DlgVendorLookup: TRzDBLookupDialog
  418.     Caption = 'Vendor Lookup'
  419.     Dataset = QryVendors
  420.     Font.Color = clWindowText
  421.     Font.Height = -11
  422.     Font.Name = 'MS Sans Serif'
  423.     Font.Style = []
  424.     NumbersOnly = False
  425.     Prompt = 'Select Vender'
  426.     SearchField = 'VendorName'
  427.     Left = 340
  428.     Top = 16
  429.   end
  430.   object QryVendors: TQuery
  431.     Active = True
  432.     DatabaseName = 'DBDEMOS'
  433.     SQL.Strings = (
  434.       'select * from Vendors'
  435.       'where State = '#39'CA'#39
  436.       'order by VendorName')
  437.     Left = 368
  438.     Top = 16
  439.   end
  440. end
  441.