ufrmckcon.dfm

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

object frmckcon: Tfrmckcon
  Left = 332
  Top = 131
  BorderStyle = bsDialog
  Caption = '按仓库查询'
  ClientHeight = 309
  ClientWidth = 270
  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 = 34
    Top = 28
    Width = 48
    Height = 12
    Caption = '仓库名称'
  end
  object Label2: TLabel
    Left = 36
    Top = 64
    Width = 48
    Height = 12
    Caption = '起始时间'
  end
  object Label3: TLabel
    Left = 36
    Top = 98
    Width = 48
    Height = 12
    Caption = '终止时间'
  end
  object DateTimePicker1: TDateTimePicker
    Left = 90
    Top = 58
    Width = 145
    Height = 20
    Cursor = crArrow
    BiDiMode = bdLeftToRight
    CalAlignment = dtaLeft
    Date = 37343.8228761227
    Time = 37343.8228761227
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    ParentBiDiMode = False
    TabOrder = 0
  end
  object DateTimePicker2: TDateTimePicker
    Left = 90
    Top = 96
    Width = 145
    Height = 20
    Cursor = crArrow
    BiDiMode = bdLeftToRight
    CalAlignment = dtaLeft
    Date = 37343.8228761227
    Time = 37343.8228761227
    DateFormat = dfShort
    DateMode = dmComboBox
    Enabled = False
    Kind = dtkDate
    ParseInput = False
    ParentBiDiMode = False
    TabOrder = 1
  end
  object RadioGroup1: TRadioGroup
    Left = 34
    Top = 128
    Width = 202
    Height = 121
    Caption = '查询类别'
    ItemIndex = 0
    Items.Strings = (
      '库存量'
      '入库量'
      '出库量')
    TabOrder = 2
    OnClick = RadioGroup1Click
  end
  object BitBtn1: TBitBtn
    Left = 160
    Top = 266
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 40
    Top = 266
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object DBEdit1: TDBEdit
    Left = 32
    Top = 0
    Width = 121
    Height = 20
    DataField = 'nCKTCode'
    DataSource = DataSource1
    TabOrder = 5
    Visible = False
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 88
    Top = 24
    Width = 145
    Height = 20
    DataField = 'wwww'
    DataSource = DataSource1
    DropDownRows = 8
    TabOrder = 6
  end
  object ADOQuery1: TADOQuery
    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
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 40
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from s_ck')
    Left = 8
    Top = 72
  end
end