pfm_yfkcl2.dfm

POS收银系统

object fm_yfkcl2: Tfm_yfkcl2
  Left = 219
  Top = 56
  Width = 805
  Height = 568
  Caption = '应付款明细表单'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox4: TGroupBox
    Left = 396
    Top = 0
    Width = 401
    Height = 541
    Align = alRight
    Caption = '进货商品数量及单价'
    TabOrder = 0
    object DBGrid3: TDBGrid
      Left = 2
      Top = 15
      Width = 397
      Height = 524
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource3
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 396
    Height = 541
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 1
    object GroupBox3: TGroupBox
      Left = 1
      Top = 65
      Width = 394
      Height = 475
      Align = alClient
      Caption = '应付款明细表'
      TabOrder = 0
      object DBGrid2: TDBGrid
        Left = 2
        Top = 15
        Width = 390
        Height = 458
        Align = alClient
        DataSource = DataSource2
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'lsh'
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fkcause'
            Width = 84
            Visible = True
          end
          item
            Color = clWhite
            Expanded = False
            FieldName = 'yfkje'
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = [fsBold]
            Width = 88
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'fkje'
            Font.Charset = ANSI_CHARSET
            Font.Color = clTeal
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = [fsBold]
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'sqje'
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = '宋体'
            Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'gysmc'
            Width = 86
            Visible = True
          end>
      end
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 394
      Height = 64
      Align = alTop
      Caption = '进货应付款表单'
      TabOrder = 1
      object RadioButton1: TRadioButton
        Left = 136
        Top = 24
        Width = 113
        Height = 17
        Caption = '未付清款项'
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 16
        Top = 24
        Width = 113
        Height = 17
        Caption = '所有应付款项'
        Checked = True
        TabOrder = 1
        TabStop = True
        OnClick = RadioButton2Click
      end
      object BitnAdd: TBitBtn
        Left = 268
        Top = 24
        Width = 89
        Height = 25
        Caption = '付款处理'
        TabOrder = 2
        OnClick = BitnAddClick
      end
    end
  end
  object ADOQuery2: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADOQuery2CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select tb_yfkmx.fkcause,tb_jhd.gysmc,tb_yfkmx.lsh,isnull(tb_yfkm' +
        'x.yfkje,0) as yfkje ,isnull((select sum(fkje) from tb_yfkcl wher' +
        'e tb_yfkmx.lsh=tb_yfkcl.lsh group by tb_yfkcl.lsh), 0) as fkje '
      'from tb_yfkmx,tb_jhd'
      'where tb_yfkmx.lsh=tb_jhd.lsh'
      'order by tb_yfkmx.lsh desc')
    Left = 56
    Top = 96
    object ADOQuery2fkcause: TStringField
      FieldName = 'fkcause'
      FixedChar = True
    end
    object ADOQuery2gysmc: TStringField
      FieldName = 'gysmc'
      FixedChar = True
      Size = 30
    end
    object ADOQuery2lsh: TIntegerField
      FieldName = 'lsh'
    end
    object ADOQuery2yfkje: TBCDField
      FieldName = 'yfkje'
      ReadOnly = True
      Precision = 18
      Size = 2
    end
    object ADOQuery2sqje: TFloatField
      FieldKind = fkCalculated
      FieldName = 'sqje'
      Calculated = True
    end
    object ADOQuery2fkje: TBCDField
      FieldName = 'fkje'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 56
    Top = 128
  end
  object ADOQuery3: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'lsh'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = 1095
      end>
    SQL.Strings = (
      
        'select tb_jhdmx.spbm,tb_jhdmx.sptxm,t_spxx.spmc,tb_jhdmx.jhnum,t' +
        'b_jhdmx.jhdj from tb_jhdmx,t_spxx'
      ' where tb_jhdmx.spbm=t_spxx.spbm and lsh=:lsh')
    Left = 376
    Top = 280
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 408
    Top = 280
  end
end