Заключение. Я разработал базу данных

Я разработал базу данных.

С помощью моей базы можно без затруднений и специальных знаний вести базу данных, которая позволяет делать все операции с клиентами, заказами. То есть добавлять, изменять, обновлять, удалять и просматривать все имеющиеся и вводимые данные.

Кнопочная форма позволяет просматривать отчеты,формы, делать заказы и обновлять данные.

Я считаю, что база данных в среде СУБД MS Access практическом применении удобна и достаточно эффективна. Все зависит от пользователя, объема располагаемых им знаний и умения ими воспользоваться. Говоря о себе могу сказать, что эта программа имеет много полезных функций и в дальнейшем мне очень пригодится.

Разработка Клиентского приложения на Delphi.

unit DBase1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button2: TButton;

Button3: TButton;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

ADOTable2: TADOTable;

Label1: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button6: TButton;

Edit3: TEdit;

Edit4: TEdit;

Button7: TButton;

Label5: TLabel;

Label6: TLabel;

Button8: TButton;

ADOQuery1: TADOQuery;

Button9: TButton;

ComboBox1: TComboBox;

Label2: TLabel;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

procedure Button9Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOtable1.Open;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOtable1.Close;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

ADOTable1.Open;

Form3.Edit1.text:=IntToStr(Form1.ADOTable1.FieldByName('Код заказчика').AsInteger);

Form3.Edit2.text:=Form1.ADOTable1.FieldByName('ФИО заказчика').AsString;

Form3.Edit3.text:=IntToStr(Form1.ADOTable1.FieldByName('Телефон клиента').AsInteger);

Form3.Edit4.text:=Form1.ADOTable1.FieldByName('Адрес клиента').AsString;

Form3.Edit5.text:=IntToStr(Form1.ADOTable1.FieldByName('Код автомобиля').AsInteger);

Form3.Edit6.text:=Form1.ADOTable1.FieldByName('Марка автомобиля').AsString;

Form3.showmodal;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

ADOtable2.Close;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

ADOtable1.Edit;

ADOtable1.Append;

ADOtable1.FieldByName('Код заказчика').AsInteger:=StrToInt(Edit1.Text);

ADOtable1.FieldByName ('ФИО заказчика').AsString:=Edit2.Text;

ADOtable1.Post;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

ADOtable2.Edit;

ADOtable2.Append;

ADOtable2.FieldByName('Код автомобиля').AsInteger:=StrToInt(Edit3.Text);

ADOtable2.FieldByName('Марка автомобиля').AsString:=Edit4.Text;

ADOtable2.Post;

end;

procedure TForm1.Button8Click(Sender: TObject);

var

str1:string;

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

str1:='SELECT * FROM '+combobox1.Text;

label2.Caption:=combobox1.Text;

ADOQuery1.SQL.ADD(str1);

ADOQuery1.ExecSQL;

ADOQuery1.Open;

end;

procedure TForm1.Button9Click(Sender: TObject);

var i:integer;

s:string;

begin

ADOtable1.Open;

ADOtable1.First;

While (not(ADOtable1.Eof))do

begin

i:=ADOtable1.FieldByName('Код заказчика').AsInteger;

s:=ADOtable1.FieldByName('ФИО заказчика').AsString;

ShowMessage('i='+inttostr(i)+' | '+s);

ADOtable1.Next;

end;

end;

end.