ckddcx1.dfm

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

object ckddcx: Tckddcx
  Left = 248
  Top = 143
  Width = 571
  Height = 414
  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
  PixelsPerInch = 96
  TextHeight = 12
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 0
    Width = 563
    Height = 350
    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 = 0
    OnDblClick = dxDBGrid1DblClick
    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, edgoStoreToRegistry, edgoTabThrough, edgoVertThrough]
    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\ckddcx'
    object dxDBGrid1code: TdxDBGridMaskColumn
      Width = 72
      BandIndex = 0
      RowIndex = 0
      FieldName = 'code'
    end
    object dxDBGrid1kdrq: TdxDBGridDateColumn
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = 'kdrq'
    end
    object dxDBGrid1dkr: TdxDBGridMaskColumn
      Caption = '开单人'
      Width = 65
      BandIndex = 0
      RowIndex = 0
      FieldName = 'dkr'
    end
    object dxDBGrid1dcck: TdxDBGridMaskColumn
      Width = 70
      BandIndex = 0
      RowIndex = 0
      FieldName = 'dcck'
    end
    object dxDBGrid1dcckname: TdxDBGridMaskColumn
      Width = 108
      BandIndex = 0
      RowIndex = 0
      FieldName = 'dcckname'
    end
    object dxDBGrid1drck: TdxDBGridMaskColumn
      Width = 82
      BandIndex = 0
      RowIndex = 0
      FieldName = 'drck'
    end
    object dxDBGrid1drckname: TdxDBGridMaskColumn
      Width = 93
      BandIndex = 0
      RowIndex = 0
      FieldName = 'drckname'
    end
    object dxDBGrid1ywy: TdxDBGridMaskColumn
      Width = 73
      BandIndex = 0
      RowIndex = 0
      FieldName = 'ywy'
    end
    object dxDBGrid1name: TdxDBGridMaskColumn
      Width = 76
      BandIndex = 0
      RowIndex = 0
      FieldName = 'name'
    end
    object dxDBGrid1bz: TdxDBGridMaskColumn
      Width = 191
      BandIndex = 0
      RowIndex = 0
      FieldName = 'bz'
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 350
    Width = 563
    Height = 37
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 344
      Top = 8
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkOK
    end
    object BitBtn2: TBitBtn
      Left = 432
      Top = 8
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 1
      Kind = bkCancel
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 304
    Top = 176
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ckddcx_v')
    Left = 256
    Top = 176
    object ADOQuery1code: TStringField
      DisplayLabel = '单号'
      FieldName = 'code'
    end
    object ADOQuery1kdrq: TDateTimeField
      DisplayLabel = '开单日期'
      FieldName = 'kdrq'
    end
    object ADOQuery1dkr: TStringField
      DisplayLabel = '操作员编码'
      FieldName = 'dkr'
      Size = 6
    end
    object ADOQuery1dcck: TStringField
      DisplayLabel = '调出仓库'
      FieldName = 'dcck'
      Size = 5
    end
    object ADOQuery1dcckname: TStringField
      DisplayLabel = '调出仓库'
      FieldName = 'dcckname'
      Size = 200
    end
    object ADOQuery1drck: TStringField
      DisplayLabel = '调入仓库'
      FieldName = 'drck'
      Size = 5
    end
    object ADOQuery1drckname: TStringField
      DisplayLabel = '调入仓库'
      FieldName = 'drckname'
      Size = 200
    end
    object ADOQuery1ywy: TStringField
      DisplayLabel = '业务员'
      FieldName = 'ywy'
      Size = 5
    end
    object ADOQuery1name: TStringField
      DisplayLabel = '业务员'
      FieldName = 'name'
      Size = 10
    end
    object ADOQuery1bz: TStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 250
    end
  end
end