DOS/V Power Report 1997 August/VPR9708A.ISO/D3TRIAL/INSTALL/DATA.Z/AUTOCTL.DFM/AUTOCTL.txt

Text File | 1997-05-12 | 2KB | 72 lines

object Form1: TForm1
  Left = 367
  Top = 161
  BorderStyle = bsSingle
  Caption = 'Automation Controller Demo'
  ClientHeight = 47
  ClientWidth = 268
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 11
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 268
    Height = 47
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 7
      Top = 5
      Width = 71
      Height = 11
      Caption = '&Company Name'
      FocusControl = Edit1
    end
    object InsertBtn: TButton
      Left = 196
      Top = 10
      Width = 64
      Height = 21
      Caption = 'Insert Query'
      Default = True
      TabOrder = 0
      OnClick = InsertBtnClick
    end
    object Edit1: TEdit
      Left = 7
      Top = 19
      Width = 156
      Height = 19
      TabOrder = 1
      Text = 'Unisco'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select Customer.Company, Orders.OrderNo, Orders.SaleDate '
      '  from Customer, Orders'
      '  where Customer.CustNo = Orders.CustNo'
      '  and Customer.Company = :Company')
    Params.Data = {0100010007436F6D70616E7900010700556E6973636F000001}
    Left = 200
    Top = 3
    object Query1Company: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object Query1OrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object Query1SaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
  end
end