Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 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.
|