Введение (стр. 9 )

StringGrid1->Cells[0][0] = "МФО";

StringGrid1->Cells[1][0] = "Банк";

DataModule2->ADOQuery1->SQL->Clear();

DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Банки");

DataModule2->ADOQuery1->Open();

DataModule2->ADOQuery1->First();

StringGrid1->RowCount = DataModule2->ADOQuery1->RecordCount+1;

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

  for (int j=0; j<2; j++)

StringGrid1->Cells[j][i] = DataModule2->ADOQuery1->Fields->Fields[j]->AsString;

DataModule2->ADOQuery1->Next();

  }

DataModule2->ADOQuery1->Close();

break;

} // case 0;

case 1: {

StringGrid1->ColCount = 6;

StringGrid1->ColWidths[0] = 45;

StringGrid1->ColWidths[1] = StringGrid1->Width - 270;

StringGrid1->ColWidths[2] = 45;

StringGrid1->ColWidths[3] = 80;

StringGrid1->ColWidths[4] = 45;

StringGrid1->ColWidths[5] = 45;

StringGrid1->Cells[0][0] = "Код";

StringGrid1->Cells[1][0] = "Наименование";

StringGrid1->Cells[2][0] = "МФО";

StringGrid1->Cells[3][0] = "УНН";

StringGrid1->Cells[4][0] = "Р\С";

StringGrid1->Cells[5][0] = "ОКПО";

DataModule2->ADOQuery1->SQL->Clear();

DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Клиенты");

DataModule2->ADOQuery1->Open();

DataModule2->ADOQuery1->First();

StringGrid1->RowCount = DataModule2->ADOQuery1->RecordCount+1;

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

  for (int j=0; j<6; j++)

StringGrid1->Cells[j][i] = DataModule2->ADOQuery1->Fields->Fields[j]->AsString;

DataModule2->ADOQuery1->Next();

  }

DataModule2->ADOQuery1->Close();

break;

} // case 1;

case 2: {

StringGrid1->ColCount = 5;

StringGrid1->ColWidths[0] = 45;

StringGrid1->ColWidths[1] = StringGrid1->Width - 270;

StringGrid1->ColWidths[2] = 45;

StringGrid1->ColWidths[3] = 80;

StringGrid1->ColWidths[4] = 45;

StringGrid1->Cells[0][0] = "Код";

StringGrid1->Cells[1][0] = "Наименование";

StringGrid1->Cells[2][0] = "Ед. изм";

StringGrid1->Cells[3][0] = "Цена закупки";

StringGrid1->Cells[4][0] = "Цена продажи";

DataModule2->ADOQuery1->SQL->Clear();

DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Товары");

DataModule2->ADOQuery1->Open();

DataModule2->ADOQuery1->First();

StringGrid1->RowCount = DataModule2->ADOQuery1->RecordCount+1;

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

  for (int j=0; j<5; j++)

StringGrid1->Cells[j][i] = DataModule2->ADOQuery1->Fields->Fields[j]->AsString;

DataModule2->ADOQuery1->Next();

  }

DataModule2->ADOQuery1->Close();

break;

} // case 2;

} // switch

}

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

void __fastcall TForm2::FormShow(TObject *Sender)

{

RadioGroup1Click(Sender);

}

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

void __fastcall TForm2::N2Click(TObject *Sender)

{

if ((StringGrid1->Cells[0][StringGrid1->Row]!=" ")&&(StringGrid1->Row!=0))

if (MessageDlg("УДАЛИТЬ ЗАПИСЬ?",mtConfirmation, TMsgDlgButtons() << mbYes<<mbNo, 0)==mrYes) {

DataModule2->ADOQuery1->SQL->Clear();

switch (RadioGroup1->ItemIndex){

case 0:{

DataModule2->ADOQuery1->SQL->Add("DELETE FROM Банки WHERE Код="+StringGrid1->Cells[0][StringGrid1->Row]);

break;

} // case 0;

case 1: {

DataModule2->ADOQuery1->SQL->Add("DELETE FROM Клиенты WHERE Код="+StringGrid1->Cells[0][StringGrid1->Row]);

break;

} // case 1;

case 2: {

DataModule2->ADOQuery1->SQL->Add("DELETE FROM Товары WHERE Код="+StringGrid1->Cells[0][StringGrid1->Row]);

break;

} // case 2;

} // switch

DataModule2->ADOQuery1->ExecSQL();

ShowMessage("ЗАПИСЬ УСПЕШНО УДАЛЕНА");

FormShow(Sender);

}

}

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

void __fastcall TForm2::N1Click(TObject *Sender)

{

switch (RadioGroup1->ItemIndex){

case 0:{

Form3->ShowModal();

break;

} // case 0;

case 1: {

Form4->Caption = "";

Form4->ShowModal();

break;

} // case 1;

case 2: {

Form5->Caption = "";

Form5->ShowModal();

break;

} // case 2;

} // switch

FormShow(Sender);

}

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

Документы

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

#include <vcl. h>

#pragma hdrstop

#include "Docs. h"

#include "DataMod. h"

#include "AddPrihod. h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

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

__fastcall TForm7::TForm7(TComponent* Owner)

  : TForm(Owner)

{

}

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

void __fastcall TForm7::RadioGroup1Click(TObject *Sender)

{

StringGrid1->ColCount = 4;

StringGrid1->ColWidths[0] = 45;

StringGrid1->ColWidths[1] = 65;

StringGrid1->ColWidths[2] = 65;

StringGrid1->ColWidths[3] = StringGrid1->Width - 4*65;

StringGrid1->Cells[0][0] = "Код";

StringGrid1->Cells[1][0] = "Номер";

StringGrid1->Cells[2][0] = "Дата";

StringGrid1->Cells[3][0] = "Клиент";

DataModule2->ADOQuery1->SQL->Clear();

DataModule2->ADOQuery1->SQL->Add("SELECT *");

switch (RadioGroup1->ItemIndex){

case 0:{

DataModule2->ADOQuery1->SQL->Add("FROM НакладныеПр");

break;

} // case 0;

case 1: {

DataModule2->ADOQuery1->SQL->Add("FROM НакладныеРас");

break;

} // case 1;

case 2: {

DataModule2->ADOQuery1->SQL->Add("FROM Счета");

break;

} // case 2;

} // switch

DataModule2->ADOQuery1->Open();

DataModule2->ADOQuery1->First();

StringGrid1->RowCount = DataModule2->ADOQuery1->RecordCount+1;

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

  for (int j=0; j<4; j++)

StringGrid1->Cells[j][i] = DataModule2->ADOQuery1->Fields->Fields[j]->AsString;

DataModule2->ADOQuery1->Next();

  }

DataModule2->ADOQuery1->Close();

}

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

void __fastcall TForm7::N2Click(TObject *Sender)

{

if ((StringGrid1->Cells[0][StringGrid1->Row]!=" ")&&(StringGrid1->Row!=0))

if (MessageDlg("УДАЛИТЬ ЗАПИСЬ?",mtConfirmation, TMsgDlgButtons() << mbYes<<mbNo, 0)==mrYes) {

DataModule2->ADOQuery1->SQL->Clear();

switch (RadioGroup1->ItemIndex){

case 0:{

DataModule2->ADOQuery1->SQL->Add("DELETE FROM НакладныеПр WHERE Код="+StringGrid1->Cells[0][StringGrid1->Row]);

break;

} // case 0;

case 1: {

DataModule2->ADOQuery1->SQL->Add("DELETE FROM НакладныеРас WHERE Код="+StringGrid1->Cells[0][StringGrid1->Row]);

break;

} // case 1;

case 2: {

DataModule2->ADOQuery1->SQL->Add("DELETE FROM Счета WHERE Код="+StringGrid1->Cells[0][StringGrid1->Row]);

break;

} // case 2;

} // switch

DataModule2->ADOQuery1->ExecSQL();

ShowMessage("ЗАПИСЬ УСПЕШНО УДАЛЕНА");

FormShow(Sender);

}

}

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

void __fastcall TForm7::N1Click(TObject *Sender)

{

switch (RadioGroup1->ItemIndex){

case 0:{

Form8->Caption = "";

Form8->Hint = "0";

Form8->ShowModal();

break;

} // case 0;

case 1: {

Form8->Caption = "";

Form8->Hint = "1";

Form8->ShowModal();

break;

} // case 1;

case 2: {

Form8->Caption = "";

Form8->Hint = "2";

Form8->ShowModal();

break;

} // case 2;

} // switch

FormShow(Sender);

}

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

void __fastcall TForm7::FormShow(TObject *Sender)

{

RadioGroup1Click(Sender);

}

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