Информатика и выч. техника \ Компьютерные операционные системы

Создание базы данных магазина спортивных товаров. Описание интерфейсной части программы. Листинг программы, страница 5

sqlquery2.Open;

sqlquery2.First;

end;

Write(f,'<html><head><title><center> Список товаров</head></title>');

write(f,'<body><h2> <center>Перечень товаров вида: '+chr($27)+combobox1.Text+chr($27)+'<br>');

//рисуем шапку таблицы

s:='<table border="2"> <tr><td width="30"> Название</td>';

s:=s+'<td width="20"> Фирма производитель</td>';

s:=s+'<td width="10%"> Страна</td>';

s:=s+'<td width="15%"> Размер</td>';

s:=s+'<td width="15%"> Вес</td>';

s:=s+'<td width="5%"> Цена</td>';

s:=s+'<td width="5%"> Наличие</td></tr>';

write (f,s);

while not datamodule1.sqlquery2.Eof do  // пока не закончилось содержимое запроса

begin

s:='<tr><td>'+datamodule1.SQLQuery2.FieldByName('NAZVAN').Value+'</td><td> '+ datamodule1.SQLQuery2.FieldByName('proizv').value;

s:=s+'</td><td> '+datamodule1.SQLQuery2.FieldByName('strana_proiz').Value;

s:=s+'</td><td>'+datamodule1.SQLQuery2.FieldByName('razmer').Value+'</td>';

s:=s+'<td>'+ datamodule1.SQLQuery2.FieldByName('ves').Value+'</td>';

c:=vartostr(datamodule1.SQLQuery2.FieldByName('cena').Value);

s:=s+'<td>'+c+'</td>';

s:=s+'<td>'+datamodule1.SQLQuery2.FieldByName('nalichie').Value+'</td>';      s:=s+'</tr>';

Write(f, s);

datamodule1.SQLQuery2.Next;

end;

write(f,'</table></body></html>');

closeFile(f);

ShellExecute(h,'open', pchar('iexplore.exe'), pchar( 'C:\temp\vedom1.html'),nil, SW_ShowNormal);

end

else

showmessage('Выберите вид товаров!!!');

End;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,shellapi;

type

TForm3 = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, SDIMAIN;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

combobox1.Items.clear;

combobox2.Items.clear;

datamodule1.sqlquery2.sql.clear;

datamodule1.sqlquery2.sql.add('select distinct data from prodano order by data');

datamodule1.sqlquery2.open;

with datamodule1 do

begin

sqlquery2.First;

while not sqlquery2.Eof do

begin

{*}

combobox1.Items.Add(sqlquery2.FieldByName('data').Value);

combobox2.Items.Add(sqlquery2.FieldByName('data').Value);

sqlquery2.Next;

end;

sqlquery2.close;

end;

end;

procedure TForm3.Button2Click(Sender: TObject);

var F: textFile;

s,c: string;

i,b:integer;

begin

if ((combobox1.text<>'')and (combobox2.text<>'')

and(strtodate(combobox1.text)<strtodate(combobox2.Text)))then

begin

assignFile(f,'C:\temp\vedom2.html'); //

rewrite(f);   With DataModule1 do

begin

sqlquery2.Close;

sqlquery2.SQL.Clear;

sqlquery2.SQL.Add('Select shifr,sum(kol) as koll from prodano group by shifr');

sqlquery2.SQL.Add(' having ((data)>=('+chr($27)+combobox1.Text+chr($27)+'))and');

sqlquery2.SQL.Add('((data)<=('+chr($27)+combobox2.Text+chr($27)+'));');

sqlquery2.Open;

sqlquery2.First;

end;

//строки ниже формируют заголовок html-документа.

Write(f,'<html><title><center> Отчет по продажам</title>');

write(f,'<body><h1> <center> Отчет по продажам с : '+chr($27)+combobox1.Text+chr($27));

Скачать файл