Файл: Проектирование реализации операций бизнес-процесса «Разработка стратегии охраны окружающей среды»..pdf

begin

ns;

end;

end.

unit Unit3;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls,DateUtils,

Mask;

type

TForm3 = class(TForm)

GroupBox4: TGroupBox;

Label9: TLabel;

Label12: TLabel;

Label19: TLabel;

Edit7: TEdit;

Edit10: TEdit;

Button16: TButton;

Button17: TButton;

DBGrid4: TDBGrid;

MaskEdit6: TMaskEdit;

Button18: TButton;

procedure FormCreate(Sender: TObject);

procedure Button16Click(Sender: TObject);

procedure Button18Click(Sender: TObject);

procedure Button17Click(Sender: TObject);

procedure DBGrid4DblClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);

begin

Form3.DBGrid4.Columns.Items[0].Width:=80;

Form3.DBGrid4.Columns.Items[1].Width:=170;

Form3.DBGrid4.Columns.Items[2].Width:=170;

Form3.DBGrid4.Columns[0].Title.Caption:='Код города';

Form3.DBGrid4.Columns[1].Title.Caption:='Наименование';

Form3.DBGrid4.Columns[2].Title.Caption:='Область';

end;

procedure TForm3.Button16Click(Sender: TObject);

begin

//Дабавление данных о новом городе

if (trim(MaskEdit6.Text)<>'') and (trim(Edit7.Text)<>'') and (trim(Edit10.Text)<>'. .') then

begin

if Form1.Table4.Locate('kod_g',trim(MaskEdit6.Text),[])=true then

begin

MessageDlg('Запись с таким номером уже существует!',mtError,[mbOK],0);

Abort;

end;

Form1.Table4.Insert;

Form1.Table4.FieldByName('kod_g').AsInteger:=strtoint(trim(MaskEdit6.Text));

Form1.Table4.FieldByName('naim_g').AsString:=trim(Edit7.Text);

Form1.Table4.FieldByName('obl').AsString:=trim(Edit10.Text);

Form1.Table4.Post;

end

else MessageDlg('Заполните необходимые поля!',mtInformation,[mbOK],0);

end;

procedure TForm3.Button18Click(Sender: TObject);

begin

//Поиск города измерения по введенным параметрам

if trim(MaskEdit6.Text)<>'' then

begin

Form1.Table4.Locate('kod_g',trim(MaskEdit6.Text),[loPartialKey]);

Abort;

end;

if (trim(Edit7.Text)<>'') then

begin

Form1.Table4.FilterOptions:=[foCaseInsensitive];

Form1.Table4.Filter:='naim_g= '''+trim(Edit7.Text)+'*''';

Form1.Table4.Filtered:=true;

end;

if trim(Edit7.Text)='' then Form1.Table4.Filtered:=false;

if (trim(Edit10.Text)<>'') then

begin

Form1.Table4.FilterOptions:=[foCaseInsensitive];

Form1.Table4.Filter:='obl= '''+trim(Edit10.Text)+'*''';

Form1.Table4.Filtered:=true;

end;

if trim(Edit10.Text)='' then Form1.Table4.Filtered:=false;

end;

procedure TForm3.Button17Click(Sender: TObject);

begin

//удаление данных о городе

if (Form1.Table4.RecordCount>0) then

begin

if MessageDlg('Удалить запись о данном предприятии?',mtWarning,[mbYes,mbNo],0)= mrYes then

Form1.Table4.Delete

else Abort;

end;

end;

procedure TForm3.DBGrid4DblClick(Sender: TObject);

begin

Form1.Edit12.Text:=DBGrid4.Fields[0].AsString;

end;

end.

1. Лекция 5: Модели организации баз данных [онлайн] - URL: http://www.intuit.ru/studies/courses/3439/681/lecture/14023 (дата обращения 11.10.2016) ↑

2. Осипов Д. Л. Базы данных и Delphi. Теория и практика. — СПб.: БХВ-Петербург, 2011. – с. 20 ↑

3. Лекция 5: Модели организации баз данных [онлайн] - URL: http://www.intuit.ru/studies/courses/3439/681/lecture/14023 (дата обращения 11.10.2016) ↑

4. Осипов Д. Л. Базы данных и Delphi. Теория и практика. — СПб.: БХВ-Петербург, 2011. – с. 21 ↑

5. Реляционная база данных [онлайн] - URL: http://base.mybloge.net/relyacionnaya-baza-dannyx/ (дата обращения 01.11.2016) ↑

6. Введение в базы данных. Часть 2. Настольные СУБД // А.Федоров, Н. Елманова [онлайн] - URL: http://compress.ru/article.aspx?id=10282 (дата обращения 01.11.2016)). ↑

7. Субд paradox [онлайн]- URL: http://uchebnik.biz/book/88-kompyuternye-seti/365-subd-paradox.html (дата обращения 01.11.2016) ↑

8. Обзор языков программирования и средств разработки на их основе [онлайн] - URL: http://bukvi.ru/computer/obzor-yazykov-programmirovaniya-i-sredstv-razrabotki-na-ix-osnove.html (дата обращения 01.11.2016) ↑

9. Преимущества и особенности Delphi [онлайн] - URL: http://starik2222.narod.ru/trpp/lec/11.htm (дата обращения 01.11.2016) ↑

10. Преимущества Delphi и напутствие начинающему программисту [онлайн] - URL: http://pisali.ru/raferti/41237/ (дата обращения 01.11.2016) ↑