wm_tk.dfm

汽配前台收费,一个具有详细功能的小系统

      NumGlyphs = 2
    end
    object pe_edit: TPanel
      Left = 448
      Top = 4
      Width = 305
      Height = 27
      BevelOuter = bvLowered
      Color = clBtnShadow
      Enabled = False
      TabOrder = 4
      object Label2: TLabel
        Left = 8
        Top = 6
        Width = 59
        Height = 13
        Caption = #36864#36135#25968#37327':'
      end
      object Label3: TLabel
        Left = 148
        Top = 6
        Width = 59
        Height = 13
        Caption = #36820#27454#37329#39069':'
      end
      object txt_sum: TEdit
        Tag = 1
        Left = 68
        Top = 2
        Width = 72
        Height = 21
        TabOrder = 0
        OnChange = ControlChange
        OnKeyPress = controlKeyPress2
      end
      object txt_jj: TEdit
        Tag = 2
        Left = 208
        Top = 2
        Width = 92
        Height = 21
        TabOrder = 1
        OnChange = ControlChange
        OnKeyPress = controlKeyPress1
      end
    end
  end
  object qe_wm: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    RequestLive = True
    SQL.Strings = (
      'select * from wm_gl where wm_bh = :ibh and wm_zf_bs = 0 ')
    Left = 264
    Top = 100
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object ds_wm: TDataSource
    DataSet = qe_wm
    Left = 208
    Top = 100
  end
  object qe_sum: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select isnull(sum(pj_fk_sum * pj_dj - pj_other), 0) as pj_zj fro' +
        'm wm_gl where wm_bh = :ibh and wm_zf_bs = 0 group by wm_bh ')
    Left = 312
    Top = 100
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_sum1: TQuery
    OnCalcFields = qe_sum1CalcFields
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select * from wm_gl where wm_bh = :ibh and wm_zf_bs = 0 and pj_f' +
        'k_sum > 0 ')
    Left = 368
    Top = 100
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
    object qe_sum1wm_id: TIntegerField
      FieldName = 'wm_id'
      Origin = 'DN_QP3.wm_gl.wm_id'
    end
    object qe_sum1wm_bh: TStringField
      FieldName = 'wm_bh'
      Origin = 'DN_QP3.wm_gl.wm_bh'
      FixedChar = True
      Size = 16
    end
    object qe_sum1wm_year: TSmallintField
      FieldName = 'wm_year'
      Origin = 'DN_QP3.wm_gl.wm_year'
    end
    object qe_sum1wm_month: TSmallintField
      FieldName = 'wm_month'
      Origin = 'DN_QP3.wm_gl.wm_month'
    end
    object qe_sum1wm_day: TSmallintField
      FieldName = 'wm_day'
      Origin = 'DN_QP3.wm_gl.wm_day'
    end
    object qe_sum1wm_date: TStringField
      FieldName = 'wm_date'
      Origin = 'DN_QP3.wm_gl.wm_date'
      FixedChar = True
      Size = 10
    end
    object qe_sum1pj_kind_id: TStringField
      FieldName = 'pj_kind_id'
      Origin = 'DN_QP3.wm_gl.pj_kind_id'
      FixedChar = True
    end
    object qe_sum1pj_kind: TStringField
      FieldName = 'pj_kind'
      Origin = 'DN_QP3.wm_gl.pj_kind'
      FixedChar = True
      Size = 30
    end
    object qe_sum1pj_gg_id: TStringField
      FieldName = 'pj_gg_id'
      Origin = 'DN_QP3.wm_gl.pj_gg_id'
      FixedChar = True
    end
    object qe_sum1pj_gg: TStringField
      FieldName = 'pj_gg'
      Origin = 'DN_QP3.wm_gl.pj_gg'
      FixedChar = True
      Size = 30
    end
    object qe_sum1pj_id: TStringField
      FieldName = 'pj_id'
      Origin = 'DN_QP3.wm_gl.pj_id'
      FixedChar = True
    end
    object qe_sum1pj_name: TStringField
      FieldName = 'pj_name'
      Origin = 'DN_QP3.wm_gl.pj_name'
      FixedChar = True
      Size = 30
    end
    object qe_sum1pj_ck_sum: TFloatField
      FieldName = 'pj_ck_sum'
      Origin = 'DN_QP3.wm_gl.pj_ck_sum'
    end
    object qe_sum1pj_fk_sum: TFloatField
      FieldName = 'pj_fk_sum'
      Origin = 'DN_QP3.wm_gl.pj_fk_sum'
    end
    object qe_sum1pj_unit: TStringField
      FieldName = 'pj_unit'
      Origin = 'DN_QP3.wm_gl.pj_unit'
      FixedChar = True
      Size = 10
    end
    object qe_sum1pj_dj: TFloatField
      FieldName = 'pj_dj'
      Origin = 'DN_QP3.wm_gl.pj_dj'
    end
    object qe_sum1pj_jj: TFloatField
      FieldName = 'pj_jj'
      Origin = 'DN_QP3.wm_gl.pj_jj'
    end
    object qe_sum1pj_ghdw: TStringField
      FieldName = 'pj_ghdw'
      Origin = 'DN_QP3.wm_gl.pj_ghdw'
      FixedChar = True
      Size = 50
    end
    object qe_sum1pj_czr: TStringField
      FieldName = 'pj_czr'
      Origin = 'DN_QP3.wm_gl.pj_czr'
      FixedChar = True
      Size = 10
    end
    object qe_sum1pj_other: TFloatField
      FieldName = 'pj_other'
      Origin = 'DN_QP3.wm_gl.pj_other'
    end
    object qe_sum1pj_other1: TFloatField
      FieldName = 'pj_other1'
      Origin = 'DN_QP3.wm_gl.pj_other1'
    end
    object qe_sum1edit_type: TSmallintField
      FieldName = 'edit_type'
      Origin = 'DN_QP3.wm_gl.edit_type'
    end
    object qe_sum1pj_print: TSmallintField
      FieldName = 'pj_print'
      Origin = 'DN_QP3.wm_gl.pj_print'
    end
    object qe_sum1wm_zf_bs: TSmallintField
      FieldName = 'wm_zf_bs'
      Origin = 'DN_QP3.wm_gl.wm_zf_bs'
    end
    object qe_sum1pj_fk: TFloatField
      FieldKind = fkCalculated
      FieldName = 'pj_fk'
      Calculated = True
    end
  end
  object sp_update_wm_gl: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UPDATE_WM_GL;1'
    Left = 416
    Top = 108
    ParamData = <
      item
        DataType = ftString
        Name = '@ibh'
        ParamType = ptInput
      end>
  end
  object sp_up_pj_ck: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'UPDATE_PJ_CK1;1'
    Left = 496
    Top = 96
    ParamData = <
      item
        DataType = ftSmallint
        Name = '@ipos'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@ipj_sum'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ipj_kind_id'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ipj_gg_id'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ipj_id'
        ParamType = ptInput
      end>
  end
  object qe_jy: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    Left = 560
    Top = 108
  end
  object sp_insert_into_day: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'INSERT_INTO_DAY_ACCOUNT;1'
    Left = 597
    Top = 112
    ParamData = <
      item
        DataType = ftString
        Name = '@idate'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@izy'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@ikm'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@ijf'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@idf'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@izy_id'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@idj_bh'
        ParamType = ptInput
      end>
  end
  object sp_insert_into_sj: TStoredProc
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    StoredProcName = 'INSERT_INTO_SJ;1'
    Left = 513
    Top = 129
    ParamData = <
      item
        DataType = ftSmallint
        Name = '@iyear'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@imonth'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@iday'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@ikind'
        ParamType = ptInput
      end>
  end
end