47143 (588466), страница 7

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

implementation

uses Unit11, Unit7, Unit3, Unit2, Unit4, Unit5, Unit6, Unit8, Unit9, Unit10,

Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19, Unit21,

Unit20, Unit22, Unit23, Unit24, Unit25, Unit26, Unit28, Unit29, Unit30;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form11.ShowModal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form2.showmodal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form4.showmodal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm1.N21Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

form9.showmodal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Button1.Visible:=true;

dbgrid1.Visible:=true;

form13.ShowModal;

end;

procedure TForm1.N31Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form24.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N41Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

Form14.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N61Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form15.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N81Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form28.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N71Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form16.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N91Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form29.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N51Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form17.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N101Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form18.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N121Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form19.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N131Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form20.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N141Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form22.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N151Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form23.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N23Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form25.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.N111Click(Sender: TObject);

begin

dbgrid1.Visible:=true;

form26.showmodal;

Button1.Visible:=true;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

DBGrid1.Visible:=false;

button1.Visible:=false;

Form1.Query1.SQL.Clear;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

Form30.showmodal;

end;

end.

unit Unit20;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls;

type

TForm20 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

ComboBox2: TComboBox;

Label6: TLabel;

Label7: TLabel;

DBComboBox1: TDBComboBox;

procedure Button1Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

implementation

uses Unit1, Unit17, Unit13, Unit2;

{$R *.dfm}

procedure TForm20.Button1Click(Sender: TObject);

begin

if (dbcombobox1.Text = '') or (edit1.Text = '') or (edit2.Text = '') then

MessageBox(Application.Handle, 'Заполните все поля', 'Ошибка', MB_OK + MB_ICONHAND) else

begin

Form1.Query1.SQL.Clear;

Form1.Query1.SQL.Add('SELECT DISTINCT Naimenovanie_gost as Наименование_гостиницы, N_klienta as Номер_клиента, FIO as ФИО_клиента, Z_s_b as Занят_Свобод_Заброн, Data_zaselenia as Дата_заселения FROM гост_комплекс, общая, клиенты, клиенты2 ');

Form1.Query1.SQL.Add('WHERE гост_комплекс.N_gost=общая.N_gost and клиенты2.N_klienta=клиенты.N_klienta and клиенты2.N_nomera=общая.N_nomera and Naimenovanie_gost='''+dbcomboBox1.Text+''' and Data_zaselenia between '''+edit1.text+''' and '''+edit2.text+''' and Z_s_b='''+combobox2.text+'''');

Form1.Query1.Open;

end;

if Form1.Query1.RecordCount = 0 then showmessage ('Данной записи не существует') else

form20.Close;

end;

procedure TForm20.FormPaint(Sender: TObject);

begin

DBCombobox1.Items.Clear;

form2.Query1.First;

while not form2.Query1.Eof do

begin

DBCombobox1.Items.Add( form2.query1.Fields.FieldByName('Naimenovanie_gost').AsString);

form2.Query1.Next;

end;

form2.Query1.First;

end;

end.

Характеристики

Список файлов ВКР