WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → Інформаційно-довідкова система „Склад” - Курсова робота

Інформаційно-довідкова система „Склад” - Курсова робота

// встановлюємо зв'язок між "Товар" і

DataModule1.Table1.MasterFields:='Код товару';

// "Партія товару" по полю "Код товару"

end;

// якщо здійснимо перехід на закладку "Запити"

if PageControl1.ActivePage=TabSheet3 then

begin

MainMenu1.Items.Items[0].Enabled:=True;

ToolBar1.Left:=11;

ToolBar1.Visible:=True;

MainMenu1.Items.Items[1].Enabled:=False;

DBNavigator1.Visible:=False;

MainMenu1.Items.Items[2].Enabled:=False;

end;

// якщо здійснимо перехід на закладку "Звітність"

if PageControl1.ActivePage=TabSheet4 then

begin

MainMenu1.Items.Items[0].Enabled:=False;

ToolBar1.Visible:=False;

MainMenu1.Items.Items[1].Enabled:=False;

DBNavigator1.Visible:=False;

MainMenu1.Items.Items[2].Enabled:=True;

DBNavigator1.DataSource:=DataModule1.DataSource1;

// панель DBNavigator керує таблицею "Товар"

DataModule1.Table1.MasterSource:=nil;

// забираємо зв'язок з таблицею "Партія товару"

DataModule1.Table1.MasterFields:='';

end;

end;

Біля полів "Дата виписки" та "Дата проплати" помістимо кнопки для переходу на нову форму – вибору дати. Створимо її у вигляді dll. Виберемо в меню меню File  New, і вікні "New Items" виберемо піктограму "Dll". Після появи самого тексту dll збережемо проект як "slave.dpr", і виберемо в меню File  New  Form. Властивостям нової форми надамо такі значення: Name = CalendarForm, Caption = "Виберіть дату", BorderStyle = bsToolWindow, Position = poDesktopCenter. Помістимо на форму компоненту MonthCalendar з закладки Win32, і SpeedButton з закладки Additional. Додамо в опис змінних для модуля:

var

selDate: TDate;

Для SpeedButton1 створимо таку процедуру обробки події OnClick:

Procedure TCalendarForm.SpeedButton1Click(Sender: TObject);

begin

selDate:=MonthCalendar1.Date; // запам'ятовуємо вибрану дату

CalendarForm.Close; // закриваємо форму

end;

В модуль slave.dpr введемо наступний текст:

uses

Forms,

SysUtils,

Classes,

cal in 'cal.pas' {CalendarForm};

Function GetDate: TDateTime; stdcall;

begin

Application.CreateForm(TCalendarForm, CalendarForm);

// динамічно створюємо форму

CalendarForm.ShowModal; // виводимо форму на екран

GetDate:=selDate; // значенню що повертає функція

присвоюємо значення вибраної дати

end;

exports

GetDate; // функція для зовнішнього використання

Begin

End.

Для SpeedButton1 i SpeedButton2 в основній програмі, в процедуру обробки події OnClick вставимо наступний текст:

Procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

DBEdit2.Text:=DateToStr(GetDate);

end;

Procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

DBEdit3.Text:=DateToStr(GetDate);

end;

Відповідно перед секцією Implementation вставимо наступне:

{export from slave.dll}

Function GetDate: TDateTime; stdcall; external 'slave.dll';

Тепер при натисненні на кнопку біля відповідних полів користувач зможе вибрати дату з календаря.

Створимо нову закладку PageControl1, назвемо її "Запити". Створимо для цієї закладки нову панель інструментів, помістивши на ControlBar1 ToolBar1. Додамо декілька кнопок викликаючи контекстне меню на ToolBar1 і вибираючи опцію New Button. Помістимо на закладку DBGrid для перегляду результатів запитів. Помістимо на закладку GroupBox, на якому розташуємо для початку 6 компонент Edit, над якими розмістимо по Label з назвами відповідних полів з таблиці "Товар". Розташуємо між двома останніми полями ComboBox1. Будемо використовувати відповідні поля для вводу критеріїв для запитів. Перш за все зробимо вікно в якому ми зможемо контролювати правильність створення запиту SQL. Виберемо в меню команду File  New Form, надамо її властивостям наступних значень: Name = SQLText, BorderStyle = bsToolWindow, Position = poDesktopCenter. Помістимо на форму Memo1, змінимо властивість Align = alClient. Для Query1 з DataModule1 введемо такий текст для обробки події AfterOpen:

var

SQLtxt:TStrings;

...

Procedure TDataModule1.Query1AfterOpen(DataSet: TDataSet);

begin

SQLtxt:=DataModule1.Query1.SQL;

end;

a для події кнопки OnClick, якій ми присвоїмо Hint "Показати текст виконаного запиту", цей напис буде з'являтись при наведенні курсору миші на кнопку (властивість ShowHints для відображення вспливаючих підказок повинна мати значення True, для присвоєння всім елементам цього значення, достатньо присвоїти ShowHints = True батьківському елементу, наприклад Form1):

Procedure TForm1.ToolButton1Click(Sender: TObject);

begin

Application.CreateForm(TSQLText, SQLText);

// динамічно створюємо форму

SQLText.Memo1.Lines:=SQLtxt; // виводимо текст запиту

SQLText.ShowModal; // показуємо форму

SQLText.Close;

end;

Для DBGrid3 властивості DataSource присвоїмо значення DataModule1.DataSource4, властивості DataSource4 DataSet = Query1. Щоб при завантаженні програми DBGrid не був пустим відобразимо в ньому таблицю "Товар" наступним чином – властивості DatabaseName з Query1 надамо значення "_db1" в полі SQL викликавши вікно введемо текст: "select * from Товар;" (без лапок).

Для другої кнопки з ToolBar1 – ToolButton2 в полі властивості Hint напишемо настпуне – "Шукати записи по введених критеріях", створимо для цієї кнопки виконання запиту з використанням інструкції SQL select. Перед цим ComboBox1 надамо таких значень для вибору в властивості "Items": "=",">","<","..". Для події OnChange ComboBox1 введемо наступне:

Procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.ItemIndex=3 then Edit6.Visible:=True

// при виборі значення ".." з'являється поле для вказування

інтервалу відбору значень

else Edit6.Visible:=False;

end;

Для обробки події OnClick ToolButton1 введемо наступний текст:

const

t1:string='[Код товару]'; // назви полів

t2:string='[Назва товару]';

t3:string='[Опис товару]';

t5:string='[Ціна за одиницю товару]';

t4:string='[Упаковка]';

...

Procedure TForm1.ToolButton2Click(Sender: TObject);

var sqlTable,sqlWhere: String;

begin

DataModule1.Query1.SQL.Clear;

sqlTable:='Select * ';

sqlWhere:='where ';

sqlTable:=sqlTable + 'from Товар ';

sqlWhere:=sqlWhere+'('+t1+' like '''+'%'+Edit1.Text+''') and ('+t2+'

like '''+Edit2.Text+''') and ('+t3+' like '''+Edit3.Text+''') and ('+t4+'

like '''+Edit4.Text+''') and (';

case ComboBox1.ItemIndex of

0: sqlWhere:=sqlWhere+t5+' = '+Edit5.Text+');';

// рівне вказаному значенню

1: sqlWhere:=sqlWhere+t5+' > '+Edit5.Text+');'; // більше

2: sqlWhere:=sqlWhere+t5+' < '+Edit5.Text+');'; // менше

3:sqlWhere:=sqlWhere+t5+' between '+Edit5.Text+' and

'+Edit6.Text+');'; // в інтервалі

end;

DataModule1.Query1.SQL.Add(sqlTable+sqlWhere);

DataModule1.Query1.Active:=True;

end;

Символ процента використовується в мові SQL драйвера MS ACCESS для вибору всіх значень з предикатом Like (наприклад like'a%' поверне всі значення що починаються з букви а), тому по замовчуванні для Edit полів таблиці товар задамо значення Text = %, для поля "Ціна за одиницю товару" Text = 0, для Edit12, поля в якому вказується верхня межа по замовчуванню введемо Text = 1000. Запустимо програму і перейшовши на закладку "Запити" натиснемо кнопку з підказкою "Шукати записи по введених критеріях", після чого натиснемо на кнопку для перегляду тексту запиту з підказкою "Показати текст виконаного запиту", отримаємо наступне:

Аналогічно створимо на панелі інструментів кнопки, яким присвоїмо властивість Hint відповідно "Знищити записи, що задовольняють критеріям", "Створити нову таблицю на основі записів, що задовольняють критеріям", "Додати новий запис" і "Ввести запит самому", для яких введемо наступний текст обробки подій OnClick:

Procedure TForm1.ToolButton3Click(Sender: TObject);

// знищення записів

var sqlTable, sqlWhere: String;

begin

if MessageDlg('Ви впевненні що хочете знищити записи,

що задовольняють введеним даним?', mtConfirmation, [mbYes,

mbNo], 0) = mrYes then

begin

DataModule1.Query1.SQL.Clear;

sqlTable:='Delete * ';

sqlWhere:='where ';

sqlTable:=sqlTable + 'from Товар ';

sqlWhere:=sqlWhere+'('+t1+' like '''+'%'+Edit1.Text+''') and

('+t2+' like '''+Edit2.Text+''') and ('+t3+' like '''+Edit3.Text+''') and

('+t4+' like '''+Edit4.Text+''') and (';

case ComboBox1.ItemIndex of

0: sqlWhere:=sqlWhere+t5+' = '+Edit5.Text+');';

1: sqlWhere:=sqlWhere+t5+' > '+Edit5.Text+');';

2: sqlWhere:=sqlWhere+t5+' < '+Edit5.Text+');';

3: sqlWhere:=sqlWhere+t5+' between '+Edit5.Text+' and

'+Edit6.Text+');'; end;

DataModule1.Query1.SQL.Add(sqlTable+sqlWhere);

DataModule1.Query1.ExecSQL;

end;

end;

Procedure TForm1.ToolButton5Click(Sender: TObject);

// додання записів

var sqlInsert: String;

begin

DataModule1.Query1.SQL.Clear;

sqlInsert:='Insert into Товар Values

('''+Edit1.Text+''','''+Edit2.Text+''','''+

Loading...

 
 

Цікаве