5.3 Типи помилок
Під час розробки програмного забезпечення можуть зустрічатися різноманітні типи помилок при компіляції програми. В даній програмі присутня лише одна помилка, яка з’являється під час роботи програми. Наприклад:
procedure TForm3.Button1Click(Sender: TObject);
var pass:string;
begin
pass:='100';
if (Edit1.Text = pass) then
form4.Show
else
Showmessage(‘Вы ввели неправильный пароль!');
end;
Для вирішення цієї помилки достатньо лише ввести правильний пароль
Також одним із найпоширеніших типів помилок може бути різні типи даних. Наприклад в базі даних поле числового типу,а користувач вводить текст. Для запобігання цієї помилки потрібно користуватися обробкою виключних ситуацій.
Висновки
Під час розроблення курсового проекту використовувалось середовище Borland Delphi 7.
Для роботи с даними використовувались компоненти DBMemo,DBGrid,DBEdit,DBComboBox та інші..
Delphi — це інтегроване середовище швидкої розробки програмного забезпечення для роботи під Microsoft Windows. Воно підтримує розробку Windows-застосунків на мові програмування Delphi, яка є наступницею мови Object Pascal.
Delphi 2007, одинадцята версія, входить до складу CodeGear RAD Studio 2007, яка також підтримує розробку на C++ для 32-бітної Microsoft Windows, а також на Delphi і C# для платформи Microsoft .NET. У Delphi 2009, що випущена у серпні 2008-ого, бібліотеки VCL та IDE повністю переведені на Юнікод, також з'явилися нові можливості компілятора (узагальнення (англ. Generics) і анонімні методи), в IDE було додано менеджер ресурсів та повністю перебудовано менеджер проектів. Найновіша, чотирнадцята версія, має назву Delphi 2010 і входить до Embarcadero RAD Studio 2010.
Delphi в основному використовується для розробки настільних застосунків та корпоративних СКБД, проте цей інструмент можна використовувати для розробки будь-якого загального програмного забезпечення. Не залишена осторонь і можливість побудови Веб-застосунків, так потрібних у сучасному інформаційному світі.
Список використаних джерел
Майкл Херволсон, Майкл Янг. Ефективна робота з Microsoft Office. – С.Пб. : Питер, 2001. – 798с.
Бойко И. В. Об’єктно-орієнтовані СУБД. – К.: Вища школа, 1999
Архангельський А. Я. Программирование в Delphi 6: М.: 2003
С. Боровський “Delphi 5” учебный курс П.: 2002. -640 с.
С. Симонович, Г. Евсеев «Занимательное программирование Delphi» М.: «Аст-Пресс Книга», 2001. -368с.
Н.Б. Культин «Программирование на Object Pascal в Delphi 5 » - С.Пб.:2000. – 400с.
Оузьер Д., Батсон С. Освой самостоятельно Delphi 4 - М.: Бином, 1997. - 624 с.
Попов Н.Е. «Delphi5: Обзор компонентов InternetExpress» - М.: Центр информационных технологий , 1999. - 650 с
Додаток А
С
хема
алгоритму програми
Головне
меню
Почати
тест
О
программе
Авторизация
Вихід
Додаток Б
Лістинг програми
nit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ComObj, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
WebBrowser1: TWebBrowser;
MainMenu1: TMainMenu;
N1: TMenuItem;
N4: TMenuItem;
N2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('file:///' +
ExtractFilePath(Application.ExeName) + 'Variant1.htm');
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
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;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Label2Click(Sender: TObject);
begin
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm3 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var pass:string;
begin
pass:='100';
if (Edit1.Text = pass) then
form4.Show
else
Showmessage('Ви ввели неправильный пароль!');
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm4 = 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;
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;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
end;
end.
Додаток В
Роздрук результатів роботи програми
Рисунок В 1 – Форма «Головна форма» .
Рисунок В 2 – Форма «О программе» .
На формі показана інформація про программу.
Рисунок В 3 – Форма «Авторизація».
Рисунок В 4 – Форма «Відповіді на питання».