Ссылка : Data Module /ibqchit/string; Запрос :select * from chitately; //добавит читателя procedure tchitately. Bitbtn1click(sender: tobject);

~ Читатели~

Ссылка: Data Module /IBQChit/string;
Запрос: select * from CHITATELY;
// Добавит читателя
procedure TCHITATELY.BitBtn1Click (Sender: TObject);

begin

DobavChit.show;

end;

procedure TDobavChit.BitBtn1Click (Sender: TObject);

begin

dm.qChit.Close;

IBSQL1.SQL.Text:='INSERT INTO CHITATELY (ID,FIO,DATA_REG,NOMER_STUD) values ((gen_id(GEN_CHIT_ID,1)),('+QuotedStr(Edit1.Text)+'),('''+DateToStr(DateTimePicker1.Date)+'''),('+QuotedStr(Edit2.Text)+'))';

IBSQL1.ExecQuery;

DM.qChit.Open;

close;

end;
procedure TDobavChit.BitBtn2Click (Sender: TObject);

begin

close;

end;
//Изменить читателя

procedure TCHITATELY.N1Click(Sender: TObject);

var ID:integer;

FIO,DATA_REG,NOMER_STUD:String;

begin

id:=DM.qChit.fields.fields[0].AsInteger;

FIO:=DM.qChit.fields.fields[1].AsString;

DATA_REG:=DM.qChit.fields.fields[2].AsString;

NOMER_STUD:=DM.qChit.fields.fields[3].AsString;

IZMEN_CHIT.Edit4.Text:=IntToStr(ID);

IZMEN_CHIT.Edit1.Text:=FIO;

IZMEN_CHIT.Edit2.Text:=NOMER_STUD;

IZMEN_CHIT.Show;

IZMEN_CHIT.DateTimePicker1.Date:=Dm.qChit.fields.fields[2].AsDateTime;

end;

_____________________________________________________________________________
~ Формуляр~

Ссылка: Data Module /IBQForm/string;
Запрос:select * from FORMULYAR;

//Добавить формуляр
procedure TFORMULYAR.BitBtn1Click (Sender: TObject);

begin

dobavFORM.show;

end;

procedure TDobavFORM.BitBtn1Click (Sender: TObject);

var date, date1:string;

begin

date:=DateToStr(DateTimePicker1.Date);

date1:=DateToStr(DateTimePicker2.Date);

DM.qFormul.Close;

IBSQL1.SQL.Text:='INSERT INTO FORMULYAR (ID,INV_NOMER,KOD_CHIT,DATA_VIDACHI,DATA_VOZ,FAK_DATA_VOZ) values ((gen_id(GEN_FORMULYAR_ID,1)),('+QuotedStr(Edit2.Text)+'),(select id from chitately where fio='+QuotedStr(Edit1.Text)+'),('+QuotedStr(date)+'),('+QuotedStr(date1)+'), ('''+DateToStr(DateTimePicker2.Date)+'''))';

IBSQL1.ExecQuery;

DM.qFormul.Open;

close;

procedure TDobavFORM.BitBtn2Click (Sender: TObject);

begin

close;

end;

~Издательство~

Ссылка: Data Module /IBQuery/string
select * from IZDATELSTVO;

//Добавить издательство
procedure TIZDATEL.BitBtn1Click(Sender: TObject);

begin

DobavIzdat.show;

end;

procedure TDobavIzdat.BitBtn1Click(Sender: TObject);

begin

DM.qIzdatel.Close;

IBSQL1.SQL.Text:='INSERT INTO IZDATELSTVO(ID,NAME,ADRESS,TELEFON) values ((gen_id(GEN_IZDATELSTVO_ID,1)),('+QuotedStr(Edit1.Text)+'),('+QuotedStr(Edit2.Text)+'),('+QuotedStr(Edit3.Text)+'))';

IBSQL1.ExecQuery;

DM.qIzdatel.Open;

close;

end;

_____________________________________________________________________________
~ Списание ~

Ссылка: Data Module /IBQSpisan/string
select * from SPISAN;
//Добавить списание
procedure TSPISAN.Button1Click(Sender: TObject);

begin

SPISAT_KNIG.show;

end;

procedure TSPISAT_KNIG.BitBtn1Click(Sender: TObject);

begin

DM.qKnigi.Close;

IBSQL1.SQL.Text:='INSERT INTO KNIGI (ID,KOD_KNIGI,DATA_SP,PRICHINA) values ((gen_id(GEN_SPISAN_ID,1)),('+QuotedStr(Edit2.Text)+'),('+DateToStr(DateTimePicker1.Date)+'),('+QuotedStr(Edit1.Text)+'))';

IBSQL1.ExecQuery;

DM.qKnigi.Open;

Close;

end;
____________________________________________________________________________
~Книги~

Ссылка: Data Module /IBQKnigi/string
select * from KNIGI;

//Добавить книгу
procedure TKNIGI.BitBtn1Click(Sender: TObject);

begin

DobavKnigu.show;

end;

procedure TDobavKnigu.BitBtn1Click(Sender: TObject);

begin

DM.qKnigi.Close;

IBSQL1.SQL.Text:='INSERT INTO KNIGI (KNIGI.ID,KNIGI.NAIM,KNIGI.KOD_AVTOR,KNIGI.GOD_IZDANIYA,KNIGI.KOD_JANR,KNIGI.KOD_IZDAT,KNIGI.KOLVO_STRANIC,KNIGI.ZENA) values (gen_id(GEN_KNIGI_ID,1)';

IBSQL1.SQL.Add (',('+QuotedStr(Edit1.Text)+'),(select a.id from avtor a where a.naim='+QuotedStr(Edit2.Text)+'),('+QuotedStr(Edit5.Text)+'),(select j.id from janr j where j.naim='+QuotedStr(ComboBox1.Text)+')');

IBSQL1.SQL.Add(',(select izd.id from izdatelstvo izd where izd.name='+QuotedStr(ComboBox2.Text)+')');

IBSQL1.SQL.Add (',('+QuotedStr(Edit3.Text)+'),('+QuotedStr(Edit4.Text)+'))');

IBSQL1.ExecQuery;

DM.qKnigi.Open;

Close;

end; _____________________________________________________________________________
~Жанр~

Ссылка: Data Module /IBQJanr/string
select * from JANR
//Добавить жанр
procedure TJANR.BitBtn1Click(Sender: TObject);

begin

DM.qJanr.Close;

IBSQL1.SQL.Text:='INSERT INTO janr (ID,NAIM) values ((gen_id(GEN_JANR_ID,1)),('+QuotedStr(Edit1.Text)+'))';

IBSQL1.ExecQuery;

DM.qJanr.Open;

Label1.Caption:='Äîáàâëåíî!';

Edit1.Text:='';

end; _____________________________________________________________________________
~Автор~

Ссылка: Data Module /IBQAvtor/string
select * from AVTOR

//Добавить автора
procedure TAVTOR.BitBtn1Click(Sender: TObject);

begin

DM.qAvtor.Close;

IBSQL1.SQL.Text:='INSERT INTO AVTOR (ID,NAIM) values ((gen_id(GEN_AVTOR_ID,1)),('+QuotedStr(Edit1.Text)+'))';

IBSQL1.ExecQuery;

DM.qAvtor.Open;

Label1.Caption:='Добавлено!';

Edit1.Text:='';

end;

Дата добавления: 2015-08-29