univttd.dfm

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

object FMIVTTD: TFMIVTTD
  OldCreateOrder = True
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object QIVTA: TQuery
    CachedUpdates = True
    OnCalcFields = QIVTACalcFields
    DatabaseName = 'DB_IVTT'
    SQL.Strings = (
      'SELECT *'
      'FROM IVTA')
    Left = 16
    Top = 10
    object QIVTABGENO: TStringField
      FieldName = 'BGENO'
      Origin = 'DB_IVTT.IVTA.BGENO'
    end
    object QIVTAIACNT: TFloatField
      FieldName = 'IACNT'
      Origin = 'DB_IVTT.IVTA.IACNT'
    end
    object QIVTAIADAT: TDateTimeField
      FieldName = 'IADAT'
      Origin = 'DB_IVTT.IVTA.IADAT'
    end
    object QIVTAIATME: TStringField
      FieldName = 'IATME'
      Origin = 'DB_IVTT.IVTA.IATME'
      Size = 5
    end
    object QIVTA_BGNAM: TStringField
      FieldKind = fkCalculated
      FieldName = '_BGNAM'
      Calculated = True
    end
    object QIVTA_BGQTS: TIntegerField
      FieldKind = fkCalculated
      FieldName = '_BGQTS'
      Calculated = True
    end
    object QIVTA_BGCNT: TIntegerField
      FieldKind = fkCalculated
      FieldName = '_BGCNT'
      Calculated = True
    end
  end
  object QINS: TQuery
    CachedUpdates = True
    DatabaseName = 'DB_IVTT'
    Left = 215
    Top = 60
  end
  object QIVTT: TQuery
    CachedUpdates = True
    BeforePost = QIVTTBeforePost
    AfterPost = QIVTTAfterPost
    OnCalcFields = QIVTTCalcFields
    DatabaseName = 'DB_IVTT'
    SQL.Strings = (
      'SELECT *'
      'FROM IVTT')
    UpdateObject = UIVTT
    Left = 15
    Top = 60
    object QIVTT_BGNAM: TStringField
      FieldKind = fkCalculated
      FieldName = '_BGNAM'
      Calculated = True
    end
    object QIVTTITENO: TStringField
      FieldName = 'ITENO'
      Origin = 'DB_IVTT.IVTT.ITENO'
      Size = 12
    end
    object QIVTTBGENO: TStringField
      FieldName = 'BGENO'
      Origin = 'DB_IVTT.IVTT.BGENO'
    end
    object QIVTTITCNR: TFloatField
      FieldName = 'ITCNR'
      Origin = 'DB_IVTT.IVTT.ITCNR'
    end
    object QIVTTITCNV: TFloatField
      FieldName = 'ITCNV'
      Origin = 'DB_IVTT.IVTT.ITCNV'
    end
    object QIVTTITCNT: TFloatField
      FieldName = 'ITCNT'
      Origin = 'DB_IVTT.IVTT.ITCNT'
    end
    object QIVTTITDAT: TDateTimeField
      FieldName = 'ITDAT'
      Origin = 'DB_IVTT.IVTT.ITDAT'
    end
    object QIVTTITTME: TStringField
      FieldName = 'ITTME'
      Origin = 'DB_IVTT.IVTT.ITTME'
      Size = 5
    end
    object QIVTTITTRN: TBooleanField
      FieldName = 'ITTRN'
      Origin = 'DB_IVTT.IVTT.ITTRN'
    end
  end
  object DSIVTT: TDataSource
    DataSet = QIVTT
    Left = 60
    Top = 60
  end
  object DSIVTA: TDataSource
    DataSet = QIVTA
    Left = 60
    Top = 10
  end
  object QRBRNA: TQuery
    CachedUpdates = True
    DatabaseName = 'MAIN'
    SQL.Strings = (
      'SELECT *'
      'FROM RBRN, BGDS'
      'WHERE RBRN.BGENO = BGDS.BGENO')
    Left = 25
    Top = 265
  end
  object DSRBRNA: TDataSource
    DataSet = QRBRNA
    Left = 70
    Top = 265
  end
  object UIVTT: TUpdateSQL
    Left = 110
    Top = 60
  end
  object Database: TDatabase
    AliasName = 'MICROIVTT'
    Connected = True
    DatabaseName = 'DB_IVTT'
    HandleShared = True
    LoginPrompt = False
    SessionName = 'Default'
    Left = 215
    Top = 10
  end
end