Разработка автоматизированной системы учета и анализа производственной деятельности строительных предприятий Кубани
Курсовой проект - Разное
Другие курсовые по предмету Разное
были получены следующие результаты:
изучена и описана предметная область;
выполнен полный цикл проектирования автоматизированной системы учета и анализа производственной деятельности строительных предприятий Кубани, применяющих актуальные услуги строительного рынка.
Данный программный продукт может использоваться как одним пользователем, так и группой пользователей работающих в локальной сети с выделенным сервером или без такового. Разработанная АС STROITEL адаптирована для работы в любой организации, информирующей об услугах и условиях строительного рынка Кубани.
Всё вышесказанное позволяет сделать вывод о том, что поставленная задача решена. Выполненная курсовая работа полностью соответствует требованиям задания для данной курсовой работы.
Все цели, поставленные при проектировании, были достигнуты, однако система допускает и предполагает дальнейшее усовершенствование в плане более удобного интерфейса и путем добавления к существующей АС новых функциональных возможностей.
Список используемых источников
1.Буч Г. Объектно-ориентированный анализ и проектирование с примерами приложений на C++, 2-е изд.: пер. с англ. - М.: Бином, СПб.: Невский Диалект, 2000. - 500с.
2.Архангельский А.Я. Delphi 7. Справочное пособие.- М.: ООО Бином-Пресс, 2004. - 1024 с.: ил.
.Фаронов В.В. Delphi. Программирование на языке высокого уровня: Учебник для вузов.- СПб.: Питер, 2004.- 640 с.: ил.
.Кватрани Т. Rational Rose 2000 и UML. Визуальное моделирование: Пер. с англ.-М.: ДМК Пресс, 2001.-176с.: ил.
.Оппель Э. Изучаем SQL / Джим Киу, пер. с англ. Д.А. Терентьева - М.: НТ Пресс, 2007. - 320 с.: ил.
.Шкрыль А.А. Разработка клиент-серверных приложений в Delphi. - СПб.: БХВ-Петербург, 2006. - 408 с.: ил.
.Зубов А. Программирование на Delphi. Трюки и эффекты. - СПб.: Питер, 2005. - 396с.: ил.
.Путилин А.Б., Юрагов Е.А. Компонентное моделирование и программирование на языке UML: Практическое руководство по проектированию информационно-измерительных систем / А.Б. Путилин, Е.А. Юрагов. - М.: НТ Пресс, 2005. - 664с.: ил. - (Проектирование и моделирование).
.Миклашевская Л.Н., Терехова Р.Л. Математические модели в расчетах на ЭВМ / Белорус. ин-т инж. ж.- д. трансп. - Гомель, 1993. - 54 с. - (Методические указания к лабораторным занятиям для студентов III курса строительного факультета).
Приложение
Исходные тексты программы
unit Main;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdActns, ActnList, ToolWin, ComCtrls, ImgList, StdCtrls,_DSet, FR_DBSet, FR_Class, frRtfExp;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TActionList;: TWindowClose;: TWindowCascade;: TWindowTileHorizontal;: TWindowTileVertical;: TWindowMinimizeAll;: TWindowArrange;: TStatusBar;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TImageList;: TToolButton;: TToolButton;: TToolButton;: TfrReport;: TMenuItem;: TMenuItem;: TMenuItem;: TfrReport;: TfrDBDataSet;: TfrDBDataSet;N2Click(Sender: TObject);N9Click(Sender: TObject);FormCreate(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);N3Click(Sender: TObject);ToolButton3Click(Sender: TObject);N5Click(Sender: TObject);C1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TMainForm;
DataModule, Math, DB, SpisPacint, DateUtils, BistrVvod, Dostup, DateF,, Spr, ADODB;
{$R *.dfm}TMainForm.N2Click(Sender: TObject);: TSpisPacientForm;:= TSpisPacientForm.Create(Application);DM.Dostup.Fields.Fields[2].AsInteger = 4 then.ToolButton7.Visible := False;.ToolButton5.Visible := False;;DM.Dostup.Fields.Fields[2].AsInteger = 5 then.ToolButton1.Visible := False;.ToolButton2.Visible := False;.ToolButton3.Visible := False;.ToolButton9.Visible := False;.ToolButton6.Visible := False;;.Show;;TMainForm.N9Click(Sender: TObject);;;
TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);.Pacient.Cancel;;TMainForm.N3Click(Sender: TObject);.Pacient.Insert;.Create(Application);;TMainForm.ToolButton3Click(Sender: TObject);.Create(Application);;TMainForm.N5Click(Sender: TObject);DM.Dostup do;.Clear;.Add(sel_Dost;1);;;;.Create(Application);;TMainForm.C1Click(Sender: TObject);.Create(Application);;.
Admin;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGridEh, ComCtrls, ToolWin, ExtCtrls, DBLookupEh,, Mask, DBCtrlsEh;= class(TForm): TDBGridEh;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TPanel;: TToolBar;: TToolButton;: TToolButton;: TToolButton;: TToolButton;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEditEh;: TDBEditEh;: TDBLookupComboboxEh;: TDBEditEh;: TPanel;: TToolBar;: TToolButton;: TToolButton;: TDBEditEh;: TLabel;: TLabel;: TDBEditEh;FormClose(Sender: TObject; var Action: TCloseAction);ToolButton4Click(Sender: TObject);ToolButton2Click(Sender: TObject);ToolButton1Click(Sender: TObject);ToolButton6Click(Sender: TObject);ToolButton5Click(Sender: TObject);ToolButton10Click(Sender: TObject);ToolButton9Click(Sender: TObject);ToolButton3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TAdminForm;DataModule, Main, DataModuleSpr, DB, ADODB;
Trim(DBEditEh3.Text)then">{$R *.dfm}TAdminForm.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;TAdminForm.ToolButton4Click(Sender: TObject);;;TAdminForm.ToolButton2Click(Sender: TObject);DM.Query do;.Clear;.Add(delete from dostup);.Add(where id_dostup = + IntToStr(DM.Dostup.Fields.Fields[0].AsInteger));;;;;.Dostup.Requery([]);;TAdminForm.ToolButton1Click(Sender: TObject);.Text := ;.Text := ;.Text := ;.Dost.Insert;.Visible := True;.Enabled := False;.Enabled := False;.Enabled := False;;TAdminForm.ToolButton6Click(Sender: TObject);.Dost.Cancel;.Enabled := True;.Enabled := True;.Enabled := True;.Visible := False;;TAdminForm.ToolButton5Click(Sender: TObject);Trim(DBEditEh2.Text) <> Trim(DBEditEh3.Text) then
begin(`Неверный пользователь или пароль`);
Trim(DBEditEh3.Text)then();.Text:=;.Text:=;.Dostup.Fields.Fields[3].AsString:=trim(DBEditEh5.Text);.Dostup.Post;.Dostup.Requery([]);.Visible:=False;.Enabled:=True;.Enabled:=True;.Enabled:=True;;;TAdminForm.ToolButton3Click(Sender:TObject);.Text:=;.Text:=;.Dostup.Edit;.Enabled:=False;.Enabled:=False;.Enabled:=False;.Visible:=True;;.AmnB;,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,,StdCtrls,DBCtrls,ComCtrls,ToolWin;=class(TForm):TToolBar;:TToolButton;:TToolButton;:TToolButton;:TDBMemo;ToolButton11Click(Sender:TObject);ToolButton1Click(Sender:TObject);FormClose(Sender:TObject;varAction:TCloseAction);">DBEditEh2.Text := ;.Text := ;.Nam.Insert;.Nam.Fields.Fields[1].AsString := DBEditEh1.Text;.Nam.Post;.Dost.Fields.Fields[1].AsInteger := DMSpr.Nam.Fields.Fields[0].AsInteger;.Dost.Fields.Fields[3].AsString := trim(DBEditEh2.Text);.Dost.Post;.Dostup.Requery([]);.Visible := False;.Enabled := True;.Enabled := True;.Enabled := True;;;TAdminForm.ToolButton10Click(Sender: TObject);.Dost.Cancel;.Visible := False;.Enabled := True;.Enabled := True;.Enabled := True;;TAdminForm.ToolButton9Click(Sender: TObject);Trim(DBEditEh2.Text) <> Trim(DBEditEh3.Text) then(Ошибка подключения);.Text := ;.Text := ;.Dostup.Fields.Fields[3].AsString := trim(DBEditEh5.Text);.Dostup.Post;.Dostup.Requery([]);.Visible := False;.Enabled := True;.Enabled := True;.Enabled := True;;;TAdminForm.ToolButton3Click(Sender: TObject);.Text := ;.Text := ;.Dostup.Edit;.Enabled := False;