qt_js.dfm

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

      Font.Color = clYellow
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 554
      Top = 10
      Width = 33
      Height = 13
      Caption = #36710#22411':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 397
      Top = 10
      Width = 59
      Height = 13
      Caption = #36710#20027#22995#21517':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 19
      Top = 36
      Width = 59
      Height = 13
      Caption = #32500#20462#31867#22411':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 208
      Top = 36
      Width = 59
      Height = 13
      Caption = #20445#38505#31867#22411':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 397
      Top = 36
      Width = 59
      Height = 13
      Caption = #36710#20027#21333#20301':'
      Font.Charset = GB2312_CHARSET
      Font.Color = clYellow
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object txt_time: TDBEdit
      Left = 80
      Top = 5
      Width = 121
      Height = 21
      DataField = 'dj_time'
      DataSource = ds_jy1
      TabOrder = 0
    end
    object txt_cph: TDBEdit
      Left = 269
      Top = 5
      Width = 121
      Height = 21
      DataField = 'dj_cph'
      DataSource = ds_jy1
      TabOrder = 1
    end
    object txt_cx: TDBEdit
      Left = 589
      Top = 5
      Width = 87
      Height = 21
      DataField = 'dj_cx'
      DataSource = ds_jy1
      TabOrder = 2
    end
    object txt_cz: TDBEdit
      Left = 458
      Top = 5
      Width = 90
      Height = 21
      DataField = 'dj_cz'
      DataSource = ds_jy1
      TabOrder = 3
    end
    object txt_wx: TDBEdit
      Left = 80
      Top = 31
      Width = 121
      Height = 21
      DataField = 'dj_wx_kind'
      DataSource = ds_jy1
      TabOrder = 4
    end
    object txt_bx: TDBEdit
      Left = 269
      Top = 31
      Width = 121
      Height = 21
      DataField = 'dj_bx_kind'
      DataSource = ds_jy1
      TabOrder = 5
    end
    object txt_dw: TDBEdit
      Left = 458
      Top = 31
      Width = 218
      Height = 21
      DataField = 'dj_czdw'
      DataSource = ds_jy1
      TabOrder = 6
    end
  end
  object Panel3: TPanel
    Left = 441
    Top = 225
    Width = 259
    Height = 111
    BevelInner = bvLowered
    TabOrder = 6
    object DBGrid3: TDBGrid
      Left = 5
      Top = 5
      Width = 248
      Height = 100
      DataSource = ds_other_add
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'o_name'
          Title.Alignment = taCenter
          Title.Caption = #39033#30446#21517#31216
          Width = 146
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'o_je1'
          Title.Alignment = taCenter
          Title.Caption = #37329#39069#65509
          Width = 79
          Visible = True
        end>
    end
  end
  object qe_jy1: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select * from cl_dj where dj_zf_bs = 0 and dj_js_bs = 0 and dj_b' +
        'h = :ibh')
    Left = 16
    Top = 149
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_gs_add: TQuery
    OnCalcFields = qe_gs_addCalcFields
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from gs_ad where dj_bh = :ibh')
    Left = 96
    Top = 149
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
    object qe_gs_addpj_id: TIntegerField
      FieldName = 'pj_id'
      Origin = 'DN_QP3.gs_ad.pj_id'
    end
    object qe_gs_adddj_bh: TStringField
      FieldName = 'dj_bh'
      Origin = 'DN_QP3.gs_ad.dj_bh'
      FixedChar = True
      Size = 16
    end
    object qe_gs_addgs_text: TStringField
      FieldName = 'gs_text'
      Origin = 'DN_QP3.gs_ad.gs_text'
      FixedChar = True
      Size = 50
    end
    object qe_gs_addgs_sum: TFloatField
      FieldName = 'gs_sum'
      Origin = 'DN_QP3.gs_ad.gs_sum'
    end
    object qe_gs_addgs_dj: TFloatField
      FieldName = 'gs_dj'
      Origin = 'DN_QP3.gs_ad.gs_dj'
    end
    object qe_gs_addgs_zj: TFloatField
      FieldName = 'gs_zj'
      Origin = 'DN_QP3.gs_ad.gs_zj'
    end
    object qe_gs_addgs_pg: TStringField
      FieldName = 'gs_pg'
      Origin = 'DN_QP3.gs_ad.gs_pg'
      FixedChar = True
      Size = 10
    end
    object qe_gs_addgs_pg_id: TStringField
      FieldName = 'gs_pg_id'
      Origin = 'DN_QP3.gs_ad.gs_pg_id'
      FixedChar = True
      Size = 10
    end
    object qe_gs_addgs_zf_bs: TSmallintField
      FieldName = 'gs_zf_bs'
      Origin = 'DN_QP3.gs_ad.gs_zf_bs'
    end
    object qe_gs_addgs_dj1: TStringField
      FieldKind = fkCalculated
      FieldName = 'gs_dj1'
      Calculated = True
    end
    object qe_gs_addgs_zj1: TStringField
      FieldKind = fkCalculated
      FieldName = 'gs_zj1'
      Calculated = True
    end
  end
  object ds_gs_add: TDataSource
    DataSet = qe_gs_add
    Left = 124
    Top = 149
  end
  object qe_pj_add: TQuery
    OnCalcFields = qe_pj_addCalcFields
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from pj_add where dj_bh = :ibh')
    Left = 16
    Top = 177
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
    object qe_pj_addpj_id: TIntegerField
      FieldName = 'pj_id'
      Origin = 'DN_QP3.pj_add.pj_id'
    end
    object qe_pj_adddj_bh: TStringField
      FieldName = 'dj_bh'
      Origin = 'DN_QP3.pj_add.dj_bh'
      FixedChar = True
      Size = 16
    end
    object qe_pj_addpj_kind_id: TStringField
      FieldName = 'pj_kind_id'
      Origin = 'DN_QP3.pj_add.pj_kind_id'
      FixedChar = True
    end
    object qe_pj_addpj_kind: TStringField
      FieldName = 'pj_kind'
      Origin = 'DN_QP3.pj_add.pj_kind'
      FixedChar = True
      Size = 30
    end
    object qe_pj_addpj_gg_id: TStringField
      FieldName = 'pj_gg_id'
      Origin = 'DN_QP3.pj_add.pj_gg_id'
      FixedChar = True
    end
    object qe_pj_addpj_gg: TStringField
      FieldName = 'pj_gg'
      Origin = 'DN_QP3.pj_add.pj_gg'
      FixedChar = True
      Size = 30
    end
    object qe_pj_addpj_iid: TStringField
      FieldName = 'pj_iid'
      Origin = 'DN_QP3.pj_add.pj_iid'
      FixedChar = True
    end
    object qe_pj_addpj_name: TStringField
      FieldName = 'pj_name'
      Origin = 'DN_QP3.pj_add.pj_name'
      FixedChar = True
      Size = 30
    end
    object qe_pj_addpj_sy_sum: TFloatField
      FieldName = 'pj_sy_sum'
      Origin = 'DN_QP3.pj_add.pj_sy_sum'
    end
    object qe_pj_addpj_ck_sum: TFloatField
      FieldName = 'pj_ck_sum'
      Origin = 'DN_QP3.pj_add.pj_ck_sum'
    end
    object qe_pj_addpj_xz_sum: TFloatField
      FieldName = 'pj_xz_sum'
      Origin = 'DN_QP3.pj_add.pj_xz_sum'
    end
    object qe_pj_addpj_fk_sum: TFloatField
      FieldName = 'pj_fk_sum'
      Origin = 'DN_QP3.pj_add.pj_fk_sum'
    end
    object qe_pj_addpj_unit: TStringField
      FieldName = 'pj_unit'
      Origin = 'DN_QP3.pj_add.pj_unit'
      FixedChar = True
      Size = 10
    end
    object qe_pj_addpj_dj: TFloatField
      FieldName = 'pj_dj'
      Origin = 'DN_QP3.pj_add.pj_dj'
    end
    object qe_pj_addpj_jj: TFloatField
      FieldName = 'pj_jj'
      Origin = 'DN_QP3.pj_add.pj_jj'
    end
    object qe_pj_addpj_sb: TStringField
      FieldName = 'pj_sb'
      Origin = 'DN_QP3.pj_add.pj_sb'
      FixedChar = True
      Size = 10
    end
    object qe_pj_addpj_zf_bs: TSmallintField
      FieldName = 'pj_zf_bs'
      Origin = 'DN_QP3.pj_add.pj_zf_bs'
    end
    object qe_pj_addpj_js_bs: TSmallintField
      FieldName = 'pj_js_bs'
      Origin = 'DN_QP3.pj_add.pj_js_bs'
    end
    object qe_pj_addpj_date: TStringField
      FieldName = 'pj_date'
      Origin = 'DN_QP3.pj_add.pj_date'
      FixedChar = True
      Size = 10
    end
    object qe_pj_addpj_je1: TStringField
      FieldKind = fkCalculated
      FieldName = 'pj_je1'
      Calculated = True
    end
    object qe_pj_addpj_dj1: TStringField
      FieldKind = fkCalculated
      FieldName = 'pj_dj1'
      Calculated = True
    end
  end
  object ds_pj_add: TDataSource
    DataSet = qe_pj_add
    Left = 44
    Top = 177
  end
  object qe_jy: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    Left = 240
    Top = 149
  end
  object qe_pj1: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select ISNULL(sum(pj_dj * pj_sy_sum), 0.00) as sum1 from pj_add ' +
        'where dj_bh = :ibh and pj_sb = '#39#21542#39)
    Left = 168
    Top = 149
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_pj2: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select ISNULL(sum(pj_dj * pj_sy_sum), 0.00) as sum2 from pj_add ' +
        'where dj_bh = :ibh and pj_sb = '#39#26159#39)
    Left = 196
    Top = 149
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_gs: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select ISNULL(sum(gs_zj), 0.00) as sum3 from gs_ad where dj_bh =' +
        ' :ibh')
    Left = 168
    Top = 177
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_yj: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select dj_yj_zf from cl_dj where dj_bh = :ibh')
    Left = 196
    Top = 177
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object ds_jy1: TDataSource
    DataSet = qe_jy1
    Left = 44
    Top = 149
  end
  object qe_other_add: TQuery
    OnCalcFields = qe_other_addCalcFields
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from other_add where dj_bh = :ibh')
    Left = 96
    Top = 177
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
    object qe_other_addpj_id: TIntegerField
      FieldName = 'pj_id'
      Origin = 'DN_QP3.other_add.pj_id'
    end
    object qe_other_adddj_bh: TStringField
      FieldName = 'dj_bh'
      Origin = 'DN_QP3.other_add.dj_bh'
      FixedChar = True
      Size = 16
    end
    object qe_other_addo_name: TStringField
      FieldName = 'o_name'
      Origin = 'DN_QP3.other_add.o_name'
      FixedChar = True
      Size = 50
    end
    object qe_other_addo_je: TFloatField
      FieldName = 'o_je'
      Origin = 'DN_QP3.other_add.o_je'
    end
    object qe_other_addpj_zf_bs: TSmallintField
      FieldName = 'pj_zf_bs'
      Origin = 'DN_QP3.other_add.pj_zf_bs'
    end
    object qe_other_addo_je1: TStringField
      FieldKind = fkCalculated
      FieldName = 'o_je1'
      Calculated = True
    end
  end
  object ds_other_add: TDataSource
    DataSet = qe_other_add
    Left = 124
    Top = 177
  end
  object qe_other: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select ISNULL(sum(o_je), 0.00) as sum4 from other_add where dj_b' +
        'h = :ibh')
    Left = 268
    Top = 149
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
  object qe_pj3: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      
        'select ISNULL(sum(pj_jj * pj_sy_sum), 0.00) as sum1 from pj_add ' +
        'where dj_bh = :ibh')
    Left = 240
    Top = 176
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
  end
end