46635 (Автоматизация работы фирмы по продаже квартир), страница 5
Описание файла
Документ из архива "Автоматизация работы фирмы по продаже квартир", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "46635"
Текст 5 страницы из документа "46635"
Table1Plkux: TFloatField;
Table1Sostkv: TStringField;
Table1Kolroom: TFloatField;
Table1Sityname: TStringField;
Table1Adress_prod: TStringField;
Table1Dopsv: TStringField;
Table1Vlad: TStringField;
Table1Zena: TFloatField;
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure DBLookupCombo1Change(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure DBLookupCombo2Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit5, Unit6, Unit7;
{$R *.DFM}
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.hide;
form7.show;
end;
procedure TForm4.Button5Click(Sender: TObject);
begin
form4.hide;
form1.show;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
dbgrid1.DataSource:=DataSource1;
with Query1 do
begin
close;
with radioGroup1 do begin
case ItemIndex of
0:ParamByName('op').AsString:='продажа';
1:ParamByName('op').AsString:='обмен';
2:ParamByName('op').AsString:='%';
end;
end;{with}
if rayon.Checked then begin
if Combobox1.Text<>''then
ParamByName('ra').AsString:=Combobox1.Text
end
else ParamByName('ra').AsString:='%';
if tipPlan.Checked then begin
if Combobox2.Text<>''then
paramByName('tp').AsString:=Combobox2.Text
end
else ParamByName('tp').AsString:='%';
Open;
end;
end;
procedure TForm4.DBLookupCombo1Change(Sender: TObject);
begin
dbgrid1.DataSource:=DataSource2;
with query2 do begin
close;
parambyname('vl').asString:=DBLookupCombo1.text;
open;
end;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
if DBLookupCombo2.value<>'' then
begin
form4.hide;
form5.show;
form5.table1.edit;
form5.table1.fieldbyname('ras_schet').value:=form1.label2.caption;
form5.table1.fieldbyname('date_pol').value:=form5.DateTimePicker1.date;
form5.table1.fieldbyname('adress_kv').value:=form4.table1.Fieldbyname('adress').value;
form5.table1.fieldbyname('adress_prod').value:=form4.table1.Fieldbyname('adress_prod').value;
form5.table1.fieldbyname('stoimost_kv').value:=form4.table1.Fieldbyname('zena').value;
end
else dblookupcombo2.setfocus;
end;
procedure TForm4.DBLookupCombo2Change(Sender: TObject);
begin
with form1.table4 do begin
form1.table4.locate('name',string(form4.DBLookupCombo2),[]);
form4.Combobox1.text:=form1.table4.fieldbyname('rayonkv').asstring;
form4.Combobox2.text:=form1.table4.fieldbyname('tipplan').asstring;
end;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
dbgrid1.DataSource:=DataSource3;
if RadioButton1.checked then
begin
with query3 do
begin
close;
parambyname('par1').asinteger:=strtoint(edit1.text);
open;
end
end
else
if RadioButton2.checked then begin
dbgrid1.DataSource:=DataSource4;
with query4 do begin
close;
parambyname('par1').asinteger:=strtoint(edit2.text);
open;
end
end
else
if RadioButton3.checked then begin
dbgrid1.DataSource:=DataSource5;
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
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.
Приложение Б
