q_js.dfm

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

      Width = 65
      Height = 21
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      Visible = False
    end
    object txt_gsf: TEdit
      Left = 176
      Top = 8
      Width = 65
      Height = 21
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object txt_other: TEdit
      Left = 309
      Top = 8
      Width = 66
      Height = 21
      Color = clMenu
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
  end
  object Panel5: TPanel
    Left = 182
    Top = 127
    Width = 571
    Height = 260
    BevelInner = bvLowered
    Color = clActiveBorder
    TabOrder = 3
    object DBGrid3: TDBGrid
      Left = 4
      Top = 4
      Width = 562
      Height = 83
      DataSource = ds_gs_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 = 'gs_text'
          Title.Alignment = taCenter
          Title.Caption = #24037#26102#20869#23481
          Width = 153
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'gs_sum'
          Title.Alignment = taCenter
          Title.Caption = #24037#26102#25968
          Width = 108
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'gs_dj1'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'gs_zj1'
          Title.Alignment = taCenter
          Title.Caption = #24635#20215
          Width = 67
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 4
      Top = 87
      Width = 562
      Height = 83
      DataSource = ds_pj_add
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'pj_kind'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#31867#22411
          Width = 68
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_gg'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#35268#26684
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_name'
          Title.Alignment = taCenter
          Title.Caption = #37197#20214#21517#31216
          Width = 107
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_sy_sum'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 40
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_unit'
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_dj1'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 73
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'pj_je1'
          Title.Alignment = taCenter
          Title.Caption = #37329#39069
          Width = 80
          Visible = True
        end>
    end
    object DBGrid4: TDBGrid
      Left = 4
      Top = 171
      Width = 562
      Height = 83
      DataSource = ds_other
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 2
      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 = 264
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'o_je1'
          Title.Alignment = taCenter
          Title.Caption = #37329#39069
          Width = 248
          Visible = True
        end>
    end
    object combo_p: TComboBox
      Left = 224
      Top = 56
      Width = 65
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 3
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 183
    Top = 104
    Width = 570
    Height = 23
    Caption = #32500#20462#39033#30446#28165#21333
    Color = clHighlight
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object ds_cl: TDataSource
    DataSet = qe_cl
    Left = 222
    Top = 38
  end
  object qe_cl: TQuery
    AfterScroll = qe_clAfterScroll
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from cl_dj')
    Left = 254
    Top = 46
  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 = 206
    Top = 208
    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_dj1: TStringField
      FieldKind = fkCalculated
      FieldName = 'pj_dj1'
      Calculated = True
    end
    object qe_pj_addpj_je1: TStringField
      FieldKind = fkCalculated
      FieldName = 'pj_je1'
      Calculated = True
    end
  end
  object ds_pj_add: TDataSource
    DataSet = qe_pj_add
    Left = 238
    Top = 208
  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 = 214
    Top = 136
    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 = 254
    Top = 136
  end
  object qe_bx: TQuery
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from bx_kind')
    Left = 17
    Top = 352
  end
  object qe_other: TQuery
    OnCalcFields = qe_otherCalcFields
    DatabaseName = 'dn_qp3'
    SessionName = 'se_qp3_1'
    SQL.Strings = (
      'select * from other_add where dj_bh = :ibh')
    Left = 206
    Top = 300
    ParamData = <
      item
        DataType = ftString
        Name = 'ibh'
        ParamType = ptUnknown
      end>
    object qe_otherpj_id: TIntegerField
      FieldName = 'pj_id'
      Origin = 'DN_QP3.other_add.pj_id'
    end
    object qe_otherdj_bh: TStringField
      FieldName = 'dj_bh'
      Origin = 'DN_QP3.other_add.dj_bh'
      FixedChar = True
      Size = 16
    end
    object qe_othero_name: TStringField
      FieldName = 'o_name'
      Origin = 'DN_QP3.other_add.o_name'
      FixedChar = True
      Size = 50
    end
    object qe_othero_je: TFloatField
      FieldName = 'o_je'
      Origin = 'DN_QP3.other_add.o_je'
    end
    object qe_otherpj_zf_bs: TSmallintField
      FieldName = 'pj_zf_bs'
      Origin = 'DN_QP3.other_add.pj_zf_bs'
    end
    object qe_othero_je1: TStringField
      FieldKind = fkCalculated
      FieldName = 'o_je1'
      Calculated = True
    end
  end
  object ds_other: TDataSource
    DataSet = qe_other
    Left = 222
    Top = 340
  end
end