C++builder5编程实例与技巧S03B例子有错改正版
- 格式:docx
- 大小:136.50 KB
- 文档页数:3
这个PDF的第106页有个例程S03B。运行界面如下:
但是他提供的代码有误,我修改代码并能正常运行后的代码是:
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Button1->Enabled=false;
Dirty=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
if(Edit1->Text!="")
Memo1->Text="姓名:"+Edit1->Text;
if(ComboBox1->Text!="")
Memo1->Text=Memo1->Text+"\r\n学历:"+ComboBox1->Text;
if(RadioButton1->Checked)
Memo1->Text=Memo1->Text+"\r\n性别:男";
else
Memo1->Text=Memo1->Text+"\r\n性别:女";
if(RadioGroup1->ItemIndex==0)
Memo1->Text=Memo1->Text+"\r\n职称:讲师";
else if(RadioGroup1->ItemIndex==1)
Memo1->Text=Memo1->Text+"\r\n职称:副教授";
else
Memo1->Text=Memo1->Text+"\r\n职称:教授";
if(CheckBox1->Checked==true)
Memo1->Text=Memo1->Text+"\r\n该同志为:中国社科院院士";
if(CheckBox2->Checked==true)
Memo1->Text=Memo1->Text+"\r\n该同志为:中国工程院院士";
if(CheckBox3->Checked==true)
Memo1->Text=Memo1->Text+"\r\n该同志为:中国工程院院士";
Dirty=false;
Button1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(Dirty)
{
if(MessageDlg("简历内容已经修改,是否更新?",
mtInformation,TMsgDlgButtons()<
Button1Click(BitBtn1);
ShowMessage("你选择的是刷新。");
}
}
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Button1->Enabled=True;
Dirty=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
Edit1Change(this);
}
//---------------------------------------------------------------------------
注意:要在Unit1.h中设置参数
软件运行后的界面是:
有需要工程文件的可以联系我。。。。