Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Создание автоматизированной информационно-управляющей системы

Создание автоматизированной информационно-управляющей системы

Обоснование выбора метода проектирования и инструментальных средств для разработки программного средства и базы данных. Требования к эргономике и технической эстетике. Разработка алгоритмов приложения. Руководство пользователя. Безопасность труда.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 17.10.2014
Размер файла 2,9 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

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

IBQuery2.Open;

IBQuery2.Close;

IBQuery1.Close;

IBQuery1.Open;

Edit1.Text:='';

end;

procedure TForm5.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:='';

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

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

IBQuery4.Open;

IBQuery4.Close;

IBQuery1.Close;

IBQuery1.Open;

end;

end.

unit tip_datchika;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, DB, IBCustomDataSet, IBQuery;

type

TForm4 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

IBQuery1: TIBQuery;

IBQuery2: TIBQuery;

IBQuery3: TIBQuery;

IBQuery4: TIBQuery;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

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:='';

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:='';

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:='';

end;

procedure TForm12.Button2Click(Sender: TObject);

begin

Application.MessageBox('Связь с контролером не найдена','Ошибка подключения',mb_ok);

Edit2.Text:='';

end;

end.

Размещено на Allbest.ru

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены