Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:book_shop / QAuthor
.pas unit QAuthor;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables, DBCtrls;
type
TForm_QAuthor = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button_Close: TButton;
Button_Execute: TButton;
DBLookupComboBox1: TDBLookupComboBox;
Table_Books1: TTable;
DataSource_Books1: TDataSource;
Label1: TLabel;
procedure Button_CloseClick(Sender: TObject);
procedure Button_ExecuteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_QAuthor: TForm_QAuthor;
implementation
{$R *.DFM}
procedure TForm_QAuthor.Button_CloseClick(Sender: TObject);
begin
close;
end;
procedure TForm_QAuthor.Button_ExecuteClick(Sender: TObject);
begin
try
Query1.Active:=false;
Query1.ParamByName('author').AsString:=DBLookUpComboBox1.Text;
Query1.Active:=true;
except
on error: EDatabaseError do begin
MessageDlg('При выполнении запроса произошла ошибка:'+#13+#13+
error.Message ,mtError,[mbOK],0);
end;
end;
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db, DBTables, DBCtrls;
type
TForm_QAuthor = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button_Close: TButton;
Button_Execute: TButton;
DBLookupComboBox1: TDBLookupComboBox;
Table_Books1: TTable;
DataSource_Books1: TDataSource;
Label1: TLabel;
procedure Button_CloseClick(Sender: TObject);
procedure Button_ExecuteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_QAuthor: TForm_QAuthor;
implementation
{$R *.DFM}
procedure TForm_QAuthor.Button_CloseClick(Sender: TObject);
begin
close;
end;
procedure TForm_QAuthor.Button_ExecuteClick(Sender: TObject);
begin
try
Query1.Active:=false;
Query1.ParamByName('author').AsString:=DBLookUpComboBox1.Text;
Query1.Active:=true;
except
on error: EDatabaseError do begin
MessageDlg('При выполнении запроса произошла ошибка:'+#13+#13+
error.Message ,mtError,[mbOK],0);
end;
end;
end;
end.
Соседние файлы в папке book_shop