Очень удобно в программе автоматическое заполнение чеков и отчётов ведь это как правило довольно неинтересный и скучный процесс, одно дело когда надо заполнить несколько документов, другое когда сотни и даже тысячи и вот здесь велика человеческая ошибка.

Много внимания возможностям языка SQL, предоставляющего средства для обработки данных. Запросы дают разнообразные возможности поиска необходимых данных. находить разного рода информацию по клиентам, сотрудникам. Также SQL запросы помогают отсеивать данные по необходимым параметрам, отсеивать можно до тех пор пока не останется нужная нам информация. Данное приложение может быть адаптировано к любой службе занимающихся работой с квартирами или недвижимостью, учитывая схожесть организации основных функций и решаемых задач. Ко всему прочему программу легко расширить например до работы риэлторской фирмы, которая предоставляет различные услуги в виде: оценки квартир, обмен квартир и имеющей другие функции.

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

Таким образом, реализация проекта позволит значительно уменьшить затраты рабочего времени на организационные вопросы, а, следовательно, повысить производительность труда и экономическую эффективность проводимых работ.

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

Архангельский А.Я. Программирование В Delphi 5 - М.:

ЗАО «Издательство Бином», 2000 г. - 1072 с.: ил.

Базы данных. Проектирование, реализация и сопровождение. Теория и практика. Второе издание исправленное и дополненное. Авторы Томас Конноли и Каролин Бегг.

Встроенное справочное руководство Borland Delphi 5.

Интернет-сайт www.citforum.ru ftp-архив.

Документы конференции по Delphi.

Приложение А

Project2

program Project2;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm7, Form7);

Application.Run;

end.

Unit1

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, Db, Grids, DBGrids, DBTables, ColorGrd, ExtCtrls, StdCtrls, jpeg,

Buttons;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

DataSource1: TDataSource;

Table1: TTable;

Table1FirstName: TStringField;

Table1SecondName: TStringField;

Table1Otchestvo: TStringField;

Table1Npassporta: TFloatField;

Table1Adress: TStringField;

Table1Phone: TFloatField;

Table1Obrazov: TStringField;

Table1OpWork: TFloatField;

Table1DataBorn: TDateField;

Table1Family: TStringField;

Table1Dolgnost: TStringField;

Table1Oklad: TFloatField;

Table1DataPostWork: TDateField;

N6: TMenuItem;

ColorGrid1: TColorGrid;

DataSource4: TDataSource;

Table4: TTable;

DBGrid4: TDBGrid;

Table4Name: TStringField;

Table4Surname: TStringField;

Table4Adress: TStringField;

Table4Telefhone: TFloatField;

Table4RayonKv: TStringField;

Table4Tipplan: TStringField;

DataSource2: TDataSource;

Table2: TTable;

DataSource3: TDataSource;

Table3: TTable;

Table3Vlad: TStringField;

Table3Rschet: TFloatField;

Table3Adress: TStringField;

Table3Telephone: TFloatField;

Table2Inomer: TFloatField;

Table2Oper: TStringField;

Table2Tipplan: TStringField;

Table2Rayon: TStringField;

Table2Adress: TStringField;

Table2Obpl: TFloatField;

Table2Plkux: TFloatField;

Table2Sostkv: TStringField;

Table2Kolroom: TFloatField;

Table2Sityname: TStringField;

Table2Zena: TFloatField;

Table2Dopsv: TStringField;

Table2Vlad: TStringField;

N7: TMenuItem;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

N8: TMenuItem;

Button1: TButton;

Button2: TButton;

BitBtn1: TBitBtn;

Label3: TLabel;

Label4: TLabel;

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ColorGrid1Change(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

pole:shortstring;

implementation

uses Unit2, Unit4, Unit3, Unit5, Unit6, Unit7;

{$R *.DFM}

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form1.table1.flushbuffers;

Form1.table2.flushbuffers;

Form1.Hide;

Form2.Show;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form1.table2.flushbuffers;

Form1.hide;

Form4.show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

with table4 do begin

first;

insert;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

table4.Edit;

if messagedlg('Удалить', mtconfirmation, [mbyes, mbno],0)=mryes

then table4.delete;

end;

procedure TForm1.ColorGrid1Change(Sender: TObject);

begin

form1.Color:=ColorGrid1.ForeGroundColor;

form2.Color:=ColorGrid1.ForeGroundColor;

form3.Color:=ColorGrid1.ForeGroundColor;

form4.Color:=ColorGrid1.ForeGroundColor;

form5.Color:=ColorGrid1.ForeGroundColor;

form6.Color:=ColorGrid1.ForeGroundColor;

form7.Color:=ColorGrid1.ForeGroundColor;

colorgrid1.visible:=false;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

colorgrid1.visible:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

table4.flushbuffers;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

image1.visible:=true;

label1.visible:=true;

label2.visible:=true;

label4.visible:=true;

label3.visible:=false;

dbgrid4.Visible:=false;

BitBtn1.visible:=false;

button1.visible:=false;

button2.visible:=false;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

image1.visible:=false;

label1.visible:=false;

label2.visible:=false;

label4.visible:=false;

label3.visible:=true;

dbgrid4.Visible:=true;

BitBtn1.visible:=true;

button1.visible:=true;

button2.visible:= true;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form1.hide;

form6.show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

Страницы: 1, 2, 3, 4, 5, 6, 7