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

lose;

IBQuery1.Open;

end;

end.

unit kon_dat;

interface

uses

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

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

ComCtrls;

type

TForm13=class (TForm)

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

DBLookupComboBox2: TDBLookupComboBox;

IBQuery1: TIBQuery;

Label2: TLabel;

IBQuery2: TIBQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

Label3: TLabel;

Label4: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

DBGrid1: TDBGrid;

IBQuery3: TIBQuery;

DataSource3: TDataSource;

Edit1: TEdit;

IBQuery4: TIBQuery;

procedure DBLookupComboBox1Click (Sender: TObject);

procedure DBLookupComboBox2Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form13: TForm13;

implementation

uses menu;

{$ R * .dfm}

procedure TForm13.DBLookupComboBox1Click (Sender: TObject);

begin

IBQuery2.Close;

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

IBQuery2.Open;

end;

procedure TForm13.DBLookupComboBox2Click (Sender: TObject);

var

s: string;

begin

s:= raquo ;;

IBQuery3.Close;

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

IBQuery3.Params [1] .AsDate:=DateTimePicker1.Date;

IBQuery3.Params [2] .AsDate:=DateTimePicker2.Date;

IBQuery3.Open;

IBQuery4.Params [0] .AsString:=IBQuery2.Fields [3] .AsString;

IBQuery4.Open;

s:=IBQuery4.Fields [3] .AsString;

IBQuery4.Close;

Edit1.Text:=s;

end;

end.

unit kon_tdat;

interface

uses

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

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

StdCtrls;

type

TForm14=class (TForm)

Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox;

Label2: TLabel;

Label3: TLabel;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

DataSource1: TDataSource;

IBQuery1: TIBQuery;

DBGrid1: TDBGrid;

procedure DBLookupComboBox1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form14: TForm14;

implementation

uses menu, tip_datchika;

{$ R * .dfm}

procedure TForm14.DBLookupComboBox1Click (Sender: TObject);

begin

IBQuery1.Close;

IBQuery1.Params [0] .AsDate:=DateTimePicker1.Date;

IBQuery1.Params [1] .AsDate:=DateTimePicker2.Date;

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

IBQuery1.Open;

end;

end.

Назад | сторінка 32 з 39 | Наступна сторінка