wxbwfyset.dfm

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

object WxBwFySetForm: TWxBwFySetForm
  Left = 209
  Top = 140
  Width = 706
  Height = 370
  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 DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 681
    Height = 281
    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 = 'bwmc'
        Title.Alignment = taCenter
        Title.Caption = '部位名称'
        Width = 163
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gysgcfwf'
        Title.Alignment = taCenter
        Title.Caption = '供应商工场服务费'
        Width = 122
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gyssmfwf'
        Title.Alignment = taCenter
        Title.Caption = '供应商上门服务费'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'khfwf'
        Title.Alignment = taCenter
        Title.Caption = '客户自费服务费'
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ryfwf'
        Title.Alignment = taCenter
        Title.Caption = '服务人员服务费'
        Width = 113
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 80
    Top = 304
    Width = 75
    Height = 25
    Caption = '增加'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 168
    Top = 304
    Width = 75
    Height = 25
    Caption = '修改'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 256
    Top = 304
    Width = 75
    Height = 25
    Caption = '保存'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 344
    Top = 304
    Width = 75
    Height = 25
    Caption = '放弃'
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 432
    Top = 304
    Width = 75
    Height = 25
    Caption = '删除'
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 520
    Top = 304
    Width = 75
    Height = 25
    Caption = '退出'
    TabOrder = 6
    OnClick = Button6Click
  end
  object ADOQuerywxbw: TADOQuery
    Connection = MainForm.ADOConnection1
    BeforePost = ADOQuerywxbwBeforePost
    Parameters = <
      item
        Name = 'P_flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'P_ppbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'P_ggbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from wxbwfyxx where flbh=:P_flbh and ppbh=:P_ppbh'
      'and ggbh=:P_ggbh order by bwbh')
    Left = 392
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOQuerywxbw
    OnStateChange = DataSource1StateChange
    Left = 432
    Top = 40
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 336
    Top = 96
  end
end