;. Active:=False;. SQL. Text:=«SELECT * FROM Співробітники»;. Active:=True;;
TForm1. Button4Click (Sender: TObject);. Active:=False;. SQL. Text:=«SELECT * FROM Номери»;. Active:=True;;
TForm1. Button5Click (Sender: TObject);. Active:=False;. SQL. Text:=«SELECT * FROM Регістр»;. Active:=True;;
TForm1. Button6Click (Sender: TObject);. Active:=False;. SQL. Text:=«SELECT Регістр. Id_заказа, гості. Прізвище, гості. Ім'я, Регістр. Номер, Співробітники. Прізвище, Регістр. Дата_заселенія, Регістр. Дата_виезда, Регістр. Вартість, Регістр. Отметка_оплати »
+ «FROM Співробітники INNER JOIN (Номери INNER JOIN (Гості INNER JOIN Регістр ON Гості. Id_гостя=Регістр. Id_гостя) ON Номери. Номер=Регістр. Номер) ON Співробітники. Id_сотрудніка=Регістр. Id_сотрудніка »;. Active:=True;;
TForm1. Button7Click (Sender: TObject);. Active:=False;. SQL. Text:=«SELECT Номери. Номер, Номери. Тип, Номери. Вартість »
+ «FROM Номери LEFT JOIN Регістр ON Номери. Номер=Регістр. Номер »
+ «WHERE (((реєстр. Номер) Is Null)) OR (((реєстр. Дата_виезда) <= #» + Edit2. Text + «#))»; . Active:=True;;
TForm1. Button8Click (Sender: TObject);. Active:=False;. SQL. Text:=«SELECT Гості. Прізвище, гості. Ім'я, гості. По батькові, Регістр. Номер »
+ «FROM Гості INNER JOIN Регістр ON Гості. Id_гостя=Регістр. Id_гостя »
+ «WHERE (((реєстр. Дата_виезда)=#» + Edit3. Text + «#))»;. Active:=True;;
TForm1. Button9Click (Sender: TObject);. Active:=False;. SQL. Text:=«SELECT Співробітники. Прізвище, Співробітники. Ім'я, Співробітники. По батькові, Співробітники. Посада, Регістр. Номер, гості. Прізвище, Регістр. Дата_заселенія, Регістр. Дата_виезда »
+ «FROM Гості INNER JOIN (Співробітники INNER JOIN Регістр ON Співробітники. Id_сотрудніка=Регістр. Id_сотрудніка) ON Гості. Id_гостя=Регістр. Id_гостя »
+ «WHERE (((Сотруднікі. Прізвище) =« »+ Edit4. Text +"" ) AND ((реєстр. Дата_заселенія) <= #» + Edit1. Text + «#) AND ((реєстр. Дата_виезда)>=#» + Edit1. Text + «#))»;. Active:=True;;
.
Лістинг № 2.
Form1: TForm1=189=178=bsToolWindow=# 1054 # 1090 # 1077 # 1083 # 1100=497=1011=clBtnFace. Charset=DEFAULT_CHARSET. Color=clWindowText. Height=- 11. Name=«MS Sans Serif». Style=[]=False=96=13Label1: TLabel=152=232=134=16=# 1085 # 1072 « »# 1076 # 1072 # 1090 # 1091« (»# 1084 # 1084« / »# 1076 # 1076« / »# 1075 # 1075«) ». Charset=DEFAULT_CHARSET. Color=clWindowText. Height=- 13. Name=«MS Sans Serif». Style=[fsBold]=FalseLabel2: TLabel=152=272=134=16=# 1085 # 1072 « »# 1076 # 1072 # 1090 # 1091« (»# 1084 # 1084« / »# 1076 # 1076« / »# 1075 # 1075«) ». Charset=DEFAULT_CHARSET. Color=clWindowText. Height=- 13. Name=«MS Sans Serif». Style=[fsBold]=FalseLabel3: TLabel=152=312=134=16=# 1085 # 1072 « »# 1076 # 1072 # 1090 # 1091« (»# 1084 # 1084« / »# 1076 # 1076« / »# 1075 # 1075«) ». Charset=DEFAULT_CHARSET. Color=clWindowText. Height=- 13. Name=«MS Sans Serif». Style=[fsBold]=FalseLabel4: TLabel=152=352=158=16=# 1092 # 1072 # 1084 # 1080 # 1083 # 1080 # 1103 « »# 1089 # 1086 # 1090 # 1088 # 1091 # 1076 # 108...
