pfm_spbmlb.dfm

POS收银系统

object fm_spbmlb: Tfm_spbmlb
  Left = 232
  Top = 129
  Width = 479
  Height = 400
  Caption = '商品编码类别'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 197
    Height = 373
    Align = alLeft
    Caption = '商品大类'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 193
      Height = 285
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'dlbm'
          Title.Caption = '大类编码'
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'miaoshu'
          Title.Caption = '描述'
          Width = 101
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 300
      Width = 193
      Height = 71
      Align = alBottom
      Caption = 'Panel1'
      TabOrder = 1
      object DBNavigator1: TDBNavigator
        Left = 16
        Top = 24
        Width = 156
        Height = 25
        DataSource = DataSource1
        VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 0
      end
    end
  end
  object GroupBox2: TGroupBox
    Left = 197
    Top = 0
    Width = 274
    Height = 373
    Align = alClient
    Caption = '商品中类'
    TabOrder = 1
    object DBGrid2: TDBGrid
      Left = 2
      Top = 15
      Width = 270
      Height = 285
      Align = alClient
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'xlbm'
          Title.Caption = '小类编码'
          Width = 58
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'miaoshu'
          Title.Caption = '描述'
          Width = 157
          Visible = True
        end>
    end
    object Panel2: TPanel
      Left = 2
      Top = 300
      Width = 270
      Height = 71
      Align = alBottom
      Caption = 'Panel2'
      TabOrder = 1
      object lbltishi: TLabel
        Left = 12
        Top = 4
        Width = 39
        Height = 13
        Caption = '提示：'
      end
      object DBNavigator2: TDBNavigator
        Left = 52
        Top = 24
        Width = 156
        Height = 25
        DataSource = DataSource2
        VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 0
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 80
    Top = 36
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 265
    Top = 40
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    BeforePost = ADOQuery1BeforePost
    Parameters = <>
    SQL.Strings = (
      'select dlbm,lb,miaoshu from t_spbmlb where lb='#39'大类'#39)
    Left = 28
    Top = 44
  end
  object ADOQuery2: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    BeforeInsert = ADOQuery2BeforeInsert
    BeforePost = ADOQuery2BeforePost
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'dlbm'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'select * from t_spbmlb where dlbm=:dlbm and lb='#39'小类'#39)
    Left = 201
    Top = 48
  end
end