Головна форма програми містить компонент - MainMenu, за допомогою якого реалізоване головне меню системи і ImageList - компонент, що містить в собі список графічних зображень, які використані як іконки підпунктів меню і командних кнопок.

При виборі пункту меню "Контрагенти" на екрані з'явиться вікно, в якому представлений відсортований список.

В даному випадку і далі скрізь послідовний пошук по частковому збігу був організований за допомогою методу Locate компоненту Table:

procedure Tkontrag. Edit1Change (Sender: TObject);

begin

ADOtable1. Locate ('name_kontr',edit1. Text, [loCaseInsensitive,loPartialKey]); // пошук без врахування реєстру по частковому збігу

end;

Оброблювач події OnClick кнопки "Додати" має наступний вид:

procedure Tkontrag. BitBtn1Click (Sender: TObject);

begin

ADOTable1. Insert; // вставка запису в таблицю

f: =false; // ознака того, що форма з'явиться в режимі вставки нового запису

karta. showmodal; // виведення на екран вікна в модальному режимі

end;

При подвійному натисненню по вибраному запису, на екрані з'явиться вікно, в якому можна відредагувати дані. При цьому таблиця БД переходить в режим редагування.

procedure Tkontrag. BitBtn2Click (Sender: TObject);

begin

ADOTable1. Edit;

f: =true; // ознака того, що форма з'явиться в режимі редагування

karta. ShowModal;

end;

При натисненні виводиться запит на підтвердження. Це було реалізовано за допомогою стандартної функції MessageDlg.

if MessageDlg ('Ви впевнені в тому, що хочете видалити+

QuotedStr (ADOTable1. FieldByName ('name_kontr'). AsString) +

'? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then

ADOTable1. Delete;

Форма введення реквізитів контрагентів містить візуальні компоненти введення даних, такі як DBText і DBComboBox (для полів вибору із списку), кожний з яких пов'язаний з відповідним полем таблиці.

При появі форми в режимі редагування відбувається наступні дії:

1. Формується список рахунків контрагента:

bitbtn1. Enabled: =false; // кнопка "Змінити рахунок" не активна

Listbox1. Items. Clear; // список рахунків очищається

if kontrag. ADOTable1schet1. AsString<>'' then // якщо номер рахунку введений він додається в список

listbox1. Items. Add ('Р/р № '+kontrag. ADOTable1schet1. AsString);

if kontrag. ADOTable1schet2. AsString<>'' then

listbox1. Items. Add ('Р/р № '+ kontrag. ADOTable1Schet2. AsString);

if kontrag. ADOTable1schet3. AsString<>'' then

listbox1. Items. Add ('Р/р № '+kontrag. ADOTable1Schet3. AsString);

2. В компонент datetimepicker1 заноситься дата видачі паспорта, яка зберігається у відповідному полі таблиці.

if kontrag. ADOTable1Date_pasp. AsDateTime<> strtodate ('30.12.1899') then

datetimepicker1. Date: =kontrag. ADOTable1Date_pasp. AsDateTime

else datetimepicker1. Date: =date;

3. В залежності від типу контрагента буде обрана відповідна позиція в списку типів (компонент combobox1)

if kontrag. ADOTable1TyPe. AsString='О' // якщо тип - "організація"

then combobox1. ItemIndex: =0 // обрана перша позиція в списку

else combobox1. ItemIndex: =1; // інакше - друга

combobox1change (sender);

end;

Зовнішній вигляд форми змінюється залежно від того, чи є контрагент приватною особою або організацією. У першому випадку передбачено введення паспортних даних, в другому - інформації про контактних осіб організації. Так само, залежно від вибраного типу вводиться або код МФО (для приватної особи), або ЕДРПОУ (для організацій).

procedure Tkarta.comboBox1Change (Sender: TObject);

begin

if combobox1. ItemIndex=0 then // якщо це організація

begin

groupbox2. Visible: =true;

groupbox3. Visible: =false;

label12. Caption: ='ЕДРПОУ'

end else begin

groupbox3. Visible: =true;

groupbox2. Visible: =false;

label12. Caption: ='МФО'

end; end;

При виборі із списку номера рахунку - стає активною кнопка "Змінити", яка виводить на екран форму bank_rekv.

При натисненні кнопки "Додати" на екрані з'явиться аналогічна форма. Проте, оскільки система передбачає можливість зберігання інформації тільки про три рахунки, в системі передбачений захист.

if listbox1. Items. Count<3 then // якщо введено менше трьох рахунків

begin

listbox1. Items. Add (''); // додавання строки в список

listbox1. ItemIndex: =listbox1. Items. Count-1; // обрана остання позиція

end else begin showmessage ('Можна ввести тільки три номера рахунків! '); exit; end;

bank_rekv. Edit1. Text: ='';

bank_rekv. ShowModal;

При закритті форми в відповідне поле таблиці заноситься тип контрагента ("О" - організація, "Ч" - приватна особа):

case combobox1. ItemIndex of

0: kontrag. ADOTable1TyPe. AsString: ='О';

1: kontrag. ADOTable1TyPe. AsString: ='Ч';

і дата видачі паспорта:

kontrag. ADOTable1Date_pasp. AsDateTime: =datetimepicker1. Date;

Обов'язковим для введення є тільки ім'я клієнта, тому в обробнику події OnCloseQuery, що виникає при запиті на закриття форми написаний наступний код:

procedure Tkarta. FormCloseQuery (Sender: TObject; var CanClose: Boolean);

begin

if (dbedit1. Text='') and (flag=true) then

begin

showmessage ('Введіть найменування контрагента! ');

canclose: =false;

end;

end;

Розглянемо детальніше основні процедури модуля введення банківських реквізитів. При появі форми, залежно від порядкового номера обраного в списку рахунку, компонент dbedit1 буде пов'язаний з відповідним полем таблиці. У компонент edit1 буде занесене найменування банку, взяте з відповідного довідника.

case karta. ListBox1. ItemIndex of

0: begin // перший номер рахунку

dbedit1. DataField: ='schet1'; // компонент пов'язаний з полем 'schet1'

if sp_bank. ADOTable1. Locate ('kod_b',kontrag. ADOTable1kod_b1. AsInteger, []) // якщо обраний банк

then edit1. Text: =sp_bank. ADOTable1name_b. AsString // назва банку

else edit1. Text: ='';

end;

end;

При натисненні кнопки "Довідник банків" на екрані з'явиться форма в режимі перегляду:

procedure Tbank_rekv. BitBtn1Click (Sender: TObject);

begin

sp_bank. DBGrid1. ReadOnly: =true; // дані виводяться тільки для перегляду

vibor: =true; // ознака того, що дані виводяться тільки для перегляду

sp_bank. ShowModal

end;

Інтерфейс вікна "Довідник реквізитів банків" реалізований за допомогою компонентів ADOTable, DataSourse, DBGrid.

При закритті форми код обраного банку заноситься у відповідне поле таблиці.

if vibor then // якщо форма відкрита в режимі обрання

begin

case karta. ListBox1. ItemIndex of // порядкові номери рахунків

0: kontrag. ADOTable1Kod_b1. AsInteger: =ADOTable1Kod_b. asinteger;

1: kontrag. ADOTable1Kod_b2. AsInteger: =ADOTable1Kod_b. asinteger;

2: kontrag. ADOTable1Kod_b3. AsInteger: =ADOTable1Kod_b. asinteger;

end; bank_rekv. Edit1. Text: =ADOTable1Name_b. AsString;

end else // якщо форма в режимі редагування

if ADOtable1. Modified= true then

ADOtable1. Post;

Введення даних в довідник товарів реалізований за допомогою майстер-детальних зв'язків між двома таблицями - groops (MasterSource) і sp_tov (DetalSource). Таким чином, в правій частині вікна відображається список товарів вибраної категорії.

Форма "Закунка товарів" може бути викликана в двох режимах - здійснення операції закупки товарів і перегляд складу обраною накладною (в режимі редагування). В першому випадку змінна red=true, в другому - false. Номер накладної вноситься у відповідне поле автоматично (наступний+1).

procedure TNakladnaya_p. FormShow (Sender: TObject);

var a: integer;

begin

if not red then // якщо не в режимі перегляду

begin

zap: =false; combobox4. Items. Clear; // очистка списку контрагентів

floatedit1. Value: =0; // очистка поля загальної суми закупки

ADOtable2. Last; // перехід на наступний запис в таблиці

a: =ADOtable2no_doc. AsInteger+1; // номер накладної

ADOtable2. Insert; // додавання запису

ADOtable2no_doc. AsInteger: =a;

ADOtable2. Post;

ADOtable1. Filter: ='no_doc='+inttostr (ADOtable2no_doc. AsInteger); // таблиця sostav_doc фільтрується за номером накладної

ADOtable1. Filtered: =true;

kontrag. ADOTable1. First;

while not kontrag. ADOTable1. Eof do // формування списку контрагентів із довідника

begin

combobox4. Items. Add (kontrag. ADOTable1name_kontr. AsString); // додавання найменування в список

kontrag. ADOTable1. Next; // перехід на наступну запис

end;

combobox4. ItemIndex: =-1;

end

else // далі слідують оператори, які виконуються при появі форми в режимі перегляду

begin

zap: =true;

ADOtable1. Filter: ='no_doc='+inttostr (ADOtable2no_doc. AsInteger);

ADOtable1. Filtered: =true;

combobox4. Items. Clear;

combobox4. Items. Add (prihod. ADOQuery1name_kontr. AsString); // ім'я контрагента

combobox4. ItemIndex: =0; floatedit1. Value: =0; // обнулення параметрів

ADOtable1. First;

while not ADOtable1. Eof do

begin

floatedit1. Value: =0;

floatedit1. Value: =floatedit1. Value+ADOtable1cena. AsFloat; // обчислення загальної суми

ADOtable1. Next

end; end; end;

Розробка форми "Закупка товарів" на етапі проектування:

При натисненні кнопки "Підбір" на екрані з'явиться форма "Довідник товарів" в режимі перегляду. При цьому зовнішній вид форми зміниться.

procedure TNakladnaya_p. BitBtn2Click (Sender: TObject);

begin

ADOTable1. Insert; // вставка запису

tovar. dbgrid1. ReadOnly: =true; //

tovar. BitBtn2. Visible: =true; tovar. BitBtn3. Visible: =false; // Кнопка "Підбір" стане видимою, кнопка "Вийти" невидимою

tovar. BitBtn5. Visible: =false; // Кнопка "Видалити" стане невидимою

tovar. DBGrid2. ReadOnly: =true;

tovar. DBNavigator1. Enabled: =false;

fl_t: =true; // форма в режимі перегляду

tovar. ShowModal; end;

Поля таблиці "Сума" стануть обчислюваними:

procedure TNakladnaya_p. ADOTable1CalcFields (DataSet: TDataSet);

begin

ADOTable1cena. AsCurrency: =tovar. ADOTable2price. AsCurrency * ADOTable1kol. AsInteger; // закупочна ціна одиниці товару помножується на кількість

end;

При зміні поля кількість також відбувається перерахунок загальної суми закупки:

procedure TNakladnaya_p. ADOTable1kolChange (Sender: TField);

begin

while not ADOtable1. Eof do // перебір всіх записів відфільтрованого набору

begin

floatedit1. Value: =floatedit1. Value+ADOtable1cena. AsFloat;

ADOtable1. Next

end;

end;

При натисненні кнопки "Записати" виконується оформлення приходу із занесенням даних у відповідні таблиці.

procedure TNakladnaya_p. BitBtn1Click (Sender: TObject);

begin

// дані заносяться в таблицю накладних

ADOtable2. Edit;

ADOTable2date_doc. AsDateTime: =datetimepicker1. Date; // дата закупки

ADOTable2summa. AsCurrency: =floatedit1. Value; // сума закупки

ADOtable4. Locate ('name_kontr',combobox4. Text, []); // пошук в таблиці - довідника контрагентів обраного пункту списку

ADOTable2kod_kontr. AsInteger: =ADOTable4kod_kontr. AsInteger; // код контрагента

ADOTable2doc. AsString: ='p'; // вид операції - закупка

ADOtable2. Post;

zap: =true;

// дані заносяться в таблицю, яка зберігає інформацію про подробиці замовлення

ADOtable1. First;

while not ADOtable1. Eof do // додається товар, який був закуплений

begin

ostatki. ADOTable1. Locate ('kod_tov',ADOtable1kod_tov. AsInteger, []); // пошук відповідного запису по коду товару

ostatki. ADOTable1. Edit; // перехід в режим редагквання

ostatki. ADOTable1kol. AsInteger: =ostatki. ADOTable1kol. AsInteger+ADOtable1kol. AsInteger;

ostatki. ADOTable1. Post; ADOtable1. Next;

end;

ostatki. ADOTable1. Active: =false; // оновлення даних таблиці

ostatki. ADOTable1. Active: =true;

close;

end;

Подібним чином реалізована операція продажу товарів.

Система дозволяє вести статистику закупок і продажу товарів.

Дані статистики виводяться на основі набору компоненту ADOQuery, що містить наступний SQL-запит.

select p. doc, p. date_doc, p. no_doc,p. summa, до. name_kontr from documents_id p left join kontragenty до on до. kod_kontr=p. kod_kontr where p. doc='p' order by p. date_doc

Таким чином, дані формуються з двох таблиць, одна з яких -

documents_id (довідник оформлених накладних) є головною, а друга kontragenty (довідник контрагентів) - підпорядкованою. Список відсортований по даті оформлення накладних.

Кнопка "Фільтр" дозволяє вивести статистику за певний період:

procedure TPrihod. BitBtn2Click (Sender: TObject);

begin

ADOquery1. Filter: ='date_doc>='+''''+DateToStr (DateTimePicker1. Date) +''''+'and date_doc<='

+''''+DateToStr (DateTimePicker2. Date) +'''';

ADOquery1. Filtered: =true;

checkbox1. Checked: =false;

end;

Прапорець "Показати все" дозволяє повернутися до початкового набору:

procedure TPrihod. CheckBox1Click (Sender: TObject);

begin

if checkbox1. Checked then

ADOquery1. Filtered: =False;

end;

Кнопка "Подробиці" дозволяє вивести повну інформацію обраної накладної. При цьому на екрані з'явиться форма "Закупка товарів" в режимі перегляду даних.

procedure TPrihod. BitBtn4Click (Sender: TObject);

begin

red: =true; // дані тільки для перегляду

Nakladnaya_p. ADOTable2. Locate ('no_doc',ADOQuery1no_doc. AsInteger, []); // пошук обраного номера накладної

Nakladnaya_p. DateTimePicker1. Date: =ADOQuery1date_doc. AsDateTime; // установка дати

Nakladnaya_p. DBGrid1. ReadOnly: =true; // редагування заборонено

Nakladnaya_p. FloatEdit1. ReadOnly: =true;

Nakladnaya_p. BitBtn1. Enabled: =false; // кнопки неактивні

Nakladnaya_p. BitBtn2. Enabled: =false;

Nakladnaya_p. ShowModal;

end;

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

Система передбачає формування 4-х вихідних документів: Прайс-лист товарів, Книга товарів на складі, Книга закупок і Книга продажу.

Перший з цих документів формується на підставі набору за допомогою наступного SQL-запиту:

select g. name_groop,t. name_tov, t. ed, t. price_otp from sp_tov t left join groops g on g. kod_groop=t. kod_groop order by g. name_groop,t. name_tov

Дані формується на основі двох таблиць - groops (довідник груп товарів) і sp_tov (довідник товарів).

Дані виводяться в автоматично створюваний файл MS Excel.

Обробник події OnClick відповідного пункту меню буде мати такий вигляд:

procedure Tmain. N19Click (Sender: TObject);

var i,j: integer; r: string;

begin

E: =CreateOleObject ('Excel. Application'); // створення об'єкта MS Excel

workbook: =e. workbooks. add; // додання робочої книги

// Формування заголовку звіту

SetMergeCells (1,'A1: C1',true); // об'єднання комірок

cell: =workbook. worksheets [1]. cells [1,1]; // завдання робочого діапазону комірок

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108; // вирівнювання по горизонталі і по центру

range. verticalalignment: =-4108; // вирівнювання по вертикалі і по центру

range. rowheight: =50; // установка товщини границь

range. font. size: =20; // розмір шрифту

range. font. bold: =true; // тип написання - "жирний"

range. font. color: =clRed; // колір - червоний

range. value: ='Прайс-лист від '+datetostr (date); // виведення тексту заголовку, який містить поточну дату

i: =3; // номер строки

for j: =1 to 3 do // формування заголовків стовпців

case j of // j - номер стовпця

1: begin cell: =workbook. worksheets [1]. cells [i,j];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. columnwidth: =75;

range. font. bold: =true;

range. interior. color: =rgb (160,240,240); // визначення кольору заливки комірок

range. borders. linestyle: =1;

range. borders. weight: =3;

range. value: =' Найменування ';

end;

.

end;

ADOquery1. First; // перехід на перший запис набору

SetMergeCells (1,'A4: C4',true); // об'єднання комірок для виводу назви групи товару

cell: =workbook. worksheets [1]. cells [4,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108;

range. font. bold: =true;

range. value: =ADOquery1name_groop. AsString; // назва групи товару

r: =ADOquery1name_groop. AsString; // в цій змінній буде зберігатися поточна назва групи товару

i: =i+1; // номер рядка

while not ADOquery1. Eof do // перебір всіх записів

begin

i: =i+1; if r<>ADOquery1name_groop. AsString then // якщо група товарів змінилась

begin

SetMergeCells (1,'A'+inttostr (i) +': C'+inttostr (i),true); // об'єднання комірок

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. horizontalalignment: =-4108;

range. verticalalignment: =-4108; range. font. bold: =true;

range. value: =ADOquery1name_groop. AsString;

i: =i+1; end;

r: =ADOquery1name_groop. AsString; // виведення назви групи товарів

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery1name_tov. asstring; // виведення назви товарів

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery1ed. asstring; // виведення одиниці виміру.

range. borders. linestyle: =1; range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. numberformat: ='_-* # ##0,00 грн. _-; - * # ##0,00 грн. _-; _-* "-"?? грн. _-; _-@_-'; // формат комірки - грошовий

range. value: =ADOQuery1price_otp. AsFloat; // виведення ціни продажу

range. borders. linestyle: =1;

range. borders. weight: =2;

ADOquery1. Next;

end;

e. visible: =true; // візуалізація додатку

end;

Так само передбачено формування звіту "Книга товарів на складі", заснованого на наборі даних за допомогою наступного SQL-запиту:

select g. name_groop,t. name_tov, t. ed, t. price, t. kol, t. price_otp from sp_tov t left join groops g on g. kod_groop=t. kod_groop where t. kol>0 order by g. name_groop,t. name_tov

Дані відсортовані спочатку по назві групи товарів, а потім по назві товарів. У набір включені тільки ті записи, значення поля "кількість" яких більше нуля.

На відміну від попереднього документа звіт передбачає формування проміжних підсумків по кожній з груп товарів, а також виведення загальної суми вартості товарів на складі (за цінами закупки).

При виборі пунктів меню "Книга закупок" і "Книга продажу" на екрані з'явиться форма. Сформовані документи основані на наступних SQL-запитах:

ADOQuery1:

select k. name_kontr,d. date_doc,d. summa,d. no_doc, d. doc from documents_id d left join kontragenty k where k. kod_kontr=d. kod_kontr and d. doc='p' order by d. date_doc

ADOQuery2:

select k. name_kontr,d. date_doc,d. summa,d. no_doc, d. doc from documents_id d left join kontragenty k where k. kod_kontr=d. kod_kontr and d. doc='r' order by d. date_doc

Обидва набори засновано на даних таблиць documents_id (перелік оформлених накладних) і kontragenty (довідник контрагентів) і відсортовані по даті оформлення документа. У першому випадку в набір включені дані, що стосуються закупки товарів, а в другому - продаж.

Документи "Книга закупок" і "Книга продажу" формуються на основі шаблонів (Книга закупок. xlt і Книга продажу. xlt).

Шаблони містять текстові константи, які будуть використані для підстановки інформації.

При виконанні даної процедури була використана функція FindAndInsert, яка дозволяє знаходити рядок FindText і підставляти на її місце рядок ReplacementText.

function FindAndInsert (FindText,replacementText: string): boolean;

var range: variant;

begin

range: =e. cells. replace (what: =findtext,replacement: =replacementtext);

end;

При натисненні кнопки "ДОбре" форми проводиться фільтрація даних по ви-бранному діапазону дат і формування документів на основі шаблонів.

procedure Tv_date. BitBtn1Click (Sender: TObject);

var AppPath: array [0.255] of char;

AParams: TStringList;

i: integer; sum: real;

begin

if kn=1 then // ознака того, що формується "Книга закупок"

begin

ADOquery1. SQL. Clear;

ADOquery1. SQL. Add ('select k. name_kontr,d. date_doc,d. summa,d. no_doc, d. doc from documents_id d left join kontragenty k where k. kod_kontr=d. kod_kontr and d. doc='+''''+'p'+''''+'and d. date_doc >='+''''+datetostr (datetimepicker1. Date) +''''+' and d. date_doc <='+''''+datetostr (datetimepicker2. Date) +''''+' order by d. date_doc'); // внесення зміни в SQL-запит згідноо обраним датам

ADOquery1. Active: =true;

GetCurrentDirectory (255,AppPath); // визначаємо директорію, де знаходиться файл

S_f: =APPPATH; // путь до файлу

E: =CreateOleObject ('Excel. Application');

workbook: =e. workbooks. add (s_f+'\Книга закупок. xlt" '); // створення книги на основі шаблону

findandinsert ('##data',datetostr (date)); // пошук і заміна тексту, в даному випадку дати формування документа

Виведення даних на основі відповідних наборів проводиться описаним вище способом.

При виборі підпункту меню Довідка виводиться файл довідкової системи.

Для виведення файлу довідки була використана функція WinHelp

function WindHelp (Wnd: HWnd; HelpFile: PChar; Command: Word; Data: Longint): Bool

Дана функція викликає механізм Windows отримання довідкової інформації з командою Command. Параметри функції:

Wnd: ідентифікатор вікна; HelpFile: ім'я файлу довідкової інформації (що закінчується порожнім символом), ім'я маршруту, що включає при необхідності ім'я маршруту; Command: одна з команд help_Context, help_HelpOnHelp, help_Index, help_Key, help_Quit або help_SetIndex; Data: номер ідентифікатора контексту, якщо Command має значення help_Context, або ключове слово довідкової теми (що закінчується порожнім символом), якщо Command має значення help_Key.

Оскільки довідкова система не має складної розгалуженої структури ідентифікатори контексту і ключові слова використані не були. Обробник події ObClick для даного пункту меню буде наступним:

procedure TForm1. N4Click (Sender: TObject);

begin

winhelp (Form1. Handle, 'help. hlp', HELP_CONTEXT, 1);

end;

5. Економічне обґрунтування доцільності розробки програмного продукту

5.1 Організаційно-економічна частина