xschdxzsp1.dfm

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

object xschxzsp: Txschxzsp
  Left = 297
  Top = 232
  Width = 623
  Height = 473
  BorderIcons = [biSystemMenu]
  Caption = '选择货品--销售出货单'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 615
    Height = 65
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 12
      Width = 60
      Height = 12
      Caption = '商品编码：'
    end
    object Label2: TLabel
      Left = 16
      Top = 45
      Width = 60
      Height = 12
      Caption = '商品名称：'
    end
    object Label3: TLabel
      Left = 176
      Top = 12
      Width = 48
      Height = 12
      Caption = '条形码：'
    end
    object BitBtn1: TBitBtn
      Left = 288
      Top = 34
      Width = 75
      Height = 25
      Caption = '确定'
      ModalResult = 1
      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 = 368
      Top = 34
      Width = 75
      Height = 25
      Caption = '添加到单据'
      TabOrder = 1
      OnClick = BitBtn2Click
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 448
      Top = 34
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 2
      Kind = bkCancel
    end
    object Edit1: TEdit
      Left = 80
      Top = 4
      Width = 73
      Height = 20
      TabOrder = 3
      OnKeyDown = Edit1KeyDown
    end
    object Edit3: TEdit
      Left = 224
      Top = 4
      Width = 161
      Height = 20
      TabOrder = 4
      OnKeyDown = Edit1KeyDown
    end
    object Edit2: TEdit
      Left = 80
      Top = 37
      Width = 193
      Height = 20
      TabOrder = 5
      OnKeyDown = Edit1KeyDown
    end
  end
  object dxDBGrid2: TdxDBGrid
    Left = 0
    Top = 65
    Width = 615
    Height = 381
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'code'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    Color = 15524050
    Font.Charset = GB2312_CHARSET
    Font.Color = 7479077
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnDblClick = dxDBGrid2DblClick
    AutoSearchTextColor = clNavy
    BandFont.Charset = GB2312_CHARSET
    BandFont.Color = clWindowText
    BandFont.Height = -12
    BandFont.Name = '宋体'
    BandFont.Style = []
    DataSource = DataSource1
    Filter.Active = True
    Filter.Criteria = {00000000}
    GridLineColor = clNavy
    HeaderFont.Charset = GB2312_CHARSET
    HeaderFont.Color = clWindowText
    HeaderFont.Height = -12
    HeaderFont.Name = '宋体'
    HeaderFont.Style = []
    HideSelectionColor = clNavy
    HideSelectionTextColor = clWhite
    HighlightColor = clNavy
    HighlightTextColor = clWhite
    LookAndFeel = lfFlat
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSort, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
    OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnMoving, edgoColumnSizing, edgoFullSizing]
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoSmartRefresh, edgoSmartReload, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    RegistryPath = '\Software\server\cgddxzsp'
    object dxDBGrid2code: TdxDBGridMaskColumn
      Width = 85
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
    end
    object dxDBGrid2name: TdxDBGridMaskColumn
      Width = 158
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid2Column9: TdxDBGridMaskColumn
      Width = 99
      BandIndex = 0
      RowIndex = 0
      FieldName = 'lb'
    end
    object dxDBGrid2lsj: TdxDBGridMaskColumn
      Width = 85
      BandIndex = 0
      RowIndex = 0
      FieldName = 'pfj'
    end
    object dxDBGrid2kcsl: TdxDBGridMaskColumn
      Width = 75
      BandIndex = 0
      RowIndex = 0
      FieldName = 'kcsl'
    end
    object dxDBGrid2barcode: TdxDBGridMaskColumn
      Width = 113
      BandIndex = 0
      RowIndex = 0
      FieldName = 'barcode'
    end
    object dxDBGrid2mainghs: TdxDBGridMaskColumn
      Width = 82
      BandIndex = 0
      RowIndex = 0
      FieldName = 'mainghs'
    end
    object dxDBGrid2jldw: TdxDBGridMaskColumn
      BandIndex = 0
      RowIndex = 0
      FieldName = 'jldw'
    end
    object dxDBGrid2bzgg: TdxDBGridMaskColumn
      Width = 73
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bzgg'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'code'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end
      item
        Name = 'name'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '%'
      end
      item
        Name = 'barcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = '%'
      end
      item
        Name = 'ckcode'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 5
        Value = Null
      end>
    SQL.Strings = (
      
        'select code,barcode,mainghs,name,jldw,pfj,bzgg,lb,kcsl as kcsl,j' +
        'hj from spda_v'
      'where code like :code and name like :name'
      'and barcode like :barcode'
      'and ckcode=:ckcode')
    Left = 88
    Top = 160
    object ADOQuery1code: TStringField
      DisplayLabel = '商品编码'
      FieldName = 'code'
      Size = 15
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '商品名称'
      FieldName = 'name'
      Size = 50
    end
    object ADOQuery1barcode: TStringField
      DisplayLabel = '条形码'
      FieldName = 'barcode'
    end
    object ADOQuery1mainghs: TStringField
      DisplayLabel = '主供货商'
      FieldName = 'mainghs'
      Size = 5
    end
    object ADOQuery1jldw: TStringField
      DisplayLabel = '单位'
      FieldName = 'jldw'
      Size = 10
    end
    object ADOQuery1bzgg: TBCDField
      DisplayLabel = '包装规格'
      FieldName = 'bzgg'
      Precision = 18
      Size = 0
    end
    object ADOQuery1kcsl: TBCDField
      DisplayLabel = '库存数量'
      FieldName = 'kcsl'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object ADOQuery1lsj: TBCDField
      DisplayLabel = '批发价'
      FieldName = 'pfj'
      Precision = 18
      Size = 2
    end
    object ADOQuery1lb: TStringField
      DisplayLabel = '类别'
      FieldName = 'lb'
      Size = 50
    end
    object ADOQuery1jhj: TBCDField
      FieldName = 'jhj'
      Precision = 18
      Size = 2
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 128
    Top = 160
  end
end