pfm_yfkcl.dfm

POS收银系统

object fm_yfkcl: Tfm_yfkcl
  Left = 207
  Top = 367
  Width = 663
  Height = 453
  Caption = '应付款处理'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 655
    Height = 89
    Align = alTop
    TabOrder = 0
    object Label9: TLabel
      Left = 244
      Top = 12
      Width = 52
      Height = 13
      Caption = '总计金额'
    end
    object Label11: TLabel
      Left = 20
      Top = 16
      Width = 65
      Height = 13
      Caption = '供应商代码'
    end
    object Label12: TLabel
      Left = 244
      Top = 40
      Width = 52
      Height = 13
      Caption = '已付金额'
    end
    object Label13: TLabel
      Left = 244
      Top = 64
      Width = 52
      Height = 13
      Caption = '尚欠金额'
    end
    object Label1: TLabel
      Left = 20
      Top = 60
      Width = 39
      Height = 13
      Caption = '流水号'
    end
    object Edit1: TEdit
      Left = 96
      Top = 12
      Width = 121
      Height = 21
      TabStop = False
      Color = clAqua
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 304
      Top = 36
      Width = 121
      Height = 21
      TabStop = False
      Color = clAqua
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 304
      Top = 12
      Width = 121
      Height = 21
      TabStop = False
      Color = clAqua
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      Text = 'Edit3'
    end
    object Edit4: TEdit
      Left = 304
      Top = 60
      Width = 121
      Height = 21
      TabStop = False
      Color = clAqua
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      Text = 'Edit4'
    end
    object BBtn_OK: TBitBtn
      Left = 540
      Top = 28
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 4
      OnClick = BBtn_OKClick
    end
    object Edit10: TEdit
      Left = 96
      Top = 60
      Width = 121
      Height = 21
      TabStop = False
      Color = clSilver
      ReadOnly = True
      TabOrder = 5
      Text = 'Edit10'
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 89
    Width = 655
    Height = 116
    Align = alTop
    TabOrder = 1
    object Label3: TLabel
      Left = 16
      Top = 64
      Width = 52
      Height = 13
      Caption = '付款金额'
    end
    object Label4: TLabel
      Left = 16
      Top = 24
      Width = 52
      Height = 13
      Caption = '付款日期'
    end
    object Label5: TLabel
      Left = 152
      Top = 64
      Width = 52
      Height = 13
      Caption = '付款方式'
    end
    object Label6: TLabel
      Left = 152
      Top = 24
      Width = 52
      Height = 13
      Caption = '单据号码'
    end
    object Label7: TLabel
      Left = 280
      Top = 64
      Width = 39
      Height = 13
      Caption = '经办人'
    end
    object Label8: TLabel
      Left = 280
      Top = 24
      Width = 39
      Height = 13
      Caption = '审核人'
    end
    object DTPicker1: TDateTimePicker
      Left = 16
      Top = 40
      Width = 125
      Height = 21
      CalAlignment = dtaLeft
      Date = 36720.4060236227
      Time = 36720.4060236227
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object BBtnAdd: TBitBtn
      Left = 544
      Top = 32
      Width = 75
      Height = 25
      Caption = '加入'
      TabOrder = 2
      OnClick = BBtnAddClick
    end
    object Edit5: TEdit
      Left = 152
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object Edit6: TEdit
      Left = 280
      Top = 40
      Width = 121
      Height = 21
      Color = clInfoBk
      ReadOnly = True
      TabOrder = 4
    end
    object Edit7: TEdit
      Left = 16
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 5
    end
    object Edit8: TEdit
      Left = 152
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 6
    end
    object Edit9: TEdit
      Left = 280
      Top = 80
      Width = 121
      Height = 21
      TabStop = False
      Color = clSilver
      ReadOnly = True
      TabOrder = 0
    end
    object BBtnshr: TBitBtn
      Left = 404
      Top = 39
      Width = 25
      Height = 25
      TabOrder = 7
      OnClick = BBtnshrClick
      Glyph.Data = {
        7E010000424D7E01000000000000760000002800000018000000160000000100
        0400000000000801000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00800000000000
        0000000000080777777777777777777777700F77777777777777777777700F88
        888888888888888887700F88888888888888888887700F888888800000000888
        87700F88888880FFFFFF088887700F8888880FFFFFFFF08887700F888880FFFF
        FFFFF08887700F888880FFFFFFFFF08887700F88880FF0FFFFFFF08887700F88
        80FF00F0F0F0F08887700F88800080F0F0F0F08887700F88888880F0F0F0F088
        87700F88888880F0F0F0F08887700F88888880F0F0F0088887700F88888880F0
        F0F0888887700F8888888800F008888887700F88888888800888888887700F88
        888888888888888887700FFFFFFFFFFFFFFFFFFFFF7080000000000000000000
        0008}
      Layout = blGlyphBottom
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 205
    Width = 655
    Height = 221
    Align = alClient
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 651
      Height = 204
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      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 DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 72
    Top = 180
  end
  object StProc1: TStoredProc
    DatabaseName = 'posdb'
    StoredProcName = 'proc_getYfjeByLsh;1'
    Left = 392
    Top = 272
  end
  object ADOQuery1: TADOQuery
    Connection = AdoDm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        DataType = ftString
        Size = 4
        Value = '1001'
      end>
    SQL.Strings = (
      'select * from tb_yfkcl where lsh=:lsh')
    Left = 36
    Top = 181
    object ADOQuery1fkcause: TStringField
      FieldName = 'fkcause'
      FixedChar = True
    end
    object ADOQuery1lsh: TIntegerField
      FieldName = 'lsh'
    end
    object ADOQuery1fkje: TBCDField
      FieldName = 'fkje'
      Precision = 18
      Size = 2
    end
    object ADOQuery1fkrq: TDateTimeField
      FieldName = 'fkrq'
    end
    object ADOQuery1fkfs: TStringField
      FieldName = 'fkfs'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1djhm: TStringField
      FieldName = 'djhm'
      FixedChar = True
      Size = 16
    end
    object ADOQuery1jsrm: TStringField
      FieldName = 'jsrm'
      FixedChar = True
      Size = 10
    end
    object ADOQuery1shrm: TStringField
      FieldName = 'shrm'
      FixedChar = True
      Size = 10
    end
  end
  object ADOQuery2: TADOQuery
    Connection = AdoDm.ADOConnection1
    Parameters = <>
    Left = 244
    Top = 109
  end
end