unit1.cpp

本程序是一个比较简单的通讯录 该程序可能比较有参考价值的地方 可能就是它用到了数据库的动太链接

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

#include <vcl.h>
#pragma hdrstop
#include"clipbrd.hpp"

#include "Unit1.h"
#include <jpeg.hpp>
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString myfield,myval;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        IsClicked=false;
}
//---------------------------------------------------------------------------


void __fastcall TForm1::DBImage1Click(TObject *Sender)
{
  try{
        if(OpenPictureDialog1->Execute());
        {
                AnsiString MyFilesExtension;
                // if(OpenPictureDialog1->Filter==".jpg")
                MyFilesExtension = ExtractFileExt(OpenPictureDialog1->FileName);
                 //ShowMessage(MyFilesExtension);
                 if(MyFilesExtension==".jpg")
                {
                        TJPEGImage * jpg = new TJPEGImage();

                        jpg->LoadFromFile(OpenPictureDialog1->FileName);
                        Clipboard()->Assign(jpg);
                        DBImage1->PasteFromClipboard();
                        delete jpg;
                }
                if(MyFilesExtension==".BMP")
                {
                       // ShowMessage("OKBmp");
                       ADOTable1->Edit();
                        ADOTable1DSDesigner7->LoadFromFile(OpenPictureDialog1->FileName);
               }
        }
     }
        catch(...)
        {
                ShowMessage("error");
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
        ADOTable1->First();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
        ADOTable1->Prior();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
        ADOTable1->Next();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
{
        ADOTable1->Last();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton5Click(TObject *Sender)
{
        ADOTable1->Insert();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton6Click(TObject *Sender)
{
        if(!ADOTable1->Eof)
        {
                if(Application->MessageBox("你要把你的朋友删除吗","注意",MB_YESNO)==IDYES)
                {
                        ADOTable1->Delete();
                 }

          }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton7Click(TObject *Sender)
{
        ADOTable1->Post();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton8Click(TObject *Sender)
{
        ADOTable1->Cancel();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SpeedButton9Click(TObject *Sender)
{
        Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
       for (int i=0;i<=(ADOTable1->Fields->Count-6);i++)
        {
                ComboBox1->Items->Add(ADOTable1->Fields->Fields[i+1]->FieldName);
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        ADOTable1->Filtered=False;
        myfield=ComboBox1->Text;
        myval=Edit1->Text;
        ADOTable1->Filtered=True;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ADOTable1FilterRecord(TDataSet *DataSet,
      bool &Accept)
{
        switch (ComboBox2->ItemIndex)
        {
                case 0:
                        Accept=ADOTable1->FieldValues[myfield] > myval;
                break;
                case 1:
                        Accept=ADOTable1->FieldValues[myfield] < myval;
                break;
                case 2:
                        Accept=ADOTable1->FieldValues[myfield] >= myval;
                break;
                case 3:
                        Accept=ADOTable1->FieldValues[myfield] <= myval;
                break;
                case 4:
                         Accept=ADOTable1->FieldValues[myfield] == myval;
                break;
                case 5:
                         Accept=ADOTable1->FieldValues[myfield] != myval;
                break;
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
        if(IsClicked==false)
        {
                DBImage1->Stretch=true;
                IsClicked=true;
        }
        else
        {
                DBImage1->Stretch=false;
               IsClicked=false;
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image1Click(TObject *Sender)
{
        Form2=new TForm2(this);
        Form2->Show();
}
//---------------------------------------------------------------------------