Разработка автоматизированной системы учета и анализа производственной деятельности строительных предприятий Кубани

Анализ деятельности строительных организаций Краснодарского края. Проектирование автоматизированной системы учета и анализа производственной деятельности строительных предприятий Кубани, применяющих услуги ипотечного кредитования и инвестирования.

Рубрика Производство и технологии
Вид курсовая работа
Язык русский
Дата добавления 07.09.2012
Размер файла 3,0 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

type

TOsmForm = class(TForm)

DBGridEh1: TDBGridEh;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton4: TToolButton;

ToolButton11: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEditEh1: TDBEditEh;

DBEditEh2: TDBEditEh;

DBEditEh3: TDBEditEh;

DBEditEh4: TDBEditEh;

DBEditEh5: TDBEditEh;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ToolButton11Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton1Click(Sender: TObject);

procedure ToolButton5Click(Sender: TObject);

procedure ToolButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

OsmForm: TOsmForm;

implementation

uses Main, DataModule;

{$R *.dfm}

procedure TOsmForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;

procedure TOsmForm.ToolButton11Click(Sender: TObject);

begin

close;

end;

procedure TOsmForm.ToolButton3Click(Sender: TObject);

begin

DM.Osm.Cancel;

end;

procedure TOsmForm.ToolButton1Click(Sender: TObject);

begin

DM.Osm.Fields.Fields[1].AsInteger :=

DM.PacAll.Fields.Fields[0].AsInteger;

DM.Osm.Post;

end;

procedure TOsmForm.ToolButton5Click(Sender: TObject);

begin

DM.Osm.Edit;

end;

procedure TOsmForm.ToolButton2Click(Sender: TObject);

begin

DM.Osm.Insert;

end;

end.

Размещено на Allbest.ru


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.