unit5.cpp

《C++Builder数据库程序设计》配书光盘 1.光盘内容 Readme.txt 光盘使用说明 书中各章范例文件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//加入血型字段的选项
DBComboBox1->Items->Add("A");
DBComboBox1->Items->Add("B");
DBComboBox1->Items->Add("AB");
DBComboBox1->Items->Add("O");
//加入性别字段的选项
DBComboBox2->Items->Add("男");
DBComboBox2->Items->Add("女");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//如果当前位置没超过第一笔
//将记录位置移至上一笔数据上