pfm_yskcl2.dfm

POS收银系统

object fm_yskcl2: Tfm_yskcl2
  Left = 211
  Top = 125
  Width = 797
  Height = 578
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 393
    Height = 551
    Align = alLeft
    Caption = '应收款表单'
    TabOrder = 0
    object GroupBox3: TGroupBox
      Left = 2
      Top = 93
      Width = 389
      Height = 456
      Align = alClient
      Caption = '应收款明细表'
      TabOrder = 0
      object DBGrid2: TDBGrid
        Left = 2
        Top = 15
        Width = 385
        Height = 439
        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 = []
      end
    end
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 389
      Height = 78
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object Label1: TLabel
        Left = 20
        Top = 0
        Width = 65
        Height = 13
        Caption = '应收款分类'
      end
      object RadioButton1: TRadioButton
        Left = 136
        Top = 53
        Width = 113
        Height = 17
        Caption = '未收清款项'
        TabOrder = 0
        Visible = False
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 16
        Top = 53
        Width = 113
        Height = 17
        Caption = '所有应收款项'
        Checked = True
        TabOrder = 1
        TabStop = True
        Visible = False
        OnClick = RadioButton2Click
      end
      object ComboBox1: TComboBox
        Left = 20
        Top = 20
        Width = 145
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        OnChange = ComboBox1Change
        Items.Strings = (
          '批发'
          '退货')
      end
      object BBtnYsk: TBitBtn
        Left = 260
        Top = 20
        Width = 75
        Height = 25
        Caption = '收款处理'
        TabOrder = 3
        OnClick = BBtnYskClick
      end
    end
  end
  object GroupBox4: TGroupBox
    Left = 393
    Top = 0
    Width = 396
    Height = 551
    Align = alClient
    Caption = '批发商品数量及单价'
    TabOrder = 1
    object DBGrid3: TDBGrid
      Left = 2
      Top = 15
      Width = 392
      Height = 534
      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 ADOQuery2: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADOQuery2CalcFields
    Parameters = <>
    SQL.Strings = (
      
        'select tb_yskmx.skcause,tb_yskmx.lsh,tb_pfd.khmc,isnull(tb_yskmx' +
        '.yskje,0) as yskje ,isnull((select sum(skje) from tb_yskcl where' +
        ' tb_yskmx.lsh=tb_yskcl.lsh and tb_yskcl.skcause='#39'批发'#39' group by ' +
        'tb_yskcl.lsh), 0) as skje '
      'from tb_yskmx,tb_pfd'
      'where tb_yskmx.lsh=tb_pfd.lsh'
      'and tb_yskmx.skcause='#39'批发'#39
      'order by tb_yskmx.lsh desc')
    Left = 280
    Top = 148
    object ADOQuery2skcause: TStringField
      DisplayWidth = 15
      FieldName = 'skcause'
      FixedChar = True
    end
    object ADOQuery2lsh: TIntegerField
      DisplayWidth = 10
      FieldName = 'lsh'
    end
    object ADOQuery2yskje: TBCDField
      DisplayWidth = 13
      FieldName = 'yskje'
      ReadOnly = True
      Precision = 18
      Size = 2
    end
    object ADOQuery2skje: TBCDField
      DisplayWidth = 33
      FieldName = 'skje'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object ADOQuery2sqje: TFloatField
      DisplayWidth = 10
      FieldKind = fkCalculated
      FieldName = 'sqje'
      Calculated = True
    end
    object ADOQuery2khmc: TStringField
      FieldName = 'khmc'
      FixedChar = True
      Size = 30
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 312
    Top = 144
  end
  object ADOQuery3: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'lsh'
        DataType = ftInteger
        Value = 1001
      end>
    Prepared = True
    SQL.Strings = (
      
        'select tb_pfdmx.spbm,tb_pfdmx.sptxm,spmc,pfnum,pfdj,tb_pfdmx.yhl' +
        ',pfsl,djhm from tb_pfdmx,t_spxx where tb_pfdmx.spbm=t_spxx.spbm ' +
        'and lsh=:lsh')
    Left = 376
    Top = 280
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 408
    Top = 280
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    DataSource = DataSource2
    Parameters = <
      item
        Name = 'lsh'
        DataType = ftString
        Size = 4
        Value = '1001'
      end>
    Prepared = True
    SQL.Strings = (
      
        'select tb_sptuihuodmx.spbm,tb_sptuihuodmx.sptxm,spmc,spnum,spthd' +
        'j,djhm from tb_sptuihuodmx,t_spxx where t_spxx.spbm=tb_sptuihuod' +
        'mx.spbm and lsh=:lsh')
    Left = 310
    Top = 225
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 274
    Top = 225
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 254
    Top = 189
  end
  object ADOQuery4: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    OnCalcFields = ADOQuery4CalcFields
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      
        'select tb_yskmx.skcause,tb_yskmx.lsh,tb_sptuihuod.gysmc,isnull(t' +
        'b_yskmx.yskje,0) as yskje ,isnull((select sum(skje) from tb_yskc' +
        'l where tb_yskmx.lsh=tb_yskcl.lsh and tb_yskcl.skcause='#39'退货'#39' gr' +
        'oup by tb_yskcl.lsh), 0) as skje '
      'from tb_yskmx,tb_sptuihuod '
      'where tb_yskmx.lsh=tb_sptuihuod.lsh and tb_yskmx.skcause='#39'退货'#39
      ' order by tb_yskmx.lsh desc')
    Left = 220
    Top = 188
    object StringField1: TStringField
      FieldName = 'skcause'
      FixedChar = True
    end
    object IntegerField1: TIntegerField
      FieldName = 'lsh'
    end
    object BCDField1: TBCDField
      FieldName = 'yskje'
      ReadOnly = True
      Precision = 18
      Size = 2
    end
    object BCDField2: TBCDField
      FieldName = 'skje'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object FloatField1: TFloatField
      FieldKind = fkCalculated
      FieldName = 'sqje'
      Calculated = True
    end
    object ADOQuery4gysmc: TStringField
      FieldName = 'gysmc'
      FixedChar = True
    end
  end
end