bjgl.dfm

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

object BjGlForm: TBjGlForm
  Left = 194
  Top = 114
  Width = 603
  Height = 437
  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 = 577
    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 = 561
      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 = 139
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'kcsl'
          Title.Alignment = taCenter
          Title.Caption = '库存数量'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'wjsl'
          Title.Alignment = taCenter
          Title.Caption = '外借数量'
          Width = 71
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bxdj'
          Title.Alignment = taCenter
          Title.Caption = '成本单价'
          Width = 82
          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 = 433
    Height = 177
    Caption = '指定操作'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label6: TLabel
      Left = 272
      Top = 32
      Width = 28
      Height = 14
      Caption = '数量'
    end
    object Label7: TLabel
      Left = 24
      Top = 128
      Width = 28
      Height = 14
      Caption = '备注'
    end
    object Label1: TLabel
      Left = 24
      Top = 32
      Width = 28
      Height = 14
      Caption = '分类'
    end
    object Label2: TLabel
      Left = 24
      Top = 80
      Width = 28
      Height = 14
      Caption = '种类'
    end
    object RadioButton1: TRadioButton
      Left = 272
      Top = 80
      Width = 49
      Height = 17
      Caption = '入库'
      TabOrder = 0
    end
    object RadioButton2: TRadioButton
      Left = 360
      Top = 80
      Width = 57
      Height = 17
      Caption = '冲销'
      TabOrder = 1
    end
    object MaskEdit1: TMaskEdit
      Left = 312
      Top = 32
      Width = 89
      Height = 22
      EditMask = '999999;0; '
      MaxLength = 6
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 64
      Top = 128
      Width = 177
      Height = 22
      TabOrder = 3
    end
    object Button1: TButton
      Left = 264
      Top = 120
      Width = 73
      Height = 33
      Caption = '执行'
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 344
      Top = 120
      Width = 73
      Height = 33
      Caption = '退出'
      TabOrder = 5
      OnClick = Button2Click
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 64
      Top = 32
      Width = 177
      Height = 22
      KeyField = 'flbh'
      ListField = 'flmc'
      ListSource = DataSource1
      TabOrder = 6
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 64
      Top = 80
      Width = 177
      Height = 22
      KeyField = 'pzbh'
      ListField = 'mc'
      ListSource = DataSource2
      TabOrder = 7
      OnClick = DBLookupComboBox2Click
    end
  end
  object GroupBox1: TGroupBox
    Left = 448
    Top = 224
    Width = 137
    Height = 177
    Caption = '库存清单'
    TabOrder = 2
    object Button3: TButton
      Left = 16
      Top = 120
      Width = 105
      Height = 33
      Caption = '打印'
      TabOrder = 0
      OnClick = Button3Click
    end
    object RadioGroup1: TRadioGroup
      Left = 16
      Top = 24
      Width = 105
      Height = 81
      Caption = '指定分类'
      ItemIndex = 0
      Items.Strings = (
        '当前分类'
        '当前品种'
        '全部库存')
      TabOrder = 1
    end
  end
  object ADOTable1: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 216
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 248
    Top = 80
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 328
    Top = 80
  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 = 56
    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
    Left = 96
    Top = 80
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select flxx.flmc,pjpzxx.mc,pjkc.* from pjkc,flxx,pjpzxx'
      'where flxx.flbh=pjpzxx.flbh and pjpzxx.flbh=pjkc.flbh'
      'and pjpzxx.pzbh=pjkc.pzbh')
    Left = 160
    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 = 296
    Top = 72
  end
end