getwxpj.dfm

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

object GetPjForm: TGetPjForm
  Left = 56
  Top = 114
  Width = 681
  Height = 409
  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 = 8
    Width = 657
    Height = 185
    Caption = '维修配件'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 16
      Top = 24
      Width = 625
      Height = 145
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'flmc'
          Title.Alignment = taCenter
          Title.Caption = '分类名称'
          Width = 70
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pzmc'
          Title.Alignment = taCenter
          Title.Caption = '种类名称'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pjmc'
          Title.Alignment = taCenter
          Title.Caption = '配件名称'
          Width = 136
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lx'
          Title.Alignment = taCenter
          Title.Caption = '类型'
          Width = 67
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dj'
          Title.Alignment = taCenter
          Title.Caption = '单价'
          Width = 87
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sl'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'je'
          Title.Alignment = taCenter
          Title.Caption = '金额'
          Width = 87
          Visible = True
        end>
    end
  end
  object Button2: TButton
    Left = 168
    Top = 344
    Width = 75
    Height = 25
    Caption = '增加'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button6: TButton
    Left = 288
    Top = 344
    Width = 75
    Height = 25
    Caption = '删除'
    TabOrder = 2
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 408
    Top = 344
    Width = 75
    Height = 25
    Caption = '退出'
    TabOrder = 3
    OnClick = Button7Click
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 200
    Width = 657
    Height = 129
    Caption = '详细信息'
    TabOrder = 4
    object Label1: TLabel
      Left = 24
      Top = 56
      Width = 56
      Height = 14
      Caption = '配件种类'
    end
    object Label2: TLabel
      Left = 24
      Top = 88
      Width = 56
      Height = 14
      Caption = '配件型号'
    end
    object Label4: TLabel
      Left = 360
      Top = 40
      Width = 56
      Height = 14
      Caption = '单    价'
    end
    object Label3: TLabel
      Left = 360
      Top = 80
      Width = 56
      Height = 14
      Caption = '使用数量'
    end
    object Label5: TLabel
      Left = 24
      Top = 24
      Width = 56
      Height = 14
      Caption = '配件分类'
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 88
      Top = 56
      Width = 145
      Height = 22
      DataField = 'gspz'
      DataSource = DataSource1
      KeyField = 'pzbh'
      ListField = 'mc'
      ListSource = DataSourcepjpzxx
      TabOrder = 0
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 88
      Top = 88
      Width = 145
      Height = 22
      DataField = 'pjbh'
      DataSource = DataSource1
      KeyField = 'pjbh'
      ListField = 'mc'
      ListSource = DataSourcepjkc
      TabOrder = 1
      OnClick = DBLookupComboBox2Click
    end
    object DBEdit1: TDBEdit
      Left = 432
      Top = 40
      Width = 121
      Height = 22
      DataField = 'dj'
      DataSource = DataSource1
      ReadOnly = True
      TabOrder = 2
    end
    object Button4: TButton
      Left = 566
      Top = 40
      Width = 75
      Height = 25
      Caption = '保存'
      TabOrder = 3
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 566
      Top = 80
      Width = 75
      Height = 25
      Caption = '放弃'
      TabOrder = 4
      OnClick = Button5Click
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 88
      Top = 24
      Width = 145
      Height = 22
      DataField = 'gsfl'
      DataSource = DataSource1
      KeyField = 'flbh'
      ListField = 'flmc'
      ListSource = DataSource2
      TabOrder = 5
      OnClick = DBLookupComboBox3Click
    end
    object RadioGroup1: TRadioGroup
      Left = 248
      Top = 24
      Width = 97
      Height = 89
      Caption = '收费类型'
      ItemIndex = 0
      Items.Strings = (
        '保修'
        '自费'
        '服务商')
      TabOrder = 6
      OnClick = RadioGroup1Click
    end
    object MaskEdit1: TMaskEdit
      Left = 432
      Top = 80
      Width = 121
      Height = 22
      BiDiMode = bdLeftToRight
      EditMask = '!999;0; '
      MaxLength = 3
      ParentBiDiMode = False
      TabOrder = 7
      Text = '1'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOQuery1AfterInsert
    BeforePost = ADOQuery1BeforePost
    Parameters = <
      item
        Name = 'P_dabh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '00001'
      end>
    SQL.Strings = (
      'select * from wxpjxx where dabh =:P_dabh ')
    Left = 456
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSource1StateChange
    Left = 496
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 328
  end
  object DataSourcepjpzxx: TDataSource
    DataSet = ADOQuerypjpzxx
    Left = 184
    Top = 8
  end
  object DataSourcepjkc: TDataSource
    DataSet = ADOQuerypjkc
    Left = 264
    Top = 8
  end
  object ADOQuerypjpzxx: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <
      item
        Name = 'P_flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from pjpzxx where flbh=:P_flbh')
    Left = 144
    Top = 8
  end
  object ADOQuerypjkc: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <
      item
        Name = 'P_flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'P_pzbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from pjkc where flbh=:P_flbh and pzbh=:P_pzbh')
    Left = 232
    Top = 8
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 136
    Top = 192
  end
  object DataSource2: TDataSource
    DataSet = ADOTableflxx
    Left = 168
    Top = 192
  end
end