请问如何在分数的旁边显现评语呢?

sygokok

各位前辈…..

请问我想在分数的字段旁显现出评语

但是是有范围的~例如

*********
            评语
0~5分       低
6~10分      中
11~15分     优
*********

以下程序码是关中刀客前辈的~~如何在这程序码中再添加呢?

谢谢!!

--------------------------
#ifndef Unit1H
    #define Unit1H
    #include <Classes.hpp>
    #include <ComCtrls.hpp>
    #include <Controls.hpp>
    #include <StdCtrls.hpp>
    class TForm1 : public TForm
    {
      __published:
        TPageControl *PageControl1;
        TTabSheet *TabSheet1;
        TTabSheet *TabSheet2;
        TTabSheet *TabSheet3;
        TRadioButton *A1;
        TRadioButton *B1;
        TRadioButton *C1;
        TRadioButton *A2;
        TRadioButton *B2;
        TRadioButton *C2;
        TRadioButton *D2;
        TRadioButton *E2;
        void __fastcall PageControl1Change(TObject *Sender);
        void __fastcall func(TObject *Sender);
      public:
        __fastcall TForm1(TComponent* Owner);
    };
    //---------------------------------------------------------------------------
    extern PACKAGE TForm1 *Form1;
    //---------------------------------------------------------------------------
    #endif
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
    #include <vcl.h>
    #pragma hdrstop
    #include "Unit1.h"
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
    {
      A1->Checked=true;
      A2->Checked=true;
      A1->Tag=1;
      B1->Tag=2;
      C1->Tag=3;
      A2->Tag=4;
      B2->Tag=5;
      C2->Tag=6;
      D2->Tag=7;
      E2->Tag=8;
      A1->OnClick=func;
      B1->OnClick=func;
      C1->OnClick=func;
      A2->OnClick=func;
      B2->OnClick=func;
      C2->OnClick=func;
      D2->OnClick=func;
      E2->OnClick=func;
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::PageControl1Change(TObject *Sender)
    {
      if(PageControl1->ActivePageIndex==2)
      {
        TabSheet3->Caption=
        TabSheet1->Caption.ToIntDef(0)
        +TabSheet2->Caption.ToIntDef(0);
      }
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::func(TObject *Sender)
    {
      TRadioButton * radioButton;
      radioButton=( TRadioButton *)Sender;
      if(!radioButton->Checked) return;
      switch (radioButton->Tag)
      {
        case 1: TabSheet1->Caption= 10;break;
        case 2: TabSheet1->Caption= 5;break;
        case 3: TabSheet1->Caption= 1;break;
        case 4: TabSheet2->Caption= 10;break;
        case 5: TabSheet2->Caption= 7;break;
        case 6: TabSheet2->Caption= 5;break;
        case 7: TabSheet2->Caption= 3;break;
        case 8: TabSheet2->Caption= 1;break;
      }
    }
--------------------------

apple_058

前辈不敢当
“字段”是数据库的概念啊

你上次问的上面代码相关的
与数据库无关啊

sygokok

不好意思….我写错了

请问关中刀客前辈….

像你上次为我撰写的Sheet1+Sheet2的值

会在Sheet3显现

现在我是想依分数的不同

在Sheet3旁多一个<批注>的

这样该怎么实现呢?

谢谢

sygokok

例如
如果所得之分数是左边~则会出现如右边的评语
*********
分数         评语
0~5分       低
6~10分      中
11~15分     优
*********

我是杀人狂

up,学习

apple_058

这个就十分简单了，有先前给你的代码垫底，呵呵

只需要更改PageControl1Change事件的代码

      void __fastcall TForm1::PageControl1Change(TObject *Sender)
      {
        if(PageControl1->ActivePageIndex==2)
        {
          int k0,k;
          k0=TabSheet1->Caption.ToIntDef(0)+TabSheet2->Caption.ToIntDef(0);
          k=k0/5;
          switch (k)
          {
            case 2: TabSheet3->Caption=IntToStr(k0)+"__优";
            break;
            case 1: TabSheet3->Caption=IntToStr(k0)+"__中";
            break;
            default: TabSheet3->Caption=IntToStr(k0)+"__差";
          }
        }
      }

sygokok

不好意思阿~前辈

如果是在TabSheet3创一个Label

则该如何在此Label实现评语呢?

再麻烦你了~谢谢

apple_058

先在TabSheet3拉一个Label1

      void __fastcall TForm1::PageControl1Change(TObject *Sender)
      {
        if(PageControl1->ActivePageIndex==2)
        {
          int k0,k;
          k0=TabSheet1->Caption.ToIntDef(0)+TabSheet2->Caption.ToIntDef(0);
          k=k0/5;
          switch (k)
          {
            case 2:
              TabSheet3->Caption=IntToStr(k0)+"__优";
              Label1->Caption=IntToStr(k0)+"__优";
              break;
            case 1:
              TabSheet3->Caption=IntToStr(k0)+"__中";
              Label1->Caption=IntToStr(k0)+"__中";
              break;
            default:
              TabSheet3->Caption=IntToStr(k0)+"__差";
              Label1->Caption=IntToStr(k0)+"__差";
          }
        }
      }

看看是不是这个意思

sygokok

可以了
谢谢您