univta.dfm

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

object FMIVTA: TFMIVTA
  Left = 13
  Top = 39
  AutoScroll = False
  Caption = '盘点库存作业处理'
  ClientHeight = 474
  ClientWidth = 772
  Color = 16755370
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 344
    Height = 472
    Caption = '盘点资料'
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 1
    object LBBGENO: TLabel
      Left = 5
      Top = 18
      Width = 60
      Height = 12
      Caption = '产品条形码'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object LBIACNT: TLabel
      Left = 218
      Top = 18
      Width = 24
      Height = 12
      Caption = '数量'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object ED_TOTAL_CNT: TLabel
      Left = 5
      Top = 455
      Width = 39
      Height = 13
      Caption = '总数量'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object IACNT: TJEdit
      Left = 247
      Top = 15
      Width = 31
      Height = 25
      TabOrder = 0
      Text = '0'
      OnKeyDown = IACNTKeyDown
      Digits = 0
      Max = 99999999
      _EditType = INTEGER_EDIT
      _SHOWCAL = NONE
      _BADINPUT = False
      _LONGTIME = False
    end
    object BGENO: JLOOKUPBOX
      Left = 65
      Top = 15
      Width = 150
      Height = 25
      MaxLength = 20
      TabOrder = 1
      OnKeyDown = BGENOKeyDown
      _DatabaseName = 'MAIN'
      _TableName = 'BGDS'
      _Field_IDNO = 'BGENO'
      _Field_NAME = 'BGNAM'
      _EDIT_WIDTH = 120
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
    object GRID: TStringGrid
      Left = 2
      Top = 39
      Width = 340
      Height = 402
      ColCount = 4
      DefaultColWidth = 20
      DefaultRowHeight = 15
      RowCount = 10000
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing]
      ParentFont = False
      TabOrder = 2
      OnDblClick = GRIDDblClick
      OnKeyDown = GRIDKeyDown
      ColWidths = (
        20
        121
        135
        40)
    end
    object BitBtn4: TBitBtn
      Left = 280
      Top = 13
      Width = 60
      Height = 25
      Caption = 'F1新增'
      TabOrder = 3
      OnClick = F1Click
    end
    object BitBtn1: TBitBtn
      Left = 154
      Top = 443
      Width = 90
      Height = 25
      Caption = 'F2单笔删除'
      TabOrder = 4
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 249
      Top = 443
      Width = 90
      Height = 25
      Caption = 'F3全部清除'
      TabOrder = 5
      OnClick = BitBtn2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 452
    Top = 0
    Width = 319
    Height = 472
    Caption = '盘点暂存盘'
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object BTN_IVTA_DEL: TSpeedButton
      Left = 225
      Top = 443
      Width = 90
      Height = 26
      Cursor = crHandPoint
      AllowAllUp = True
      Caption = 'F6全部清除'
      OnClick = BTN_IVTA_DELClick
    end
    object Label4: TLabel
      Left = 10
      Top = 18
      Width = 60
      Height = 15
      Caption = '产品编号'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 250
      Top = 12
      Width = 66
      Height = 26
      Cursor = crHandPoint
      AllowAllUp = True
      Caption = '查询'
      OnClick = SpeedButton1Click
    end
    object BTN_IVTA_DELS: TSpeedButton
      Left = 130
      Top = 443
      Width = 90
      Height = 26
      Cursor = crHandPoint
      AllowAllUp = True
      Caption = 'F5单笔删除'
      OnClick = BTN_IVTA_DELSClick
    end
    object DBGrid1: TDBGrid
      Left = 2
      Top = 39
      Width = 314
      Height = 402
      DataSource = FMIVTAD.DSIVTA
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = BTN_IVTA_DELSClick
      Columns = <
        item
          Expanded = False
          FieldName = 'BGENO'
          Title.Alignment = taCenter
          Title.Caption = '产品条形码'
          Title.Color = clInfoBk
          Width = 146
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IACNT'
          Title.Alignment = taCenter
          Title.Caption = '库存量'
          Title.Color = clInfoBk
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IADAT'
          Title.Alignment = taCenter
          Title.Caption = '改动日'
          Title.Color = clInfoBk
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'IATME'
          Title.Alignment = taCenter
          Title.Caption = '改动日'
          Title.Color = clInfoBk
          Width = 46
          Visible = True
        end>
    end
    object ED_BGENO: JLOOKUPBOX
      Left = 75
      Top = 15
      Width = 171
      Height = 25
      MaxLength = 20
      TabOrder = 1
      OnKeyDown = BGENOKeyDown
      _DatabaseName = 'MAIN'
      _TableName = 'BGDS'
      _Field_IDNO = 'BGENO'
      _Field_NAME = 'BGNAM'
      _EDIT_WIDTH = 120
      _CHANGE_QUERY = True
      _INSERT_RECORD = False
      _SHOW_MESSAGE = False
    end
  end
  object AREA_TOOL: TPanel
    Left = 345
    Top = 5
    Width = 105
    Height = 473
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Caption = ' '
    Color = clNavy
    TabOrder = 0
    object Label6: TLabel
      Left = 5
      Top = 205
      Width = 45
      Height = 15
      Caption = '盘点机'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Gauge: TGauge
      Left = 40
      Top = 370
      Width = 56
      Height = 15
      ForeColor = clRed
      Progress = 0
    end
    object Label8: TLabel
      Left = 5
      Top = 370
      Width = 30
      Height = 15
      Caption = '进度'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object BCP_LIGHT: TShape
      Left = 80
      Top = 205
      Width = 15
      Height = 15
      Shape = stCircle
      Visible = False
    end
    object BTNCLR: TBitBtn
      Left = 0
      Top = 225
      Width = 100
      Height = 25
      Caption = '&C 清除资料'
      TabOrder = 0
      OnClick = BTNCLRClick
    end
    object BTNBCP: TBitBtn
      Left = 0
      Top = 255
      Width = 100
      Height = 25
      Caption = '&B 取出资料'
      TabOrder = 1
      OnClick = BTNBCPClick
    end
    object BTNQUT: TBitBtn
      Left = 0
      Top = 390
      Width = 100
      Height = 75
      Caption = '&Q 结束'
      TabOrder = 2
      OnClick = BTNQUTClick
    end
    object BTNINS: TBitBtn
      Left = 0
      Top = 35
      Width = 100
      Height = 120
      Caption = 'F7 入暂存盘'
      TabOrder = 3
      OnClick = BTNINSClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADAD0DADADADDADADADA00DADADAADADADAD0D0DADADDADADADA0AD0
        DADA0D0D00000DAD0DAD0A0A0ADADADAD0DA0D0D0DADADADAD0D0A0A0ADADADA
        DAD00D0D0DADADADAD0D0A0A0ADADADAD0DA0D0D00000DAD0DADDADADADA0AD0
        DADAADADADAD0D0DADADDADADADA00DADADAADADADAD0DADADAD}
      Layout = blGlyphBottom
    end
  end
  object MainMenu1: TMainMenu
    Left = 96
    Top = 151
    object F1: TMenuItem
      Caption = '新增一笔'
      ShortCut = 112
      Visible = False
      OnClick = F1Click
    end
    object N5: TMenuItem
      Caption = '单笔删除'
      ShortCut = 113
      OnClick = F2Click
    end
    object N1: TMenuItem
      Caption = '全部清除'
      ShortCut = 114
      OnClick = F3Click
    end
    object N2: TMenuItem
      Caption = '单笔删除'
      ShortCut = 116
      OnClick = F5Click
    end
    object N3: TMenuItem
      Caption = '全部清除'
      ShortCut = 117
      OnClick = F6Click
    end
    object N4: TMenuItem
      Caption = '入暂存盘'
      ShortCut = 118
      OnClick = F7Click
    end
  end
  object Comm1: TComm
    CommName = 'COM2'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 41
    Top = 151
  end
end