xschxzdj1.dfm

思微POS连锁超市管理系统 (商业代码),几年前的东西了

object xschxzdj: Txschxzdj
  Left = 538
  Top = 135
  ActiveControl = dxDBGrid1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '选择单价'
  ClientHeight = 251
  ClientWidth = 332
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object BitBtn1: TBitBtn
    Left = 156
    Top = 221
    Width = 74
    Height = 26
    Caption = '确定'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 242
    Top = 221
    Width = 74
    Height = 26
    Cancel = True
    Caption = '取消'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 1
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333000033338833333333333333333F333333333333
      0000333911833333983333333388F333333F3333000033391118333911833333
      38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
      911118111118333338F3338F833338F3000033333911111111833333338F3338
      3333F8330000333333911111183333333338F333333F83330000333333311111
      8333333333338F3333383333000033333339111183333333333338F333833333
      00003333339111118333333333333833338F3333000033333911181118333333
      33338333338F333300003333911183911183333333383338F338F33300003333
      9118333911183333338F33838F338F33000033333913333391113333338FF833
      38F338F300003333333333333919333333388333338FFF830000333333333333
      3333333333333333333888330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object dxDBGrid1: TdxDBGrid
    Left = 8
    Top = 8
    Width = 313
    Height = 201
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'kdrq'
    SummaryGroups = <>
    SummarySeparator = ', '
    Color = 15524050
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnDblClick = dxDBGrid1DblClick
    BandFont.Charset = ANSI_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -12
    BandFont.Name = '宋体'
    BandFont.Style = []
    DataSource = DataSource1
    Filter.FilterStatus = fsNone
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    HeaderFont.Charset = ANSI_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -14
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    OptionsView = [edgoAutoWidth, edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    object dxDBGrid1kdrq: TdxDBGridMaskColumn
      Width = 143
      BandIndex = 0
      RowIndex = 0
      FieldName = 'kdrq'
    end
    object dxDBGrid1lsj: TdxDBGridMaskColumn
      Width = 148
      BandIndex = 0
      RowIndex = 0
      FieldName = 'lsj'
    end
    object dxDBGrid1Column3: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'COLUMN1'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code1'
        DataType = ftString
        Size = 4
        Value = '1838'
      end
      item
        Name = 'code2'
        DataType = ftString
        Size = -1
        Value = Null
      end
      item
        Name = 'code3'
        DataType = ftString
        Size = 4
        Value = '1838'
      end
      item
        Name = 'code4'
        Size = -1
        Value = Null
      end
      item
        Name = 'code5'
        Size = -1
        Value = Null
      end
      item
        Name = 'kh'
        DataType = ftString
        Size = 3
        Value = '888'
      end>
    SQL.Strings = (
      'select '#39'零售价'#39' as kdrq,'#39#39',lsj from spda where code=:code1'
      'union all'
      ''
      'select '#39'批发价'#39' as kdrq,'#39#39',pfj from spda where code=:code2'
      'union all'
      ''
      'select '#39'会员价'#39' as kdrq,'#39#39',hyj from spda where code=:code3'
      'union all'
      ''
      'select '#39'促销价'#39' as kdrq,'#39#39',cxj from spda where code=:code4'
      'union all'
      ''
      
        'select top 10  CONVERT (char(10),kdrq,20) ,code,dj from xsdj_v w' +
        'here spcode=:code5 and kh=:kh'
      'order by kdrq desc')
    Left = 40
    Top = 216
    object ADOQuery1kdrq: TStringField
      DisplayLabel = '日期'
      FieldName = 'kdrq'
      ReadOnly = True
      Size = 10
    end
    object ADOQuery1lsj: TBCDField
      DisplayLabel = '单价'
      FieldName = 'lsj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1COLUMN1: TStringField
      DisplayLabel = '单号'
      FieldName = 'COLUMN1'
      ReadOnly = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 72
    Top = 216
  end
end