Отчет по практике в фирме "Ягуар+"

unit Unit5;

 

interface

 

uses

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

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

 

type

  TForm5 = class(TForm)

    MaskEdit1: TMaskEdit;

    Label1: TLabel;

    ADOConnection1: TADOConnection;

    Button1: TButton;

    DBGrid1: TDBGrid;

    ADOQuery1: TADOQuery;

    DataSource2: TDataSource;

    GroupBox1: TGroupBox;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedureFormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

  Form5: TForm5;

 

implementation

 

{$R *.dfm}

 

procedure TForm5.Button1Click(Sender: TObject);

begin

  ADOQuery1.close;      //очиститьзапрос

  ADOQuery1.SQL.Clear;

AdoQuery1.SQL.add('SELECT * FROM [first] WHERE Date = :dat'); //запрос

AdoQuery1.Parameters.ParamByName('dat').Value:=MaskEdit1.Text;

AdoQuery1.Open;                           //запустить запрос

  Button2.Click;                     //выполнить нажатие скрытой кнопки 

end;

 

 

 

 

procedure TForm5.Button2Click(Sender: TObject);

var

prhd, rshd, sld: double;

i: integer;

begin

prhd:=0;

rshd:=0;

sld:=0;

for i:=0 to DBGrid1.FieldCount do     //расчетзначенийзадень

begin

prhd:=DbGrid1.DataSource.DataSet.FieldByName('Debit').AsFloat+prhd;

rshd:=DbGrid1.DataSource.DataSet.FieldByName('Kredit').AsFloat+rshd;

sld:=DbGrid1.DataSource.DataSet.FieldByName('Saldo').AsFloat+sld;

      DbGrid1.DataSource.DataSet.Next;

end;

Label3.Caption:=FloatToStr(prhd);     //вывод значений на форму

Label5.Caption:=FloatToStr(rshd);

Label7.Caption:=FloatToStr(sld);

end;

 

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DbGrid1.Free;         //очиститьформу

MaskEdit1.Free;

end;

 

end.

Кодприложения:

program Project1;

 

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit3 in 'Unit3.pas' {AddOldDate},

  Unit5 in 'Unit5.pas' {Form5};

 

{$R *.res}

 

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TAddOldDate, AddOldDate);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.Run;

end.

Во время разработки данной программы я самостоятельно изучил доступ к данным базы данных без использования запросов и работу с датой.