Реферат Створення автоматизованої інформаційно-керуючої системи

gn="justify"> procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form4: TForm4;

implementation

uses menu;

{$ R * .dfm}

procedure TForm4.Button1Click (Sender: TObject);

begin

IBQuery2.Params [0] .AsString:=Edit1.Text;

IBQuery2.Open;

IBQuery2.Close;

IBQuery1.Close;

IBQuery1.Open;

Edit1.Text:= raquo ;;

end;

procedure TForm4.Button2Click (Sender: TObject);

begin

IBQuery3.Params [0] .AsString:=Edit1.Text;

IBQuery3.Params [1] .AsString:=IBQuery1.Fields [0] .AsString;

IBQuery3.Open;

IBQuery3.Close;

IBQuery1.Close;

IBQuery1.Open;

Edit1.Text:= raquo ;;

end;

procedure TForm4.Button3Click (Sender: TObject);

begin

IBQuery4.Params [0] .AsString:=IBQuery1.Fields [0] .AsString;

IBQuery4.Open;

IBQuery4.Close;

IBQuery1.Close;

IBQuery1.Open;

end;

end.

unit ustan;

interface

uses

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

Dialogs, StdCtrls;

type

TForm12=class (TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

Label4: TLabel;

Button1: TButton;

Button2: TButton;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form12: TForm12;

implementation

{$ R * .dfm}

procedure TForm12.Button1Click (Sender: TObject);

begin

Application.MessageBox ( Зв'язок з контролером не знайдено , Помилка підключення , mb_ok);

Edit1.Text:= raquo ;;

end;

procedure TForm12.Button2Click (Sender: TObject);

begin

Application.MessageBox ( Зв'язок з контролером не знайдено , Помилка підключення , mb_ok);

Edit2.Text:= raquo ;;

end;

end.