Interface

uses

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

Dialogs, Mask, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, DBCtrls, DB,

DBTables, Menus, ADODB, TeEngine, Series, TeeProcs, Chart, DbChart;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

Table1: TTable;

Query1: TQuery;

Query2: TQuery;

Query3: TQuery;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

Timer1: TTimer;

StatusBar1: TStatusBar;

Label1: TLabel;

Panel1: TPanel;

Label2: TLabel;

Edit1: TEdit;

Button1: TButton;

Panel2: TPanel;

Label3: TLabel;

MaskEdit1: TMaskEdit;

Panel3: TPanel;

Edit2: TEdit;

Label4: TLabel;

ADOConnection1: TADOConnection;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit4: TDBEdit;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

Panel4: TPanel;

Image1: TImage;

Button2: TButton;

Button3: TButton;

Edit3: TEdit;

Label9: TLabel;

procedure MaskEdit1DblClick(Sender: TObject);

procedure Edit2DblClick(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure ADODataSet1AfterCancel(DataSet: TDataSet);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.MaskEdit1DblClick(Sender: TObject);

begin

if MaskEdit1.Text<>''then begin

ADODataSet1.Close;

form1.adodataset1.CommandText:='SELECT * FROM Ctud1 WHERE (((Ctud1.NZ)='+maskedit1.text+'))';

Adodataset1.Open;

end else begin

form1.adodataset1.active:=false;

form1.adodataset1.CommandText:='select * from Ctud1';

form1.adodataset1.active:=true;

end; end;

procedure TForm1.Edit2DblClick(Sender: TObject);

begin

adodataset1.Locate('FIO', Edit2.Text,[locaseinsensitive, lopartialkey]);

end;

procedure TForm1.Button2Click(Sender: TObject);

var i: integer;

begin

for i:=1 to DBGrid1.FieldCount do

begin

ADODataSet1.Edit();

DBGrid1.Fields[4].Value := IntToStr(StrToInt(DBEdit4.text) + StrToInt(Edit3.Text));

ADODataSet1.Post();

ADODataSet1.Next;

end;

ADODataSet1.First;

end;

procedure TForm1.Button3Click(Sender: TObject);

var i: integer;

begin

for i:=1 to DBGrid1.FieldCount do

begin

ADODataSet1.Edit();

DBGrid1.Fields[4].Value := IntToStr(StrToInt(DBEdit4.text) - StrToInt(Edit3.Text));

ADODataSet1.Post();

ADODataSet1.Next;

end;

ADODataSet1.First;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[2].Text := TimeToStr(Time);

end;

procedure TForm1.N8Click(Sender: TObject);

begin

If ADODataSet1.Filtered = True then ADODataSet1.Filtered := False;

ADODataSet1.IndexFieldNames := 'NZ';

end;

procedure TForm1.N9Click(Sender: TObject);

begin

If ADODataSet1.Filtered = True then ADODataSet1.Filtered := False;

ADODataSet1.IndexFieldNames := 'FIO';

end;

procedure TForm1.N10Click(Sender: TObject);

begin

If ADODataSet1.Filtered = True then ADODataSet1.Filtered := False;

ADODataSet1.IndexFieldNames := 'RS';

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N11Click(Sender: TObject);

var i,a: integer;

z: real;

begin

ADODataSet1.First;

a:=0;

for i:=1 to ADODataSet1.RecordCount do begin a:=a+StrToInt(DBGrid1.Fields[2].Value); ADODataSet1.Next; end;

Label1.Caption :=Сумма всей стипендии ровна '+IntToStr(a);

ADODataSet1.First;

end;

procedure TForm1.N12Click(Sender: TObject);

var i,a: integer;

z: real;

begin

ADODataSet1.First;

a:=0;

for i:=1 to ADODataSet1.RecordCount do begin a:=a+StrToInt(DBGrid1.Fields[2].Value); ADODataSet1.Next; end;

z:=a/ADODataSet1.RecordCount;

Label1.Caption := 'Средняя стипендия ровна '+FloatToStr(z);

ADODataSet1.First;

end;

procedure TForm1.ADODataSet1AfterCancel(DataSet: TDataSet);

begin

if Adodataset1.RecordCount > 0 then

if DBgrid1.Fields[3].Value <> Null then image1.Picture.LoadFromFile(DBgrid1.Fields[3].value);

end;

procedure TForm1.N13Click(Sender: TObject);

begin

adodataset1.Locate('FIO', Edit1.Text,[locaseinsensitive,lopartialkey]) ;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

adodataset1.Locate('RS', dbEdit1.Text,[locaseinsensitive,lopartialkey]) ;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

adodataset1.Locate('FIO', Edit2.Text,[locaseinsensitive,lopartialkey]) ;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

adodataset1.IndexFieldNames:='FIO';

adodataset1.FindField(edit2.Text) ;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

close;

end;

end.