4 . Завдання,поставленні на підприємстві
4.1 Прикладним завданням з використанням середовища розробки Borland Delphi 6 , є написання простих,але корисних додатків,які полегшують роботу робітникам підприємства.
Тобто, першим завданням на підприємстві було ознайомлення та побудування простого додатку за допомогою середовища розробки Borland Delphi 6 та мови програмування Object Pascal.
Для виконання поставленого завдання я створив простий калькулятор на декілька дій. Для побудування скористався елементами LabelBox та Button.
Button – елемент, що ставить кнопку у потрібному місці і при натисканні на неё, виконується певна дія;
LabelBox – елемент, у полі якого користувач повинен ввести дані, або поле,куди виводяться обчислення.
Ось так виглядає форма:
Результат роботи програми:
Програма виконує складання двох чисел,віднімання, ділення,множення та знаходить квадратний корінь з числа.
Ось так виглядає код програми(повний лістинг програми):
Unit Unit1;
Interface
uses System, System.Drawing, System.Windows.Forms;
type
Form1 = class(Form)
procedure button1_Click(sender: Object; e: EventArgs);
procedure button2_Click(sender: Object; e: EventArgs);
procedure button3_Click(sender: Object; e: EventArgs);
procedure button5_Click(sender: Object; e: EventArgs);
procedure button4_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
button1: Button;
button2: Button;
button3: Button;
button4: Button;
label1: &Label;
label2: &Label;
textBox2: TextBox;
textBox3: TextBox;
label3: &Label;
button5: Button;
textBox1: TextBox;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
Implementation
procedure Form1.button1_Click(sender: Object; e: EventArgs);
var a,b:integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
textbox3.Text:=inttostr(a+b);
end;
procedure Form1.button2_Click(sender: Object; e: EventArgs);
var a,b:integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
textbox3.Text:=inttostr(a-b);
end;
procedure Form1.button3_Click(sender: Object; e: EventArgs);
var a,b,c:integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
c:=a/b;
textbox3.Text:=inttostr(c);
end;
procedure Form1.button5_Click(sender: Object; e: EventArgs);
var a,b:integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
c:=a*b;
textbox3.Text:=inttostr(c);
end;
procedure Form1.button4_Click(sender: Object; e: EventArgs);
var a,b:integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
a:=sqrt(a);
b:=sqrt(b);
Textbox1.Text:=inttostr(a);
Textbox2.Text:=inttostr(b);
end;
end.
4.2 На підприємстві такж надзвичайно важливим є, побудуваня додатку,функціоналом якого передбачена робота з таблицями СКБД Oracle.
Моїм завданням було побудування додатку , що дозволяє працювати з таблицями СКБД Oracle.
Основні вимоги до функціоналу додатку:
- Ввід даних у конкретну таблицю бази з комп'ютера клієнта;
- Вивантаження у локальні таблиці. Передбачає вивантаження даних з таблиці з сервера у таблицю ,яка належить до локальної БД;
- Видалення даних з таблиці у БД ;
- Перегляд таблиць у режимі ReadOnly(тільки для перегляду).
Виконання поставленого завдання:
Процедура запиту на вибірку даних
Procedure TForm1.FormCreate(Sender:TObject);
var S:string;
begin
dvvod:=date;
tabnv:='0791873';
isx.Active:=true;
s:='select *from sost order by izd';
Qprosm(s);
end;
Процедура видалення даних з таблиці
Procedure TForm1.DVNAR2Click(Sender:TObject);
var naimtab1:string;
begin
naimtab1:='DVNAR';
del(naimtab1);
end;
Скриншоти роботи програми:
вікно вивантаження даних у локальну таблицю
вікно вводу даних у таблицю,в якому ми бачимо назву таблиці БД Oracle ,в яку ми будем вводити дані.
на скриншоті зображено вікно функції видалення даних з таблиці БД.
На скриншоті зображений інтерфейс перегляду таблиць. Ці два вікна предназначені для виводу даних обох таблиць,з якими працює користувач.
