ucxccol.dfm

相关的销售服务管理行业的一个软件

object FrmCkcol: TFrmCkcol
  Left = 284
  Top = 139
  BorderStyle = bsDialog
  Caption = '仓库设置列显示'
  ClientHeight = 132
  ClientWidth = 229
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 18
    Top = 36
    Width = 48
    Height = 12
    Caption = '商场名称'
  end
  object BitBtn1: TBitBtn
    Left = 32
    Top = 88
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 120
    Top = 88
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 71
    Top = 32
    Width = 145
    Height = 20
    DataField = 'wwww'
    DataSource = DataSource1
    DropDownRows = 8
    TabOrder = 2
  end
  object DBEdit1: TDBEdit
    Left = 32
    Top = 0
    Width = 121
    Height = 20
    DataField = 'nCKTCode'
    DataSource = DataSource1
    TabOrder = 3
    Visible = False
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from s_ck')
    Left = 8
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 40
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from s_ck')
    Left = 8
    Top = 8
    object ADOQuery1nCKCode: TWideStringField
      FieldName = 'nCKCode'
      Size = 50
    end
    object ADOQuery1nCKTCode: TWideStringField
      FieldName = 'nCKTCode'
      Size = 50
    end
    object ADOQuery1nCKName: TWideStringField
      FieldName = 'nCKName'
      Size = 50
    end
    object ADOQuery1nCKDepCode: TWideStringField
      FieldName = 'nCKDepCode'
      Size = 50
    end
    object ADOQuery1nCKAddress: TWideStringField
      FieldName = 'nCKAddress'
      Size = 100
    end
    object ADOQuery1nCKPhone: TWideStringField
      FieldName = 'nCKPhone'
      Size = 50
    end
    object ADOQuery1nCKPerson: TWideStringField
      FieldName = 'nCKPerson'
      Size = 50
    end
    object ADOQuery1nCKVStyle: TWideStringField
      FieldName = 'nCKVStyle'
      Size = 50
    end
    object ADOQuery1bCKPos: TBooleanField
      FieldName = 'bCKPos'
    end
    object ADOQuery1mCKMoney: TBCDField
      FieldName = 'mCKMoney'
      Precision = 19
    end
    object ADOQuery1nMemo: TMemoField
      FieldName = 'nMemo'
      BlobType = ftMemo
    end
    object ADOQuery1bUse: TBooleanField
      FieldName = 'bUse'
    end
    object ADOQuery1bEnd: TBooleanField
      FieldName = 'bEnd'
    end
    object ADOQuery1wwww: TStringField
      FieldKind = fkLookup
      FieldName = 'wwww'
      LookupDataSet = ADOQuery2
      LookupKeyFields = 'nCKTCode'
      LookupResultField = 'nCKName'
      KeyFields = 'nCKTCode'
      Size = 30
      Lookup = True
    end
  end
end