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

tify"> unit list_ust;

interface

uses

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

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

DBCtrls;

type

TForm9=class (TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit3: TEdit;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

IBQuery1: TIBQuery;

IBQuery2: TIBQuery;

IBQuery3: TIBQuery;

Label4: TLabel;

Label5: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

Button5: TButton;

IBQuery4: TIBQuery;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form9: TForm9;

implementation

uses menu, datchik, stat, pokaz, prov;

{$ R * .dfm}

procedure TForm9.Button1Click (Sender: TObject);

begin

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

IBQuery2.Params [1] .AsString:=DateToStr (DateTimePicker1.DateTime);

IBQuery2.Params [2] .AsString:=form7.IBQuery1.Fields [0] .AsString;

IBQuery2.Params [3] .AsString:=Edit2.Text;

IBQuery2.Params [4] .AsString:=form5.IBQuery1.Fields [0] .AsString;

IBQuery2.Open;

IBQuery2.Close;

IBQuery1.Close;

IBQuery1.Open;

Edit3.Text:= raquo ;;

end;

procedure TForm9.Button2Click (Sender: TObject);

begin

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

IBQuery3.Open;

IBQuery3.Close;

IBQuery1.Close;

IBQuery1.Open;

end;

procedure TForm9.Button3Click (Sender: TObject);

begin

form10.edit3.Text:= raquo ;;

form10.IBQuery1.Close;

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

form10.edit1.Text:=IBQuery1.Fields [1] .AsString;

form10.edit2.Text:=IBQuery1.Fields [0] .AsString;

form10.IBQuery1.Open;

form10.ShowModal;

end;

procedure TForm9.Button4Click (Sender: TObject);

begin

form11.edit3.Text:= raquo ;;

form11.IBQuery1.Close;

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

form11.edit1.Text:=IBQuery1.Fields [5] .AsString;

form11.edit2.Text:=IBQuery1.Fields [0] .AsString;

form11.IBQuery1.Open;

form11.ShowModal;

end;

procedure TForm9.Button5Click (Sender: TObject);

begin

IBQuery4.Params [0] .AsString:=DateToStr (DateTimePicker2.Date);

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

IBQuery4.Open;

IBQuery4.Close;

IBQuery1.Close;

...