Автоматизация учета материалов на предприятии
Курсовая работа, 07 Октября 2011, автор: пользователь скрыл имя
Описание работы
Целью курсовой работы является автоматизация учета материалов на предприятии.
Главными задачами курсовой работы являются:
1. рассмотреть понятие материально- производственных запасов на предприятии;
2. изучить возможности языка высокого уровня применительно к разработке приложений, работающих с БД.
3. разработать приложение, с помощью которого будет производиться автоматизация работы главного бухгалтера.
4. рассмотреть бухгалтерский учет прихода, движения и списания материалов на предприятии;
Содержание
Введение..................................................................................................................4
1. Теоретические основы учета материалов на предприятии
1.1 Основные понятия АСУ...................................................................................5
1.2 Понятие МПЗ и их оценка................................................................................6
1.3Выбор языка программирования....................................................................12
2. Разработка приложения
2.1 Создание БД.....................................................................................................16
2.2 Руководство пользователя..............................................................................20
Заключение..........................................................................................................23
Список используемой литературы.................................................................24
Приложение........................................................................................................
Работа содержит 1 файл
учет материалов.doc
— 299.00 Кб (Скачать) fmSpisanie: TfmSpisanie;
implementation
uses
DB, udmMain;
{$R *.dfm}
procedure TfmSpisanie.
begin
Close;
end;
procedure TfmSpisanie.ActionOKExecute(
begin
ActionSaveExecute(Sender);
Close;
end;
procedure TfmSpisanie.ActionSaveExecute(
begin
with dmMain do
begin
if adotDocSpisanie.State in [dsInsert, dsEdit] then
adotDocSpisanie.Post;
if adotTabSpisanie.State in [dsInsert, dsEdit] then
adotTabSpisanie.Post;
end;
end;
procedure TfmSpisanie.dtpDateChange(
begin
with dmMain do
begin
if not (adotDocSpisanie.State in [dsInsert, dsEdit]) then
adotDocSpisanie.Edit;
adotDocSpisanie.FieldByName('
end;
end;
procedure TfmSpisanie.FormClose(Sender: TObject; var Action: TCloseAction);
var
SaveDoc, SaveTab: Boolean;
begin
with dmMain do
begin
SaveDoc := adotDocSpisanie.State in [dsInsert, dsEdit];
SaveTab
:= adotTabSpisanie.State in [dsInsert, dsEdit];
if SaveDoc or SaveTab then
if MessageDlg('Документ изменен. Записать?',
mtConfirmation, mbYesNo, -1) = mrYes then
begin
if SaveDoc then
adotDocSpisanie.Post;
if SaveTab then
adotTabSpisanie.Post;
end else begin
if SaveDoc then
adotDocSpisanie.Cancel;
if SaveTab then
adotTabSpisanie.Cancel;
end;
end;
end;
procedure TfmSpisanie.FormCreate(Sender: TObject);
begin
with dmMain do
case adotDocSpisanie.State of
dsInsert:
begin
dtpDate.DateTime := Now;
adotDocSpisanie.FieldByName('
adotDocSpisanie.Post;
end;
dsEdit:
dtpDate.DateTime := adotDocSpisanie.FieldByName('
else
if adotDocSpisanie.FieldByName('
begin
dtpDate.DateTime := Now;
adotDocSpisanie.Insert;
adotDocSpisanie.FieldByName('
adotDocSpisanie.Post;
end else
dtpDate.DateTime := adotDocSpisanie.FieldByName('
end;
end;
end.