spsetgl.dfm

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

object SpSetForm: TSpSetForm
  Left = 210
  Top = 137
  Width = 407
  Height = 340
  Caption = '商品信息设置'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 9
    Top = 1
    Width = 272
    Height = 304
    ActivePage = TabSheet1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '商品分类设置'
      object DBGrid1: TDBGrid
        Left = 11
        Top = 11
        Width = 238
        Height = 254
        DataSource = DataSourceflxx
        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
            Width = 171
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '商品品牌设置'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 11
        Top = 72
        Width = 238
        Height = 193
        DataSource = DataSourceppxx
        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 = 197
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 241
        Height = 57
        Caption = '指定分类'
        TabOrder = 1
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 32
          Top = 19
          Width = 177
          Height = 22
          KeyField = 'flbh'
          ListField = 'flmc'
          ListSource = DataSourceflxx
          TabOrder = 0
          OnClick = DBLookupComboBox1Click
        end
      end
    end
  end
  object Button1: TButton
    Left = 304
    Top = 24
    Width = 75
    Height = 41
    Caption = '增加'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 304
    Top = 72
    Width = 75
    Height = 41
    Caption = '修改'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 304
    Top = 120
    Width = 75
    Height = 41
    Caption = '保存'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 304
    Top = 168
    Width = 75
    Height = 41
    Caption = '放弃'
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 304
    Top = 216
    Width = 75
    Height = 41
    Caption = '删除'
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 304
    Top = 264
    Width = 75
    Height = 41
    Caption = '退出'
    TabOrder = 6
    OnClick = Button6Click
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOTableflxxAfterInsert
    BeforePost = ADOTableflxxBeforePost
    TableName = 'flxx'
    Left = 44
    Top = 190
    object ADOTableflxxflbh: TWideStringField
      DisplayLabel = '分类编号'
      FieldName = 'flbh'
      EditMask = '9999;0;_'
      Size = 4
    end
    object ADOTableflxxflmc: TWideStringField
      DisplayLabel = '分类名称'
      FieldName = 'flmc'
    end
  end
  object DataSourceflxx: TDataSource
    DataSet = ADOTableflxx
    OnStateChange = DataSourceflxxStateChange
    Left = 44
    Top = 222
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 44
    Top = 294
  end
  object ADOQueryppxx: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOQueryppxxAfterInsert
    BeforePost = ADOQueryppxxBeforePost
    DataSource = DataSourceflxx
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from ppxx where gsfl=:flbh')
    Left = 128
    Top = 192
  end
  object DataSourceppxx: TDataSource
    DataSet = ADOQueryppxx
    OnStateChange = DataSourceppxxStateChange
    Left = 125
    Top = 225
  end
end