pfm_tjdmx.dfm

POS收银系统

          TabOrder = 14
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 786
        Height = 49
        Align = alTop
        Caption = '调价单'
        TabOrder = 1
        object Label1: TLabel
          Left = 8
          Top = 16
          Width = 39
          Height = 13
          Caption = '流水号'
        end
        object Label16: TLabel
          Left = 200
          Top = 20
          Width = 26
          Height = 13
          Caption = '日期'
        end
        object Label20: TLabel
          Left = 556
          Top = 20
          Width = 39
          Height = 13
          Caption = '操作员'
        end
        object Label22: TLabel
          Left = 372
          Top = 20
          Width = 39
          Height = 13
          Caption = '审核人'
        end
        object Edit1: TEdit
          Left = 56
          Top = 16
          Width = 121
          Height = 21
          Color = clMenu
          ReadOnly = True
          TabOrder = 0
          Text = 'Edit1'
        end
        object Edit9: TEdit
          Left = 420
          Top = 16
          Width = 93
          Height = 21
          Color = clInfoBk
          MaxLength = 10
          ReadOnly = True
          TabOrder = 1
          Text = 'Edit9'
        end
        object Edit10: TEdit
          Left = 604
          Top = 16
          Width = 121
          Height = 21
          TabStop = False
          Color = clSilver
          MaxLength = 10
          ReadOnly = True
          TabOrder = 2
          Text = 'Edit10'
        end
        object DTPicker1: TDateTimePicker
          Left = 236
          Top = 16
          Width = 117
          Height = 21
          CalAlignment = dtaLeft
          Date = 36719.799207419
          Time = 36719.799207419
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
        object BBtnshr: TBitBtn
          Left = 516
          Top = 12
          Width = 25
          Height = 25
          TabOrder = 4
          OnClick = BBtnshrClick
          Glyph.Data = {
            7E010000424D7E01000000000000760000002800000018000000160000000100
            0400000000000801000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
            0000000000080777777777777777777777700F77777777777777777777700F88
            888888888888888887700F88888888888888888887700F888888800000000888
            87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
            FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
            80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
            87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
            F0F0888887700F8888888800F008888887700F88888888800888888887700F88
            888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
            0008}
          Layout = blGlyphBottom
        end
      end
      object BitBtn_quit: TBitBtn
        Left = 600
        Top = 384
        Width = 75
        Height = 25
        Caption = '退出'
        TabOrder = 2
      end
      object BBtn_yskcl: TBitBtn
        Left = 472
        Top = 384
        Width = 75
        Height = 25
        Caption = '应收款处理'
        TabOrder = 3
        OnClick = BBtn_yskclClick
      end
      object GroupBox3: TGroupBox
        Left = 257
        Top = 49
        Width = 529
        Height = 416
        Align = alClient
        Caption = '调价单明细记录输入'
        TabOrder = 4
        object LView1: TListView
          Left = 2
          Top = 129
          Width = 525
          Height = 285
          Align = alClient
          Color = clInfoBk
          Columns = <>
          HideSelection = False
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnClick = LView1Click
        end
        object Panel1: TPanel
          Left = 2
          Top = 15
          Width = 525
          Height = 114
          Align = alTop
          BevelInner = bvLowered
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          object Label2: TLabel
            Left = 16
            Top = 8
            Width = 130
            Height = 13
            Caption = '商品编码或商品条形码'
          end
          object Label6: TLabel
            Left = 168
            Top = 8
            Width = 65
            Height = 13
            Caption = '调价后单价'
          end
          object Label15: TLabel
            Left = 272
            Top = 8
            Width = 65
            Height = 13
            Caption = '调价前单价'
          end
          object Label14: TLabel
            Left = 16
            Top = 48
            Width = 52
            Height = 13
            Caption = '调价原因'
          end
          object lbltishi: TLabel
            Left = 16
            Top = 96
            Width = 36
            Height = 13
            Caption = '提示：'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Edit11: TEdit
            Left = 16
            Top = 24
            Width = 121
            Height = 21
            Color = clAqua
            TabOrder = 0
            Text = 'Edit11'
            OnKeyPress = Edit11KeyPress
          end
          object Edit13: TEdit
            Left = 168
            Top = 24
            Width = 65
            Height = 21
            TabOrder = 1
            Text = 'Edit13'
            OnKeyPress = Edit13KeyPress
          end
          object Edit7: TEdit
            Left = 272
            Top = 24
            Width = 69
            Height = 21
            TabStop = False
            Color = clSilver
            ReadOnly = True
            TabOrder = 2
            Text = 'Edit7'
          end
          object Edit5: TEdit
            Left = 16
            Top = 64
            Width = 213
            Height = 21
            TabOrder = 3
            Text = 'Edit5'
            OnKeyPress = Edit5KeyPress
          end
          object BBtncancel: TBitBtn
            Left = 436
            Top = 24
            Width = 75
            Height = 25
            Caption = '取消退出'
            TabOrder = 4
            OnClick = BBtncancelClick
          end
          object BBtnSave: TBitBtn
            Left = 436
            Top = 64
            Width = 75
            Height = 25
            Caption = '保存退出'
            TabOrder = 5
            OnClick = BBtnSaveClick
          end
          object BBtndel: TBitBtn
            Left = 272
            Top = 64
            Width = 81
            Height = 25
            Caption = '删除调价记录'
            TabOrder = 6
            OnClick = BBtndelClick
          end
        end
      end
    end
  end
  object Query3: TQuery
    DatabaseName = 'posdb'
    SQL.Strings = (
      'select * from t_spxx where spbm=:spbm')
    Left = 240
    Top = 136
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'spbm'
        ParamType = ptUnknown
      end>
    object Query3spbm: TStringField
      FieldName = 'spbm'
      Origin = 'POSDB."dbo.t_spxx".spbm'
      FixedChar = True
      Size = 6
    end
    object Query3sptxm: TStringField
      FieldName = 'sptxm'
      Origin = 'POSDB."dbo.t_spxx".sptxm'
      FixedChar = True
      Size = 13
    end
    object Query3spmc: TStringField
      FieldName = 'spmc'
      Origin = 'POSDB."dbo.t_spxx".spmc'
    end
    object Query3ggxh: TStringField
      FieldName = 'ggxh'
      Origin = 'POSDB."dbo.t_spxx".ggxh'
    end
    object Query3dengji: TStringField
      FieldName = 'dengji'
      Origin = 'POSDB."dbo.t_spxx".dengji'
      FixedChar = True
      Size = 16
    end
    object Query3zhuangtai: TStringField
      FieldName = 'zhuangtai'
      Origin = 'POSDB."dbo.t_spxx".zhuangtai'
      FixedChar = True
      Size = 10
    end
    object Query3baozhuangdw: TStringField
      FieldName = 'baozhuangdw'
      Origin = 'POSDB."dbo.t_spxx".baozhuangdw'
      FixedChar = True
      Size = 10
    end
    object Query3baozhuangsl: TStringField
      FieldName = 'baozhuangsl'
      Origin = 'POSDB."dbo.t_spxx".baozhuangsl'
      FixedChar = True
      Size = 10
    end
    object Query3hh: TStringField
      FieldName = 'hh'
      Origin = 'POSDB."dbo.t_spxx".hh'
      FixedChar = True
      Size = 8
    end
    object Query3gysmc: TStringField
      FieldName = 'gysmc'
      Origin = 'POSDB."dbo.t_spxx".gysmc'
      FixedChar = True
      Size = 40
    end
    object Query3cd: TStringField
      FieldName = 'cd'
      Origin = 'POSDB."dbo.t_spxx".cd'
      Size = 30
    end
    object Query3xsfs: TStringField
      FieldName = 'xsfs'
      Origin = 'POSDB."dbo.t_spxx".xsfs'
      FixedChar = True
    end
    object Query3wsjj: TFloatField
      FieldName = 'wsjj'
      Origin = 'POSDB."dbo.t_spxx".wsjj'
    end
    object Query3jhsl: TFloatField
      FieldName = 'jhsl'
      Origin = 'POSDB."dbo.t_spxx".jhsl'
    end
    object Query3wsdj: TFloatField
      FieldName = 'wsdj'
      Origin = 'POSDB."dbo.t_spxx".wsdj'
    end
    object Query3xssl: TFloatField
      FieldName = 'xssl'
      Origin = 'POSDB."dbo.t_spxx".xssl'
    end
    object Query3yhl: TFloatField
      FieldName = 'yhl'
      Origin = 'POSDB."dbo.t_spxx".yhl'
    end
    object Query3splb: TStringField
      FieldName = 'splb'
      Origin = 'POSDB."dbo.t_spxx".splb'
      FixedChar = True
    end
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 232
    Top = 100
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    Left = 12
    Top = 225
  end
  object SProc1: TStoredProc
    DatabaseName = 'posdb'
    StoredProcName = 'myproc_getlsh;1'
    Left = 192
    Top = 20
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = '@chTable'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = '@intLsh'
        ParamType = ptInputOutput
      end>
  end
end