pfm_wizard2.dfm

POS收银系统

          Top = 152
          Width = 244
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'gysmc'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
        end
        object DBEdit26: TDBEdit
          Left = 16
          Top = 192
          Width = 184
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'cd'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
        end
        object DBEdit27: TDBEdit
          Left = 16
          Top = 232
          Width = 124
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'xsfs'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
        end
        object DBEdit28: TDBEdit
          Left = 88
          Top = 272
          Width = 64
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'wsjj'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
        end
        object DBEdit29: TDBEdit
          Left = 16
          Top = 272
          Width = 64
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'jhsl'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 11
        end
        object DBEdit30: TDBEdit
          Left = 16
          Top = 312
          Width = 64
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'wsdj'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
        end
        object DBEdit31: TDBEdit
          Left = 88
          Top = 312
          Width = 64
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'xssl'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 13
        end
        object DBEdit32: TDBEdit
          Left = 144
          Top = 232
          Width = 124
          Height = 21
          BorderStyle = bsNone
          Color = clBtnFace
          DataField = 'splb'
          DataSource = DataSource3
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clPurple
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '维护列表'
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 695
        Height = 393
        Align = alTop
        Color = clInfoBk
        DataSource = DataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object BitBtn5: TBitBtn
        Left = 64
        Top = 408
        Width = 75
        Height = 25
        Caption = '全部数据'
        TabOrder = 1
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 152
        Top = 408
        Width = 75
        Height = 25
        Caption = '查询'
        TabOrder = 2
        OnClick = BitBtn6Click
      end
      object BitBtn_quit: TBitBtn
        Left = 576
        Top = 408
        Width = 75
        Height = 25
        Caption = '退出'
        TabOrder = 3
        OnClick = BitBtn_quitClick
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 204
    Top = 32
  end
  object Query1: TQuery
    AfterInsert = Query1AfterInsert
    AfterEdit = Query1AfterInsert
    AfterPost = Query1AfterPost
    AfterScroll = Query1AfterScroll
    AutoRefresh = True
    DatabaseName = 'posdb'
    RequestLive = True
    Left = 164
    Top = 32
  end
  object Query3: TQuery
    DatabaseName = 'posdb'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from t_spxx where (sptxm=:sptxm'
      ' and len(:sptxm)=13)  '
      ' or (spbm=:spbm and len(:sptxm)<13)')
    Left = 388
    Top = 104
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'sptxm'
        ParamType = ptUnknown
      end
      item
        DataType = ftFixedChar
        Name = 'sptxm'
        ParamType = ptUnknown
      end
      item
        DataType = ftFixedChar
        Name = 'spbm'
        ParamType = ptUnknown
      end
      item
        DataType = ftFixedChar
        Name = 'sptxm'
        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
    object Query3shbz: TStringField
      FieldName = 'shbz'
      Origin = 'POSDB."dbo.t_spxx".shbz'
      FixedChar = True
      Size = 4
    end
    object Query3shrm: TStringField
      FieldName = 'shrm'
      Origin = 'POSDB."dbo.t_spxx".shrm'
      FixedChar = True
      Size = 6
    end
    object Query3czym: TStringField
      FieldName = 'czym'
      Origin = 'POSDB."dbo.t_spxx".czym'
      FixedChar = True
      Size = 6
    end
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 388
    Top = 144
  end
end