ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 13.04.2024
Просмотров: 21
Скачиваний: 0
procedure BitBtn1Click(Sender: TObject); - відповідає за закриття форми та повернення до головної.
procedure BitBtn2Click(Sender: TObject); - відповідає за закриття всієї програмиї.
Form4:
procedure BitBtn1Click(Sender: TObject); - відповідає за закриття форми та повернення до головної.
procedure BitBtn2Click(Sender: TObject); - відповідає за закриття всієї програмиї.
Form5:
procedure BitBtn1Click(Sender: TObject); - відповідає за закриття форми та повернення до головної.
procedure BitBtn2Click(Sender: TObject); - відповідає за закриття всієї програмиї.
AboutBox1:
procedure BitBtn1Click(Sender: TObject); - відповідає за закриття форми та повернення до головної.
Опис стандартних процедур і функцій, що використовувались у програмі:
function IntToStr (StringInteger : string ) : Integer; - функція конвертує ціле значення Integer в рядкову велечину.
function Showmessage ( const Message : string; DialogType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpContext : Longint ) : Integer; - функция використовується для відображення повідомлень користувачу.
2 Практична частина
2.1. Інструкція для роботи з програмою:
Для початку роботи програми запустіть файл Project1.exe.
При відкритті вікна програми користувач бачить форму(«Співробітники») програми яке дає змогу виконувати різні дії по відношенню до бази даних.
Для того щоб виконати запити слід обратни відповіднпий запит. В першій частині якого знаходить перелік всіх запитів, а в другій таблиця для відображення результату. Оберіть потрібний запит та одразу з’явится результат.
Вибравши відповідний запит програма відразу ж, покаже результат.
2.2. Програмний код: Лістинг модуля Unit1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DBTables, DB, StdCtrls, Grids, DBGrids;
type
TForm1 = class(TForm)
Label1: TLabel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
ComboBox1: TComboBox;
Label2: TLabel;
Table1: TTable;
DataSource1: TDataSource;
Query1: TQuery;
DBNavigator1: TDBNavigator;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
var x:integer;
begin
x:=combobox1.itemindex;
case x of
0:begin
with Query1 do
begin
if not(fileexists('tab.db')) then begin
Active:=False;
SQL.Clear;
sql.Add('Create table "tab.db"');
sql.Add('(PIP char(50), Posada char(20), Zarplata float(8))');
ExecSQL;
End
else begin
active:=false;
sql.clear;
Висновок
Під час проходження навчальної практики я остаточно закріпив теоретичні знання та набув практичні навички роботи з базами даних. За допомогою програмного середовища Borland Delphi мною була створена базу даних для роботи з інформаційним матеріалом на тему «Салон чоловічих сорочок», створені необхідні таблиці та виконані відповідні запити згідно виданого завдання. Навчився самостійно створювати SQL-запити в Borland Delphi.
Література
1 Бакнелл Джордж. Фундаментальные алгоритмы и структуры данных в Delphi. – DiaSoft, 2003. – 557 с. 2 Браст Эндрю Дж., Форте С. Разработка приложений на основе Microsoft SQL Server 2005. - Русская Редакция, 2007. – 880 с. 3 Сорокин А.В. Delphi. Разработка базы данных. - Питер, 2005. – 474 с. |
4 Фаронов В.В. Delphi 2005. Разработка приложений для баз данных и Интернета. – Питер, 2006. – 603 с. |
5 Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы даннях. - СПб.: КОРОНА, 2004. – 736 с. |
|
|