Автоматизация работы фирмы по продаже квартир
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
/p>
with query5 do begin
close;
parambyname(par1).asinteger:=strtoint(edit1.text);
parambyname(par2).asinteger:=strtoint(edit2.text);
open;
end;
end;
end;
procedure TForm4.RadioButton1Click(Sender: TObject);
begin
edit1.visible:=true;
label4.visible:=true;
edit2.visible:=false;
label5.visible:=false;
end;
procedure TForm4.RadioButton2Click(Sender: TObject);
begin
edit1.visible:=false;
label4.visible:=false;
edit2.visible:=true;
label5.visible:=true;
end;
procedure TForm4.RadioButton3Click(Sender: TObject);
begin
edit1.visible:=true;;
label4.visible:=true;
edit2.visible:=true;
label5.visible:=true;
end;
procedure TForm4.Button6Click(Sender: TObject);
begin
form4.table1.Edit;
if messagedlg(Вы уверены, mtconfirmation, [mbyes, mbno],0)=mryes
then begin
with form4.table1 do begin
first;
insert;
form4.table1.fieldbyname(inomer).value:=form4.query1.fieldbyname(инд_номер).value;
form4.table1.fieldbyname(oper).value:=form4.query1.fieldbyname(операция).value;
form4.table1.fieldbyname(tipplan).value:=form4.query1.fieldbyname(тип_планировки).value;
form4.table1.fieldbyname(rayon).value:=form4.query1.fieldbyname(район).value;
form4.table1.fieldbyname(adress).value:=form4.query1.fieldbyname(адресс).value;
form4.table1.fieldbyname(obpl).value:=form4.query1.fieldbyname(общ_площадь).value;
form4.table1.fieldbyname(plkux).value:=form4.query1.fieldbyname(пл_кухни).value;
form4.table1.fieldbyname(sostkv).value:=form4.query1.fieldbyname(сост_кв).value;
form4.table1.fieldbyname(kolroom).value:=form4.query1.fieldbyname(кол-во_комнат).value;
form4.table1.fieldbyname(sityname).value:=form4.query1.fieldbyname(город).value;
form4.table1.fieldbyname(dopsv).value:=form4.query1.fieldbyname(дополн_свед).value;
form4.table1.fieldbyname(vlad).value:=form4.query1.fieldbyname(владелец).value;
form4.table1.fieldbyname(adress_prod).value:=form4.query1.fieldbyname(адресс продавца).value;
form4.table1.fieldbyname(zena).value:=form4.query1.fieldbyname(цена).value*1.05;
end;
end;
end;
end.
Unit5
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, Grids, DBGrids, DBTables, ComCtrls, Buttons;
type
TForm5 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
DateTimePicker1: TDateTimePicker;
BitBtn1: TBitBtn;
Table1Ras_schet: TFloatField;
Table1Date_pol: TDateField;
Table1Stoimost_kv: TFloatField;
Table1Adress_kv: TStringField;
Table1Adress_prod: TStringField;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit4, Unit6, Unit1;
{$R *.DFM}
procedure TForm5.Button1Click(Sender: TObject);
begin
if messagedlg(Вы уверены, mtconfirmation, [mbyes, mbno],0)=mryes
then form5.print;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form5.hide;
form4.show;
form5.table1.flushbuffers;
with form6.table1 do begin
last;
insert;
form6.table1.edit;
form6.table1.fieldbyname(name_pokyp).value:=form4.DBLookupCombo2.value;
form6.table1.fieldbyname(date).value:=form5.DateTimePicker1.date;
form6.table1.fieldbyname(stoimost_kv).value:=form5.table1.fieldbyname(stoimost_kv).value;
form6.table1.fieldbyname(inomer_kv).value:=form4.table1.fieldbyname(inomer).value;
form6.table1.fieldbyname(name_prod).value:=form4.table1.fieldbyname(vlad).value;
end;
form6.table1.flushbuffers;
form1.table4.locate(name,form4.DBLookupCombo2.value,[]);
form1.table4.delete;
form4.table1.delete;
end;
end.
Unit6
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls, DBCtrls;
type
TForm6 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBGrid1: TDBGrid;
Button1: TButton;
DBNavigator1: TDBNavigator;
Table1Name_pokyp: TStringField;
Table1Date: TDateField;
Table1Stoimost_kv: TFloatField;
Table1Inomer_kv: TFloatField;
Table1Name_prod: TStringField;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm6.Button1Click(Sender: TObject);
begin
form6.hide;
form1.show;
end;
end.
Unit7
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, DBLookup, ExtCtrls, DBCtrls, Mask;
type
TForm7 = class(TForm)
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
DBNavigator1: TDBNavigator;
GroupBox2: TGroupBox;
Label1: TLabel;
DBEdit5: TDBEdit;
Label5: TLabel;
DBEdit6: TDBEdit;
Label6: TLabel;
DBEdit7: TDBEdit;
Label7: TLabel;
DBEdit8: TDBEdit;
Label8: TLabel;
DBEdit9: TDBEdit;
Label9: TLabel;
DBEdit10: TDBEdit;
Label10: TLabel;
DBEdit11: TDBEdit;
Label11: TLabel;
DBEdit12: TDBEdit;
Label12: TLabel;
DBEdit13: TDBEdit;
Label13: TLabel;
DBEdit14: TDBEdit;
Label14: TLabel;
DBEdit15: TDBEdit;
Label15: TLabel;
DBEdit16: TDBEdit;
Label16: TLabel;
DBEdit17: TDBEdit;
DBNavigator2: TDBNavigator;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit1, Unit4;
{$R *.DFM}
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
form7.hide;
form4.show;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
form1.table3.flushbuffers;
form1.table2.flushbuffers;
end;
procedure TForm7.Edit1Change(Sender: TObject);
begin
then">if Edit1.Text<> then
begin
case RadioGroup1.ItemIndex of
0: begin
form1.Table3.Locate(vlad,Edit1.Text,[]);
end;
1: begin
form1.table3.locate(rschet,edit1.text,[]);
end;
end;
end;
end;
end.
Приложение Б