univtad.dfm

DELPHI编写的商场收银POS机源代码

object FMIVTAD: TFMIVTAD
  OldCreateOrder = True
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object QINS: TQuery
    CachedUpdates = True
    DatabaseName = 'DB_IVTT'
    SQL.Strings = (
      'SELECT *'
      'FROM SYSLST'
      'WHERE LSTID1 = '#39'BMANCTY'#39
      'ORDER BY LSTID2, LSTNAM')
    Left = 15
    Top = 85
  end
  object QIVTA: TQuery
    CachedUpdates = True
    DatabaseName = 'DB_IVTT'
    SQL.Strings = (
      'SELECT *'
      'FROM IVTA')
    UpdateObject = UIVTA
    Left = 15
    Top = 10
    object QIVTAIACNT: TFloatField
      FieldName = 'IACNT'
      Origin = 'IVTA.IACNT'
    end
    object QIVTAIADAT: TDateTimeField
      FieldName = 'IADAT'
      Origin = 'IVTA.IADAT'
    end
    object QIVTAIATME: TStringField
      FieldName = 'IATME'
      Origin = 'IVTA.IATME'
      Size = 5
    end
    object QIVTABGENO: TStringField
      FieldName = 'BGENO'
      Origin = 'IVTA.BGENO'
    end
  end
  object DSIVTA: TDataSource
    DataSet = QIVTA
    Left = 60
    Top = 10
  end
  object UIVTA: TUpdateSQL
    Left = 115
    Top = 10
  end
  object Database: TDatabase
    AliasName = 'MICROIVTT'
    DatabaseName = 'DB_IVTT'
    HandleShared = True
    LoginPrompt = False
    SessionName = 'Default'
    Left = 215
    Top = 10
  end
end