Учет договоров ПО Delphi7+Access

Задание

Информационная система для учета договоров Программного обеспечения.

Функционал программы

Данная система позволяет вести справочник контрагентов, товаров и услуг компании,

вести реестр договоров, формировать и печатать отеты и договора.

Фрагмент программного кода

procedure TForm2.Button2Click(Sender: TObject);
begin
  begin
    workquery.SQL.Clear;
    workquery.SQL.Add('update Контрагенты set Наименование=:newНаименование, Адрес=:newАдрес, Телефоны=:newТелефоны, Реквизиты=:newРеквизиты, ИНН=:newИНН, КПП=:newКПП, ВЛицеКого=:newВЛицеКого ');
    workquery.SQL.Add('WHERE ID =:OldID');
    workquery.Parameters.ParamByName('newНаименование').Value:=Edit1.Text;
    workquery.Parameters.ParamByName('newАдрес').Value:=Edit2.Text;
    workquery.Parameters.ParamByName('newТелефоны').Value:=Edit3.Text;
    workquery.Parameters.ParamByName('newРеквизиты').Value:=Edit4.Text;
    workquery.Parameters.ParamByName('newИНН').Value:=Edit5.Text;
    workquery.Parameters.ParamByName('newКПП').Value:=Edit6.Text;
    workquery.Parameters.ParamByName('newВЛицеКого').Value:=Edit7.Text;

workquery.Parameters.ParamByName('OldID').Value:=DBGrid1.DataSource.DataSet.Fields.Fields[0].Value;;
try
      workquery.ExecSQL;
      DBGrid1.DataSource.DataSet.Active := False;
      DBGrid1.DataSource.DataSet.Active := True;
    except
      showmessage('Ошибка операции обновления');
    end;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
         begin
    workquery.SQL.Clear;
    workquery.SQL.Add('Insert into Контрагенты  (Наименование, Адрес, Телефоны, Реквизиты, ИНН, КПП, ВЛицеКого ) ');
    workquery.SQL.Add('values (newНаименование, newАдрес, newТелефоны, newРеквизиты, newИНН, newКПП, newВЛицеКого)');
    workquery.Parameters.ParamByName('newНаименование').Value:=Edit1.Text;
    workquery.Parameters.ParamByName('newАдрес').Value:=Edit2.Text;
    workquery.Parameters.ParamByName('newТелефоны').Value:=Edit3.Text;
    workquery.Parameters.ParamByName('newРеквизиты').Value:=Edit4.Text;
    workquery.Parameters.ParamByName('newИНН').Value:=Edit5.Text;
    workquery.Parameters.ParamByName('newКПП').Value:=Edit6.Text;
    workquery.Parameters.ParamByName('newВЛицеКого').Value:=Edit7.Text;

    try
      workquery.ExecSQL;
      ADOQuery1.Close;
      ADOQuery1.Open;
      ADOQuery1.Active := False;
      ADOQuery1.Active := True;
    except
      showmessage('Ошибка операции обновления');
    end;
    end;
end;

Скриншот архива с проектом

Пояснения по запуску программы

• Установить Аксес 2010 и выше
• Запустить файл Project2.exe