Энергосбережение города Севастополя
Рассмотрение основных направлений, которые исследованы и стратифицированы в разрабатываемом программном продукте. Определение и характеристика необходимости широкого анализа энергопотребления для создания проекта энергоэффективности города Севастополя.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | контрольная работа |
| Язык | русский |
| Дата добавления | 09.11.2018 |
| Размер файла | 5,2 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Dialogs, Buttons, jpeg, ExtCtrls;
type
TForm20 = class(TForm)
Image1: TImage;
Image2: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form20: TForm20;
implementation
uses Unit19, Unit22;
{$R *.dfm}
procedure TForm20.SpeedButton1Click(Sender: TObject);
begin
fTroll.Show;
end;
procedure TForm20.SpeedButton2Click(Sender: TObject);
begin
fTO.Show;
end;
end.
unit Unit23;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm23 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label3: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form23: TForm23;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm23.FormDestroy(Sender: TObject);
begin
dm3.MyTable8.Filtered:=false;
end;
procedure TForm23.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable8.Filtered:=false;
dm3.myTable8.Filter:='(ulitsa <> '+#39+'0'+#39+')';
if (checkbox1.Checked) then DM3.mytable8.Filter:=dm3.mytable8.Filter+'AND (ulitsa'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable8.Filter:=dm3.mytable8.Filter+'AND (shetchiki_holodnoy_vody'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable8.Filter:=dm3.mytable8.Filter+'AND (shetchiki_otopleniya'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable8.Filter:=dm3.mytable8.Filter+'AND (kolvo_nplatelshikov'+combobox4.Text+#39+edit4.Text+#39+')';
if (dm3.mytable8.Filter<>'(ulitsa <> '+#39+'0'+#39+')')then dm3.MyTable8.Filtered:=true;
end;
procedure TForm23.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable8.Filtered:=false;
end;
procedure TForm23.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm23.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm23.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm23.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
end.
unit Unit24;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm24 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form24: TForm24;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm24.FormDestroy(Sender: TObject);
begin
dm3.MyTable3.Filtered:=false;
end;
procedure TForm24.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable3.Filtered:=false;
end;
procedure TForm24.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable3.Filtered:=false;
dm3.myTable3.Filter:='(gek <> '+#39+'0'+#39+')';
if (checkbox1.Checked) then DM3.mytable3.Filter:=dm3.mytable3.Filter+'AND (gek'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable3.Filter:=dm3.mytable3.Filter+'AND (shetchiki_holodnoy_vody'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable3.Filter:=dm3.mytable3.Filter+'AND (shetchiki_otopleniya'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable3.Filter:=dm3.mytable3.Filter+'AND (kol_neplatelshikov'+combobox4.Text+#39+edit4.Text+#39+')';
if (dm3.mytable3.Filter<>'(gek <> '+#39+'0'+#39+')')then dm3.MyTable3.Filtered:=true;
end;
procedure TForm24.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable3.Filtered:=false;
end;
procedure TForm24.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm24.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm24.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm24.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
end.
unit Unit25;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm25 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
ComboBox1: TComboBox;
CheckBox1: TCheckBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form25: TForm25;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm25.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable6.Filtered:=false;
end;
procedure TForm25.FormDestroy(Sender: TObject);
begin
dm3.MyTable6.Filtered:=false;
end;
procedure TForm25.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable6.Filtered:=false;
dm3.myTable6.Filter:='(nomer_doma <> '+#39+'0'+#39+')';
if (checkbox1.Checked) then DM3.mytable6.Filter:=dm3.mytable6.Filter+'AND (nomer_doma'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable6.Filter:=dm3.mytable6.Filter+'AND (shetchiki_holodnoy_vody'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable6.Filter:=dm3.mytable6.Filter+'AND (shetchiki_otopleniya'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable6.Filter:=dm3.mytable6.Filter+'AND (kolvo_neplatelshikov'+combobox4.Text+#39+edit4.Text+#39+')';
if (dm3.mytable6.Filter<>'(nomer_doma <> '+#39+'0'+#39+')')then dm3.MyTable6.Filtered:=true;
end;
procedure TForm25.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable6.Filtered:=false;
end;
procedure TForm25.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm25.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm25.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm25.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
end.
unit Unit26;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm26 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
ComboBox8: TComboBox;
ComboBox9: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form26: TForm26;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm26.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable7.Filtered:=false;
end;
procedure TForm26.FormDestroy(Sender: TObject);
begin
dm3.MyTable7.Filtered:=false;
end;
procedure TForm26.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable7.Filtered:=false;
dm3.myTable7.Filter:='(ray <> '+#39+'0'+#39+')';
if (checkbox1.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (ray'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_schet'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (cen_fiz'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (cen_yur'+combobox4.Text+#39+edit4.Text+#39+')';
if (checkbox5.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (prot_kom'+combobox5.text+#39+edit5.Text+#39+')';
if (checkbox6.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_pror'+combobox6.Text+#39+edit6.Text+#39+')';
if (checkbox7.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (srok_ustr'+combobox7.Text+#39+edit7.Text+#39+')';
if (checkbox8.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_centr_fiz'+combobox8.Text+#39+edit8.Text+#39+')';
if (checkbox9.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_centr_yur'+combobox9.text+#39+edit9.Text+#39+')';
if (dm3.mytable7.Filter<>'(ray <> '+#39+'0'+#39+')')then dm3.MyTable7.Filtered:=true;
end;
procedure TForm26.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable7.Filtered:=false;
end;
procedure TForm26.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm26.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm26.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm26.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
procedure TForm26.Edit5Change(Sender: TObject);
begin
if edit5.text<>'' then checkbox5.Checked := true else checkbox5.Checked := False;
end;
procedure TForm26.Edit6Change(Sender: TObject);
begin
if edit6.text<>'' then checkbox6.Checked := true else checkbox6.Checked := False;
end;
procedure TForm26.Edit7Change(Sender: TObject);
begin
if edit7.text<>'' then checkbox7.Checked := true else checkbox7.Checked := False;
end;
procedure TForm26.Edit8Change(Sender: TObject);
begin
if edit8.text<>'' then checkbox8.Checked := true else checkbox8.Checked := False;
end;
procedure TForm26.Edit9Change(Sender: TObject);
begin
if edit9.text<>'' then checkbox9.Checked := true else checkbox9.Checked := False;
end;
end.
unit Unit27;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm27 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
ComboBox8: TComboBox;
ComboBox9: TComboBox;
ComboBox10: TComboBox;
ComboBox11: TComboBox;
ComboBox12: TComboBox;
ComboBox13: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure Edit11Change(Sender: TObject);
procedure Edit12Change(Sender: TObject);
procedure Edit13Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form27: TForm27;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm27.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable10.Filtered:=false;
end;
procedure TForm27.FormDestroy(Sender: TObject);
begin
dm3.MyTable10.Filtered:=false;
end;
procedure TForm27.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable10.Filtered:=false;
dm3.myTable10.Filter:='(ray<>'+#39+''+#39+')';
if (checkbox1.Checked) then DM3.mytable10.Filter:=dm3.mytable10.Filter+'AND (ray'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (ul'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (lamp_nak'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (lamp_en'+combobox4.Text+#39+edit4.Text+#39+')';
if (checkbox5.Checked) then DM3.mytable10.Filter:=dm3.mytable10.Filter+'AND (fon'+combobox5.text+#39+edit5.Text+#39+')';
if (checkbox6.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (ustar'+combobox6.Text+#39+edit6.Text+#39+')';
if (checkbox7.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (innov'+combobox7.Text+#39+edit7.Text+#39+')';
if (checkbox8.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (posl_rem'+combobox8.Text+#39+edit8.Text+#39+')';
if (checkbox9.Checked) then DM3.mytable10.Filter:=dm3.mytable10.Filter+'AND (6070'+combobox9.text+#39+edit9.Text+#39+')';
if (checkbox10.Checked) then DM3.mytable10.Filter:=dm3.mytable10.Filter+'AND (7080'+combobox1.text+#39+edit10.Text+#39+')';
if (checkbox11.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (8090'+combobox2.Text+#39+edit11.Text+#39+')';
if (checkbox12.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (9000'+combobox3.Text+#39+edit12.Text+#39+')';
if (checkbox13.Checked) then dm3.mytable10.Filter:=dm3.mytable10.Filter+'AND (0010'+combobox4.Text+#39+edit13.Text+#39+')';
if (dm3.mytable10.Filter<>'(ray <> '+#39+'0'+#39+')')then dm3.MyTable10.Filtered:=true;
end;
procedure TForm27.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable10.Filtered:=false;
end;
procedure TForm27.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm27.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm27.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm27.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
procedure TForm27.Edit5Change(Sender: TObject);
begin
if edit5.text<>'' then checkbox5.Checked := true else checkbox5.Checked := False;
end;
procedure TForm27.Edit6Change(Sender: TObject);
begin
if edit6.text<>'' then checkbox6.Checked := true else checkbox6.Checked := False;
end;
procedure TForm27.Edit7Change(Sender: TObject);
begin
if edit7.text<>'' then checkbox7.Checked := true else checkbox7.Checked := False;
end;
procedure TForm27.Edit8Change(Sender: TObject);
begin
if edit8.text<>'' then checkbox8.Checked := true else checkbox8.Checked := False;
end;
procedure TForm27.Edit9Change(Sender: TObject);
begin
if edit9.text<>'' then checkbox9.Checked := true else checkbox9.Checked := False;
end;
procedure TForm27.Edit10Change(Sender: TObject);
begin
if edit10.text<>'' then checkbox10.Checked := true else checkbox10.Checked := False;
end;
procedure TForm27.Edit11Change(Sender: TObject);
begin
if edit11.text<>'' then checkbox11.Checked := true else checkbox11.Checked := False;
end;
procedure TForm27.Edit12Change(Sender: TObject);
begin
if edit12.text<>'' then checkbox12.Checked := true else checkbox12.Checked := False;
end;
procedure TForm27.Edit13Change(Sender: TObject);
begin
if edit13.text<>'' then checkbox13.Checked := true else checkbox13.Checked := False;
end;
end.
unit Unit28;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm28 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
Edit6: TEdit;
Label6: TLabel;
CheckBox6: TCheckBox;
ComboBox6: TComboBox;
Label7: TLabel;
Edit7: TEdit;
CheckBox7: TCheckBox;
ComboBox7: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form28: TForm28;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm28.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable11.Filtered:=false;
end;
procedure TForm28.FormDestroy(Sender: TObject);
begin
dm3.MyTable11.Filtered:=false;
end;
procedure TForm28.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable11.Filtered:=false;
dm3.myTable11.Filter:='(№<>'+#39+''+#39+')';
if (checkbox1.Checked) then DM3.mytable11.Filter:=dm3.mytable11.Filter+'AND (№'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable11.Filter:=dm3.mytable11.Filter+'AND (komun'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable11.Filter:=dm3.mytable11.Filter+'AND (kolvo'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable11.Filter:=dm3.mytable11.Filter+'AND (depo'+combobox4.Text+#39+edit4.Text+#39+')';
if (checkbox5.Checked) then DM3.mytable11.Filter:=dm3.mytable11.Filter+'AND (probeg'+combobox5.text+#39+edit5.Text+#39+')';
if (checkbox6.Checked) then DM3.mytable11.Filter:=dm3.mytable11.Filter+'AND (kolvo_poezdok'+combobox6.text+#39+edit6.Text+#39+')';
if (checkbox7.Checked) then dm3.mytable11.Filter:=dm3.mytable11.Filter+'AND (kolvo_passagirov'+combobox7.Text+#39+edit7.Text+#39+')';
if (dm3.mytable11.Filter<>'(№ <> '+#39+'0'+#39+')')then dm3.MyTable11.Filtered:=true;
end;
procedure TForm28.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable11.Filtered:=false;
end;
procedure TForm28.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm28.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm28.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm28.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
procedure TForm28.Edit5Change(Sender: TObject);
begin
if edit5.text<>'' then checkbox5.Checked := true else checkbox5.Checked := False;
end;
procedure TForm28.Edit6Change(Sender: TObject);
begin
if edit6.text<>'' then checkbox6.Checked := true else checkbox6.Checked := False;
end;
procedure TForm28.Edit7Change(Sender: TObject);
begin
if edit7.text<>'' then checkbox7.Checked := true else checkbox7.Checked := False;
end;
end.
unit Unit29;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm29 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form29: TForm29;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm29.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable9.Filtered:=false;
end;
procedure TForm29.FormDestroy(Sender: TObject);
begin
dm3.MyTable9.Filtered:=false;
end;
procedure TForm29.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable9.Filtered:=false;
dm3.myTable9.Filter:='(№<>'+#39+''+#39+')';
if (checkbox1.Checked) then DM3.mytable9.Filter:=dm3.mytable9.Filter+'AND (№'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable9.Filter:=dm3.mytable9.Filter+'AND (pto'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable9.Filter:=dm3.mytable9.Filter+'AND (bto'+combobox3.Text+#39+edit3.Text+#39+')';
if (dm3.mytable9.Filter<>'(№ <> '+#39+'0'+#39+')')then dm3.MyTable9.Filtered:=true;
end;
procedure TForm29.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable9.Filtered:=false;
end;
procedure TForm29.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm29.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm29.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm4 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm3.MyTable5.Filtered:=false;
end;
procedure TForm4.FormDestroy(Sender: TObject);
begin
//dm3.MyTable5.Filtered:=false;
end;
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable5.Filtered:=false;
dm3.myTable5.Filter:='(tec<>'+#39+''+#39+')';
if (checkbox1.Checked) then DM3.mytable5.Filter:=dm3.mytable5.Filter+'AND (tec'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable5.Filter:=dm3.mytable5.Filter+'AND (ray'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable5.Filter:=dm3.mytable5.Filter+'AND (kpd'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable5.Filter:=dm3.mytable5.Filter+'AND (cena'+combobox4.Text+#39+edit4.Text+#39+')';
if (checkbox5.Checked) then DM3.mytable5.Filter:=dm3.mytable5.Filter+'AND (poter'+combobox5.text+#39+edit5.Text+#39+')';
if (checkbox6.Checked) then DM3.mytable5.Filter:=dm3.mytable5.Filter+'AND (opl_fiz'+combobox6.text+#39+edit6.Text+#39+')';
if (checkbox7.Checked) then dm3.mytable5.Filter:=dm3.mytable5.Filter+'AND (opl_yur'+combobox7.Text+#39+edit7.Text+#39+')';
if (dm3.mytable5.Filter<>'(tec <> '+#39+'0'+#39+')')then dm3.MyTable5.Filtered:=true;
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable5.Filtered:=false;
end;
procedure TForm4.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm4.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm4.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm4.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
procedure TForm4.Edit5Change(Sender: TObject);
begin
if edit5.text<>'' then checkbox5.Checked := true else checkbox5.Checked := False;
end;
procedure TForm4.Edit6Change(Sender: TObject);
begin
if edit6.text<>'' then checkbox6.Checked := true else checkbox6.Checked := False;
end;
procedure TForm4.Edit7Change(Sender: TObject);
begin
if edit7.text<>'' then checkbox7.Checked := true else checkbox7.Checked := False;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;
type
TForm5 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
ComboBox6: TComboBox;
ComboBox7: TComboBox;
ComboBox8: TComboBox;
ComboBox9: TComboBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
dm3.MyTable7.Filtered:=false;
end;
procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
dm3.MyTable7.Filtered:=false;
dm3.myTable7.Filter:='(ray<>'+#39+''+#39+')';
if (checkbox1.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (ray'+combobox1.text+#39+edit1.Text+#39+')';
if (checkbox2.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_schet'+combobox2.Text+#39+edit2.Text+#39+')';
if (checkbox3.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (cen_fiz'+combobox3.Text+#39+edit3.Text+#39+')';
if (checkbox4.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (cen_yur'+combobox4.Text+#39+edit4.Text+#39+')';
if (checkbox5.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (prot_kom'+combobox5.text+#39+edit5.Text+#39+')';
if (checkbox6.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_pror'+combobox6.text+#39+edit6.Text+#39+')';
if (checkbox7.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (srok_ustr'+combobox7.Text+#39+edit7.Text+#39+')';
if (checkbox8.Checked) then DM3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_centr_fiz'+combobox8.text+#39+edit8.Text+#39+')';
if (checkbox9.Checked) then dm3.mytable7.Filter:=dm3.mytable7.Filter+'AND (kol_centr_yur'+combobox9.Text+#39+edit9.Text+#39+')';
if (dm3.mytable7.Filter<>'(ray <> '+#39+'0'+#39+')')then dm3.MyTable7.Filtered:=true;
end;
procedure TForm5.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then checkbox1.Checked := true else checkbox1.Checked := False;
end;
procedure TForm5.Edit2Change(Sender: TObject);
begin
if edit2.text<>'' then checkbox2.Checked := true else checkbox2.Checked := False;
end;
procedure TForm5.Edit3Change(Sender: TObject);
begin
if edit3.text<>'' then checkbox3.Checked := true else checkbox3.Checked := False;
end;
procedure TForm5.Edit4Change(Sender: TObject);
begin
if edit4.text<>'' then checkbox4.Checked := true else checkbox4.Checked := False;
end;
procedure TForm5.Edit5Change(Sender: TObject);
begin
if edit5.text<>'' then checkbox5.Checked := true else checkbox5.Checked := False;
end;
procedure TForm5.Edit6Change(Sender: TObject);
begin
if edit6.text<>'' then checkbox6.Checked := true else checkbox6.Checked := False;
end;
procedure TForm5.Edit7Change(Sender: TObject);
begin
if edit7.text<>'' then checkbox7.Checked := true else checkbox7.Checked := False;
end;
procedure TForm5.Edit8Change(Sender: TObject);
begin
if edit8.text<>'' then checkbox8.Checked := true else checkbox8.Checked := False;
end;
procedure TForm5.Edit9Change(Sender: TObject);
begin
if edit9.text<>'' then checkbox9.Checked := true else checkbox9.Checked := False;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, TeEngine, TeeFunci, Series, TeeProcs, Chart,
DbChart;
type
TForm8 = class(TForm)
DBChart1: TDBChart;
Series1: TAreaSeries;
Series2: TFastLineSeries;
Series3: TBarSeries;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.dfm}
uses Unit1;
end.
unit Unit91;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Buttons, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TForm9 = class(TForm)
DBGrid1: TDBGrid;
SpeedButton1: TSpeedButton;
PrintDialog1: TPrintDialog;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit1, Unit12, Unit23, Unit24;
{$R *.dfm}
procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
Form12.ShowModal;
end;
procedure TForm9.SpeedButton2Click(Sender: TObject);
begin
Form24.Show;
end;
procedure TForm9.SpeedButton3Click(Sender: TObject);
begin
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TForm9.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TForm9.SpeedButton5Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
unit Unit21;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Buttons, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TfOsvesh = class(TForm)
DBGrid1: TDBGrid;
SpeedButton2: TSpeedButton;
DBNavigator1: TDBNavigator;
PrintDialog1: TPrintDialog;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
Label5: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label6: TLabel;
Label7: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label8: TLabel;
Label9: TLabel;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
Label10: TLabel;
Label11: TLabel;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
Label12: TLabel;
Label13: TLabel;
DBEdit13: TDBEdit;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fOsvesh: TfOsvesh;
implementation
uses Sevteplo, Unit1, Unit27;
{$R *.dfm}
procedure TfOsvesh.SpeedButton3Click(Sender: TObject);
begin
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TfOsvesh.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TfOsvesh.SpeedButton1Click(Sender: TObject);
begin
Form27.Show;
end;
procedure TfOsvesh.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfOsvesh.SpeedButton5Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
unit Pasport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;
type
TfPasport = class(TForm)
DBGrid1: TDBGrid;
SpeedButton2: TSpeedButton;
PrintDialog1: TPrintDialog;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
Label5: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label6: TLabel;
Label7: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label8: TLabel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fPasport: TfPasport;
implementation
uses Filter, Unit1;
{$R *.dfm}
procedure TfPasport.SpeedButton1Click(Sender: TObject);
begin
fFilter.Show;
end;
procedure TfPasport.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TfPasport.SpeedButton3Click(Sender: TObject);
begin
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TfPasport.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfPasport.SpeedButton5Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
unit Sevenergo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Buttons, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TfSevenergo = class(TForm)
DBGrid1: TDBGrid;
SpeedButton2: TSpeedButton;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label2: TLabel;
DBEdit2: TDBEdit;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
Label3: TLabel;
Label4: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label5: TLabel;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label8: TLabel;
Label9: TLabel;
DBEdit9: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
Label10: TLabel;
DBEdit10: TDBEdit;
DBEdit12: TDBEdit;
Label12: TLabel;
Label13: TLabel;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
Label14: TLabel;
Label15: TLabel;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
Label16: TLabel;
Label17: TLabel;
DBEdit17: TDBEdit;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fSevenergo: TfSevenergo;
implementation
uses Unit1, Unit3;
{$R *.dfm}
procedure TfSevenergo.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TfSevenergo.SpeedButton1Click(Sender: TObject);
begin
FilterSevenergo.Show;
end;
procedure TfSevenergo.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfSevenergo.SpeedButton5Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
unit Sevteplo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;
type
TfSevteplo = class(TForm)
DBGrid1: TDBGrid;
SpeedButton2: TSpeedButton;
PrintDialog1: TPrintDialog;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
DBEdit1: TDBEdit;
Label1: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
DBEdit5: TDBEdit;
Label5: TLabel;
Label7: TLabel;
DBEdit7: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
Label2: TLabel;
DBEdit2: TDBEdit;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fSevteplo: TfSevteplo;
implementation
uses Unit4, Unit1;
{$R *.dfm}
procedure TfSevteplo.SpeedButton1Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TfSevteplo.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TfSevteplo.SpeedButton3Click(Sender: TObject);
begin
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TfSevteplo.Button1Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfSevteplo.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfSevteplo.SpeedButton5Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
unit Unit22;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Buttons, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TfTO = class(TForm)
DBGrid1: TDBGrid;
PrintDialog1: TPrintDialog;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fTO: TfTO;
implementation
uses Unit1, Unit30, Unit29;
{$R *.dfm}
procedure TfTO.SpeedButton2Click(Sender: TObject);
begin
close;
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TfTO.SpeedButton1Click(Sender: TObject);
begin
Form29.Show;
end;
procedure TfTO.SpeedButton3Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfTO.SpeedButton4Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
unit Unit19;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, Buttons, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TfTroll = class(TForm)
DBGrid1: TDBGrid;
PrintDialog1: TPrintDialog;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
Label5: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label6: TLabel;
Label7: TLabel;
DBEdit7: TDBEdit;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fTroll: TfTroll;
implementation
uses Unit1, Unit30, Unit18, Unit28;
{$R *.dfm}
procedure TfTroll.SpeedButton2Click(Sender: TObject);
begin
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TfTroll.SpeedButton1Click(Sender: TObject);
begin
Form28.Show;
end;
procedure TfTroll.SpeedButton3Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfTroll.SpeedButton4Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
procedure TfTroll.SpeedButton7Click(Sender: TObject);
begin
close;
end;
end.
unit Vodokanal;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;
type
TfVodokanal = class(TForm)
DBGrid1: TDBGrid;
SpeedButton2: TSpeedButton;
PrintDialog1: TPrintDialog;
DBNavigator1: TDBNavigator;
FontDialog1: TFontDialog;
Panel1: TPanel;
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
Label3: TLabel;
Label5: TLabel;
DBEdit5: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
DBEdit4: TDBEdit;
Label4: TLabel;
Label6: TLabel;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Label7: TLabel;
Label8: TLabel;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
Label9: TLabel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fVodokanal: TfVodokanal;
implementation
uses Unit5, Unit1, Unit26, Unit30;
{$R *.dfm}
procedure TfVodokanal.SpeedButton1Click(Sender: TObject);
begin
Form26.Show;
end;
procedure TfVodokanal.SpeedButton2Click(Sender: TObject);
begin
close;
end;
procedure TfVodokanal.SpeedButton3Click(Sender: TObject);
begin
with printdialog1 do
begin
if execute then print;
end;
end;
procedure TfVodokanal.SpeedButton4Click(Sender: TObject);
begin
if fontdialog1.Execute then dbgrid1.Font:=fontdialog1.Font;
end;
procedure TfVodokanal.SpeedButton5Click(Sender: TObject);
begin
Panel1.Visible:=true;
end;
end.
Размещено на Allbest.ru
Подобные документы
Разработка корпоративной и сети масштаба города (Metro Area Network, MAN) в программном продукте OpNet IT Guru Academic Edition v.9.1 и анализ полученных результатов. Определение профиля трафика, настройка оборудования, выбор типа собираемой статистики.
лабораторная работа [2,9 M], добавлен 04.02.2013Место интернет-технологий в деятельности человека. Краткая историко-географическая характеристика города Щербинка Московской области, а также обоснование необходимости создания его сайта. Характеристика технологий и инструментов разработки веб-страниц.
курсовая работа [98,9 K], добавлен 29.12.2010Разработка программы для создания системы дорог и городов, позволяющей пользователю реализовать проверку достижимости любого города. Выбор среды разработки, определение требований к программному продукту. Основные компоненты пользовательского интерфейса.
курсовая работа [2,6 M], добавлен 18.07.2012Система интегрированной логистической поддержки, схема взаимосвязи основных процессов. Структурно-функциональная схема предприятия и место структурного подразделения, для которого осуществляется разработка. Алгоритм программы, общий вид блок-схемы.
курсовая работа [2,5 M], добавлен 01.02.2013Подготовка планово-картографического материала в программном продукте "Adobe Photoshop", сшивка сканированного изображения. Разработка проекта организации территории ассоциации фермерского хозяйства в автоматизированном режиме (в среде ГИС "MapInfo").
курсовая работа [5,4 M], добавлен 22.04.2012Проектирование реляционных баз данных. Основные типы модулей. Исходное отношение, нормализация. Процесс создания базы данных в программном продукте Microsoft Access. Организация связей, обеспечение целостности данных. Формирование запросов, отчёт.
курсовая работа [3,4 M], добавлен 24.04.2014Знакомство с основными этапами создания официального сайта администрации города Красноярска, характеристика задач: уменьшение количества посещений органов исполнительной власти, повышение доступности государственных услуг, снижение рисков коррупции.
контрольная работа [1,8 M], добавлен 28.06.2013Концептуальное проектирование информационной системы "Спортивные организации города". Анализ информационных потоков и определение требований к функциям проектируемой системы. Разработка основных элементов интерфейса, алгоритмов ввода и вывода информации.
курсовая работа [999,2 K], добавлен 06.01.2014Суть автоматизации малого бизнеса, альтернативы выбора ее средств. Цели, функции, свойства автоматизированной системы менеджера. Технические средства в разрабатываемом программном комплексе. Основные функции операционной системы, требования к ней.
контрольная работа [219,4 K], добавлен 17.09.2013Разработка системы управления гостиничного портала компании "Петербургские Отели" с интеграцией комплекса модулей для управления его содержимым. Основные цели создания и требования, выдвигаемые при разработке системы бронирования мест в отелях города.
дипломная работа [2,9 M], добавлен 15.06.2012
