pfm_yskcl.dfm

POS收银系统

object fm_yfkcl: Tfm_yfkcl
  Left = 154
  Top = 104
  Width = 643
  Height = 449
  Caption = 'fm_yfkcl'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 328
    Width = 48
    Height = 13
    Caption = '付款原因'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 24
    Top = 368
    Width = 36
    Height = 13
    Caption = '流水号'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 160
    Top = 328
    Width = 48
    Height = 13
    Caption = '付款金额'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 160
    Top = 368
    Width = 48
    Height = 13
    Caption = '付款日期'
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 296
    Top = 328
    Width = 48
    Height = 13
    Caption = '付款方式'
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 296
    Top = 368
    Width = 48
    Height = 13
    Caption = '单据号码'
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 416
    Top = 328
    Width = 36
    Height = 13
    Caption = '经办人'
    FocusControl = DBEdit7
  end
  object Label8: TLabel
    Left = 416
    Top = 368
    Width = 36
    Height = 13
    Caption = '审核人'
    FocusControl = DBEdit8
  end
  object DBEdit1: TDBEdit
    Left = 24
    Top = 344
    Width = 124
    Height = 21
    DataField = 'fkcause'
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 24
    Top = 384
    Width = 64
    Height = 21
    DataField = 'lsh'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit3: TDBEdit
    Left = 160
    Top = 344
    Width = 64
    Height = 21
    DataField = 'fkje'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit4: TDBEdit
    Left = 160
    Top = 384
    Width = 112
    Height = 21
    DataField = 'fkrq'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit5: TDBEdit
    Left = 296
    Top = 344
    Width = 64
    Height = 21
    DataField = 'fkfs'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit6: TDBEdit
    Left = 296
    Top = 384
    Width = 100
    Height = 21
    DataField = 'djhm'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit7: TDBEdit
    Left = 416
    Top = 344
    Width = 64
    Height = 21
    DataField = 'jsrm'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBEdit8: TDBEdit
    Left = 416
    Top = 384
    Width = 64
    Height = 21
    DataField = 'shrm'
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 635
    Height = 225
    Align = alTop
    Color = clInfoBk
    DataSource = DataSource2
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 232
    Width = 609
    Height = 73
    TabOrder = 9
    object Label9: TLabel
      Left = 320
      Top = 16
      Width = 48
      Height = 13
      Caption = '总计金额'
    end
    object Label10: TLabel
      Left = 16
      Top = 40
      Width = 48
      Height = 13
      Caption = '进货仓库'
    end
    object Label11: TLabel
      Left = 16
      Top = 16
      Width = 60
      Height = 13
      Caption = '进货流水号'
    end
    object Edit1: TEdit
      Left = 88
      Top = 16
      Width = 121
      Height = 21
      Color = clAqua
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 88
      Top = 40
      Width = 121
      Height = 21
      Color = clAqua
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit3: TEdit
      Left = 384
      Top = 16
      Width = 121
      Height = 21
      Color = clAqua
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 2
      Text = 'Edit3'
    end
  end
  object BBtn_OK: TBitBtn
    Left = 520
    Top = 344
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 10
    OnClick = BBtn_OKClick
  end
  object BBtn_Cancel: TBitBtn
    Left = 520
    Top = 384
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 11
    OnClick = BBtn_CancelClick
  end
  object Query1: TQuery
    DatabaseName = 'posdb'
    RequestLive = True
    SQL.Strings = (
      'select * from tb_yfkcl where lsh=:lsh')
    Left = 24
    Top = 296
    ParamData = <
      item
        DataType = ftString
        Name = 'lsh'
        ParamType = ptUnknown
        Value = '1'
      end>
    object Query1id: TIntegerField
      FieldName = 'id'
      Origin = 'POSDB."dbo.tb_yfkcl".id'
    end
    object Query1fkcause: TStringField
      FieldName = 'fkcause'
      Origin = 'POSDB."dbo.tb_yfkcl".fkcause'
      FixedChar = True
    end
    object Query1lsh: TIntegerField
      FieldName = 'lsh'
      Origin = 'POSDB."dbo.tb_yfkcl".lsh'
    end
    object Query1fkje: TFloatField
      FieldName = 'fkje'
      Origin = 'POSDB."dbo.tb_yfkcl".fkje'
    end
    object Query1fkrq: TDateTimeField
      FieldName = 'fkrq'
      Origin = 'POSDB."dbo.tb_yfkcl".fkrq'
    end
    object Query1fkfs: TStringField
      FieldName = 'fkfs'
      Origin = 'POSDB."dbo.tb_yfkcl".fkfs'
      FixedChar = True
      Size = 10
    end
    object Query1djhm: TStringField
      FieldName = 'djhm'
      Origin = 'POSDB."dbo.tb_yfkcl".djhm'
      FixedChar = True
      Size = 16
    end
    object Query1jsrm: TStringField
      FieldName = 'jsrm'
      Origin = 'POSDB."dbo.tb_yfkcl".jsrm'
      FixedChar = True
      Size = 10
    end
    object Query1shrm: TStringField
      FieldName = 'shrm'
      Origin = 'POSDB."dbo.tb_yfkcl".shrm'
      FixedChar = True
      Size = 10
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 56
    Top = 296
  end
  object Query2: TQuery
    OnCalcFields = Query2CalcFields
    DatabaseName = 'posdb'
    SQL.Strings = (
      'select * from v_yfktishi where lsh=:lsh')
    Left = 8
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'lsh'
        ParamType = ptUnknown
      end>
    object Query2lsh: TIntegerField
      FieldName = 'lsh'
      Origin = 'POSDB."dbo.v_yfktishi".lsh'
    end
    object Query2ckmc: TStringField
      FieldName = 'ckmc'
      Origin = 'POSDB."dbo.v_yfktishi".ckmc'
      FixedChar = True
    end
    object Query2SPMC: TStringField
      FieldName = 'SPMC'
      Origin = 'POSDB."dbo.v_yfktishi".SPMC'
    end
    object Query2sptxm: TStringField
      FieldName = 'sptxm'
      Origin = 'POSDB."dbo.v_yfktishi".sptxm'
      FixedChar = True
      Size = 13
    end
    object Query2spbm: TStringField
      FieldName = 'spbm'
      Origin = 'POSDB."dbo.v_yfktishi".spbm'
      FixedChar = True
      Size = 6
    end
    object Query2jhnum: TIntegerField
      FieldName = 'jhnum'
      Origin = 'POSDB."dbo.v_yfktishi".jhnum'
    end
    object Query2jhdj: TFloatField
      FieldName = 'jhdj'
      Origin = 'POSDB."dbo.v_yfktishi".jhdj'
    end
    object Query2total: TFloatField
      FieldKind = fkCalculated
      FieldName = 'total'
      Calculated = True
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 48
    Top = 16
  end
  object StProc1: TStoredProc
    DatabaseName = 'posdb'
    StoredProcName = 'proc_getYfjeByLsh;1'
    Left = 392
    Top = 272
  end
end