2.3 Внешний вид программы

В процессе разработки интерфейса уделялось большое внимание его упрощению для того, чтобы пользователь с минимальными знаниями и навыками в работе с компьютером мог без особого труда пользоваться СУБД.

Ниже приведён внешний вид программы:

Для экономии рабочего места было решено вынести некоторые функции на дочерние формы. Доступ к ним осуществляется через ниспадающее меню. Ниже приведён их внешний вид:

Рис. 2.6 Форма генерации отчёта

2.4 Описание работы программы Кнопки на формах выполняют базовые функции редактирования и просмотра данных. Основной рабочий компонент, который выводит все данные из БД в окно программы, носит название StringGrid.

Этот элемент позволяет вывести данные, но к самой базе данных подключается компонент SQLite3. pas, использующий собственный драйвер из библиотеки SQLite3.dll. Как было указано ранее, компонент для Delphi 7 и драйвер к компоненту поставляются напрямую от разработчика SQLite.

Приложение взаимодействуют с компонентом SQLite3 и выполняет различные запрограммированные запросы к БД на языке SQL. Ниже приведён код некоторых процедур, выполняемых в приложении.

Подготовка Stringgrid и подключение к базе данных (выполняется при загрузке формы).

procedure TfrmMain. FormCreate (Sender: TObject);

begin.

strngrd.ColCount:=4;

strngrd.Cells[0,0]: ='№';

strngrd.Cells[1,0]: ='Ф.И.О.';

strngrd.Cells[2,0]: ='Должность';

strngrd.Cells[3,0]: ='Отдел';

strngrd.ColWidths[0]: =30;

strngrd.ColWidths[1]: =200;

strngrd.ColWidths[2]: =250;

strngrd.ColWidths[3]: =230;

sldb := TSQLiteDatabase. Create ('czn.db');

try.

if not sldb. TableExists ('po') then.

begin.

ShowMessage ('База данных повреждена. Для решения проблемы обратитесь к администратору.');

Application.Terminate;

end;

except.

ShowMessage ('При подключении к базе произошла ошибка.');

Application.Terminate;

exit;

end;

UpdatePO;

end;

Для экономии места, а так же для улучшения читаемости исходного кода, его фрагмент вынесен в процедуру UpdatePo, которая обновляет список единиц ПО.

procedure TfrmMain. UpdatePO ();

var.

sltb:TSQLiteTable;

begin.

sltb := sldb. GetTable ('SELECT name FROM po');

try.

cbbBezRab.Clear;

while not sltb. EOF do.

begin.

cbbBezRab.AddItem (UTF8Decode (sltb.FieldAsString (0)), self);

sltb.Next;

end;

finally.

sltb.Free;

end;

end;

В дочерних модулях программы так же содержатся подобные процедуры. Вот пример некоторых из них:

procedure TfrmGr. UpdateTable ();

var.

sltb, sltb2: TSQLiteTable;

i:integer;

begin.

for i:=strngrd.FixedRows to strngrd. RowCount-1 do.

strngrd.Rows[i]. Clear;

sltb := sldb. GetTable ('SELECT * FROM po');

try.

strngrd.RowCount := sltb. Count+1;

strngrd.ColCount := sltb. ColCount;

i := strngrd. FixedRows;

while not sltb. EOF do.

begin.

strngrd.Cells[0,i] := UTF8Decode (sltb.FieldAsString (0));

strngrd.Cells[1,i] := UTF8Decode (sltb.FieldAsString (1));

strngrd.Cells[2,i] := UTF8Decode (sltb.FieldAsString (2));

strngrd.Cells[3,i] := UTF8Decode (sltb.FieldAsString (3));

strngrd.Cells[4,i] := UTF8Decode (sltb.FieldAsString (4));

strngrd.Cells[5,i] := UTF8Decode (sltb.FieldAsString (5));

strngrd.Cells[6,i] := UTF8Decode (sltb.FieldAsString (6));

sltb.Next;

i:=i+1;

end;

finally.

sltb.Free;

end;

end;

procedure TfrmDol. UpdateTable ();

var.

sltb, sltb2: TSQLiteTable;

i:integer;

begin.

for i:=strngrd.FixedRows to strngrd. RowCount-1 do.

strngrd.Rows[i]. Clear;

sltb := sldb. GetTable ('SELECT * FROM sotr');

try.

strngrd.RowCount := sltb. Count+1;

strngrd.ColCount := sltb. ColCount;

i := strngrd. FixedRows;

while not sltb. EOF do.

begin.

strngrd.Cells[0,i] := UTF8Decode (sltb.FieldAsString (0));

strngrd.Cells[1,i] := UTF8Decode (sltb.FieldAsString (1));

strngrd.Cells[2,i] := UTF8Decode (sltb.FieldAsString (2));

strngrd.Cells[3,i] := UTF8Decode (sltb.FieldAsString (3));

sltb2:=sldb.GetTable ('SELECT name FROM po WHERE id='+UTF8Decode (sltb.FieldAsString (4)));

strngrd.Cells[4,i]: = UTF8Decode (sltb2.FieldAsString (0));

sltb2.Free;

sltb.Next;

i:=i+1;

end;

finally.

sltb.Free;

end;

UpdateOrg;

end;

procedure TfrmDol. UpdateOrg ();

var.

sltb:TSQLiteTable;

begin.

sltb := sldb. GetTable ('SELECT name FROM po');

try.

cbbEdPo.Clear;

while not sltb. EOF do.

begin.

cbbEdPo.AddItem (UTF8Decode (sltb.FieldAsString (0)), Self);

sltb.Next;

end;

finally.

sltb.Free;

end;

end;

При навигации между формами требуется защита от ошибок, вызванных случайными неверными действиями пользователя. Для этого в процедурах вызова дочерних форм будем использовать значение свойства родительской формы Enabled равное False. Родительская форма станет неактивной и пользователь не сможет внести в неё изменения, не закончив работу с дочерней. Пример такой процедуры ниже:

procedure TfrmMain. N3Click (Sender: TObject);

begin.

frmOrg.show;

frmMain.Enabled:=false;

end;

Очень важными являются функции СУБД. Запросы, вносящие изменения в базу данных, реализованы с помощью метода ExecSQL, применяемого к уже загруженной в память базе данных типа TSQLiteDatabase с выполненным подключением. Применяемый метод позволяет выполнить SQL запрос и отследить результат его выполнения (успешный или с ошибкой). Ниже приведены примеры использования таких конструкций на кнопках редактирования в форме редактора.

//Добавление:

procedure TfrmGr. btnAddClick (Sender: TObject);

begin.

sldb.ExecSQL ('INSERT INTO po (name, desc, price, dev, datebuy, dateend) VALUES («'+AnsiToUtf8(edtName.text)+.

'" ," '+AnsiToUtf8(edtDesc.text)+.

'" ," '+AnsiToUtf8(edtPrice.text)+.

'" ," '+AnsiToUtf8(edtDev.text)+.

'" ," '+AnsiToUtf8(edtBuy.text)+.

'" ," '+AnsiToUtf8(edtEnd.text)+.

'")');

edtName.Text:='';

edtDesc.Text:='';

edtPrice.Text:='';

edtDev.Text:='';

edtBuy.Text:='';

edtEnd.Text:='';

ShowMessage ('Готово!');

UpdateTable;

end;

//Внесение изменений:

procedure TfrmGr. btnSaveClick (Sender: TObject);

begin.

if idn='' then.

ShowMessage ('Сначала выберете запись!').

else.

begin.

sldb.ExecSQL ('UPDATE po SET name="'+AnsiToUtf8(edtName.text)+.

'", desc="'+AnsiToUtf8(edtDesc.text)+.

'", price="'+AnsiToUtf8(edtPrice.text)+.

'", dev="'+AnsiToUtf8(edtDev.text)+.

'", datebuy="'+AnsiToUtf8(edtBuy.text)+.

'", dateend="'+AnsiToUtf8(edtEnd.text)+.

'" WHERE id='+idn);

UpdateTable;

end;

end;

//Удаление:

procedure TfrmGr. btnDelClick (Sender: TObject);

begin.

if idn='' then.

ShowMessage ('Сначала выберете запись!').

else.

begin.

sldb.ExecSQL ('DELETE FROM po WHERE id='+idn);

UpdateTable;

end;

end;

Помимо основных форм для вывода используются отчёты.

Отчеты представляют собой наилучшее средство представления информации из базы данных в виде печатного документа. По сравнению с другими методами вывода данных на печать отчеты обладают двумя принципиальными преимуществами:

отчеты предоставляют широкие возможности для группировки и вычисления промежуточных и общих итогов для больших наборов данных;

отчеты могут быть использованы для получения красиво оформленных материалов, наклеек и других документов.

Для формирования отчётов в нашей программе есть отдельная форма. Она позволяет сформировать требуемый отчёт и потом распечатать его (или вывести в файл). Для формирования отчёта и вывода будет использоваться встроенный компонент среды Delphi 7 под названием Printers.pas. С помощью этого компонента мы можем использовать принтер, установленный в системе, что бы вывести отчёт. Если физического принтера в системе не установлено, или по умолчанию выбран виртуальный принтер, отчёт выведется в файл.

Ниже приведена процедура печати отчёта:

procedure PrintGrid (sGrid: TStringGrid; sTitle: string);

var.

X1, X2: Integer;

Y1, Y2: Integer;

TmpI: Integer;

F: Integer;

TR: TRect;

begin.

Printer.Title := sTitle;

Printer.BeginDoc;

Printer.Canvas.Pen.Color := 0;

Printer.Canvas.Font.Name := 'Times New Roman';

Printer.Canvas.Font.Size := 12;

Printer.Canvas.Font.Style := [fsBold, fsUnderline];

Printer.Canvas.TextOut (0, 100, Printer. Title);

for F := 1 to sGrid. ColCount — 1 do.

begin.

X1 := 0;

for TmpI := 1 to (F — 1) do.

X1 := X1 + 5 * (sGrid.ColWidths[TmpI]);

Y1 := 300;

X2 := 0;

for TmpI := 1 to F do.

X2 := X2 + 5 * (sGrid.ColWidths[TmpI]);

Y2 := 450;

TR := Rect (X1, Y1, X2 — 30, Y2);

Printer.Canvas.Font.Style := [fsBold];

Printer.Canvas.Font.Size := 7;

Printer.Canvas.TextRect (TR, X1 + 50, 350, sGrid. Cells[F, 0]);

Printer.Canvas.Font.Style := [];

for TmpI := 1 to sGrid. RowCount — 1 do.

begin.

Y1 := 150 * TmpI + 300;

Y2 := 150 * (TmpI + 1) + 300;

TR := Rect (X1, Y1, X2 — 30, Y2);

Printer.Canvas.TextRect (TR, X1 + 50, Y1 + 50, sGrid. Cells[F, TmpI]);

end;

end;

Printer.EndDoc;

end;

При выводе отчёта в файл он выглядит следующим образом: