История возникновения программирования и основные принципы и подходы при создании языка программирования

· Компонент Label предназначен для отображения статического текста, то есть надписей и меток на Форме, которые не меняются в течение всего времени работы программы. Конечно, текст надписи, отображаемый компонентом Label можно изменить, но не непосредственно, а только программно.

· Компонент Delphi Image предназначен для отображения на форме графических изображения.

При завершении работы формы заставка запускается главная форма содержащая в себе информацию о сотрудниках, поиск по сотрудникам, добавление новых сотрудников. Форма содержит в себе компоненты: RadioButton, Edit, Button, Label, Bevel, Panel, Spilter, DB Grid.



Рисунок 6. - Главная форма

· Компонент Delphi RadioButton состоит из круглого окошка и текстовой строки. В окошке появляется отметка выбора данного компонента, текстовая строка поясняет его смысл. За изменение текстовой строки отвечает свойство Caption. Основное же свойство компонента Delphi RadioButton - Checked (т.е. "выбрано") типаBoolean, доступное как для чтения, так и для записи. У выбранного компонента свойство Checked равно True.

· Компонент Delphi Edit представляет собой однострочное текстовое поле, служащее для ввода данных пользователем. Основным свойством компонента Delphi Edit, передающим введённую информацию, является свойство Edit1.Text типа String.

· Компонент Delphi Button это простая командная кнопка. Командная кнопка Delphi Button используется для реализации в программе команд с помощью обработчика события OnClick этого компонента.

· Компонент Delphi Bevel (фаска) располагается на вкладке "Additional" Палитры Инструментов. Его назначение в приложении чисто декоративное. Внешний вид полученной фигуры будет зависеть от свойства Shape

· Компонент Delphi Panel располагается на странице Standard Палитры Компонентов (значок на рисунке обведен красным). Выбрав компонент Panel и кликнув на форме мы увидим прямоугольник в центре которого будет надпись Panel1. Цифра 1 означает номер панели на форме, т.е. если нам необходимо поместить на форму еще 3 панели то их имена будут Panel2, Panel3, Panel4.

Свойство Name задает имя панели. Caption - заголовок, первоначально он совпадает с Name и равен Panel1, но во многих случаях его оставляют пустым. Довольно часто панель используют как контейнер для других компонентов.

· Компонент Delphi Spilter используется как передвижная разделительная черта.

· Компонент Delphi DbGrid представляет собой таблицу связанную с базой данных.

Также существует невидимая форма DataModule предназаначенная для связи базы данных Acces и таблиц Delphi.

Содержит в себе компоненты: ADOConnection, ADOTabel, DataSource.

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

· Компонент ADO Tabel его назначение -- получение набора данных из одной или нескольких таблиц базы данных. Кроме того, он также позволяет работать с возвращенным набором данных визуальным компонентам, предназначенным для отображения данных.

· Компонент Dat Source свзяывает между собой данные находящиеся в компоненте ADOTable и таблицу DBGrid.



Рисунок 7. - DataModule

Форма редактор предназначена для редактирования сотрудников и внесения новых сотрудников. Содержит в себе компоненты: Label, Edit, DBGrid, DBNavigator, GroupBox, CheckBox, ComboBox, DBEdit, Button.

· Компонент DBNavigator предназначен для перемещения по базе данных



ЗАКЛЮЧЕНИЕ

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



СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Немнюгин С.А. Turbo Pascal (практикум): СПб. «Питер», 2003. - 475с.

2. Кирнос В.Н. Информатика 10 - 11 класс: Кокшетау: «Кешелек»,2005. - 208с.

3. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. - Нолидж, 1998. -620 с.

4. Грызлов В.И., Грызлова Т.П. Турбо Паскаль 7.0. - М.: "ДМК", 2000. - 416 с.

5. Зуев Е.А. Turbo Pascal. Практическое программирование. - Приор,1997. - 336с.

6. Пильщиков В.Н. Сборник упражнений по языку Паскаль. - М.: Наука, 1989. - 160 с.

7. Йенсен К., Вирт Н. Руководство для пользователя и описание языка. - М.,1982. 151 с.

8. Абрамов С.А., Зима Е.В. Начала программирования на языке Паскаль. - М.:Наука, 1987. - 112 с.

9. Павловская Т.А. Паскаль. Программирование на языке высокого уровня. - СПб: Питер,2003. -393с.

10. Эллиот Б.К. Turbo Pascal = Turbo Pascal Web Update. -- М.: Вильямс, 2005. -- 896с.

11. Лукин С.Н. TURBO PASCAL 7.0. Самоучитель для начинающих. -Диалог-МИФИ, 2005. -400с.

12. Епанешников А. М., Епанешников В. А. Программирование в среде TurboPascal7.0. -1995. -278с.

13. Немнюгин С., Перколаб Л. Изучаем Turbo Pascal. - Питер, 2007. -320с.

14. Технология программирования. Основные понятия и подходы [Электронный ресурс] / http://www.arctic-cooler.com/programming/1/comptechnology0.htm

15. Якунин, Ю. Ю. Технологии разработки программного обеспечения. Версия 1.0 [Текст] : / Ю. Ю. Якунин.- Красноярск , 2008. - 225 с.

16. Лекции по информационным технологиям [Электронный ресурс]/ http://www.studfiles.ru/dir/cat32/subj1177/file9554/view96799/page20.html

17. Лекции по технологии программирования (Гвоздев) [Электронный ресурс] / http://gendocs.ru/v28091/?cc=10



ПРИЛОЖЕНИЕ А. КОД ФОРМЫ ЗАСТАВКА

unit Unit2;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, jpeg, ComCtrls;

type

TForm2 = class(TForm)

Timer1: TTimer;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled := false;

end;

end.



ПРИЛОЖЕНИЕ B. КОД ГЛАВНОЙ ФОРМЫ

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls;

type

TfName = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Splitter1: TSplitter;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Bevel1: TBevel;

Label1: TLabel;

Edit1: TEdit;

Bevel2: TBevel;

Button2: TButton;

Button3: TButton;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fName: TfName;

implementation

uses Unit3, Unit4;

{$R *.dfm}

procedure TfName.Button3Click(Sender: TObject);

begin

fDM.TLichData.Append;

fDM.TDoljnost.Append;

FDM.TAdres.Append;

fDM.TTelephones.Append;

fEditor.ShowModal;

end;

procedure TfName.Button2Click(Sender: TObject);

begin

fEditor.ShowModal;

end;

procedure TfName.DBGrid1DblClick(Sender: TObject);

begin

fEditor.ShowModal;

end;

procedure TfName.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked then

DBGrid2.DataSource:= fDM.DSAdres;

end;

procedure TfName.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked then

DBGrid2.DataSource:= fDM.DSTelephones;

end;

procedure TfName.RadioButton3Click(Sender: TObject);

begin

if RadioButton3.Checked then

DBGrid2.DataSource:= fDM.DSDoljnost;

end;

procedure TfName.Edit1Change(Sender: TObject);

begin

fDM.MyLocate(Edit1.Text);

end;

end.



ПРИЛОЖЕНИЕ C. КОД МОДУЛЯ ДАННЫХ

unit Unit3;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TfDM = class(TDataModule)

ADOConnection1: TADOConnection;

TLichData: TADOTable;

TDoljnost: TADOTable;

TTelephones: TADOTable;

TAdres: TADOTable;

DSLichData: TDataSource;

DSDoljnost: TDataSource;

DSTelephones: TDataSource;

DSAdres: TDataSource;

TLichDataDSDesigner: TAutoIncField;

TLichDataDSDesigner2: TWideStringField;

TLichDataDSDesigner3: TWideStringField;

TLichDataDSDesigner4: TWideStringField;

TLichDataDSDesigner5: TWideStringField;

TLichData_: TBooleanField;

TLichDataDSDesigner6: TWordField;

TLichData_2: TDateTimeField;

TLichData_3: TDateTimeField;

TLichDataDSDesigner7: TWordField;

TLichDataDSDesigner8: TWideStringField;

TLichDataDSDesigner9: TBooleanField;

TDoljnostDSDesigner: TIntegerField;

TDoljnostDSDesigner2: TWideStringField;

TDoljnostDSDesigner3: TWideStringField;

TTelephonesDSDesigner: TIntegerField;

TTelephonesDSDesigner2: TWideStringField;

TTelephonesDSDesigner3: TWideStringField;

TAdresDSDesigner: TIntegerField;

TAdresDSDesigner2: TWideStringField;

TAdresDSDesigner3: TWideStringField;

TAdres_: TWideStringField;

private

{ Private declarations }

public

{ Public declarations }

procedure MyLocate(s: String);

end;

var

fDM: TfDM;

implementation

{$R *.dfm}

{ TfDM }

procedure TfDM.MyLocate(s: String);

begin

TLichData.Locate('фамилия', s, [loPartialKey]);

end;

end.



ПРИЛОЖЕНИЕ D. КОД ФОРМЫ РЕДАКТОРА

unit Unit4;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TfEditor = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBCheckBox1: TDBCheckBox;

DBCheckBox2: TDBCheckBox;

DBComboBox1: TDBComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

Label10: TLabel;

Label11: TLabel;

DBEdit11: TDBEdit;

DBEdit12: TDBEdit;

DBEdit13: TDBEdit;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

DBEdit14: TDBEdit;

DBComboBox2: TDBComboBox;

Label15: TLabel;

Label16: TLabel;

Button1: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label17: TLabel;

Button2: TButton;

Button3: TButton;

procedure GroupBox1Exit(Sender: TObject);

procedure GroupBox2Exit(Sender: TObject);

procedure GroupBox3Exit(Sender: TObject);

procedure GroupBox4Exit(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fEditor: TfEditor;

implementation

uses Unit3;

{$R *.dfm}

procedure TfEditor.GroupBox1Exit(Sender: TObject);

begin

if fDM.TLichData.Modified then

fDM.TLichData.Post;

end;

procedure TfEditor.GroupBox2Exit(Sender: TObject);

begin

if fDM.TDoljnost.Modified then

fDM.TDoljnost.Post;

end;

procedure TfEditor.GroupBox3Exit(Sender: TObject);

begin

if fDM.TAdres.Modified then

fDM.TAdres.Post;

end;

procedure TfEditor.GroupBox4Exit(Sender: TObject);

begin

if fDM.TTelephones.Modified then

fDM.TTelephones.Post;

end;

procedure TfEditor.Button1Click(Sender: TObject);

begin

if fDM.TTelephones.Modified then

fDM.TTelephones.Post;

fDM.TTelephones.Append;

DBEdit14.SetFocus;

end;

procedure TfEditor.Button2Click(Sender: TObject);

begin

if fDM.TLichData.Modified then

fDM.TLichData.Post;

if fDM.TDoljnost.Modified then

fDM.TDoljnost.Post;

if fDM.TAdres.Modified then

fDM.TAdres.Post;

if fDM.TTelephones.Modified then

fDM.TTelephones.Post;

Close;

end;

procedure TfEditor.Button3Click(Sender: TObject);

begin

fDM.TLichData.Append;

fDM.TDoljnost.Append;

FDM.TAdres.Append;

fDM.TTelephones.Append;

DBEdit1.SetFocus;

end;

end.

Размещено на Allbest.ru

...