pfm_updatespxx.dfm

POS收银系统

object fm_updatespxx: Tfm_updatespxx
  Left = 199
  Top = 138
  Width = 625
  Height = 403
  Caption = '更新分店商品'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 617
    Height = 376
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '所有用于更新的商品'
      object Panel2: TPanel
        Left = 0
        Top = 307
        Width = 609
        Height = 41
        Align = alBottom
        BevelInner = bvLowered
        TabOrder = 0
        object BBtnDel2: TBitBtn
          Left = 108
          Top = 8
          Width = 75
          Height = 25
          Caption = '删除'
          TabOrder = 0
          OnClick = BBtnDel2Click
        end
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 609
        Height = 307
        Align = alClient
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = '加入更新商品'
      ImageIndex = 1
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 609
        Height = 348
        Align = alClient
        Caption = '更新分店的商品信息'
        TabOrder = 0
        object LView1: TListView
          Left = 2
          Top = 93
          Width = 605
          Height = 253
          Align = alClient
          Color = clInfoBk
          Columns = <>
          HideSelection = False
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
        object Panel1: TPanel
          Left = 2
          Top = 15
          Width = 605
          Height = 78
          Align = alTop
          BevelInner = bvLowered
          TabOrder = 1
          object Label2: TLabel
            Left = 16
            Top = 8
            Width = 130
            Height = 13
            Caption = '商品编码或商品条形码'
          end
          object lbltishi: TLabel
            Left = 20
            Top = 56
            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
            OnKeyPress = Edit11KeyPress
          end
          object BBtncancel: TBitBtn
            Left = 496
            Top = 16
            Width = 75
            Height = 25
            Caption = '退出'
            TabOrder = 1
            OnClick = BBtncancelClick
          end
          object BBtnSave: TBitBtn
            Left = 296
            Top = 20
            Width = 75
            Height = 25
            Caption = '保存'
            TabOrder = 2
            OnClick = BBtnSaveClick
          end
          object BBtndel: TBitBtn
            Left = 160
            Top = 20
            Width = 121
            Height = 25
            Caption = '删除选择的商品信息'
            TabOrder = 3
          end
        end
      end
    end
  end
  object Query3: TQuery
    DatabaseName = 'posdb'
    SQL.Strings = (
      'select * from t_spxx where spbm=:spbm')
    Left = 464
    Top = 32
    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 Query1: TQuery
    AfterOpen = Query1AfterOpen
    DatabaseName = 'posdb'
    SQL.Strings = (
      
        'select tab_updatespmx.id,tab_updatespmx.spbm,t_spxx.sptxm,t_spxx' +
        '.spmc,t_spxx.wsdj,'
      't_spxx.baozhuangdw '
      'from tab_updatespmx,t_spxx where tab_updatespmx.spbm=t_spxx.spbm')
    Left = 16
    Top = 44
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 80
    Top = 48
  end
end