pjset.dfm

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

object PjSetForm: TPjSetForm
  Left = 130
  Top = 144
  Width = 593
  Height = 380
  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 PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 569
    Height = 337
    ActivePage = TabSheet1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '配件种类设置'
      object DBGrid5: TDBGrid
        Left = 19
        Top = 88
        Width = 430
        Height = 201
        DataSource = DataSource2
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'mc'
            Title.Alignment = taCenter
            Title.Caption = '名称'
            Width = 215
            Visible = True
          end
          item
            Color = clAqua
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Title.Caption = '备注'
            Width = 160
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 16
        Top = 8
        Width = 433
        Height = 73
        Caption = '选择分类'
        TabOrder = 1
        object Label7: TLabel
          Left = 64
          Top = 27
          Width = 56
          Height = 14
          Caption = '归属分类'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object DBLookupComboBox7: TDBLookupComboBox
          Left = 144
          Top = 27
          Width = 169
          Height = 22
          KeyField = 'flbh'
          ListField = 'flmc'
          ListSource = DataSource1
          TabOrder = 0
          OnClick = DBLookupComboBox7Click
        end
      end
      object Button2: TButton
        Left = 472
        Top = 32
        Width = 75
        Height = 25
        Caption = '增加'
        TabOrder = 2
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 472
        Top = 74
        Width = 75
        Height = 25
        Caption = '修改'
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 472
        Top = 115
        Width = 75
        Height = 25
        Caption = '保存'
        TabOrder = 4
        OnClick = Button4Click
      end
      object Button5: TButton
        Left = 472
        Top = 157
        Width = 75
        Height = 25
        Caption = '放弃'
        TabOrder = 5
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 472
        Top = 198
        Width = 75
        Height = 25
        Caption = '删除'
        TabOrder = 6
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 470
        Top = 240
        Width = 75
        Height = 25
        Caption = '退出'
        TabOrder = 7
        OnClick = Button7Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = '配件设置'
      ImageIndex = 1
      object GroupBox2: TGroupBox
        Left = 16
        Top = 8
        Width = 433
        Height = 73
        Caption = '选择种类'
        TabOrder = 0
        object Label1: TLabel
          Left = 24
          Top = 27
          Width = 28
          Height = 14
          Caption = '分类'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 224
          Top = 27
          Width = 28
          Height = 14
          Caption = '种类'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 64
          Top = 27
          Width = 145
          Height = 22
          KeyField = 'flbh'
          ListField = 'flmc'
          ListSource = DataSource1
          TabOrder = 0
          OnClick = DBLookupComboBox1Click
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 264
          Top = 27
          Width = 145
          Height = 22
          KeyField = 'pzbh'
          ListField = 'mc'
          ListSource = DataSource2
          TabOrder = 1
          OnClick = DBLookupComboBox2Click
        end
      end
      object DBGrid4: TDBGrid
        Left = 16
        Top = 88
        Width = 433
        Height = 209
        DataSource = DataSource3
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'mc'
            Title.Alignment = taCenter
            Title.Caption = '名称'
            Width = 168
            Visible = True
          end
          item
            Color = clAqua
            Expanded = False
            FieldName = 'bxdj'
            Title.Alignment = taCenter
            Title.Caption = '成本单价'
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'lsdj'
            Title.Alignment = taCenter
            Width = 66
            Visible = True
          end
          item
            Color = clInfoBk
            Expanded = False
            FieldName = 'bz'
            Title.Alignment = taCenter
            Width = 89
            Visible = True
          end>
      end
      object Button9: TButton
        Left = 472
        Top = 40
        Width = 75
        Height = 25
        Caption = '增加'
        TabOrder = 2
        OnClick = Button9Click
      end
      object Button10: TButton
        Left = 472
        Top = 80
        Width = 75
        Height = 25
        Caption = '修改'
        TabOrder = 3
        OnClick = Button10Click
      end
      object Button11: TButton
        Left = 472
        Top = 120
        Width = 75
        Height = 25
        Caption = '保存'
        TabOrder = 4
        OnClick = Button11Click
      end
      object Button12: TButton
        Left = 472
        Top = 160
        Width = 75
        Height = 25
        Caption = '放弃'
        TabOrder = 5
        OnClick = Button12Click
      end
      object Button13: TButton
        Left = 472
        Top = 200
        Width = 75
        Height = 25
        Caption = '删除'
        TabOrder = 6
        OnClick = Button13Click
      end
      object Button14: TButton
        Left = 472
        Top = 240
        Width = 75
        Height = 25
        Caption = '退出'
        TabOrder = 7
        OnClick = Button7Click
      end
    end
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 244
    Top = 65534
    object ADOTableflxxflbh: TWideStringField
      DisplayLabel = '分类编号'
      FieldName = 'flbh'
      EditMask = '9999;0;_'
      Size = 4
    end
    object ADOTableflxxflmc: TWideStringField
      DisplayLabel = '分类名称'
      FieldName = 'flmc'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTableflxx
    Left = 284
    Top = 65534
  end
  object ADOQuerypjflxx: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOQuerypjflxxAfterInsert
    BeforePost = ADOQuerypjflxxBeforePost
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from pjpzxx where flbh=:flbh')
    Left = 341
    Top = 1
  end
  object DataSource2: TDataSource
    DataSet = ADOQuerypjflxx
    OnStateChange = DataSource2StateChange
    Left = 376
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 192
  end
  object ADOQuerypjkc: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOQuerypjkcAfterInsert
    BeforePost = ADOQuerypjkcBeforePost
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end
      item
        Name = 'pzbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from pjkc where flbh=:flbh and pzbh=:pzbh')
    Left = 408
    object ADOQuerypjkcpjbh: TWideStringField
      FieldName = 'pjbh'
      Size = 5
    end
    object ADOQuerypjkcflbh: TWideStringField
      FieldName = 'flbh'
      Size = 4
    end
    object ADOQuerypjkcpzbh: TWideStringField
      FieldName = 'pzbh'
      Size = 4
    end
    object ADOQuerypjkcmc: TWideStringField
      DisplayLabel = '配件名称'
      FieldName = 'mc'
      Size = 30
    end
    object ADOQuerypjkcbxdj: TBCDField
      DisplayLabel = '保修单价'
      FieldName = 'bxdj'
      Precision = 19
    end
    object ADOQuerypjkclsdj: TBCDField
      DisplayLabel = '零售单价'
      FieldName = 'lsdj'
      Precision = 19
    end
    object ADOQuerypjkckcsl: TIntegerField
      FieldName = 'kcsl'
    end
    object ADOQuerypjkcwjsl: TIntegerField
      FieldName = 'wjsl'
    end
    object ADOQuerypjkcbz: TWideStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 30
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQuerypjkc
    OnStateChange = DataSource3StateChange
    Left = 448
  end
end