unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB,shellapi;
type
TForm7 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
ADOQuery10: TADOQuery;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form7: TForm7;
implementation
uses main;
{$R *.dfm}
procedure TForm7.Button1Click(Sender: TObject);
var
F: TextFile;
sql:String;
b:Integer;
begin
ADOQuery10.SQL.Clear;
b:=0;
if(Edit1.Text<>'')then
begin
sql:='Data_rogdenie=DateValue("'+Edit1.Text+'")';
b:=1;
end;
if(ComboBox1.Text<>'')then
begin
if(b=1)then
sql:=sql+' AND ';
sql:='Pol="'+ComboBox1.Text+'"';
b:=1;
end;
ADOQuery10.SQL.Add('SELECT Tab_nomer FROM Sotrydnik WHERE '+sql);
try
ADOQuery10.Active:=True;
except
ShowMessage('Произошла исключительная ситуация: Не могу поместить данные! Обратитесь к разработчику программы.');
end;
with Form1 do
begin
AssignFile(F, 'report.htm');
Rewrite(F);
Writeln(F,'<html><head><title>Отчет по сотруднику сотруднику</title><meta http-equiv="Content-Type" content="text/html; charset=windows-1251"></head><body>');
04.02.2010, 11:37
Поиск по бд акссес
Древовидный вид