bjls.dfm

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

object BjLsForm: TBjLsForm
  Left = 192
  Top = 122
  Width = 616
  Height = 366
  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 GroupBox2: TGroupBox
    Left = 8
    Top = 8
    Width = 593
    Height = 209
    Caption = '配件选择'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 577
      Height = 185
      DataSource = DataSource4
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'mc'
          Title.Alignment = taCenter
          Width = 184
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'kcsl'
          Title.Alignment = taCenter
          Title.Caption = '库存数量'
          Width = 93
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'lsdj'
          Title.Alignment = taCenter
          Title.Caption = '零售单价'
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bz'
          Title.Alignment = taCenter
          Width = 148
          Visible = True
        end>
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 224
    Width = 593
    Height = 105
    Caption = '指定操作'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label6: TLabel
      Left = 208
      Top = 24
      Width = 28
      Height = 14
      Caption = '数量'
    end
    object Label7: TLabel
      Left = 208
      Top = 64
      Width = 28
      Height = 14
      Caption = '备注'
    end
    object Label9: TLabel
      Left = 400
      Top = 24
      Width = 28
      Height = 14
      Caption = '金额'
    end
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 28
      Height = 14
      Caption = '分类'
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 28
      Height = 14
      Caption = '种类'
    end
    object Edit1: TEdit
      Left = 248
      Top = 64
      Width = 193
      Height = 22
      TabOrder = 0
    end
    object Button1: TButton
      Left = 456
      Top = 64
      Width = 57
      Height = 25
      Caption = '执行'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 520
      Top = 64
      Width = 57
      Height = 25
      Caption = '退出'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Edit4: TEdit
      Left = 440
      Top = 24
      Width = 137
      Height = 22
      ReadOnly = True
      TabOrder = 3
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 56
      Top = 24
      Width = 137
      Height = 22
      KeyField = 'flbh'
      ListField = 'flmc'
      ListSource = DataSource1
      TabOrder = 4
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 56
      Top = 64
      Width = 137
      Height = 22
      KeyField = 'pzbh'
      ListField = 'mc'
      ListSource = DataSource2
      TabOrder = 5
      OnClick = DBLookupComboBox2Click
    end
    object MaskEdit1: TMaskEdit
      Left = 248
      Top = 24
      Width = 89
      Height = 22
      EditMask = '!999999;0; '
      MaxLength = 6
      TabOrder = 6
      OnChange = MaskEdit1Change
    end
  end
  object ADOTable1: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 200
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 240
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 336
    Top = 88
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterPost = ADOQuery1AfterPost
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'flbh'
        DataType = ftString
        Size = 4
        Value = '0001'
      end
      item
        Name = 'pzbh'
        DataType = ftString
        Size = 4
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from pjkc where flbh=:flbh and pzbh=:pzbh')
    Left = 64
    Top = 80
    object ADOQuery1pjbh: TWideStringField
      FieldName = 'pjbh'
      Size = 5
    end
    object ADOQuery1flbh: TWideStringField
      FieldName = 'flbh'
      Size = 4
    end
    object ADOQuery1pzbh: TWideStringField
      FieldName = 'pzbh'
      Size = 4
    end
    object ADOQuery1mc: TWideStringField
      DisplayLabel = '名称'
      FieldName = 'mc'
      Size = 30
    end
    object ADOQuery1bxdj: TBCDField
      FieldName = 'bxdj'
      Precision = 19
    end
    object ADOQuery1lsdj: TBCDField
      FieldName = 'lsdj'
      Precision = 19
    end
    object ADOQuery1kcsl: TIntegerField
      FieldName = 'kcsl'
    end
    object ADOQuery1wjsl: TIntegerField
      FieldName = 'wjsl'
    end
    object ADOQuery1bz: TWideStringField
      DisplayLabel = '备注'
      FieldName = 'bz'
      Size = 30
    end
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery1
    OnStateChange = DataSource4StateChange
    OnDataChange = DataSource4DataChange
    Left = 96
    Top = 88
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 144
    Top = 80
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'flbh'
        DataType = ftString
        Size = 4
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from pjpzxx where flbh =:flbh')
    Left = 288
    Top = 88
  end
end