uxsrbfind.dfm

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

object frmxsrbfind: Tfrmxsrbfind
  Left = 201
  Top = 110
  BorderStyle = bsDialog
  Caption = '销售日报查找'
  ClientHeight = 349
  ClientWidth = 464
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 464
    Height = 73
    Align = alTop
    TabOrder = 0
    object Label3: TLabel
      Left = 20
      Top = 20
      Width = 48
      Height = 12
      Caption = '开始时间'
    end
    object Label4: TLabel
      Left = 20
      Top = 52
      Width = 48
      Height = 12
      Caption = '结束时间'
    end
    object DateTimePicker2: TDateTimePicker
      Left = 80
      Top = 48
      Width = 113
      Height = 20
      CalAlignment = dtaLeft
      Date = 37364.5938846528
      Time = 37364.5938846528
      ShowCheckbox = True
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object Edit1: TEdit
      Left = 288
      Top = 48
      Width = 121
      Height = 20
      TabOrder = 1
    end
    object DateTimePicker1: TDateTimePicker
      Left = 80
      Top = 16
      Width = 113
      Height = 20
      CalAlignment = dtaLeft
      Date = 37364.5976103819
      Time = 37364.5976103819
      ShowCheckbox = True
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
      Left = 208
      Top = 16
      Width = 73
      Height = 17
      Caption = '商场名称'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 208
      Top = 48
      Width = 65
      Height = 17
      Caption = '录入人'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = CheckBox2Click
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 286
      Top = 16
      Width = 126
      Height = 20
      DataField = 'cknewname'
      DataSource = DataSource2
      TabOrder = 5
    end
    object DBEdit1: TDBEdit
      Left = 296
      Top = 0
      Width = 121
      Height = 20
      DataField = 'nCKTCode'
      DataSource = DataSource2
      TabOrder = 6
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 73
    Width = 464
    Height = 235
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 462
      Height = 233
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      Columns = <
        item
          Alignment = taCenter
          FieldName = 'nBillid'
          Title.Alignment = taCenter
          Title.Caption = '销售日报'
          Width = 100
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = 'nDateRk'
          Title.Alignment = taCenter
          Title.Caption = '日报时间'
          Width = 100
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = 'ckname'
          Title.Alignment = taCenter
          Title.Caption = '商场'
          Width = 100
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = 'nYwMan'
          Title.Alignment = taCenter
          Title.Caption = '录入人'
          Width = 100
          Footers = <>
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 308
    Width = 464
    Height = 41
    Align = alBottom
    TabOrder = 2
    object Button1: TButton
      Left = 192
      Top = 8
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 296
      Top = 8
      Width = 75
      Height = 25
      Caption = '取消'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 80
      Top = 8
      Width = 75
      Height = 25
      Caption = '刷新'
      TabOrder = 2
      OnClick = Button3Click
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from kc_goodmaster'
      'where nywtype='#39'销售出库'#39)
    Left = 208
    Top = 160
    object ADOQuery1nBillid: TWideStringField
      FieldName = 'nBillid'
    end
    object ADOQuery1nDateRk: TWideStringField
      FieldName = 'nDateRk'
    end
    object ADOQuery1nCkCode: TWideStringField
      FieldName = 'nCkCode'
      Size = 50
    end
    object ADOQuery1nXsDept: TWideStringField
      FieldName = 'nXsDept'
      Size = 50
    end
    object ADOQuery1nYwMan: TWideStringField
      FieldName = 'nYwMan'
      Size = 50
    end
    object ADOQuery1nYwType: TWideStringField
      FieldName = 'nYwType'
      Size = 50
    end
    object ADOQuery1nCusNo: TWideStringField
      FieldName = 'nCusNo'
      Size = 50
    end
    object ADOQuery1nGysNo: TWideStringField
      FieldName = 'nGysNo'
      Size = 80
    end
    object ADOQuery1nShMan: TWideStringField
      FieldName = 'nShMan'
      Size = 100
    end
    object ADOQuery1nJsMan: TWideStringField
      FieldName = 'nJsMan'
      Size = 50
    end
    object ADOQuery1nCzMan: TWideStringField
      FieldName = 'nCzMan'
      Size = 50
    end
    object ADOQuery1nSfTtype: TWideStringField
      FieldName = 'nSfTtype'
      Size = 50
    end
    object ADOQuery1nSfType_DbPd: TWideStringField
      FieldName = 'nSfType_DbPd'
      Size = 50
    end
    object ADOQuery1tiisCg_xs: TBooleanField
      FieldName = 'tiisCg_xs'
    end
    object ADOQuery1nRedBlue: TSmallintField
      FieldName = 'nRedBlue'
    end
    object ADOQuery1nCgDdId: TWideStringField
      FieldName = 'nCgDdId'
      Size = 50
    end
    object ADOQuery1nBillDb: TWideStringField
      FieldName = 'nBillDb'
      Size = 50
    end
    object ADOQuery1nMemo: TMemoField
      FieldName = 'nMemo'
      BlobType = ftMemo
    end
    object ADOQuery1nDdID: TWideStringField
      FieldName = 'nDdID'
      Size = 50
    end
    object ADOQuery1nJzMan: TWideStringField
      FieldName = 'nJzMan'
      Size = 50
    end
    object ADOQuery1ckname: TStringField
      FieldKind = fkLookup
      FieldName = 'ckname'
      LookupDataSet = DM.adock
      LookupKeyFields = 'nCKTCode'
      LookupResultField = 'nCKName'
      KeyFields = 'nCkCode'
      Size = 30
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 240
    Top = 160
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 424
    Top = 32
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from s_ck')
    Left = 424
    Top = 8
    object ADOQuery2nCKCode: TWideStringField
      FieldName = 'nCKCode'
      Size = 50
    end
    object ADOQuery2nCKTCode: TWideStringField
      FieldName = 'nCKTCode'
      Size = 50
    end
    object ADOQuery2nCKDepCode: TWideStringField
      FieldName = 'nCKDepCode'
      Size = 50
    end
    object ADOQuery2nCKAddress: TWideStringField
      FieldName = 'nCKAddress'
      Size = 100
    end
    object ADOQuery2nCKPhone: TWideStringField
      FieldName = 'nCKPhone'
      Size = 50
    end
    object ADOQuery2nCKPerson: TWideStringField
      FieldName = 'nCKPerson'
      Size = 50
    end
    object ADOQuery2nCKVStyle: TWideStringField
      FieldName = 'nCKVStyle'
      Size = 50
    end
    object ADOQuery2bCKPos: TBooleanField
      FieldName = 'bCKPos'
    end
    object ADOQuery2mCKMoney: TBCDField
      FieldName = 'mCKMoney'
      Precision = 19
    end
    object ADOQuery2nMemo: TMemoField
      FieldName = 'nMemo'
      BlobType = ftMemo
    end
    object ADOQuery2bUse: TBooleanField
      FieldName = 'bUse'
    end
    object ADOQuery2bEnd: TBooleanField
      FieldName = 'bEnd'
    end
    object ADOQuery2nCKName: TWideStringField
      FieldName = 'nCKName'
      Size = 50
    end
    object ADOQuery2cknewname: TStringField
      FieldKind = fkLookup
      FieldName = 'cknewname'
      LookupDataSet = DM.adock
      LookupKeyFields = 'nCKTCode'
      LookupResultField = 'nCKName'
      KeyFields = 'nCKTCode'
      Size = 30
      Lookup = True
    end
  end
end