n4: TButton; Table2: TTable; DataSource2: TDataSource; Table1: TTable; DataSource1: TDataSource; qry1: TQuery; Label6: TLabel; btn3: TButton; procedure Button3Click (Sender: TObject); procedure Button2Click (Sender: TObject); procedure Button4Click (Sender: TObject); procedure Button1Click (Sender: TObject); procedure btn3Click (Sender: TObject); private {Private declarations} public {Public declarations} end; var Form9: TForm9; implementation uses Unit1, Unit6, Unit7; {$ R *. dfm} procedure TForm9.Button3Click (Sender: TObject); begin Form1.close; end; procedure TForm9.Button2Click (Sender: TObject) ; begin form9.Visible: = false; form1.Visible: = true; end; procedure TForm9.Button4Click (Sender: TObject); begin form9.Visible: = false; form6.Visible: = true; end; procedure TForm9.Button1Click ( Sender: TObject); begin form9.Visible: = false; form7.Visible: = true; end; procedure TForm9.btn3Click (Sender: TObject); begin end; end.
Висновок
Дана програма розроблена для ріелтерської контори з купівлі-продажу квартир, де враховується клієнтська база і база квартир з фіксуванням всіх операціями з купівлі-продажу по них.
Список використаної літератури
А. Н. Вальвачев, К. А. Сурков, Д. А. Сурков, Ю. М. Четирько. Програмування на мові Delphi. Навчальний посібник. - 2005. p> Ніл Дж. Рубенкінг. Мова програмування Delphi для В«чайниківВ». Введення в Borland Delphi 2006 = Delphi for Dummies. - М.: Діалектика <# "justify"> 1. br/>
