unit1.dfm

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

object Form1: TForm1
  Left = 87
  Top = 73
  Width = 649
  Height = 477
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    641
    450)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 8
    Width = 41
    Height = 13
    Caption = 'ServerIP'
  end
  object Button1: TButton
    Left = 384
    Top = 24
    Width = 75
    Height = 25
    Caption = #37325#26032#25171#24320
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBNavigator1: TDBNavigator
    Left = 24
    Top = 64
    Width = 330
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  end
  object Button2: TButton
    Left = 384
    Top = 64
    Width = 75
    Height = 25
    Caption = #26356#26032#25968#25454#24211
    TabOrder = 2
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 24
    Top = 24
    Width = 105
    Height = 21
    TabOrder = 3
    Text = '127.0.0.1'
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 104
    Width = 626
    Height = 331
    ActivePage = TabSheet2
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 4
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #20027#34920'Customers'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 618
        Height = 303
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20174#34920'Order'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 618
        Height = 303
        Align = alClient
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20174#20174#34920'OrderDetails'
      ImageIndex = 2
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 618
        Height = 303
        Align = alClient
        DataSource = DataSource3
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object kbmMWTCPIPIndyClientTransport1: TkbmMWTCPIPIndyClientTransport
    Active = False
    Port = 3000
    Host = '127.0.0.1'
    StreamFormat = 'STANDARD'
    VerifyTransfer = False
    MaxRetries = 0
    MaxRetriesAlternative = 0
    RequestTimeout = 30
    MinClientPort = 0
    MaxClientPort = 0
    ConnectTimeout = 60
    Left = 40
    Top = 136
  end
  object kbmMWPooledSession1: TkbmMWPooledSession
    ConnectionPool = kbmMWClientConnectionPool1
    AutoSessionName = False
    SessionName = 'Demo'
    Left = 112
    Top = 136
  end
  object kbmMWClientConnectionPool1: TkbmMWClientConnectionPool
    Transport = kbmMWTCPIPIndyClientTransport1
    MaxConnections = 5
    Left = 80
    Top = 136
  end
  object kbmMWClientQuery1: TkbmMWClientQuery
    ClientAsTemplate = False
    QueryService = 'MyQryService'
    QueryServiceVersion = '1.0'
    CacheParams = ptUnknown
    SessionName = 'Demo'
    CacheFlags = []
    Query.Strings = (
      '@QryCustomers')
    Params = <>
    TransportStreamFormat = kbmMWBinaryStreamFormat1
    FetchLargeFieldsOnDemand = True
    LargeFieldSize = 256
    FetchMaxRecords = 0
    KeyFields = '*'
    OnResolveError = kbmMWClientQueryResolveError
    RequeryDetails = False
    AutoResolveOnChange = False
    AutoResolveOnClose = False
    AttachedAutoRefresh = False
    AttachMaxCount = 1
    FieldDefs = <
      item
        Name = 'CustomerID'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'CompanyName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'ContactName'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ContactTitle'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Address'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'City'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Region'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'PostalCode'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Country'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Phone'
        DataType = ftString
        Size = 24
      end
      item
        Name = 'Fax'
        DataType = ftString
        Size = 24
      end>
    IndexDefs = <>
    SortOptions = []
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    EnableVersioning = True
    FilterOptions = []
    Version = '5.00 beta'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    Left = 48
    Top = 192
  end
  object kbmMWBinaryStreamFormat1: TkbmMWBinaryStreamFormat
    Version = '1.04'
    sfLargeFields = []
    sfCalculated = []
    sfLookup = []
    LargeFieldSize = 0
    Left = 152
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = kbmMWClientQuery1
    Left = 48
    Top = 224
  end
  object kbmMWClientQuery2: TkbmMWClientQuery
    ClientAsTemplate = False
    QueryService = 'MyQryService'
    QueryServiceVersion = '1.0'
    CacheParams = ptUnknown
    SessionName = 'Demo'
    CacheFlags = []
    Query.Strings = (
      '@QryOrders')
    Params = <
      item
        DataType = ftString
        Name = 'CustomerID'
        ParamType = ptInput
      end>
    TransportStreamFormat = kbmMWBinaryStreamFormat1
    FetchLargeFieldsOnDemand = True
    LargeFieldSize = 256
    FetchMaxRecords = 0
    KeyFields = '*'
    OnResolveError = kbmMWClientQueryResolveError
    RequeryDetails = False
    AutoResolveOnChange = False
    AutoResolveOnClose = False
    AttachedAutoRefresh = False
    AttachMaxCount = 1
    FieldDefs = <
      item
        Name = 'OrderID'
        DataType = ftAutoInc
      end
      item
        Name = 'CustomerID'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'EmployeeID'
        DataType = ftInteger
      end
      item
        Name = 'OrderDate'
        DataType = ftDateTime
      end
      item
        Name = 'RequiredDate'
        DataType = ftDateTime
      end
      item
        Name = 'ShippedDate'
        DataType = ftDateTime
      end
      item
        Name = 'ShipVia'
        DataType = ftInteger
      end
      item
        Name = 'Freight'
        DataType = ftBCD
        Size = 4
      end
      item
        Name = 'ShipName'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'ShipAddress'
        DataType = ftString
        Size = 60
      end
      item
        Name = 'ShipCity'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ShipRegion'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ShipPostalCode'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'ShipCountry'
        DataType = ftString
        Size = 15
      end>
    IndexDefs = <>
    SortOptions = []
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    EnableVersioning = True
    FilterOptions = []
    Version = '5.00 beta'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    AfterInsert = kbmMWClientQuery2AfterInsert
    Left = 120
    Top = 192
  end
  object DataSource2: TDataSource
    DataSet = kbmMWClientQuery2
    Left = 120
    Top = 224
  end
  object DataSource3: TDataSource
    DataSet = kbmMWClientQuery3
    Left = 184
    Top = 224
  end
  object kbmMWClientTransactionResolver1: TkbmMWClientTransactionResolver
    QueryService = 'MyQryService'
    QueryServiceVersion = '1.0'
    TransportStreamFormat = kbmMWBinaryStreamFormat1
    ClientAsTemplate = False
    ConnectionPool = kbmMWClientConnectionPool1
    ConnectionWaitTimeout = 0
    Left = 196
    Top = 136
  end
  object kbmMWClientQuery3: TkbmMWClientQuery
    ClientAsTemplate = False
    QueryService = 'MyQryService'
    QueryServiceVersion = '1.0'
    CacheParams = ptUnknown
    SessionName = 'Demo'
    CacheFlags = []
    Query.Strings = (
      '@QryOrderDetails')
    Params = <
      item
        DataType = ftInteger
        Name = 'OrderID'
        ParamType = ptInput
      end>
    TransportStreamFormat = kbmMWBinaryStreamFormat1
    FetchLargeFieldsOnDemand = True
    LargeFieldSize = 256
    FetchMaxRecords = 0
    KeyFields = '*'
    OnResolveError = kbmMWClientQueryResolveError
    RequeryDetails = False
    AutoResolveOnChange = False
    AutoResolveOnClose = False
    AttachedAutoRefresh = False
    AttachMaxCount = 1
    FieldDefs = <
      item
        Name = 'OrderID'
        DataType = ftInteger
      end
      item
        Name = 'ProductID'
        DataType = ftInteger
      end
      item
        Name = 'UnitPrice'
        DataType = ftBCD
        Size = 4
      end
      item
        Name = 'Quantity'
        DataType = ftSmallint
      end
      item
        Name = 'Discount'
        DataType = ftFloat
      end>
    IndexDefs = <>
    SortOptions = []
    PersistentBackup = False
    ProgressFlags = [mtpcLoad, mtpcSave, mtpcCopy]
    EnableVersioning = True
    FilterOptions = []
    Version = '5.00 beta'
    LanguageID = 0
    SortID = 0
    SubLanguageID = 1
    LocaleID = 1024
    AfterInsert = kbmMWClientQuery3AfterInsert
    Left = 184
    Top = 192
  end
end