ggset.dfm

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

        Width = 28
        Height = 14
        Caption = '维修'
      end
      object Label9: TLabel
        Left = 13
        Top = 88
        Width = 28
        Height = 14
        Caption = '调试'
      end
      object DBEdit5: TDBEdit
        Left = 48
        Top = 24
        Width = 105
        Height = 22
        DataField = 'zfanzdj'
        DataSource = DataSource4
        TabOrder = 0
      end
      object DBEdit6: TDBEdit
        Left = 48
        Top = 56
        Width = 105
        Height = 22
        DataField = 'zfwxdj'
        DataSource = DataSource4
        TabOrder = 1
      end
      object DBEdit7: TDBEdit
        Left = 48
        Top = 88
        Width = 105
        Height = 22
        DataField = 'zftsdj'
        DataSource = DataSource4
        TabOrder = 2
      end
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 72
      Top = 51
      Width = 289
      Height = 22
      DataField = 'gysbh'
      DataSource = DataSource4
      KeyField = 'bh'
      ListField = 'mc'
      ListSource = DataSource1
      TabOrder = 3
    end
    object DBCheckBox1: TDBCheckBox
      Left = 208
      Top = 240
      Width = 161
      Height = 17
      Caption = '供应商费用是否结算'
      DataField = 'fwfyflag'
      DataSource = DataSource4
      TabOrder = 4
      ValueChecked = '是'
      ValueUnchecked = '否'
      OnClick = DBCheckBox1Click
    end
    object DBEdit11: TDBEdit
      Left = 272
      Top = 19
      Width = 265
      Height = 22
      DataField = 'bz'
      DataSource = DataSource4
      TabOrder = 5
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 19
      Width = 129
      Height = 22
      DataField = 'mc'
      DataSource = DataSource4
      TabOrder = 6
    end
    object Button1: TButton
      Left = 376
      Top = 224
      Width = 65
      Height = 41
      Caption = '确定'
      TabOrder = 7
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 464
      Top = 224
      Width = 65
      Height = 41
      Caption = '放弃'
      TabOrder = 8
      OnClick = Button2Click
    end
    object DBCheckBox2: TDBCheckBox
      Left = 376
      Top = 56
      Width = 169
      Height = 17
      Caption = '维修费是否按部位结算'
      DataField = 'wxsflx'
      DataSource = DataSource4
      TabOrder = 9
      ValueChecked = '部位'
      ValueUnchecked = '计件'
      OnClick = DBCheckBox2Click
    end
  end
  object GroupBox6: TGroupBox
    Left = 8
    Top = 296
    Width = 553
    Height = 153
    Caption = '供应商误工费和交通费结算信息'
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 16
      Top = 24
      Width = 417
      Height = 120
      DataSource = DataSource5
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'start'
          Title.Alignment = taCenter
          Title.Caption = '起始里程'
          Width = 82
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'end'
          Title.Alignment = taCenter
          Title.Caption = '终止里程'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'wgf'
          Title.Alignment = taCenter
          Title.Caption = '误工费'
          Width = 98
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jtf'
          Title.Alignment = taCenter
          Title.Caption = '交通费'
          Width = 97
          Visible = True
        end>
    end
    object Button8: TButton
      Left = 456
      Top = 24
      Width = 75
      Height = 25
      Caption = '增加'
      TabOrder = 1
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 456
      Top = 48
      Width = 75
      Height = 25
      Caption = '修改'
      TabOrder = 2
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 456
      Top = 72
      Width = 75
      Height = 25
      Caption = '删除'
      TabOrder = 3
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 456
      Top = 96
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 4
      OnClick = Button11Click
    end
    object Button12: TButton
      Left = 456
      Top = 120
      Width = 75
      Height = 25
      Caption = '放弃'
      TabOrder = 5
      OnClick = Button12Click
    end
  end
  object ADOTablegysxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'gysxx'
    Left = 344
  end
  object DataSource1: TDataSource
    DataSet = ADOTablegysxx
    Left = 376
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 624
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = ADOTableflxx
    Left = 656
    Top = 104
  end
  object ADOQueryppxx: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from ppxx where gsfl=:flbh')
    Left = 624
    Top = 136
  end
  object DataSource3: TDataSource
    DataSet = ADOQueryppxx
    Left = 656
    Top = 136
  end
  object ADOQueryggxx: TADOQuery
    Connection = MainForm.ADOConnection1
    BeforePost = ADOQueryggxxBeforePost
    DataSource = DataSource3
    Parameters = <
      item
        Name = 'gsfl'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'ppbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from ggxx where flbh=:gsfl and ppbh=:ppbh')
    Left = 680
    Top = 48
  end
  object DataSource4: TDataSource
    DataSet = ADOQueryggxx
    OnStateChange = DataSource4StateChange
    OnDataChange = DataSource4DataChange
    Left = 712
    Top = 56
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 616
    Top = 56
  end
  object ADOQueryqtfy: TADOQuery
    Connection = MainForm.ADOConnection1
    BeforePost = ADOQueryqtfyBeforePost
    DataSource = DataSource4
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'ppbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'ggbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from gysqtfyxx where flbh=:flbh and'
      ' ppbh=:ppbh and ggbh=:ggbh')
    Left = 696
    Top = 120
  end
  object DataSource5: TDataSource
    DataSet = ADOQueryqtfy
    OnStateChange = DataSource5StateChange
    Left = 720
    Top = 152
  end
end