Автоматизация учета продаж стройматериалов
Программа учета продаж стройматериалов. Ее применение для автоматизации продаж, закупок и учета товара на складах, для получения статистики по проделанным операциям и вывод ее на принтер. Разработка баз данных, программного обеспечения в среде Delphi 7.0.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 21.02.2016 |
| Размер файла | 2,6 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
ADOConnection1.Close; //соединение закрыть
ADOConnection1.ConnectionString := //новая строка соединения
format('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False',
[fn]);
ADOConnection1.Open; //открыть
ini.WriteString('main', 'LastBase',fn); //последняя открытая база
DBCon:=ADOConnection1; //соединение для функций SqlAdoTools
if create then //если надо создать новую базу
//то запустить скрипт создания базы
RunScriptFromFile(ExtractFilePath(ParamStr(0))+'create.sql');
LoadKlassifikator(klkat,tblKlKat);
TableNds.Open;
HasNDS:=TableNdsNDS.Value;
NdsVal:=TableNdsNDSProc.Value;
TableNds.close;
end;
//закрытб БД
procedure Tdm.CloseDataBase;
begin
ADOConnection1.Close;
dbCon:=nil;
end;
function tdm.GetSkidkaOn(f:real):real;
begin
result:=0;
with TblSkidki do
begin
close;
open;
first;
while not eof do
begin
if TblSkidkiSummMany.Value>f then exit;
result:=TblSkidkiSkidka.Value;
next;
end;
end;
end;
//новая запись в таблице товар
procedure Tdm.QryTowarNewRecord(DataSet: TDataSet);
begin
QryTowarid.Value := getid('towar'); //новое значение идентификатора
if QryTowar.tag=-1 then exit;
QryTowarKategory.Value:=DataSet.tag; //новое значение категории
end;
//установка параметров для всех компонентов формы
procedure Tdm.UpdateSettings(form:tform);
type tsc=procedure (Value: TColor);
var cln:string;
i:integer;
// cl:tColor;
p:tsc;
var
ClassRef: TClass;
function SetColor(t:tColor):tColor; //установить цвет
begin
result:=t;
if TableParamscolor.IsNull then exit;
result:=TableParamscolor.value;
end;
function SetFontName(t:string):string; //название шрифта
begin
result:=t;
if TableParamsFontname.IsNull then exit;
result:=TableParamsFontname.value;
end;
function SetFontSize(t:integer):integer; //размер
begin
result:=t;
if TableParamsFontSize.IsNull then exit;
result:=TableParamsFontSize.value;
end;
procedure UpdateObj(o:tObject); //установка параметров объекта
begin
ClassRef := o.ClassType; //что за объет
if UpperCase(ClassRef.ClassName)=uppercase(cln) then //тот ли
begin
//если TLABEL то установить для него
if uppercase(cln)='TLABEL' then
begin
tLabel(o).Color := setcolor(tLabel(o).Color);
tLabel(o).font.Name:=SetFontName(tLabel(o).font.Name);
SetFontSize(tLabel(o).font.size);
end;
if uppercase(cln)='TPANEL' then
begin
TPANEL(o).Color:= setcolor(TPANEL(o).Color);
TPANEL(o).font.Name:= SetFontName(TPANEL(o).font.Name);
TPANEL(o).font.size:= SetFontSize(TPANEL(o).font.size);
end;
if uppercase(cln)='TDBGRID' then
begin
tDBGrid(o).Color :=setcolor(tDBGrid(o).Color);
tDBGrid(o).font.Name :=SetFontName(tDBGrid(o).font.Name);
tDBGrid(o).font.size :=SetFontSize(tDBGrid(o).font.size);
end;
if uppercase(cln)='TEDIT' then
begin
tEdit(o).Color :=setcolor(tEdit(o).Color);
tEdit(o).font.Name :=SetFontName(tEdit(o).font.Name);
tEdit(o).font.size :=SetFontSize(tEdit(o).font.size);
end;
if uppercase(cln)='TDBEDIT' then
begin
tDBEdit(o).Color :=setcolor(tDBEdit(o).Color);
tDBEdit(o).font.Name :=SetFontName(tDBEdit(o).font.Name);
tDBEdit(o).font.size :=SetFontSize(tDBEdit(o).font.size);
end;
if uppercase(cln)='TCHECKBOX' then
begin
tCheckBox(o).Color :=setcolor(tCheckBox(o).Color);
tCheckBox(o).font.Name :=SetFontName(tCheckBox(o).font.Name);
tCheckBox(o).font.size :=SetFontSize(tCheckBox(o).font.size);
end;
if uppercase(cln)='TRADIOGROUP' then
begin
tRadioGroup(o).Color :=setcolor(tRadioGroup(o).Color);
tRadioGroup(o).font.Name :=SetFontName(tRadioGroup(o).font.Name);
tRadioGroup(o).font.size :=SetFontSize(tRadioGroup(o).font.size);
end;
if uppercase(cln)='TPANEL' then
begin
tPanel(o).Color :=setcolor(tPanel(o).Color);
tPanel(o).font.Name :=SetFontName(tPanel(o).font.Name);
tPanel(o).font.size :=SetFontSize(tPanel(o).font.size);
end;
if uppercase(cln)='TGROUPBOX' then
begin
tGroupBox(o).Color :=setcolor(tGroupBox(o).Color);
tGroupBox(o).font.Name :=SetFontName(tGroupBox(o).font.Name);
tGroupBox(o).font.size :=SetFontSize(tGroupBox(o).font.size);
end;
end;
end;
begin
with TableParams do //таблица настроек
begin
Open;
First;
while not eof do
begin
cln := TableParamsClassName.Value; //имя класса
for i:=0 to form.ComponentCount-1 do //по всем объектам формы
begin
UpdateObj(form.Components[i]); //установить параметры
end;
next;
end;
end;
end;
procedure Tdm.TblClientsNewRecord(DataSet: TDataSet);
begin
TblClientsid.Value := GetId('Clients');
Размещено на Allbest.ru
...Подобные документы
Сущность учета и его особенности в торговле. Проблемы создания эффективной системы управления предприятием. Две группы СУБД, используемые в системах автоматизации. Применение систем комплексной автоматизации. Методика разработки программы учета продаж.
курсовая работа [447,0 K], добавлен 08.03.2011Характеристика ООО "Евросеть", анализ места учета продаж товаров в его деятельности и использования вычислительной техники в учете. Особенности реализации задач автоматизации учета продажи товаров в ООО "Евросеть", оценка ее экономической эффективности.
дипломная работа [1,4 M], добавлен 30.08.2010Разработка информационной системы для учета продаж саженцев в питомнике. Анализ используемых инструментальных средств программирования. Описание входной информации, обработка ошибок. Инструкция для пользователя. Расчет экономической эффективности.
дипломная работа [2,4 M], добавлен 06.11.2011Создание программы для автоматизации продаж программных продуктов, ведение базы данных по клиентам, формирование отчетов по реализованным товарам и вырученным средствам. Алгоритмизация задачи. Аномалии и защитное программирование. Тестирование и отладка.
курсовая работа [2,9 M], добавлен 17.07.2014Разработка на основе экономической информационной системы (на примере платформы "1С: Предприятие 8") конфигурации для учета продаж в студенческом киоске. Интеграция соответствующих прикладных решений (конфигураций) программы в универсальной рабочей среде.
курсовая работа [3,3 M], добавлен 21.06.2023Разработка информационной системы для автоматизации процесса учета поставок и продаж запчастей в магазине, создание программного кода. Моделирование основных бизнес-процессов. Обоснование экономической эффективности проекта и расчет ее показателей.
дипломная работа [2,4 M], добавлен 17.08.2015- Создание защищенного приложения для ведения учета продаж и закупок, ориентированного на малый бизнес
Проектирование модели базы данных в соответствии с предметной областью "Торговля". Разработка архитектуры системы безопасности приложения по ведению базы данных. Реализация приложения, обеспечивающего учет продаж и закупок предприятия. Способы его защиты.
дипломная работа [2,5 M], добавлен 05.02.2017 Решение проблемы учета и анализа накладных, используемых организацией для учета поставок и продаж товара потребителям. Разработка информационного обеспечения, определение логической структуры базы данных. Описание реализации отдельных модулей задачи.
курсовая работа [267,4 K], добавлен 01.03.2010Типы объектов, используемых при разработке конфигурации. Разработка и последующее тестирование автоматизации учета услуг студии на основе платформы "1С: Предприятие 8.2". Создание перечислений, справочников, документов, регистров накопления, плана счетов.
курсовая работа [3,6 M], добавлен 27.12.2014Среда программирования Delphi и баз данных Microsoft Access. Разработка проекта автоматизации складского учета. Качество работы финансового звена предприятия. Разработка системы автоматизации учета товаров в торговой организации складских операций.
дипломная работа [1,9 M], добавлен 03.07.2015Разработка автоматизированной информационной системы для обеспечения учета образовательных учреждений в среде Delphi на языке программирования Pascal. Создание базы данных и интерфейса для работы с АИС. Сущности и атрибуты логической модели данных.
курсовая работа [429,3 K], добавлен 15.05.2014Автоматизация учета закупки и реализации продукции. Сущность задач учета операций товародвижения. Характеристика входной, постоянной, промежуточной и результатной информации. Структура программных средств. Руководство программиста и пользователя.
курсовая работа [2,4 M], добавлен 23.12.2013Создание информационной системы, способной автоматически выполнять учет продаж. Разработка физической модели базы данных, определение логических связей. Проектирование форм, запросов и графического интерфейса системы. Экономическая эффективность проекта.
дипломная работа [5,1 M], добавлен 02.10.2011Инструментальные средства для разработки структуры информационной базы данных "Программа автоматизации учета расчетов с поставщиками", пользовательский интерфейс СУБД Access. Разработка запросов отбора данных и вычислений, экранных форм коррекции данных.
лабораторная работа [2,4 M], добавлен 15.11.2010Математическая и физическая модели ПМК для автоматизации учета данных о научной работе в ВУЗе. Разработка программного обеспечения программно–методического комплекса для автоматизации учета данных о научной работе в ВУЗе, их экономическое обоснование.
дипломная работа [4,8 M], добавлен 30.06.2012Описание входной и выходной информации, структура базы данных. Разработка программа автоматизации обработки сведений в отделе Государственной статистики Аскинского района по животноводству в среде Delphi 7. Расчет затрат на создание программного продукта.
курсовая работа [1,2 M], добавлен 10.07.2012Описание деятельности фирмы Rep’S, анализ существующих процессов. Разработка новой технологии продаж продукции. Выбор архитектуры для реализации информационной системы. Выбор программного обеспечения. Оценка эффективности разработанного проекта.
курсовая работа [1,8 M], добавлен 18.12.2011Разработка программного обеспечения для автоматизации процесса учета поступления и формирования заказов. Построение реляционной базы данных средствами Microsoft Access. Методы повышения эффективности организации информационных потоков на предприятии.
дипломная работа [1,9 M], добавлен 02.12.2012Проблемы автоматизации учета технического состояния ПК в аудиториях учебного заведения. Структура базы данных. Обоснование выбора языка программирования. Создание программного средства на языке Object Pascal с использованием среды разработки Delphi 7.0.
курсовая работа [1,5 M], добавлен 28.08.2012Проект автоматизированной системы управления предприятием ООО "Звезда Востока и Японии": программное обеспечение закупок материалов, включающее компоненты: наличие и порядок хранения товара на складе, оформление продаж, выдача необходимой документации.
дипломная работа [3,6 M], добавлен 14.09.2012
