rpivtaf.~dfm

超市系统开发 超市系统开发 超市系统开发 超市系统开发

object RMIVTAF: TRMIVTAF
  Left = 258
  Top = 197
  AutoScroll = False
  Caption = '盘点暂存资料明细表'
  ClientHeight = 191
  ClientWidth = 313
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 5
    Top = 40
    Width = 300
    Height = 51
    Caption = '查询条件'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 15
      Top = 25
      Width = 60
      Height = 15
      Caption = '查询日期'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 178
      Top = 24
      Width = 15
      Height = 15
      Caption = '至'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object LB21: TJEdit
      Left = 75
      Top = 20
      Width = 100
      Height = 23
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Digits = 1
      Max = 999999999
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
      _BADINPUT = False
      _LONGTIME = False
    end
    object LB22: TJEdit
      Left = 195
      Top = 20
      Width = 100
      Height = 23
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Digits = 1
      Max = 999999999
      _EditType = EDATE_EDIT
      _SHOWCAL = NONE
      _BADINPUT = False
      _LONGTIME = False
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 313
    Height = 36
    ButtonHeight = 30
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Width = 20
      Caption = 'ToolButton1'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object BTNPRE: TSpeedButton
      Left = 20
      Top = 2
      Width = 80
      Height = 30
      Cursor = crHandPoint
      Caption = '&W 预览'
      Flat = True
      OnClick = BTNPREClick
    end
    object ToolButton2: TToolButton
      Left = 100
      Top = 2
      Width = 20
      Caption = 'ToolButton2'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object BTNPRN: TSpeedButton
      Left = 120
      Top = 2
      Width = 80
      Height = 30
      Cursor = crHandPoint
      Caption = '&P 打印'
      Flat = True
      OnClick = BTNPREClick
    end
    object ToolButton3: TToolButton
      Left = 200
      Top = 2
      Width = 20
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object BTNQUT: TSpeedButton
      Left = 220
      Top = 2
      Width = 80
      Height = 30
      Cursor = crHandPoint
      Caption = '&Q 结束'
      Flat = True
      OnClick = BTNQUTClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 95
    Width = 300
    Height = 91
    Caption = '排列方式'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object WK1: TComboBox
      Left = 25
      Top = 20
      Width = 256
      Height = 23
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      TabOrder = 0
      Items.Strings = (
        '数量'
        '单价'
        '总价')
    end
    object WK2: TCheckBox
      Left = 25
      Top = 55
      Width = 256
      Height = 17
      Caption = '盘点数量为零不须打印'
      TabOrder = 1
    end
  end
  object QIVTAF: TQuery
    DatabaseName = 'DB_IVTT'
    SQL.Strings = (
      'SELECT *'
      'FROM IVTA')
    Left = 270
    Top = 5
    object QIVTAFBGENO: TStringField
      FieldName = 'BGENO'
      Origin = 'DB_IVTT.IVTA.BGENO'
    end
    object QIVTAFIACNT: TFloatField
      FieldName = 'IACNT'
      Origin = 'DB_IVTT.IVTA.IACNT'
    end
    object QIVTAFIADAT: TDateTimeField
      FieldName = 'IADAT'
      Origin = 'DB_IVTT.IVTA.IADAT'
    end
    object QIVTAFIATME: TStringField
      FieldName = 'IATME'
      Origin = 'DB_IVTT.IVTA.IATME'
      Size = 5
    end
  end
  object Database: TDatabase
    AliasName = 'MICROIVTT'
    Connected = True
    DatabaseName = 'DB_IVTT'
    HandleShared = True
    LoginPrompt = False
    SessionName = 'Default'
    Left = 215
    Top = 10
  end
end