pjclmx.dfm

售后服务系统优质的售后服务是企业生存和市场竞争的保障

object PjclMxForm: TPjclMxForm
  Left = 6
  Top = 114
  Width = 778
  Height = 451
  Caption = '配件使用情况'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 8
    Top = 272
    Width = 753
    Height = 145
    Caption = '查询范围'
    TabOrder = 0
    object Label2: TLabel
      Left = 72
      Top = 67
      Width = 56
      Height = 14
      Caption = '终止日期'
    end
    object Label3: TLabel
      Left = 72
      Top = 99
      Width = 56
      Height = 14
      Caption = '使用类型'
    end
    object Label1: TLabel
      Left = 72
      Top = 35
      Width = 56
      Height = 14
      Caption = '起始日期'
    end
    object DateTimePicker1: TDateTimePicker
      Left = 144
      Top = 32
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37385.6593496065
      Time = 37385.6593496065
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 144
      Top = 64
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37385.6593496065
      Time = 37385.6593496065
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object ComboBox1: TComboBox
      Left = 144
      Top = 96
      Width = 121
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 2
      Items.Strings = (
        '全部'
        '维修'
        '入库'
        '冲销'
        '外借'
        '零售'
        '安装'
        '调试')
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 384
      Top = 32
      Width = 145
      Height = 22
      KeyField = 'flbh'
      ListField = 'flmc'
      ListSource = DataSourceflxx
      TabOrder = 3
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 384
      Top = 64
      Width = 145
      Height = 22
      KeyField = 'pzbh'
      ListField = 'mc'
      ListSource = DataSourcepjpzxx
      TabOrder = 4
      OnClick = DBLookupComboBox2Click
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 384
      Top = 96
      Width = 145
      Height = 22
      KeyField = 'pjbh'
      ListField = 'mc'
      ListSource = DataSourcepjkc
      TabOrder = 5
    end
    object Button1: TButton
      Left = 608
      Top = 32
      Width = 89
      Height = 33
      Caption = '查询'
      TabOrder = 6
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 608
      Top = 80
      Width = 89
      Height = 33
      Caption = '退出'
      TabOrder = 7
      OnClick = Button2Click
    end
    object RadioButton1: TRadioButton
      Left = 296
      Top = 32
      Width = 81
      Height = 17
      Caption = '配件分类'
      Checked = True
      TabOrder = 8
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 296
      Top = 64
      Width = 81
      Height = 17
      Caption = '配件种类'
      TabOrder = 9
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 296
      Top = 96
      Width = 81
      Height = 17
      Caption = '配件型号'
      TabOrder = 10
      OnClick = RadioButton3Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 753
    Height = 257
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'cllx'
        Title.Alignment = taCenter
        Title.Caption = '使用类型'
        Width = 57
        Visible = True
      end
      item
        Color = clAqua
        Expanded = False
        FieldName = 'lx'
        Title.Alignment = taCenter
        Title.Caption = '费用类型'
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pzmc'
        Title.Alignment = taCenter
        Title.Caption = '种类'
        Width = 77
        Visible = True
      end
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'pjmc'
        Title.Alignment = taCenter
        Title.Caption = '名称'
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sl'
        Title.Alignment = taCenter
        Title.Caption = '数量'
        Visible = True
      end
      item
        Color = clAqua
        Expanded = False
        FieldName = 'je'
        Title.Alignment = taCenter
        Title.Caption = '金额'
        Width = 89
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'clrq'
        Title.Alignment = taCenter
        Title.Caption = '处理日期'
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'endflag'
        Title.Alignment = taCenter
        Title.Caption = '结清'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bz'
        Title.Alignment = taCenter
        Title.Caption = '备注'
        Width = 105
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'slrq'
        Title.Alignment = taCenter
        Title.Caption = '受理日期'
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sjsl'
        Title.Alignment = taCenter
        Title.Caption = '原数量'
        Width = 48
        Visible = True
      end>
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <
      item
        Name = 'P_pjbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'P_gsfl'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'P_gspz'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from wxpjxx where pjbh=:P_pjbh and gsfl=:P_gsfl'
      'and gspz=:P_gspz ')
    Left = 176
    Top = 192
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 216
    Top = 192
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 432
    Top = 160
  end
  object DataSourceflxx: TDataSource
    DataSet = ADOTableflxx
    Left = 472
    Top = 168
  end
  object ADOQuerypjpzxx: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSourceflxx
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from pjpzxx where flbh=:flbh')
    Left = 448
    Top = 208
  end
  object DataSourcepjpzxx: TDataSource
    DataSet = ADOQuerypjpzxx
    Left = 488
    Top = 216
  end
  object ADOQuerypjkc: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSourcepjpzxx
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'pzbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from pjkc where flbh=:flbh and pzbh=:pzbh')
    Left = 360
    Top = 232
  end
  object DataSourcepjkc: TDataSource
    DataSet = ADOQuerypjkc
    Left = 392
    Top = 240
  end
end