Автоматизация работы фирмы по продаже квартир
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
72 с.: ил.
- Базы данных. Проектирование, реализация и сопровождение. Теория и практика. Второе издание исправленное и дополненное. Авторы Томас Конноли и Каролин Бегг.
- Встроенное справочное руководство 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);
begin
table4.flushbuffers;
end;
end.
Unit2
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, DBCtrls, ExtCtrls;
type
TForm2 = class(TForm)
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label12: TLabel;
DBEdit12: TDBEdit;
Label13: TLabel;
DBEdit13: TDBEdit;
Label1: TLabel;
DBNavigator1: TDBNavigator;
Label14: TLabel;
Label15: TLabel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label16: TLabel;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3;
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
form2.hide;
form3.show;
Form1.Table1.Last;
Form1.Table1.Insert;
try
except
form3.dbedit1.setfocus;
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Hide;
form1.show;
end;
procedure TForm2.Edit1Change(Sender: TObject);
begin
then">if Edit1.Text<> then
begin
case RadioGroup1.ItemIndex of
0: begin
form1.Table1.Locate(secondname,Edit1.Text,[]);
end;
1: begin
form1.table1.locate(dolgnost,edit1.text,[]);
end;
end;
end;
end;
end.
Unit3
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;
type
TForm3 = class(TForm)
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLab