Разработка программного обеспечения

Модули, процедуры, функции проекта и их назначение

Программа содержит 17 модулей:

MainUnit — основная форма проекта, содержит титульную информацию и основное меню для перехода к другим формам.

DataModulUnit — модуль для размещения компонентов соединения с базой данных.

KlientUnit — форма отображения справочника «Клиенты».

KlientAddUnit — форма добавления записи в справочник «Клиенты».

KlientRewUnit — форма редактирования записи справочника «Клиенты».

AvtoFUnit — форма отображения справочника «Автомобили».

AvtoAddUnit — форма добавления записи в справочник «Автомобили».

AvtoRewUnit — форма редактирования записи справочника «Автомобили».

DogUnit — форма отображения справочника «Договоры».

DogAddUnit — форма добавления записи в справочник «Договоры».

DogRewUnit — форма редактирования записи справочника «Договоры».

ManUnit — форма работы со справочником «Менеджеры».

PoiskUnit — форма поиска информации в БД.

AnalizUnit, ProdaziUnit, VidiUnit — формы с диаграммами.

Интерес представляют некоторые процедуры программы (весь листинг приведен в п. 4.2).

Процедура удаления записи из справочника предварительно выдает запрос предупреждения. Листинг процедуры приведен ниже:

procedure TDog. Button3Click (Sender: TObject);

begin.

if Application. MessageBox (PChar ('Удалить запись '.

+DataModul.DogTDSDesigner2.AsString+'?'),'Подтверждение',.

MB_OKCANCEL)=id_OK then.

DataModul.DogT.Delete;

end;

Процедура подстановки суммы в договор, исходя из цены автомобиля, закреплена на событии закрытия выпадающего списка автомобилей. Листинг процедуры приведен ниже:

procedure TDogAdd. DBLookupComboBox1CloseUp (Sender: TObject);

var id, price: integer;

begin.

id:=DBLookupComboBox1.KeyValue;

DataModul.AvtoT.First;

while DataModul.AvtoT.Eof True do.

begin.

if DataModul.AvtoTDSDesigner.AsInteger=id then.

price:=DataModul.AvtoTDSDesigner9.AsInteger;

DataModul.AvtoT.Next;

end;

DBEdit3.Text:=InttoStr (price);

end;

При нажатии кнопки «Сохранить» на формах добавления или редактирования записей происходит проверка изменений и их сохранение. Листинг процедуры представлен ниже:

procedure TDogRew. Button2Click (Sender: TObject);

begin.

if DataModul.DogT.Modified then.

DataModul.DogT.Post;

DogRew.Close;

end;

Процедура построения диаграммы по справочнику «Договоры» с суммированием продаж за каждый месяц представлена ниже:

procedure TAnaliz. FormCreate (Sender: TObject);

var sum: array[1.12] of integer;

i:integer;

d:string;

s:real;

begin.

Analiz.Chart1.Series[0]. Active:=True;

Analiz.Chart1.Series[0]. Clear;

for i:=1 to 12 do.

sum[i]: =0;

DataModul.DogT.First;

while DataModul.DogT.Eof True do.

begin.

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='01' then.

sum[1]: =sum[1]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='02' then.

sum[2]: =sum[2]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='03' then.

sum[3]: =sum[3]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='04' then.

sum[4]: =sum[4]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='05' then.

sum[5]: =sum[5]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='06' then.

sum[6]: =sum[6]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='07' then.

sum[7]: =sum[7]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='08' then.

sum[8]: =sum[8]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='09' then.

sum[9]: =sum[9]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='10' then.

sum[10]: =sum[10]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='11' then.

sum[11]: =sum[11]+DataModul.DogTDSDesigner9.AsInteger;

if copy (DataModul.DogTDSDesigner3.AsString, 4,2)='12' then.

sum[12]: =sum[12]+DataModul.DogTDSDesigner9.AsInteger;

DataModul.DogT.Next;

end;

s:=sum[1]/1000;

Analiz.Series1.Add (s,'январь');

s:=sum[2]/1000;

Analiz.Series1.Add (s,'февраль');

s:=sum[3]/1000;

Analiz.Series1.Add (s,'март');

s:=sum[4]/1000;

Analiz.Series1.Add (s,'апрель');

s:=sum[5]/1000;

Analiz.Series1.Add (s,'май');

s:=sum[6]/1000;

Analiz.Series1.Add (s,'июнь');

s:=sum[7]/1000;

Analiz.Series1.Add (s,'июль');

s:=sum[8]/1000;

Analiz.Series1.Add (s,'август');

s:=sum[9]/1000;

Analiz.Series1.Add (s,'сентябрь');

s:=sum[10]/1000;

Analiz.Series1.Add (s,'октябрь');

s:=sum[11]/1000;

Analiz.Series1.Add (s,'ноябрь');

s:=sum[12]/1000;

Analiz.Series1.Add (s,'декабрь');

end;