Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Форма просмотра и редактирования БД
unit edit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls;
type
TEditBD = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
GroupBox2: TGroupBox;
Edit1: TEdit;
Button1: TButton;
procedure FormActivate(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
EditBD: TEditBD;
implementation
uses module;
{$R *.dfm}
procedure TEditBD.FormActivate(Sender: TObject);
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Catalogs');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
procedure TEditBD.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text='Клиенты' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Clients');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
if ComboBox1.Text='Каталог' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Catalogs');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
if ComboBox1.Text='Заказы' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Orders');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
end;
procedure TEditBD.Button1Click(Sender: TObject);
begin
if ComboBox1.Text='Клиенты' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Clients WHERE id_clienta LIKE '''+Edit1.Text+'''');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
if ComboBox1.Text='Каталог' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Catalogs WHERE id_cars LIKE '''+Edit1.Text+'''');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
if ComboBox1.Text='Склад' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Warehouse WHERE id_warehouse LIKE '''+Edit1.Text+'''');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
if ComboBox1.Text='Заказы' then
begin
ModuleBD.ADOQuery_Edit.SQL.Clear;
ModuleBD.ADOQuery_Edit.SQL.Add('SELECT * FROM Orders WHERE id_orders LIKE '''+Edit1.Text+'''');
ModuleBD.ADOQuery_Edit.Active:=True;
end;
end;
end.
Date: 2015-10-19; view: 353; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |