Бездействие к добру и действие ко злу - равны. © Александр Дьяков 1083 - | 835 - или читать все...
Обратная связь Пожаловаться на материал

Cписок использованной литературы


⇐ ПредыдущаяСтр 7 из 7

 

1 Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. — СПб.: БХВ-Петербург, 2003. — 288 с.

2 Гофман В. Э., Хомоненко А. Д. Работа с базами данных в Delphi. — СПб.: БХВ-Петербург, 2001. — 656 с.

3 Боровский А. Н. Программирование в Delphi 2005. — СПб.: БХВ-Петербург, 2005. - 448 с.

4 Дарахвелидзе П. Г., Марков Е. П. Delphi 2005 для Win32. - СПб.: БХВ-Петербург, 2005. - 1136 с.

5 Сорокин А. В. Delphi. Разработка баз данных. — СПб.: Питер, 2005. — 477 с.

6 Фленов М. Е. Библия Delphi. — СПб.: БХВ-Петербург, 2004. — 880 с.

7 Фленов М. Е. Программирование в Delphi глазами хакера. — СПб.: БХВ-Петербург, 2003. - 368 с.

8 Фленов М. Е. Delphi в шутку и всерьез: что умеют хакеры (+CD). — СПб.: Питер. 2006. — 271 с.

9 Архангельский Л.Я. Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET. — М.: ООО «Бином-Пресс», 2006 г. — 1 152 с.

10 Фаронов В. В. Delphi 2005. Разработка приложений для баз данных и Интернета. — СПб.: Питер, 2006. — 603 с.

11 Карпова Т. С. Базы данных: модели, разработка, реализация. — СПб.: Питер, 2001. — 304 с.

12 Иллюстрированный самоучитель по Delphi для начинающих. Электронное пособие.

13 Иллюстрированный самоучитель по Delphi для профессионалов. Электронное пособие.

14 Delphi World 6.0. Электронный справочник.

 

Приложение

unit Unit1;

 

interface

 

uses

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

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

 

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Label1: TLabel;

Label2: TLabel;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn6: TBitBtn;

Panel4: TPanel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Panel5: TPanel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Edit2: TEdit;

ADOQuery1index: TAutoIncField;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner4: TWideStringField;

ADOQuery1DSDesigner5: TWideStringField;

ADOQuery1DSDesigner6: TWideStringField;

ADOQuery1DSDesigner7: TWideStringField;

ADOQuery1DSDesigner8: TWideStringField;

ADOQuery1DSDesigner9: TWideStringField;

ADOQuery1DSDesigner10: TWideStringField;

ADOQuery1DSDesigner11: TWideStringField;

Panel6: TPanel;

Label27: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox4: TCheckBox;

Edit1: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

BitBtn2: TBitBtn;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

BitBtn5: TBitBtn;

BitBtn8: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

  procedure BitBtn2Click(Sender: TObject);

   procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

   

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

uses Unit2, Unit3, Unit4;

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

 begin

DBGrid1.Columns[0].Visible := False;

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form2.Show;

end;

 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

Form3.Show;

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if length(edit1.text) or length(edit3.text) or length(edit4.text) or length(edit5.text) >0 then

begin

If checkbox1.Checked or checkbox2.Checked or checkbox3.Checked or checkbox4.Checked then

begin

ADOQuery1.Filtered:=true;

if checkbox1.Checked then

if length(edit1.text) >0 then

ADOQuery1.Filter:='Фамилия LIKE '+#39+Edit1.Text+'%'+#39

else MessageDlg('Не корректный запрос по Фамилии',mtError, [mbOK],0);

if checkbox2.Checked then

if length(edit3.text) >0 then

ADOQuery1.Filter:='Марка LIKE '+#39+Edit3.Text+'%'+#39

else MessageDlg('Не корректный запрос по Марке',mtError, [mbOK],0);

if checkbox3.Checked then

if length(edit4.text) >0 then

ADOQuery1.Filter:=' Цвет LIKE '+#39+Edit4.Text+'%'+#39

else MessageDlg('Не корректный запрос по Цвету',mtError, [mbOK],0);

if checkbox4.Checked then

if length(edit5.text) >0 then

ADOQuery1.Filter:='Год рождения LIKE '+#39+Edit5.Text+'%'+#39

else MessageDlg('Не корректный запрос по Году рождения',mtError, [mbOK],0);

end

else MessageDlg('Вы не выбрали ни одного поля для фильтра',mtError, [mbOK],0);

end

else MessageDlg('Вы не ввели ни одного символа для фильтра',mtError, [mbOK],0);

end;

 

 

procedure TForm1.BitBtn3Click(Sender: TObject);

 var vibor:Integer;

begin

vibor:=MessageDlg('Вы действительно хотите удалить эту запись?',mtWarning,

                         [mbYes,mbNo], 0);

If vibor = mrYes then

DBGrid1.DataSource.DataSet.Delete

 

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

if RadioButton1.Checked then

ADOQuery1.Locate ('Гос №', edit2.text,[loCaseInsensitive,loPartialKey]);

if RadioButton2.Checked then

ADOQuery1.Locate ('Кузов №', edit2.text,[loCaseInsensitive,loPartialKey]);

if RadioButton3.Checked then

ADOQuery1.Locate ('Двигатель №', edit2.text,[loCaseInsensitive,loPartialKey]);

end;

 

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

ADOQuery1.Filtered:=false;

end;

 

procedure TForm1.DBGrid1CellClick(Column: TColumn);

var a, s, d, f, g, h, j, k, l, z, x:string;

begin

a := dbgrid1.datasource.dataset.fieldByName('Фамилия').asString;

s := dbgrid1.datasource.dataset.fieldByName('Имя').asString;

d := dbgrid1.datasource.dataset.fieldByName('Отчество').asString;

f := dbgrid1.datasource.dataset.fieldByName('Год рождения').asString;

g := dbgrid1.datasource.dataset.fieldByName('Телефон').asString;

h := dbgrid1.datasource.dataset.fieldByName('Место жительства').asString;

j := dbgrid1.datasource.dataset.fieldByName('Гос №').asString;

k := dbgrid1.datasource.dataset.fieldByName('Марка').asString;

l := dbgrid1.datasource.dataset.fieldByName('Кузов №').asString;

z := dbgrid1.datasource.dataset.fieldByName('Двигатель №').asString;

x := dbgrid1.datasource.dataset.fieldByName('Цвет').asString;

Label16.Caption:=a;

Label17.Caption:=s;

Label18.Caption:=d;

Label19.Caption:=f;

Label20.Caption:=g;

Label21.Caption:=h;

Label22.Caption:=j;

Label23.Caption:=k;

Label24.Caption:=l;

Label25.Caption:=z;

Label26.Caption:=x;

end;

 

unit Unit2;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons;

 

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

 Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

try

if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') then

begin

exit;

end;

Form1.ADOQuery1.Insert;

Form1.ADOQuery1.FieldByName('Фамилия').AsString:=Edit1.Text;

Form1.ADOQuery1.FieldByName('Имя').AsString:=(Edit2.Text);

Form1.ADOQuery1.FieldByName('Отчество').AsString:=Edit3.Text;

Form1.ADOQuery1.FieldByName('Год рождения').AsString:=Edit4.Text;

Form1.ADOQuery1.FieldByName('Телефон').AsString:=Edit5.Text;

Form1.ADOQuery1.FieldByName('Место жительства').AsString:=Edit6.Text;

Form1.ADOQuery1.FieldByName('Гос №').AsString:=Edit7.Text;

Form1.ADOQuery1.FieldByName('Марка').AsString:=Edit8.Text;

Form1.ADOQuery1.FieldByName('Кузов №').AsString:=Edit9.Text;

Form1.ADOQuery1.FieldByName('Двигатель №').AsString:=Edit10.Text;

Form1.ADOQuery1.FieldByName('Цвет').AsString:=Edit11.Text;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit7.Clear;

Edit8.Clear;

Edit9.Clear;

Edit10.Clear;

Edit11.Clear;

except

on e:Exception do

end;

Form2.Hide;

end;

 

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

Form2.Hide;

end;

 

end.

unit Unit3;

 

interface

 

uses

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

Dialogs, StdCtrls, Buttons, Mask, DBCtrls;

 

type

TForm3 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

Label1: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form3: TForm3;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

try

Form1.ADOQuery1.Edit;

Form1.ADOQuery1.FieldByName('Фамилия').AsString:=DBEdit1.Text;

Form1.ADOQuery1.FieldByName('Имя').AsString:=DBEdit2.Text;

Form1.ADOQuery1.FieldByName('Отчество').AsString:=DBEdit3.Text;

Form1.ADOQuery1.FieldByName('Год рождения').AsString:=DBEdit4.Text;

Form1.ADOQuery1.FieldByName('Телефон').AsString:=DBEdit5.Text;

Form1.ADOQuery1.FieldByName('Место жительства').AsString:=DBEdit6.Text;

Form1.ADOQuery1.FieldByName('Гос №').AsString:=DBEdit7.Text;

Form1.ADOQuery1.FieldByName('Марка').AsString:=DBEdit8.Text;

Form1.ADOQuery1.FieldByName('Кузов №').AsString:=DBEdit9.Text;

Form1.ADOQuery1.FieldByName('Двигатель №').AsString:=DBEdit10.Text;

Form1.ADOQuery1.FieldByName('Цвет').AsString:=DBEdit11.Text;

Form1.ADOQuery1.Post;

except

on e:Exception do

end;

Form3.Hide;

end;

 

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

Form3.Hide;

end;

 

end.

Дата добавления: 2018-10-26; просмотров: 248; Мы поможем в написании вашей работы!

Поделиться с друзьями:


⇐ Предыдущая1234567


Мы поможем в написании ваших работ!
.
.
© 2014-2024 — Студопедия.Нет — Информационный студенческий ресурс. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав (0.084)