unit2.dfm

Welcome to the ASTA 3 Help Tutorials. These are documented tutorials that included new user jump sta

object kbmMWQueryService2: TkbmMWQueryService2
  OldCreateOrder = True
  GatherStatistics = False
  OnBeforeRequest = kbmMWQueryServiceBeforeRequest
  Query = kbmMWADOXQuery1
  StoredProc = kbmMWADOXStoredProc1
  AllowClientStatement = True
  AllowClientKeyFields = True
  AllowClientNamedQuery = True
  AllowClientTableName = True
  TransportStreamFormat = kbmMWBinaryStreamFormat1
  Left = 246
  Top = 154
  Height = 294
  Width = 425
  object kbmMWADOXResolver1: TkbmMWADOXResolver
    OnInsert = kbmMWADOXResolver1Insert
    OnModify = kbmMWADOXResolver1Modify
    OnDelete = kbmMWADOXResolver1Delete
    UpdateInsertAutoIncFields = True
    InsertKeyFields = True
    UpdateKeyFields = True
    Left = 64
    Top = 16
  end
  object kbmMWADOXQuery1: TkbmMWADOXQuery
    CacheParams = ptUnknown
    CacheFlags = []
    SessionName = 'DemoSever'
    ConnectionPool = DM.kbmMWADOXConnectionPool1
    Resolver = kbmMWADOXResolver1
    Published = True
    DesignActivation = True
    AttachMaxCount = 1
    AttachedAutoRefresh = True
    EnableVersioning = True
    IndexDefs = <>
    SortOptions = []
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    Params = <>
    Left = 64
    Top = 128
  end
  object kbmMWADOXStoredProc1: TkbmMWADOXStoredProc
    SessionName = 'DemoSever'
    ConnectionPool = DM.kbmMWADOXConnectionPool1
    CacheParams = ptUnknown
    CacheFlags = []
    Resolver = kbmMWADOXResolver1
    DesignActivation = True
    AttachMaxCount = 1
    AttachedAutoRefresh = True
    EnableVersioning = True
    IndexDefs = <>
    SortOptions = []
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    Params = <>
    Left = 64
    Top = 72
  end
  object kbmMWBinaryStreamFormat1: TkbmMWBinaryStreamFormat
    Version = '1.04'
    sfLargeFields = []
    sfCalculated = []
    sfLookup = []
    LargeFieldSize = 0
    Left = 100
    Top = 192
  end
  object QryCustomers: TkbmMWADOXQuery
    CacheParams = ptUnknown
    CacheFlags = []
    SessionName = 'DemoSever'
    ConnectionPool = DM.kbmMWADOXConnectionPool1
    Resolver = kbmMWADOXResolver1
    TableName = 'Customers'
    KeyFieldNames = 'CustomerID'
    Published = True
    DesignActivation = False
    AttachMaxCount = 1
    AttachedAutoRefresh = False
    EnableVersioning = True
    IndexDefs = <>
    SortOptions = []
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    SQL.Strings = (
      'select * from Customers')
    Params = <>
    Left = 312
    Top = 8
    object QryCustomersCustomerID: TStringField
      FieldName = 'CustomerID'
      Origin = 'Customers.CustomerID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 5
    end
    object QryCustomersCompanyName: TStringField
      FieldName = 'CompanyName'
      Origin = 'Customers.CompanyName'
      Size = 40
    end
    object QryCustomersContactName: TStringField
      FieldName = 'ContactName'
      Origin = 'Customers.ContactName'
      Size = 30
    end
    object QryCustomersContactTitle: TStringField
      FieldName = 'ContactTitle'
      Origin = 'Customers.ContactTitle'
      Size = 30
    end
    object QryCustomersAddress: TStringField
      FieldName = 'Address'
      Origin = 'Customers.Address'
      Size = 60
    end
    object QryCustomersCity: TStringField
      FieldName = 'City'
      Origin = 'Customers.City'
      Size = 15
    end
    object QryCustomersRegion: TStringField
      FieldName = 'Region'
      Origin = 'Customers.Region'
      Size = 15
    end
    object QryCustomersPostalCode: TStringField
      FieldName = 'PostalCode'
      Origin = 'Customers.PostalCode'
      Size = 10
    end
    object QryCustomersCountry: TStringField
      FieldName = 'Country'
      Origin = 'Customers.Country'
      Size = 15
    end
    object QryCustomersPhone: TStringField
      FieldName = 'Phone'
      Origin = 'Customers.Phone'
      Size = 24
    end
    object QryCustomersFax: TStringField
      FieldName = 'Fax'
      Origin = 'Customers.Fax'
      Size = 24
    end
  end
  object QryOrders: TkbmMWADOXQuery
    CacheParams = ptUnknown
    CacheFlags = []
    SessionName = 'DemoSever'
    ConnectionPool = DM.kbmMWADOXConnectionPool1
    Resolver = kbmMWADOXResolver1
    TableName = 'Orders'
    KeyFieldNames = 'OrderID'
    Published = True
    DesignActivation = False
    AttachMaxCount = 1
    AttachedAutoRefresh = False
    EnableVersioning = True
    IndexDefs = <>
    SortOptions = []
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    SQL.Strings = (
      'SELECT *'
      ' FROM Orders'
      ' Where CustomerID = :CustomerID')
    Params = <
      item
        DataType = ftString
        Name = 'CustomerID'
        ParamType = ptInput
      end>
    Left = 312
    Top = 88
    object QryOrdersOrderID: TAutoIncField
      AutoGenerateValue = arDefault
      FieldName = 'OrderID'
      Origin = 'Orders.OrderID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object QryOrdersCustomerID: TStringField
      FieldName = 'CustomerID'
      Origin = 'Orders.CustomerID'
      Size = 5
    end
    object QryOrdersEmployeeID: TIntegerField
      FieldName = 'EmployeeID'
      Origin = 'Orders.EmployeeID'
    end
    object QryOrdersOrderDate: TDateTimeField
      FieldName = 'OrderDate'
      Origin = 'Orders.OrderDate'
    end
    object QryOrdersRequiredDate: TDateTimeField
      FieldName = 'RequiredDate'
      Origin = 'Orders.RequiredDate'
    end
    object QryOrdersShippedDate: TDateTimeField
      FieldName = 'ShippedDate'
      Origin = 'Orders.ShippedDate'
    end
    object QryOrdersShipVia: TIntegerField
      FieldName = 'ShipVia'
      Origin = 'Orders.ShipVia'
    end
    object QryOrdersFreight: TBCDField
      FieldName = 'Freight'
      Origin = 'Orders.Freight'
    end
    object QryOrdersShipName: TStringField
      FieldName = 'ShipName'
      Origin = 'Orders.ShipName'
      Size = 40
    end
    object QryOrdersShipAddress: TStringField
      FieldName = 'ShipAddress'
      Origin = 'Orders.ShipAddress'
      Size = 60
    end
    object QryOrdersShipCity: TStringField
      FieldName = 'ShipCity'
      Origin = 'Orders.ShipCity'
      Size = 15
    end
    object QryOrdersShipRegion: TStringField
      FieldName = 'ShipRegion'
      Origin = 'Orders.ShipRegion'
      Size = 15
    end
    object QryOrdersShipPostalCode: TStringField
      FieldName = 'ShipPostalCode'
      Origin = 'Orders.ShipPostalCode'
      Size = 10
    end
    object QryOrdersShipCountry: TStringField
      FieldName = 'ShipCountry'
      Origin = 'Orders.ShipCountry'
      Size = 15
    end
  end
  object QryOrderDetails: TkbmMWADOXQuery
    CacheParams = ptUnknown
    CacheFlags = []
    SessionName = 'DemoSever'
    ConnectionPool = DM.kbmMWADOXConnectionPool1
    Resolver = kbmMWADOXResolver1
    TableName = 'OrderDetails'
    KeyFieldNames = 'OrderID;ProductID'
    Published = True
    DesignActivation = False
    AttachMaxCount = 1
    AttachedAutoRefresh = False
    EnableVersioning = True
    IndexDefs = <>
    SortOptions = []
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    FilterOptions = []
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    SQL.Strings = (
      'SELECT *'
      ' FROM OrderDetails'
      ' Where OrderID = :OrderID')
    Params = <
      item
        DataType = ftWideString
        Name = 'OrderID'
        ParamType = ptInput
        Value = Null
      end>
    Left = 312
    Top = 160
    object QryOrderDetailsOrderID: TIntegerField
      FieldName = 'OrderID'
      Origin = 'OrderDetails.OrderID'
    end
    object QryOrderDetailsProductID: TIntegerField
      FieldName = 'ProductID'
      Origin = 'OrderDetails.ProductID'
    end
    object QryOrderDetailsUnitPrice: TBCDField
      FieldName = 'UnitPrice'
      Origin = 'OrderDetails.UnitPrice'
    end
    object QryOrderDetailsQuantity: TSmallintField
      FieldName = 'Quantity'
      Origin = 'OrderDetails.Quantity'
    end
    object QryOrderDetailsDiscount: TFloatField
      FieldName = 'Discount'
      Origin = 'OrderDetails.Discount'
    end
  end
end