На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Учет договоров ПО 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

Купить 400,00 
Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

ramil9209

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Другие работы автора
Новые работы
Тип Название Рейтинг Категория Стоимость
Контрольная Театр (C#, WinForms, Access) new 0 .NET (C#) 1 500,00
Исходник Автошкола (C#, WPF, SQL Server, SQLite) new 0 .NET (C#) 2 500,00
Исходник Программа Парадокс дней рождения Python new 0 Python 700,00
Исходник ИС Налогоплательщики С# + SQL Server new 0 .NET (C#) 2 500,00
Исходник Логическая игра "Бейглз" Python new 0 Python 700,00
Купить

400,00 

Сразу после оплаты Вы получите работу на электронную почту. Файлы отправляются автоматически. Исходник программ Вы сможете отредактировать, как Вам нужно.

Заказать через

Учет договоров по.zip
1382283
Оцени работу

рейтинг

Категории
Учет договоров ПО Delphi7+Access
Информационная система для учета договоров Программного обеспечения
Категория: Образование
Стоимость: 400,00