unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Table1->Insert();
        Table1->FieldByName("EmpNo")->AsInteger=StrToInt(Edit1->Text);
        Table1->FieldByName("LastName")->AsString=Edit2->Text;
        Table1->FieldByName("FirstName")->AsString=Edit3->Text;
        Table1->FieldByName("PhoneExt")->AsInteger=StrToInt(Edit4->Text);
        Table1->FieldByName("HireDate")->AsDateTime=MaskEdit1->Text;
        Table1->FieldByName("Salary")->AsInteger=StrToInt(Edit5->Text);
        Table1->Post();
        Table1->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DBGrid1CellClick(TColumn *Column)
{
        Edit1->Text=IntToStr(Table1->FieldByName("EmpNo")->AsInteger);
        Edit2->Text=Table1->FieldByName("LastName")->AsString;
        Edit3->Text=Table1->FieldByName("FirstName")->AsString;
        Edit4->Text=IntToStr(Table1->FieldByName("PhoneExt")->AsInteger);
        MaskEdit1->Text=Table1->FieldByName("HireDate")->AsDateTime;
        Edit5->Text=IntToStr(Table1->FieldByName("Salary")->AsInteger);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Table1->Edit();
        Table1->FieldByName("EmpNo")->AsInteger=StrToInt(Edit1->Text);
        Table1->FieldByName("LastName")->AsString=Edit2->Text;
        Table1->FieldByName("FirstName")->AsString=Edit3->Text;
        Table1->FieldByName("PhoneExt")->AsInteger=StrToInt(Edit4->Text);
        Table1->FieldByName("HireDate")->AsDateTime=MaskEdit1->Text;
        Table1->FieldByName("Salary")->AsInteger=StrToInt(Edit5->Text);
        Table1->Post();
        Table1->Refresh();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        Table1->Delete();
}
//---------------------------------------------------------------------------