Практическая часть. 
Автоматизированная информационная система "Материальные ресурсы организации"

Листинг программы формы 1.

unit Unit1;

interface.

uses.

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

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, unit2, unit3,unit4,unit5,unit6,unit7,unit9;

type.

TForm1 = class (TForm).

Button1: TButton;

Label1: TLabel;

Button2: TButton;

Memo1: TMemo;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Button9Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form1: TForm1;

implementation.

uses Unit8;

{$R *.dfm}.

procedure TForm1. Button1Click (Sender: TObject);

begin.

AdoConnection1.connected:=true;

Label1.caption:='Connected to '+AdoConnection1.DefaultDataBase;

Form1.ADOQuery1.SQL.Clear;

Form1.ADOQuery1.SQL.Add ('Show tables from '+.

AdoConnection1.DefaultDataBase);

Form1.ADOQuery1.Open;

end;

procedure TForm1. Button2Click (Sender: TObject);

var I: integer;

begin.

if Form1. Memo1.lines.count=0 then.

begin.

ShowMessage ('Empty SQL!!!');exit;

end;

with Form1. ADOQuery1 do.

begin.

SQL.Clear;

for I := 0 to Form1. Memo1.lines.count — 1 do.

begin.

SQL.Add (Form1.Memo1.lines[I]);

end;

Open;

end;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin.

Form1.Close;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin.

Form2.Show;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin.

Form3.Show;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin.

Form4.show;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin.

Form5.ShowModal;

end;

procedure TForm1. Button8Click (Sender: TObject);

begin.

Form6.ShowModal;

end;

procedure TForm1. Button9Click (Sender: TObject);

begin.

Form8.ShowModal;

end;

end.

Листинг программы формы 2.

unit Unit2;

interface.

uses.

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

Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type.

TForm2 = class (TForm).

Button1: TButton;

Button2: TButton;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOQuery3: TADOQuery;

ADOQuery4: TADOQuery;

Button3: TButton;

procedure Button3Click (Sender: TObject);

procedure DBGrid1CellClick (Column: TColumn);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form2: TForm2;

implementation.

Uses unit9, unit1;

{$R *.dfm}.

procedure TForm2. Button1Click (Sender: TObject);

begin.

form2.Close.

end;

procedure TForm2. Button2Click (Sender: TObject);

begin.

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.ADD ('Show tables');

ADOQuery1.Open;

ADOQuery4.SQL.Clear;

ADOQuery4.SQL.ADD ('Show DataBases ');

ADOQuery4.Open;

end;

procedure TForm2. Button3Click (Sender: TObject);

begin.

form9.Close;

end;

procedure TForm2. DBGrid1CellClick (Column: TColumn);

begin.

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.ADD ('Select * from '+ DbGrid1.selectedfield.AsString);

ADOQuery2.Open;

ADOQuery3.SQL.Clear;

ADOQuery3.SQL.ADD ('show fields from ' + DbGrid1.selectedfield.AsString);

ADOQuery3.Open;

end;

end.

Листинг программы формы 3.

unit Unit3;

interface.

uses.

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

Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;

type.

TForm3 = class (TForm).

DBGrid1: TDBGrid;

Label1: TLabel;

Button1: TButton;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

Label2: TLabel;

Button2: TButton;

DBNavigator1: TDBNavigator;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Button3: TButton;

procedure Button3Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form3: TForm3;

implementation.

uses unit1;

{$R *.dfm}.

procedure TForm3. Button1Click (Sender: TObject);

begin.

Form3.Close;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin.

Form1.Close;

end;

procedure TForm3. Button3Click (Sender: TObject);

begin.

with AdoQuery1 do.

begin.

SQL.Clear;

SQL.Add ('insert into otvetstvennoe_face (id, familiya, name, otcestvo,№_telefona, pasportnie_dannie)');

SQL.Add.

('VALUES (Null,'+char (#039)+edit1.Text+char (#039)+','+char (#039)+Edit2.Text+char (#039)+',');

SQL.Add (char (#039)+Edit3.Text+char (#039)+','+char (#039)+Edit4.Text+char (#039)+','+char (#039)+Edit5.Text+char (#039)+')');

ExecSQL;

end;

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from materialnie_resursi_organizacie');

AdoQuery1.Open;

end;

procedure TForm3. FormActivate (Sender: TObject);

begin.

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from otvetstvennoe_face');

AdoQuery1.Open;

end;

end.

Листинг программы формы 4.

unit Unit4;

interface.

uses.

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

Dialogs, unit3, DB, StdCtrls, DBCtrls, Grids, DBGrids, ADODB, ExtCtrls;

type.

TForm4 = class (TForm).

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

DataSource2: TDataSource;

Label1: TLabel;

Button1: TButton;

ComboBox1: TComboBox;

DBNavigator1: TDBNavigator;

procedure Button1Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure ComboBox1Select (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form4: TForm4;

implementation.

uses unit1;

{$R *.dfm}.

procedure TForm4. Button1Click (Sender: TObject);

begin.

Form4.Close;

end;

procedure TForm4. ComboBox1Select (Sender: TObject);

begin.

AdoQuery2.SQL.Clear;

AdoQuery2.SQL.Add ('Select * from '+ComboBox1.text);

AdoQuery2.Open;

end;

procedure TForm4. FormActivate (Sender: TObject);

begin.

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('show tables'); //select * from otvetstvennoe_face.

AdoQuery1.Open;

AdoQuery1.first;

// AdoTable1. first;

ComboBox1.Items.clear;

//Label2.Caption:=AdoQuery1.FieldByName ('name').AsString;

while not AdoQuery1. eof do.

begin.

ComboBox1.Items.Add (AdoQuery1.Fields.FieldByNumber (1).AsString);

AdoQuery1.next;

end;

ComboBox1.Itemindex:=0;

end;

end.

Листинг программы формы 5.

unit Unit5;

interface.

uses.

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

Dialogs, StdCtrls, unit3, DB, Grids, DBGrids, ADODB, ExtCtrls, DBCtrls;

type.

TForm5 = class (TForm).

Button1: TButton;

ComboBox1: TComboBox;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

ComboBox2: TComboBox;

Label5: TLabel;

Button2: TButton;

ADOQuery3: TADOQuery;

Button3: TButton;

DataSource2: TDataSource;

DBNavigator1: TDBNavigator;

Label7: TLabel;

ADOQuery4: TADOQuery;

ComboBox3: TComboBox;

ADOQuery5: TADOQuery;

ComboBox4: TComboBox;

Label8: TLabel;

ADOQuery6: TADOQuery;

Label9: TLabel;

Label10: TLabel;

Edit4: TEdit;

Label4: TLabel;

Label6: TLabel;

ComboBox5: TComboBox;

ADOQuery7: TADOQuery;

ADOQuery8: TADOQuery;

procedure ComboBox5Select (Sender: TObject);

procedure ComboBox4Change (Sender: TObject);

procedure ComboBox2Select (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure ComboBox1Select (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form5: TForm5;

implementation.

uses Unit1;

{$R *.dfm}.

procedure TForm5. Button1Click (Sender: TObject);

begin.

Form5.Close;

end;

procedure TForm5. Button2Click (Sender: TObject);

begin.

with AdoQuery4 do.

begin.

SQL.Clear;

SQL.Add ('insert into raspredelenie (id, resurs, vid_resursa, stoimost,№_inventarizacie, familiya, name, otcestvo, kabinet)');

SQL.Add (' VALUES (Null, '+char (#039)+Combobox4.text+char (#039)+',');

SQL.Add (char (#039)+Label4.caption+char (#039)+','+char (#039)+label6.caption+char (#039)+',');

SQL.Add (char (#039)+Combobox5.Text+char (#039)+','+char (#039)+ComboBox1.Text+char (#039)+',');

SQL.Add (char (#039)+ ComboBox2. Text+char (#039)+','+char (#039)+ComboBox3.Text+char (#039)+ ','+char (#039)+Edit4.Text+char (#039)+')');

ExecSQL;

end;

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from materialnie_resursi_organizacie');

AdoQuery1.Open;

end;

procedure TForm5. Button3Click (Sender: TObject);

begin.

Form1.close;

end;

procedure TForm5. ComboBox1Select (Sender: TObject);

begin.

AdoQuery3.SQL.Clear;

AdoQuery3.SQL.Add ('select name from otvetstvennoe_face where familiya="'+Combobox1.text+'" ');

AdoQuery3.Open;

AdoQuery3.first;

ComboBox2.Items.clear;

while not AdoQuery3. eof do.

begin.

ComboBox2.Items.Add (AdoQuery3.Fields.FieldByNumber (1).AsString);

AdoQuery3.next;

end;

ComboBox2.Itemindex:=0;

end;

procedure TForm5. ComboBox2Select (Sender: TObject);

begin.

AdoQuery5.SQL.Clear;

AdoQuery5.SQL.Add ('select otcestvo from otvetstvennoe_face where familiya="'+Combobox1.text+'" ');

AdoQuery5.SQL.Add (' or name="'+Combobox2.Text+'" ');

AdoQuery5.Open;

AdoQuery5.first;

ComboBox3.Items.clear;

while not AdoQuery5. eof do.

begin.

ComboBox3.Items.Add (AdoQuery5.Fields.FieldByNumber (1).AsString);

AdoQuery5.next;

end;

ComboBox3.Itemindex:=0;

end;

procedure TForm5. ComboBox4Change (Sender: TObject);

begin.

AdoQuery7.SQL.Clear;

AdoQuery7.SQL.Add ('select №_inventarizacie from materialnie_resursi_organizacie where name="'+Combobox4.text+'" ');

AdoQuery7.Open;

AdoQuery7.first;

ComboBox5.Items.clear;

while not AdoQuery7. eof do.

begin.

ComboBox5.Items.Add (AdoQuery7.Fields.FieldByNumber (1).AsString);

AdoQuery7.next;

end;

ComboBox5.Itemindex:=0;

end;

procedure TForm5. ComboBox5Select (Sender: TObject);

begin.

AdoQuery8.SQL.Clear;

AdoQuery8.SQL.Add ('select stoimost, vid from materialnie_resursi_organizacie where name="'+Combobox4.text+'" and №_inventarizacie="'+Combobox5.text+'" ');

AdoQuery8.Open;

Label6.caption:=AdoQuery8.Fields.FieldByNumber (1).AsString;

Label4.caption:=AdoQuery8.Fields.FieldByNumber (2).AsString;

end;

procedure TForm5. FormActivate (Sender: TObject);

begin.

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from raspredelenie');

AdoQuery1.Open;

AdoQuery2.SQL.Clear;

AdoQuery2.SQL.Add ('select familiya from otvetstvennoe_face');

AdoQuery2.Open;

AdoQuery2.first;

ComboBox1.Items.clear;

while not AdoQuery2. eof do.

begin.

ComboBox1.Items.Add (AdoQuery2.Fields.FieldByNumber (1).AsString);

AdoQuery2.next;

end;

ComboBox1.Itemindex:=0;

AdoQuery6.SQL.Clear;

AdoQuery6.SQL.Add ('select name from materialnie_resursi_organizacie');

AdoQuery6.Open;

AdoQuery6.first;

ComboBox4.Items.clear;

while not AdoQuery6. eof do.

begin.

ComboBox4.Items.Add (AdoQuery6.Fields.FieldByNumber (1).AsString);

AdoQuery6.next;

end;

ComboBox4.Itemindex:=0;

end;

end.

Листинг программы формы 6.

unit Unit6;

interface.

uses.

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

Dialogs, StdCtrls, unit3, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids;

type.

TForm6 = class (TForm).

Button1: TButton;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

Edit2: TEdit;

Label6: TLabel;

Edit5: TEdit;

Button2: TButton;

Button3: TButton;

Label7: TLabel;

Edit6: TEdit;

Label8: TLabel;

Edit8: TEdit;

Label9: TLabel;

Edit9: TEdit;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

DBGrid1: TDBGrid;

ComboBox1: TComboBox;

procedure Button1Click (Sender: TObject);

procedure FormActivate (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form6: TForm6;

implementation.

uses unit1;

{$R *.dfm}.

procedure TForm6. Button1Click (Sender: TObject);

begin.

Form6.Close;

end;

procedure TForm6. Button2Click (Sender: TObject);

begin.

Form1.close;

end;

procedure TForm6. Button3Click (Sender: TObject);

begin.

with AdoQuery2 do.

begin.

SQL.Clear;

SQL.Add ('insert into materialnie_resursi_organizacie (id, name, vid, stoimost ,№_inventarizacie, date_nacala, srok_godnosti, informaciya)');

SQL.Add (' VALUES (Null,'+char (#039)+edit6.Text+char (#039)+','+char (#039)+Combobox1.Text+char (#039)+',');

SQL.add (char (#039)+Edit8.Text+char (#039)+','+char (#039)+Edit1.Text+char (#039)+','+char (#039)+Edit9.Text+char (#039)+',');

SQL.add (char (#039)+Edit2.Text+char (#039)+','+char (#039)+Edit5.text+char (#039)+')');

ExecSQL;

end;

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from materialnie_resursi_organizacie');

AdoQuery1.Open;

end;

procedure TForm6. FormActivate (Sender: TObject);

begin.

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from materialnie_resursi_organizacie');

AdoQuery1.Open;

AdoQuery2.SQL.Clear;

AdoQuery2.SQL.Add ('select vid_resursa from vid_resursi');

AdoQuery2.Open;

AdoQuery2.first;

ComboBox1.Items.clear;

while not AdoQuery2. eof do.

begin.

ComboBox1.Items.Add (AdoQuery2.Fields.FieldByNumber (1).AsString);

AdoQuery2.next;

end;

ComboBox1.Itemindex:=0;

end;

end.

Листинг программы формы 7.

unit Unit8;

interface.

uses.

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

Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;

type.

TForm8 = class (TForm).

Button1: TButton;

Button2: TButton;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

DataSource1: TDataSource;

DBGrid2: TDBGrid;

DataSource2: TDataSource;

ADOQuery3: TADOQuery;

Label1: TLabel;

procedure DBGrid1CellClick (Column: TColumn);

procedure FormActivate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form8: TForm8;

implementation.

uses Unit1;

{$R *.dfm}.

procedure TForm8. Button1Click (Sender: TObject);

begin.

Form8.Close;

end;

procedure TForm8. Button2Click (Sender: TObject);

begin.

Form8.Close;

end;

procedure TForm8. DBGrid1CellClick (Column: TColumn);

var name, familiya, otcestvo: string;

begin.

AdoQuery3.SQL.Clear;

AdoQuery3.SQL.Add ('select familiya, name, otcestvo from otvetstvennoe_face where id="'+DBgrid1.SelectedField.asstring+'" ');

AdoQuery3.Open;

name:=AdoQuery3.FieldByName ('name').AsString;

familiya:=AdoQuery3.FieldByName ('familiya').AsString;

otcestvo:=AdoQuery3.FieldByName ('otcestvo').AsString;

Label1.caption:='За сотрудником '+familiya+' '+ name +' ' + otcestvo+ ' закреплено следующее оборудование:';

AdoQuery2.SQL.Clear;

AdoQuery2.SQL.Add ('select materialnie_resursi_organizacie.name, materialnie_resursi_organizacie.stoimost, materialnie_resursi_organizacie.№_inventarizacie, raspredelenie. kabinet from materialnie_resursi_organizacie, raspredelenie');

AdoQuery2.SQL.Add (' where materialnie_resursi_organizacie.name=raspredelenie.resurs and raspredelenie. familiya="'+ familiya+'" and raspredelenie.name="'+name+'" and raspredelenie. otcestvo="'+ otcestvo+'" ');

AdoQuery2.Open;

end;

procedure TForm8. FormActivate (Sender: TObject);

begin.

AdoQuery1.SQL.Clear;

AdoQuery1.SQL.Add ('select * from otvetstvennoe_face');

AdoQuery1.Open;

end;

end.

Листинг программы формы 8.

unit Unit9;

interface.

uses.

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

Dialogs, StdCtrls;

type.

TForm9 = class (TForm).

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Form9: TForm9;

implementation.

uses unit1;

{$R *.dfm}.

procedure TForm9. Button1Click (Sender: TObject);

begin.

form1.showmodal;

end;

procedure TForm9. Button2Click (Sender: TObject);

begin.

Form9.close;

end;

end.