Приложение учета приема товаров на склад

Концептуальная схема базы данных Optov. Выбор средств разработки приложения. Структура его программного обеспечения. Проектирование приложения для учета приема товаров на склад, позволяющего осуществлять удаленный доступ через Internet к базе данных.

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 07.08.2011
Размер файла 218,0 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

otvet:='';

IBQ.First;

While not IBQ.Eof do

begin

otvet:=otvet+'Kod tovara: '+inttostr(IBQ.fieldbyname('KOD_TOVARA').Asinteger)+' Title : '+IBQ.fieldbyname('NAIMENOVANIE').AsString+' Cost : '+inttostr(IBQ.fieldbyname('STOIMOST_').AsInteger)+' Ed_izm : '+IBQ.fieldbyname('ED_IZM').AsString+' FIO sotr : '+ fio + #10#13;

IBQ.next;

end;

if otvet='' then Response.Content:='Dannyx net' else

Response.Content:=otvet;

end;

end.

Приложение sotrud

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

var otvet:string;

begin

IBQ.SQL.Clear;

IBQ.SQL.Add('select * from sotrudnik');

IBQ.Close;

IBQ.Open;

IBQ.First;

otvet:='';

While not IBQ.Eof do

begin

otvet:=otvet+'#Passp:'+IBQ.fieldbyname('NOMER_PASPORTA').AsString+' FIO: '+IBQ.fieldbyname('FIO_SOTRUDNIKA').AsString+' DOLZHNOST:'+IBQ.fieldbyname('DOLZHNOST_').AsString+' TEL.: '+inttostr(IBQ.fieldbyname('TEL_SOTR').AsInteger)+' INN: '+inttostr(IBQ.fieldbyname('INN').AsInteger) + #10#13;

IBQ.next;

end;

if otvet='' then Response.Content:='Dannyx net' else

Response.Content:=otvet;

end;

end.

Приложение tovar

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

var otvet:string;

begin

IBQ.SQL.Clear;

IBQ.SQL.Add('select KOD_TOVARA, NAIMENOVANIE, STOIMOST_, ED_IZM, FIO_SOTRUDNIKA,');

IBQ.SQL.Add('FIO_KONTR from TOVAR, SOTRUDNIK, KONTRAGENT');

IBQ.SQL.Add('where (tovar.KOD_KONTRAGENTA= KONTRAGENT.KOD_KONTRAGENTA)and');

IBQ.SQL.Add('(tovar.NOMER_PASPORTA= SOTRUDNIK.NOMER_PASPORTA)');

IBQ.Close;

IBQ.Open;

IBQ.First;

otvet:='';

While not IBQ.Eof do

begin

otvet:=otvet+'Kod tovara: '+inttostr(IBQ.fieldbyname('KOD_TOVARA').Asinteger)+' Title : '+IBQ.fieldbyname('NAIMENOVANIE').AsString+' Cost : '+inttostr(IBQ.fieldbyname('STOIMOST_').AsInteger)+' Ed_izm : '+IBQ.fieldbyname('ED_IZM').AsString+' FIO sotr : '+IBQ.fieldbyname('FIO_SOTRUDNIKA').AsString+' FIO_KONTR : '+IBQ.fieldbyname('FIO_KONTR').AsString + #10#13;

IBQ.next;

end;

if otvet='' then Response.Content:='Dannyx net' else

Response.Content:=otvet;

end;

end.

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.