Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Menus;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADODataSet1: TADODataSet;
MainMenu1: TMainMenu;
File1: TMenuItem;
Exit1: TMenuItem;
Zaprosy1: TMenuItem;
Zapros11: TMenuItem;
Ishodnayatablica1: TMenuItem;
procedure Zapros11Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure Ishodnayatablica1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Zapros11Click(Sender: TObject);
begin
adodataset1.active:=false;
adodataset1.commandtext:='SELECT Produkty.Nomer_prod, Produkty.name_prod, Produkty.kkal FROM Produkty;';
adodataset1.active:=true;
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Ishodnayatablica1Click(Sender: TObject);
begin
adodataset1.active:=false;
adodataset1.commandtext:='';
adodataset1.active:=true;
end;
end.
Практическая работа
База данных «ЖКХ»
Рис. 1. Структура таблицы «Абоненты»
Рис. 2. Таблица «Абоненты»
Рис. 2. Окно программы.
Листинг программы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, DB, ADODB, DBCtrls, Grids, DBGrids, ExtCtrls,
Mask;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DBGrid3: TDBGrid;
DBNavigator3: TDBNavigator;
Panel4: TPanel;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADOConnection2: TADOConnection;
ADODataSet2: TADODataSet;
DataSource2: TDataSource;
Panel5: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
Edit3: TEdit;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
BitBtn1: TBitBtn;
Button1: TButton;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
DataSource3: TDataSource;
ADOConnection3: TADOConnection;
ADODataSet3: TADODataSet;
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
tarif,soc:integer;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
adodataset1.Active:=false;
adodataset1.Active:=true;
adodataset2.Active:=false;
adodataset2.CommandText:='select [Конечное_показание_счетчика]-[Начальное_показание_счетчика] as "Количество" from Абонент;';
adodataset2.Active:=true;
adodataset3.Active:=False;
adodataset3.CommandText:='select (([Конечное_показание_счетчика]-[Начальное_показание_счетчика])*'+Edit3.Text+') as "Сумма к оплате" from Абонент;';
adodataset3.Active:=True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='select * from Абонент';
ADODataSet1.Active:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Edit1.Text = '' then
ShowMessage('BBeguTe 3anpoc!')
else begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='SELECT Абонент.[ФИО] FROM Абонент WHERE (((Абонент.[ФИО])="'+Edit1.Text+'"))';
ADODataSet1.Active:=true;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if Edit2.Text = '' then
ShowMessage('BBeguTe 3anpoc!')
else begin
ADODataSet1.Active:=false;
ADODataSet1.CommandText:='SELECT Абонент.[Номер_лицевого_счета] FROM Абонент WHERE (((Абонент.[Номер_лицевого_счета])="'+Edit2.Text+'"))';
ADODataSet1.Active:=true;
end;
end;
end.
Практическая работа
База данных «Студенты».
Рис. 1. Структура таблицы «Студенты»
Рис. 2. Таблица «Студенты»
Рис. 3. Окно программы
Листинг программы:
unit Unit1;