xzrzxzxsd1.dfm

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

object xsskdxzxsd: Txsskdxzxsd
  Left = 419
  Top = 70
  Width = 548
  Height = 379
  Caption = '选择销售单'
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 318
    Width = 540
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 540
      Height = 34
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Panel3: TPanel
        Left = 221
        Top = 0
        Width = 319
        Height = 34
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object BitBtn1: TBitBtn
          Left = 92
          Top = 8
          Width = 75
          Height = 25
          Caption = '确定'
          TabOrder = 0
          Kind = bkOK
        end
        object BitBtn2: TBitBtn
          Left = 212
          Top = 8
          Width = 75
          Height = 25
          Caption = '取消'
          TabOrder = 1
          Kind = bkCancel
        end
      end
    end
  end
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 540
    Height = 318
    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
    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 = []
    LookAndFeel = lfFlat
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoMultiSort, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoRowSelect, edgoUseBitmap]
    PreviewFont.Charset = DEFAULT_CHARSET
    PreviewFont.Color = clBlue
    PreviewFont.Height = -12
    PreviewFont.Name = '宋体'
    PreviewFont.Style = []
    object dxDBGrid1code: TdxDBGridMaskColumn
      Sorted = csUp
      Width = 71
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
    end
    object dxDBGrid1kdrq: TdxDBGridDateColumn
      Width = 74
      BandIndex = 0
      RowIndex = 0
      FieldName = 'kdrq'
    end
    object dxDBGrid1ckname: TdxDBGridMaskColumn
      Width = 90
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ckname'
    end
    object dxDBGrid1zje: TdxDBGridCurrencyColumn
      Width = 77
      BandIndex = 0
      RowIndex = 0
      FieldName = 'zje'
    end
    object dxDBGrid1yfje: TdxDBGridCurrencyColumn
      Width = 86
      BandIndex = 0
      RowIndex = 0
      FieldName = 'yfje'
    end
    object dxDBGrid1kdr: TdxDBGridMaskColumn
      Width = 60
      BandIndex = 0
      RowIndex = 0
      FieldName = 'kdr'
    end
    object dxDBGrid1fplx: TdxDBGridMaskColumn
      Width = 84
      BandIndex = 0
      RowIndex = 0
      FieldName = 'fplx'
    end
    object dxDBGrid1ywyname: TdxDBGridMaskColumn
      Width = 90
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ywyname'
    end
    object dxDBGrid1bz: TdxDBGridMaskColumn
      Width = 135
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bz'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 104
    Top = 72
  end
  object ADOTable1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'kh'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 200
        Value = Null
      end>
    SQL.Strings = (
      'select * from xschcx_v'
      'where zt='#39'审核入账'#39' and zje>yfje'
      'and khname=:kh')
    Left = 72
    Top = 117
    object ADOTable1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object ADOTable1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    end
    object ADOTable1kdr: TStringField
      DisplayLabel = '开单人'
      FieldName = 'kdr'
      Size = 6
    end
    object ADOTable1fplx: TStringField
      DisplayLabel = '发票类型'
      FieldName = 'fplx'
    end
    object ADOTable1KHname: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'KHname'
      Size = 200
    end
    object ADOTable1ckname: TStringField
      DisplayLabel = '出货仓'
      FieldName = 'ckname'
      Size = 200
    end
    object ADOTable1zje: TBCDField
      DisplayLabel = '总金额'
      FieldName = 'zje'
      Precision = 18
      Size = 2
    end
    object ADOTable1yfje: TBCDField
      DisplayLabel = '已结金额'
      FieldName = 'yfje'
      Precision = 18
      Size = 2
    end
    object ADOTable1ywyname: TStringField
      DisplayLabel = '业务员名称'
      FieldName = 'ywyname'
      Size = 10
    end
    object ADOTable1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 200
    end
    object ADOTable1KH: TStringField
      FieldName = 'KH'
      Size = 5
    end
  end
end