Курсовая работа (т): Разработка информационной системы АЗС с использованием клиент-серверной технологии

Приложение 2

Код представления таблицы «Clients»

void __fastcall TForm1::Button5Click(TObject *Sender)

{->DataSource=DataModule2->DataSource2;

}

Приложение 2. Код кнопки добавить данные в таблицу «Clients»

void __fastcall TForm1::Button1Click(TObject *Sender)

{ DBGrid5->DataSource = DataModule2->DataSource5;->IBStoredProc1->StoredProcName="CLIETNS_ADD";->IBStoredProc1->ParamByName("ID_CLIENTS")->AsString = "";->IBStoredProc1->ParamByName("NAME")->AsString = LabeledEdit1->Text;->IBStoredProc1->ParamByName("SURNAME")->AsString = LabeledEdit2->Text;->IBStoredProc1->ParamByName("MIDDLE_NAME")->AsString = LabeledEdit3->Text;->IBStoredProc1->ParamByName("PHONE")->AsString = LabeledEdit4->Text;->IBStoredProc1->ParamByName("NAME_CARDS")->AsString = LabeledEdit5->Text;->IBStoredProc1->Prepare();->IBStoredProc1->ExecProc();->IBTransaction1->Commit();->IBQuery1->Close();

DataModule2->IBQuery1->Open();

}

Приложение 3. Код кнопки изминение данных в таблице «Fuel»

void __fastcall TForm1::Button16Click(TObject *Sender)

{ DBGrid6->DataSource = DataModule2->DataSource17;->IBStoredProc4->StoredProcName="UPDATE_FUEL";->IBStoredProc4->ParamByName("TYPE_FUEL")->AsString=LabeledEdit19->Text;->IBStoredProc4->ParamByName("PRICE")->AsString=LabeledEdit20->Text;->IBStoredProc4->Prepare();->IBStoredProc4->ExecProc();->IBTransaction1->Commit();->IBQuery8->Close();->IBQuery8->Open();

}

Приложение 4. Код кнопки удаление данные из таблицы «Card_clients»__fastcall TForm1::Button20Click(TObject *Sender)

{->DataSource = DataModule2->DataSource18;->IBStoredProc5->StoredProcName="DELETE_CARD";->IBStoredProc5->ParamByName("NAME")->AsString = LabeledEdit21->Text;->IBStoredProc5->Prepare();->IBStoredProc5->ExecProc();->IBTransaction1->Commit();->IBQuery9->Close();->IBQuery9->Open();}

Приложение 5. Код кнопки сортировки данных «Card_clients»__fastcall TForm1::Button29Click(TObject *Sender)

{->DataSource = DataModule2->DataSource18;gg;(RadioGroup6->ItemIndex)

{ case 0: gg="";break;1: gg=" DESC";}->IBQuery9->Close();->IBQuery9->SQL->Clear();->IBQuery9->SQL->Add("select * from CARD_CLIENTS");(RadioGroup5->ItemIndex)

{0: gg="order by name_card"+ gg; break;1: gg="order by discount"+gg;}->IBQuery9->SQL->Add(gg);->IBQuery9->Open();}

Приложение 6. Код кнопки фильтрации данных «Card_clients»__fastcall TForm1::Button31Click(TObject *Sender)

{DBGrid14->DataSource = DataModule2->DataSource18;->IBQuery9->Close();->IBQuery9->SQL->Clear();->IBQuery9->SQL->Add("Select * from card_clients");->IBQuery9->SQL->Add("Where name_card like :name");->IBQuery9->Params->ParamByName("name")-> AsString = MaskEdit3->Text + "%";->IBQuery9->Open();}

Приложение 7. Код кнопки поиска данных «Card_clients»__fastcall TForm1::Button45Click(TObject *Sender)

{->IBTable12->Open();->DataSource = DataModule2->DataSource21;SOptions;(!(DataModule2->IBTable12->Locate("name_card",LabeledEdit25->Text, SOptions<<loPartialKey)))

MessageBox(0,"Не найдено!", "Ошибочка",MB_OK);}

Приложение 8. Код для процедуры выборки табоицы «Clients»

void __fastcall TDataModule2::IBTable6AfterScroll(TDataSet *DataSet)

{->IBQuery4->Close();->IBQuery4->ParamByName("CLIENT_NOM")->AsString = DataModule2->IBTable6->FieldByName("id_clients")->AsInteger;->IBQuery4->Open();}