unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
ExtCtrls, StdCtrls, Grids, ComCtrls, DBGrids, Unit3, Unit2, pqconnection,
sqldb, db;
type
{ TForm1 }
TForm1 = class(TForm)
DataSource1: TDataSource;
DBConn: TPQConnection;
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid1DblClick(Sender: TObject);
procedure OnLoad(Sender: TObject);
private
public
end;
var
Form1: TForm1;
uredi: TForm2;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.OnLoad(Sender: TObject);
begin
SQLQuery1.Close;
SQLQuery1.SQL.Text:= 'select * from knjiga';
DBConn.Connected:= True;
SQLTransaction1.Active:= True;
SQLQuery1.Open;
DBGrid1.Options := DBGrid1.Options + [dgMultiSelect];
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
uredi:= TForm2.Create(Self);
Try
uredi.Edit1.Text := DBGrid1.DataSource.DataSet.FieldByName('sifra_knjiga').AsString; //taking information from db grid and puting it into text edits in another form
uredi.Edit2.Text := DBGrid1.DataSource.DataSet.FieldByName('isbn').AsString;
uredi.Edit3.Text := DBGrid1.DataSource.DataSet.FieldByName('naziv').AsString;
uredi.Edit4.Text := DBGrid1.DataSource.DataSet.FieldByName('autor').AsString;
uredi.Edit5.Text := DBGrid1.DataSource.DataSet.FieldByName('izdavac').AsString;
uredi.Edit6.Text := DBGrid1.DataSource.DataSet.FieldByName('godina_izdavanja').AsString; //taking information from db grid and puting it into text edits in another form
uredi.Edit7.Text := DBGrid1.DataSource.DataSet.FieldByName('kolicina').AsString;
uredi.Edit8.Text := DBGrid1.DataSource.DataSet.FieldByName('bar_kod').AsString;
uredi.Edit9.Text := DBGrid1.DataSource.DataSet.FieldByName('isbn_stari').AsString;
uredi.Edit10.Text := DBGrid1.DataSource.DataSet.FieldByName('mjesto_izdavanja').AsString; //taking information from db grid and puting it into text edits in another form
uredi.Memo1.Text := DBGrid1.DataSource.DataSet.FieldByName('sazetak').AsString;
SQLQuery1.Close;
SQLTransaction1.Active:= False;
DBConn.Connected:= False;
uredi.ShowModal;
Finally
uredi.Release;
uredi:= Nil;
End;
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
DBGrid1.SelectedRows.CurrentRowSelected := True;
end;
end.