Приложение к. Листинг программы

(обязательное)

void __fastcall TForm10::DateTimePicker1Exit(TObject *Sender)

{

AnsiString e;

e=DateTimePicker1->Date; DBEdit1->Text=e[4]; DBEdit1->Text=DBEdit1->Text+e[5];

mec=StrToInt(DBEdit1->Text);

}

Функция, заполняющая таблицу ведомости:

void __fastcall TForm10::Button1Click(TObject *Sender)

{

int j=0;

DBEdit1->DataField="";

Table1->Active=false;

Table1->TableName="Hopmi";

Table1->Active=true;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT kol_golov FROM jivotnie WHERE Bid_j='"+ComboBox1->Text+"'");

Query1->Active=true;

Query1->First();

kol=Query1->Fields->Fields[0]->AsInteger;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Naim,Naim FROM Korma WHERE Bid_j LIKE '%"+ComboBox1- >Text+"%' ");

Query1->Active=true;

Query1->First();

for(int i=0;i<Query1->RecordCount;i++)

{

StringGrid1->Cells[j][0]=Query1->Fields->Fields[0]->AsString+", кг";

StringGrid4->Cells[j][0]=Query1->Fields->Fields[1]->AsString;

j++;

Query1->Next();

}

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

{

Query1->Active=false;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT "+jiv+" FROM Hopmi WHERE Naim='"+StringGrid4->Cells[i][0]+"'");

DBEdit1->DataField=jiv;

Query1->Active=true;

StringGrid1->Cells[i][1]=DBEdit1->Text;

}

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

{

for(int e=1;e<32;e++)

{

Query1->Active=false;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Mas_ne FROM Zap_po_rasxodu ");

Query1->SQL->Add("WHERE (Naim='"+StringGrid4->Cells[i][0]+"') AND (Bid_j='"+jiv+"') AND (Data='"+StringGrid3->Cells[0][e]+"."+IntToStr(mec)+".2011')");

DBEdit1->DataField="Mas_ne";

Query1->Active=true;

StringGrid2->Cells[i][e]=DBEdit1->Text;

}

StringGrid3->Cells[1][i+1]=IntToStr(kol);

}

}

void __fastcall TForm10::ComboBox1Exit(TObject *Sender)

{

if (ComboBox1->ItemIndex==0) jiv="KPC";

if (ComboBox1->ItemIndex==1) jiv="Jiv_na_otk";

if (ComboBox1->ItemIndex==2) jiv="Molodnak";

if (ComboBox1->ItemIndex==3) jiv="Loshadi";

}

void __fastcall TForm10::FormShow(TObject *Sender)

{

DBEdit1->DataField="";

for(int i=1;i<32;i++) StringGrid3->Cells[0][i]=IntToStr(i);

for(int i=0;i<8;i++) StringGrid2->Cells[i][0]=IntToStr(i+1);

StringGrid3->Cells[0][0]="A";

StringGrid3->Cells[1][0]="Б";

DateTimePicker1Exit(Sender);

}

void __fastcall TForm10::FormResize(TObject *Sender)

{

Form10->ClientWidth=659;

Form10->ClientHeight=830;

}

void __fastcall TForm11::ComboBox1Select(TObject *Sender)

{

if (ComboBox2->ItemIndex==0)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Data,Nom,Otkuda,Mas_ne,Mas_ke FROM Zap_po_prixodu WHERE N_sklada="+ComboBox1->Text);

Query1->Active=true;

}

else

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Data,Nom,komu,Mas_ne,Mas_ke FROM Zap_po_rasxodu WHERE N_sklada="+ComboBox1->Text);

Query1->Active=true;

}

}

void __fastcall TForm11::ComboBox1Change(TObject *Sender)

{

ComboBox1->Text="Номер склада";

}

void __fastcall TForm11::ComboBox2Change(TObject *Sender)

{

if (ComboBox2->ItemIndex==-1)ComboBox2->ItemIndex=0;

ComboBox1Select(Sender);

}

void __fastcall TForm11::FormShow(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Kod_sklada FROM Sklad");

Query1->Active=true;

Query1->First();

for (int i=0;i<Query1->RecordCount;i++)

{

ComboBox1->Items->Add(Query1->Fields->Fields[0]->AsString);

Query1->Next();

}

Query1->SQL->Clear();

}

void __fastcall TForm11::FormResize(TObject *Sender)

{

Form11->ClientWidth=393;

Form11->ClientHeight=258;

}

void __fastcall TForm12::FormResize(TObject *Sender)

{

Form12->ClientWidth=230;

Form12->ClientHeight=142;

}

void __fastcall TForm13::FormShow(TObject *Sender)

{

Query1->Active=false;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Naim AS Наименование,Bid AS Вид,Grupa AS Группа,Bid_j AS Для_каких_животных,Mas_ne AS Масса_не,Mas_ke AS Масса_ке, N_sklada AS Склад FROM Korma");

Query1->Active=true;

}

Функция удаления записи:

void __fastcall TForm13::Button5Click(TObject *Sender)

{

if (Edit1->Text!="")

{

int e;

e=MessageBox(0,"Удалить запись ?","Удалить?",MB_YESNO);

if (e==IDYES)

{

Query1->SQL->Clear();

Query1->SQL->Add("DELETE FROM Korma WHERE Kod_korma="+Edit1->Text);

Query1->ExecSQL();

}

}

FormShow(Sender);

Edit1->Text="";

}

void __fastcall TForm13::FormResize(TObject *Sender)

{

Form13->ClientWidth=699;

Form13->ClientHeight=178;

}

void __fastcall TForm2::DateTimePicker1Change(TObject *Sender)

{

int masp=0,masr=0;

ListBox1->Items->Clear();

ListBox2->Items->Clear();

Table2->Filter="Data<'"+DateTimePicker1->Date.DateString()+"'";

Table3->Filter="Data<'"+DateTimePicker1->Date.DateString()+"'";

Table1->First();

for(int i=0;i<Table1->RecordCount;i++)

{

ListBox1->Items->Add(Table1->Fields->Fields[1]->AsString);

Table2->First();

for(int j=0;j<Table2->RecordCount;j++)

{

if (Table1->Fields->Fields[1]->AsString==Table2->Fields->Fields[1]->AsString)

masp=masp+Table2->Fields->Fields[4]->AsInteger;

Table2->Next();

}

Table3->First();

for(int j=0;j<Table3->RecordCount;j++)

{

if (Table1->Fields->Fields[1]->AsString==Table3->Fields->Fields[1]->AsString)

masr=masr+Table3->Fields->Fields[4]->AsInteger;

Table3->Next();

}

ListBox2->Items->Add(IntToStr(masp-masr));

masp=0;masr=0;

Table1->Next();

}

}

void __fastcall TForm2::FormResize(TObject *Sender)

{

Form2->ClientWidth=361;

Form2->ClientHeight=185;

}

void __fastcall TForm3::Button1Click(TObject *Sender)

{

Form4->Show();

}

Функция удаления записи:

void __fastcall TForm3::Button2Click(TObject *Sender)

{

if (Edit1->Text!="")

{

int e;

e=MessageBox(0,"Удалить запись ?","Удалить?",MB_YESNO);

if (e==IDYES)

{

Query1->SQL->Clear();

Query1->SQL->Add("DELETE FROM Zap_po_prixodu WHERE Nom="+Edit1->Text);

Query1->ExecSQL();

}

}

Form3->FormShow(Sender);

}

void __fastcall TForm3::FormShow(TObject *Sender)

{

Query1->Active=false;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Nom AS Нпп,Naim AS Наименование_корма,Data AS Дата,Mas_ne AS Масса_в_натуральных_ед,Mas_ke AS Масса_в_кормовых_ед,Otkuda AS Откуда FROM Zap_po_prixodu");

Query1->Active=true;

}

void __fastcall TForm3::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

}

}

}

void __fastcall TForm3::FormResize(TObject *Sender)

{

Form3->ClientWidth=674;

Form3->ClientHeight=494;

}

Функция добавления записи в таблицу приходов:

void __fastcall TForm4::Button2Click(TObject *Sender)

{

DBEdit1->DataField="";

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Nom FROM Zap_po_prixodu WHERE Nom="+Edit1->Text);

DBEdit1->DataField="Nom";

if ((ComboBox1->ItemIndex!=-1)&&(ComboBox3->Text!="")&&(Edit2->Text!="")&&(Edit3->Text!="")&&(Edit4->Text!="")&&(Edit1->Text!=""))

{

Query1->Active=true;

if (DBEdit1->Text=="")

{

AnsiString mne,mke;

DBEdit1->DataField="";

Query1->SQL->Clear();

Query1->SQL->Add("INSERT INTO Zap_po_prixodu(Nom,Naim,Data,Mas_ne,Mas_ke,otkuda,N_sklada)");

Query1->SQL->Add("VALUES ("+Edit1->Text+",'"+ComboBox1->Text+"','"+DateTimePicker1->Date+"',"+Edit3->Text+","+Edit4->Text+",'"+ComboBox3->Text+"',"+Edit2->Text+")");

Query1->ExecSQL();

Form3->FormShow(Sender);

Query1->SQL->Clear(); Query1->SQL->Add("SELECT Mas_ne,Mas_ke FROM korma WHERE Naim='"+ComboBox1->Text+"'"); Query1->Active=true;

DBEdit1->DataField="Mas_ne"; mne=DBEdit1->Text;

DBEdit1->DataField="Mas_ke"; mke=DBEdit1->Text;

Query1->SQL->Clear();

Query1->SQL->Add("UPDATE korma SET Mas_ne="+mne+"+"+Edit3->Text+", Mas_ke="+mke+"+"+Edit4->Text);

Query1->SQL->Add("WHERE Naim='"+ComboBox1->Text+"'");

Query1->ExecSQL();

Form13->FormShow(Sender);

DBEdit1->Text="";

Form4->Close();

}

else ShowMessage("Укажите другой номер записи!");

}

else ShowMessage("Заполните все поля!");

}

void __fastcall TForm4::Button1Click(TObject *Sender)

{

Form4->Close();

}

void __fastcall TForm4::FormCreate(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Naim,N_sklada FROM Korma");

Query1->Active=true;

Query1->First();

for (int i=0;i<Query1->RecordCount;i++)

{

ComboBox1->Items->Add(Query1->Fields->Fields[0]->AsString);

Query1->Next();

}

DateTimePicker1->Date=DateTimePicker1->Date.CurrentDate();

}

void __fastcall TForm4::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

}

}

}

void __fastcall TForm4::Edit3Exit(TObject *Sender)

{

for(int i=1;i<Edit3->Text.Length()+1;i++)

{

if ((Edit3->Text[i]<48)||(Edit3->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit3->Text="";

}

}

}

void __fastcall TForm4::Edit4Exit(TObject *Sender)

{

for(int i=1;i<Edit4->Text.Length()+1;i++)

{

if ((Edit4->Text[i]<48)||(Edit4->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit4->Text="";

}

}

}

void __fastcall TForm4::FormShow(TObject *Sender)

{

Edit1->Text=IntToStr(Table1->RecordCount+1);

}

void __fastcall TForm4::ComboBox1Select(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT N_sklada FROM Korma WHERE Naim='"+ComboBox1->Text+"'");

Query1->Active=true;

Query1->First();

Edit2->Text=Query1->Fields->Fields[0]->AsString;

}

void __fastcall TForm4::FormResize(TObject *Sender)

{

Form4->ClientWidth=312;

Form4->ClientHeight=275;

}

void __fastcall TForm5::Button1Click(TObject *Sender)

{

Form6->Show();

}

void __fastcall TForm5::Button2Click(TObject *Sender)

{

if (Edit1->Text!="")

{

int e;

e=MessageBox(0,"Удалить запись ?","Удалить?",MB_YESNO);

if (e==IDYES)

{

Query1->SQL->Clear();

Query1->SQL->Add("DELETE FROM Zap_po_rasxodu WHERE Nom="+Edit1->Text);

Query1->ExecSQL();

}

}

Form5->FormShow(Sender);

}

void __fastcall TForm5::FormShow(TObject *Sender)

{

Query1->Active=false;

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Nom AS Нпп,Naim AS Наименование_корма,Bid_j AS Для,Data AS Дата,Mas_ne AS Масса_в_натуральных_ед,Mas_ke AS Масса_в_кормовых_ед FROM Zap_po_rasxodu");

Query1->Active=true;

}

void __fastcall TForm5::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

}

}

}

void __fastcall TForm5::FormResize(TObject *Sender)

{

Form5->ClientWidth=612;

Form5->ClientHeight=471;

}

Функция добавления записей в таблицу расходов:

void __fastcall TForm6::Button2Click(TObject *Sender)

{

DBEdit1->DataField="";

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Nom FROM Zap_po_rasxodu WHERE Nom="+Edit1->Text);

DBEdit1->DataField="Nom";

if ((ComboBox1->ItemIndex!=-1)&&(ComboBox2->ItemIndex!=-1)&&(Edit3->Text!="")&&(Edit4->Text!="")&&(Edit1->Text!=""))

{

Query1->Active=true;

if (DBEdit1->Text=="")

{

AnsiString mne,mke;

DBEdit1->DataField="";

Query1->SQL->Clear();

Query1->SQL->Add("INSERT INTO Zap_po_rasxodu(Nom,Naim,Bid_j,Data,Komu,Mas_ne,Mas_ke,N_sklada)");

Query1->SQL->Add("VALUES ("+Edit1->Text+",'"+ComboBox1->Text+"','"+ComboBox2->Text+"','"+DateTimePicker1->Date+"','"+Edit2->Text+"',"+Edit3->Text+","+Edit4->Text+","+Edit5->Text+")");

Query1->ExecSQL();

Form5->FormShow(Sender);

Query1->SQL->Clear(); Query1->SQL->Add("SELECT Mas_ne,Mas_ke FROM korma WHERE Naim='"+ComboBox1->Text+"'"); Query1->Active=true;

DBEdit1->DataField="Mas_ne"; mne=DBEdit1->Text;

DBEdit1->DataField="Mas_ke"; mke=DBEdit1->Text;

Query1->SQL->Clear();

Query1->SQL->Add("UPDATE korma SET Mas_ne="+mne+"-"+Edit3->Text+", Mas_ke="+mke+"-"+Edit4->Text);

Query1->SQL->Add("WHERE Naim='"+ComboBox1->Text+"'");

Query1->ExecSQL();

Form13->FormShow(Sender);

Form6->Close();

}

else ShowMessage("Укажите другой номер записи!");

}

else ShowMessage("Заполните все поля!");

}

void __fastcall TForm6::Button1Click(TObject *Sender)

{

Form6->Close();

}

void __fastcall TForm6::FormCreate(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Naim,N_sklada FROM Korma");

Query1->Active=true;

Query1->First();

for (int i=0;i<Query1->RecordCount;i++)

{

ComboBox1->Items->Add(Query1->Fields->Fields[0]->AsString);

Query1->Next();

}

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Bid_j FROM Jivotnie");

Query1->Active=true;

Query1->First();

for (int i=0;i<Query1->RecordCount;i++)

{

ComboBox2->Items->Add(Query1->Fields->Fields[0]->AsString);

Query1->Next();

}

DateTimePicker1->Date=DateTimePicker1->Date.CurrentDate();

}

void __fastcall TForm6::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

}

}

}

void __fastcall TForm6::Edit3Exit(TObject *Sender)

{

for(int i=1;i<Edit3->Text.Length()+1;i++)

{

if ((Edit3->Text[i]<48)||(Edit3->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit3->Text="";

}

}

}

void __fastcall TForm6::Edit4Exit(TObject *Sender)

{

for(int i=1;i<Edit4->Text.Length()+1;i++)

{

if ((Edit4->Text[i]<48)||(Edit4->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit4->Text="";

}

}

}

void __fastcall TForm6::FormShow(TObject *Sender)

{

Edit1->Text=IntToStr(Table1->RecordCount+1);

}

void __fastcall TForm6::ComboBox1Select(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT N_sklada FROM Korma WHERE Naim='"+ComboBox1->Text+"'");

Query1->Active=true;

Query1->First();

Edit5->Text=Query1->Fields->Fields[0]->AsString;

}

void __fastcall TForm6::FormResize(TObject *Sender)

{

Form6->ClientWidth=311;

Form6->ClientHeight=306;

}

Функция добавления новой записи в таблицу кормов:

void __fastcall TForm7::Button2Click(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Kod_korma FROM korma WHERE Kod_korma="+Edit1->Text);

DBEdit1->DataField="Kod_korma";

Query1->Active=true;

if (DBEdit1->Text=="")

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Naim FROM korma WHERE Naim='"+Edit3->Text+"'");

DBEdit1->DataField="Naim";

Query1->Active=true;

if (DBEdit1->Text=="")

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Kod_sklada FROM Sklad WHERE Kod_sklada="+Edit2->Text);

DBEdit1->DataField="Kod_sklada";

Query1->Active=true;

if (DBEdit1->Text=="")

{

Query1->SQL->Clear();

Query1->SQL->Add("INSERT INTO Korma(Kod_korma,Naim,Bid,Grupa,Bid_j,N_sklada)");

Query1->SQL->Add("VALUES ("+Edit1->Text+",'"+Edit3->Text+"','"+ComboBox2->Text+"','"+ComboBox1->Text+"','"+Edit5->Text+"',"+Edit2->Text+")");

Query1->ExecSQL();

Query1->SQL->Clear();

Query1->SQL->Add("INSERT INTO Sklad(Naim,Kod_sklada)");

Query1->SQL->Add("VALUES ('"+Edit3->Text+"',"+Edit2->Text+")");

Query1->ExecSQL();

}

else {ShowMessage("Указанный номер склада уже записан!"); return;}

Form13->FormShow(Sender);

DBEdit1->DataField="";

Form7->Close();

}

else ShowMessage("Указанное наименование корма уже записано!");

}

else ShowMessage("Укажите другой код!");

}

void __fastcall TForm7::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

}

}

}

void __fastcall TForm7::Edit2Exit(TObject *Sender)

{

for(int i=1;i<Edit2->Text.Length()+1;i++)

{

if ((Edit2->Text[i]<48)||(Edit2->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit2->Text="";

}

}

}

void __fastcall TForm7::FormResize(TObject *Sender)

{

Form7->ClientWidth=302;

Form7->ClientHeight=271;

}

void __fastcall TForm7::Button1Click(TObject *Sender)

{

Form7->Close();

}

void __fastcall TForm9::FormCreate(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Bid_j FROM Jivotnie");

Query1->Active=true;

Query1->First();

for (int i=0;i<Query1->RecordCount;i++)

{

ComboBox1->Items->Add(Query1->Fields->Fields[0]->AsString);

Query1->Next();

}

}

void __fastcall TForm9::ComboBox1Select(TObject *Sender)

{

if (ComboBox1->ItemIndex!=-1)

{

Query2->SQL->Clear();

Query2->SQL->Add("SELECT * FROM Jivotnie WHERE Bid_j='"+ComboBox1->Text+"'");

Query2->Active=true;

}

Edit1->Text=DBEdit1->Text;

}

void __fastcall TForm9::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

Button1->Enabled=false;

break;

}

else Button1->Enabled=true;

}

}

Функция обновления записи в таблице животных:

void __fastcall TForm9::Button1Click(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("UPDATE Jivotnie SET Kol_golov="+Edit1->Text);

Query1->SQL->Add(" WHERE Bid_j='"+ComboBox1->Text+"'");

Query1->ExecSQL();

FormShow(Sender);

Button1->Enabled=false;

}

void __fastcall TForm9::FormShow(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT * FROM Jivotnie");

Query1->Active=true;

}

void __fastcall TForm9::FormResize(TObject *Sender)

{

Form9->ClientWidth=186;

Form9->ClientHeight=226;

}

void __fastcall TForm8::FormCreate(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT Naim FROM Hopmi");

Query1->Active=true;

Query1->First();

for (int i=0;i<Query1->RecordCount;i++)

{

ComboBox1->Items->Add(Query1->Fields->Fields[0]->AsString);

Query1->Next();

}

}

void __fastcall TForm8::FormShow(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("SELECT * FROM Hopmi");

Query1->Active=true;

}

void __fastcall TForm8::ComboBox1Select(TObject *Sender)

{

if (ComboBox1->ItemIndex!=-1)

{

Query2->SQL->Clear();

Query2->SQL->Add("SELECT * FROM Hopmi WHERE Naim='"+ComboBox1->Text+"'");

Query2->Active=true;

}

Edit1->Text=DBEdit1->Text;

Edit2->Text=DBEdit2->Text;

Edit3->Text=DBEdit3->Text;

Edit4->Text=DBEdit4->Text;

}

void __fastcall TForm8::Edit1Exit(TObject *Sender)

{

for(int i=1;i<Edit1->Text.Length()+1;i++)

{

if ((Edit1->Text[i]<48)||(Edit1->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit1->Text="";

Button1->Enabled=false;

break;

}

else Button1->Enabled=true;

}

}

void __fastcall TForm8::Edit2Exit(TObject *Sender)

{

for(int i=1;i<Edit2->Text.Length()+1;i++)

{

if ((Edit2->Text[i]<48)||(Edit2->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit2->Text="";

Button1->Enabled=false;

break;

}

else Button1->Enabled=true;

}

}

void __fastcall TForm8::Edit3Exit(TObject *Sender)

{

for(int i=1;i<Edit3->Text.Length()+1;i++)

{

if ((Edit3->Text[i]<48)||(Edit3->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit3->Text="";

Button1->Enabled=false;

break;

}

else Button1->Enabled=true;

}

}

void __fastcall TForm8::Edit4Exit(TObject *Sender)

{

for(int i=1;i<Edit4->Text.Length()+1;i++)

{

if ((Edit4->Text[i]<48)||(Edit4->Text[i]>58))

{

ShowMessage("Числовое значение!");

Edit4->Text="";

Button1->Enabled=false;

break;

}

else Button1->Enabled=true;

}

}

Функция обновления записей в таблице норм кормления животных:

void __fastcall TForm8::Button1Click(TObject *Sender)

{

Query1->SQL->Clear();

Query1->SQL->Add("UPDATE Hopmi SET KPC="+Edit1->Text+", Jiv_na_otk="+Edit2->Text+", Molodnak="+Edit3->Text+", Loshadi="+Edit4->Text);

Query1->SQL->Add(" WHERE Naim='"+ComboBox1->Text+"'");

Query1->ExecSQL();

FormShow(Sender);

Button1->Enabled=false;

}

void __fastcall TForm8::FormResize(TObject *Sender)

{

Form8->ClientWidth=380;

Form8->ClientHeight=252;

}

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form10->Show();

}

void __fastcall TForm1::N6Click(TObject *Sender)

{

Form8->Show();

}

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form3->Show();

}

void __fastcall TForm1::N7Click(TObject *Sender)

{

Form9->Show();

}

void __fastcall TForm1::N11Click(TObject *Sender)

{

Form11->Show();

}

void __fastcall TForm1::N10Click(TObject *Sender)

{

Form12->Show();

}

void __fastcall TForm1::N15Click(TObject *Sender)

{

Form7->Show();

}

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form1->Close();

}

void __fastcall TForm1::N16Click(TObject *Sender)

{

Form5->Show();

}

void __fastcall TForm1::N13Click(TObject *Sender)

{

Form2->Show();

}

void __fastcall TForm1::N14Click(TObject *Sender)

{

Form13->Show();

}

void __fastcall TForm1::FormResize(TObject *Sender)

{

Form1->ClientWidth=792;

Form1->ClientHeight=449;

}