Создание программы для работы с базой данных учёта рождаемости

 

void __fastcall TPagesDlg::BitBtn6MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{//Смена цвета текста при наведении мыши на красный на кнопке Изменить

BitBtn6->Font->Color = clRed;

}

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

 

void __fastcall TPagesDlg::BitBtn7MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{//Смена цвета текста  при наведении мыши на зелёный  на кнопке Добавить

BitBtn7->Font->Color = clGreen;

}

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

 

 

void __fastcall TPagesDlg::BitBtn8Click(TObject *Sender)

{//удаление записи из базы

StatusBar1->Panels->Items[0]->Text="Безвозвратное  удаление записи из базы?";

Beep(1000,100); //Звуковое предупреждение

if (ComboBox1->ItemIndex==-1)//Вывод  сообщения, если записей нет

     ShowMessage("В  базе нет запией для удаления");

     else

if (MessageBox(0,"Продолжить?",

"Внимание запись  будет удалена БЕЗВОЗВРАТНО!",MB_YESNO)==IDYES);

else

{Abort();

}

int N=ComboBox1->ItemIndex; N++;

if (N)

{StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

StringGrid1->Rows[N]->Clear();

for( int i = 0; i < StringGrid1->RowCount - 1; i++ )

{

if( StringGrid1->Cells[0][i] == "" )

{

for( int j = i; j < StringGrid1->RowCount - 1; j++ )

{

StringGrid1->Cells[0][j] = StringGrid1->Cells[0][j+1];

StringGrid1->Cells[1][j] = StringGrid1->Cells[1][j+1];

StringGrid1->Cells[2][j] = StringGrid1->Cells[2][j+1];

StringGrid1->Cells[3][j] = StringGrid1->Cells[3][j+1];

StringGrid1->Cells[4][j] = StringGrid1->Cells[4][j+1];

StringGrid1->Cells[5][j] = StringGrid1->Cells[5][j+1];

StringGrid1->Cells[6][j] = StringGrid1->Cells[6][j+1];

StringGrid1->Cells[7][j] = StringGrid1->Cells[7][j+1];

StringGrid1->Cells[8][j] = StringGrid1->Cells[8][j+1];

}

StringGrid1->RowCount = StringGrid1->RowCount - 1;

}

}

N--;

ComboBox1->Items->Delete(N);

ComboBox1->ItemIndex=0;

if  (ComboBox1->ItemIndex==-1)

  Edit1->Clear();

Edit2->Clear();

Edit3->Clear();

Edit4->Clear();

Edit5->Clear();

Edit6->Clear();

Edit7->Clear();

Edit8->Clear();

Edit9->Clear();

 ComboBox1Change(Sender);

}  }

 

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

 

void __fastcall TPagesDlg::BitBtn8MouseMove(TObject *Sender,

      TShiftState Shift, int X, int Y)

{//Смена цвета текста  при наведении мыши на красный  на кнопке Удалить запись из  базы

BitBtn8->Font->Color = clRed;

}

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

 

void __fastcall TPagesDlg::BitBtn9Click(TObject *Sender)

{//Кнопка поиска

int N=1;

AnsiString s = "";

for(N=0; N <= StringGrid1->ColCount; N++)

{

if(Edit10->Text==StringGrid1->Cells[0][N])

ComboBox1->ItemIndex=N-1;

ComboBox1Change(Sender);

}

{

if(Edit10->Text!=Edit1->Text)

ShowMessage("Запись не найдена");

}

}

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

                        Приложение 2 (Файл Unit1.h)

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

#ifndef Unit1H

#define Unit1H

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

#include <vcl\ExtCtrls.hpp>

#include <vcl\ComCtrls.hpp>

#include <vcl\Buttons.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Controls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\Graphics.hpp>

#include <vcl\Classes.hpp>

#include <vcl\SysUtils.hpp>

#include <vcl\Windows.hpp>

#include <vcl\System.hpp>

#include <Grids.hpp>

#include <Menus.hpp>

#include <Dialogs.hpp>

#include <ImgList.hpp>

#include <string.h>

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

class TPagesDlg : public TForm

{

__published:

TPanel *Panel2;

        TMainMenu *MainMenu1;

        TMenuItem *N1;

       TMenuItem *N2;

        TMenuItem *N3;

        TMenuItem *N4;

        TMenuItem *N5;

        TMenuItem *N6;

        TMenuItem *N7;

        TMenuItem *N8;

        TMenuItem *N10;

        TMenuItem *N11;

        TOpenDialog *OpenDialog1;

        TSaveDialog *SaveDialog1;

        TPanel *Panel1;

        TSpeedButton *SpeedButton1;

        TSpeedButton *SpeedButton2;

        TSpeedButton *SpeedButton3;

        TSpeedButton *SpeedButton4;

       TSpeedButton *SpeedButton5;

        TSpeedButton *SpeedButton6;

        TPageControl *PageControl1;

        TTabSheet *TabSheet1;

        TStringGrid *StringGrid1;

        TTabSheet *TabSheet2;

        TLabel *Label1;

        TGroupBox *GroupBox1;

        TLabel *Label2;

        TLabel *Label3;

        TLabel *Label4;

        TLabel *Label5;

        TLabel *Label6;

        TLabel *Label7;

        TLabel *Label8;

        TLabel *Label9;

        TLabel *Label10;

        TEdit *Edit5;

        TEdit *Edit6;

        TEdit *Edit7;

        TEdit *Edit8;

        TEdit *Edit9;

        TEdit *Edit1;

        TEdit *Edit2;

        TEdit *Edit3;

        TEdit *Edit4;

        TComboBox *ComboBox1;

        TPrinterSetupDialog *PrinterSetupDialog1;

        TLabel *Label11;

        TTimer *Timer1;

        TMenuItem *N12;

        TMenuItem *N13;

        TMenuItem *N14;

        TMenuItem *CD1;

        TMenuItem *CD2;

        TMenuItem *N15;

        TSpeedButton *SpeedButton7;

        TMenuItem *N16;

        TMenuItem *N17;

        TMenuItem *N18;

        TMenuItem *N19;

        TLabel *Label12;

        TLabel *Label13;

        TMenuItem *N21;

        TTimer *Timer2;

        TLabel *Label14;

        TLabel *Label15;

        TStatusBar *StatusBar1;

        TBitBtn *BitBtn1;

        TBitBtn *BitBtn2;

        TBitBtn *BitBtn3;

        TBitBtn *BitBtn4;

        TBitBtn *BitBtn5;

        TBitBtn *BitBtn6;

        TBitBtn *BitBtn7;

        TBitBtn *BitBtn8;

        TEdit *Edit10;

        TBitBtn *BitBtn9;

        TLabel *Label16;

        void __fastcall N5Click(TObject *Sender);

        void __fastcall N2Click(TObject *Sender);

        void __fastcall N3Click(TObject *Sender);

        void __fastcall FormCreate(TObject *Sender);

        void __fastcall ComboBox1Change(TObject *Sender);

        void __fastcall PageControl1Change(TObject *Sender);

        void __fastcall BitBtn1Click(TObject *Sender);

        void __fastcall BitBtn2Click(TObject *Sender);

        void __fastcall BitBtn3Click(TObject *Sender);

        void __fastcall BitBtn4Click(TObject *Sender);

        void __fastcall SpeedButton1Click(TObject *Sender);

        void __fastcall SpeedButton3Click(TObject *Sender);

        void __fastcall SpeedButton4Click(TObject *Sender);

        void __fastcall SpeedButton2Click(TObject *Sender);

        void __fastcall N4Click(TObject *Sender);

        void __fastcall Timer1Timer(TObject *Sender);

        void __fastcall SpeedButton5Click(TObject *Sender);

        void __fastcall SpeedButton6Click(TObject *Sender);

        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);

        void __fastcall BitBtn5Click(TObject *Sender);

        void __fastcall BitBtn6Click(TObject *Sender);

        void __fastcall N12Click(TObject *Sender);

        void __fastcall N13Click(TObject *Sender);

        void __fastcall N14Click(TObject *Sender);

        void __fastcall CD1Click(TObject *Sender);

        void __fastcall CD2Click(TObject *Sender);

        void __fastcall N15Click(TObject *Sender);

        void __fastcall SpeedButton7Click(TObject *Sender);

        void __fastcall N17Click(TObject *Sender);

       void __fastcall N18Click(TObject *Sender);

        void __fastcall N19Click(TObject *Sender);

        void __fastcall N10Click(TObject *Sender);

        void __fastcall N8Click(TObject *Sender);

        void __fastcall N21Click(TObject *Sender);

        void __fastcall Timer2Timer(TObject *Sender);

        void __fastcall BitBtn7Click(TObject *Sender);

        void __fastcall Edit4KeyPress(TObject *Sender, char &Key);

        void __fastcall Edit5KeyPress(TObject *Sender, char &Key);

        void __fastcall OnHint(TObject *Sender);

        void __fastcall BitBtn2MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn1MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall TabSheet2MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn3MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn4MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn5MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn6MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn7MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn8Click(TObject *Sender);

        void __fastcall BitBtn8MouseMove(TObject *Sender,

          TShiftState Shift, int X, int Y);

        void __fastcall BitBtn9Click(TObject *Sender);

private:

public:

virtual __fastcall TPagesDlg(TComponent* AOwner);

};

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

extern PACKAGE TPagesDlg *PagesDlg;

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

#endif

struct info

{char city[20];

char vera[20];

char pol[20];

char ves[20];

char rost[20];

char dr[20];

char fam[20];

char imja[20];

char otch[15]; };                                

                       Приложение 3 (Файл-модуль Unit2.cpp)

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

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

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

#pragma resource "*.dfm"

TAboutBox *AboutBox;

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

__fastcall TAboutBox::TAboutBox(TComponent* AOwner)

: TForm(AOwner)

{

}

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

void __fastcall TAboutBox::OKButtonClick(TObject *Sender)

{

Close();

}

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

              void __fastcall TAboutBox::Label1Click(TObject *Sender)

{

ShellExecute(Handle,NULL,"mailto:Ls244@yandex.ru?subject=Tema",

NULL,NULL,SW_SHOWNORMAL);}

 

 

                       Приложение 4 (Файл-модуль Unit2.h)

 

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

#ifndef Unit2H

#define Unit2H

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

#include <vcl\System.hpp>

#include <vcl\Windows.hpp>

#include <vcl\SysUtils.hpp>

#include <vcl\Classes.hpp>

#include <vcl\Graphics.hpp>

#include <vcl\Forms.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Buttons.hpp>

#include <vcl\ExtCtrls.hpp>

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

class TAboutBox : public TForm

{

__published:

TPanel *Panel1;

TImage *ProgramIcon;

TLabel *ProductName;

TLabel *Copyright;

TLabel *Comments;

TButton *OKButton;

            TLabel *Label1;

           void __fastcall OKButtonClick(TObject *Sender);

           void __fastcall Label1Click(TObject *Sender);

private:

public:

virtual __fastcall TAboutBox(TComponent* AOwner);

};

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

extern PACKAGE TAboutBox *AboutBox;

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

#endif 

 

 

 

 

 

 

 

 

                      

 

 

 

 

 

 

                 Приложение 5 (Файл-модуль Unit3.cpp)

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

#include <vcl.h>

#pragma hdrstop

 

#include "Unit3.h"

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

#pragma link "CCALENDR"

#pragma resource "*.dfm"

TAboutBox1 *AboutBox1;

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

__fastcall TAboutBox1::TAboutBox1(TComponent* AOwner)

: TForm(AOwner)

{

}

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

 

void __fastcall TAboutBox1::OKButtonClick(TObject *Sender)

{

Close();       

}

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

 

                

 

      Приложение 6 (Файл-модуль Unit3.h)

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

#ifndef Unit3H

#define Unit3H

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

#include <vcl\System.hpp>

#include <vcl\Windows.hpp>

#include <vcl\SysUtils.hpp>

#include <vcl\Classes.hpp>

#include <vcl\Graphics.hpp>

#include <vcl\Forms.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Buttons.hpp>

#include <vcl\ExtCtrls.hpp>

#include <ComCtrls.hpp>

#include "CCALENDR.h"

#include <Grids.hpp>

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

class TAboutBox1 : public TForm

{

__published:

TPanel *Panel1;

Button *OKButton;

        TCCalendar *CCalendar1;

        void __fastcall OKButtonClick(TObject *Sender);

private:

public:

virtual __fastcall TAboutBox1(TComponent* AOwner);

};

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

extern PACKAGE TAboutBox1 *AboutBox1;

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

#endif   

 

 

 

 

 

 

 

 

 

 

 

 

 

                     

 

  Приложение 7 (Файл-модуль Project1.cpp)

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

 

#include <vcl.h>

#pragma hdrstop

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

USEFORM("Unit1.cpp", PagesDlg);

USEFORM("Unit2.cpp", AboutBox);

USEFORM("Unit3.cpp", AboutBox1);

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

        try

        {

                 Application->Initialize();

                 Application->Title = "База";

                 Application->CreateForm(__classid(TPagesDlg), &PagesDlg);

                 Application->CreateForm(__classid(TAboutBox), &AboutBox);

                 Application->CreateForm(__classid(TAboutBox1), &AboutBox1);

                 Application->Run();

        }

        catch (Exception &exception)

        {

                 Application->ShowException(&exception);

        }

        catch (...)

        {

                 try

                 {

                         throw Exception("");

                 }

                 catch (Exception &exception)

                 {

                         Application->ShowException(&exception);

                 }

        }

        return 0;

}

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