Skip to content

Commit 3a4710b

Browse files
robsonsmartinsrobsonsmartins
committed
Rev.B
1 parent eea41a6 commit 3a4710b

25 files changed

+3650
-242
lines changed

‎afp01/Sistema/Biblioteca.dof‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -55,7 +55,7 @@ HostApplication=
5555
IncludeVerInfo=1
5656
AutoIncBuild=0
5757
MajorVer=0
58-
MinorVer=2
58+
MinorVer=3
5959
Release=0
6060
Build=0
6161
Debug=0
@@ -67,8 +67,8 @@ Locale=1046
6767
CodePage=1252
6868
[Version Info Keys]
6969
CompanyName=FBAI (Grupo Biblioteca)
70-
FileDescription=Executável do Sistema Biblioteca
71-
FileVersion=0.2.0.0
70+
FileDescription=Sistema Biblioteca
71+
FileVersion=0.3.0.0
7272
InternalName=biblioteca.exe
7373
LegalCopyright=FBAI (Grupo Biblioteca)
7474
LegalTrademarks=Faculdades Batista de Administração e Informática

‎afp01/Sistema/Biblioteca.dpr‎

Lines changed: 13 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@
66
77
Código-fonte principal do Programa.
88
9-
Data última revisão: 05/11/2001
9+
Data última revisão: 24/11/2001
1010
1111
*****************************************************************************}
1212

@@ -33,6 +33,7 @@ uses
3333
unit_PesquisaDialog in 'unit_PesquisaDialog.pas' {form_PesquisaDialog},
3434
unit_BackupDialog in 'unit_BackupDialog.pas' {form_BackupBDDialog},
3535
unit_RestoreDialog in 'unit_RestoreDialog.pas' {form_RestoreBDDialog},
36+
unit_SplashForm in 'unit_SplashForm.pas' {form_Splash},
3637
ZLibEx in '..\Componentes\ZLib\ZLibEx.pas';
3738

3839
{$R *.RES}
@@ -46,8 +47,17 @@ begin
4647
begin
4748
Application.Initialize;
4849
Application.Title := 'Sistema Biblioteca';
49-
Application.CreateForm(TDataModule_Biblio, DataModule_Biblio);
50-
Application.CreateForm(Tform_Desktop, form_Desktop);
50+
with Tform_Splash.Create(nil) do
51+
begin
52+
try
53+
Show;
54+
Update;
55+
Application.CreateForm(TDataModule_Biblio, DataModule_Biblio);
56+
Application.CreateForm(Tform_Desktop, form_Desktop);
57+
finally
58+
Free;
59+
end;
60+
end;
5161
Application.Run;
5262
end;
5363
// end;

‎afp01/Sistema/Biblioteca.res‎

-28 Bytes
Binary file not shown.

‎afp01/Sistema/unit_BibliotecaExplorer.dfm‎

2.59 KB
Binary file not shown.

‎afp01/Sistema/unit_BibliotecaExplorer.pas‎

Lines changed: 228 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -1,34 +1,94 @@
1+
{******************************************************************************
2+
3+
SISTEMA BIBLIOTECA - FBAI 2001
4+
5+
unit_BibliotecaExplorer.pas
6+
7+
Contém as classes de Interface do "Explorar Biblioteca".
8+
9+
Data última revisão: 25/11/2001
10+
11+
******************************************************************************}
12+
113
unit unit_BibliotecaExplorer;
214

315
interface
416

517
uses
618
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7-
ComCtrls, ExtCtrls, ImgList, ToolWin, Menus;
19+
ComCtrls, ExtCtrls, ImgList, ToolWin, Menus,
20+
unit_DataBaseClasses;
21+
22+
{Classe de Interface}
23+
type
24+
TDataInterface = class {contém métodos para esta Interface}
25+
private
26+
{ Private declarations }
27+
{Classes de Dados utilizadas nesta Interface}
28+
FDataClass: TAcervos;
29+
FTipoAcervos: TTipoAcervos;
30+
FAreaAcervos: TAreaAcervos;
31+
FClassificacaoAcervos: TClassificacaoAcervos;
32+
Exemplares: TExemplares;
33+
(* {Lê a partir da Classe de Dados e escreve nos objetos da Interface}
34+
procedure LeRegistros(Sender: TObject);*)
35+
public
36+
{ Public declarations }
37+
{construtor/destrutor}
38+
constructor Create;
39+
destructor Destroy; override;
40+
{Métodos}
41+
procedure Read(Sender: TObject);
42+
procedure ReadAcervo(Sender: TObject);
43+
procedure ReadExemplares(Sender: TObject);
44+
(* {Configura objetos de Interface para modo leitura}
45+
procedure Read(Sender: TObject);
46+
procedure ReadTipos(Sender: TObject);
47+
{Configura objetos de Interface para modo inserir}
48+
procedure Insert(Sender: TObject);
49+
{Configura objetos de Interface para modo editar}
50+
procedure Edit(Sender: TObject);
51+
{Configura objetos de Interface para modo leitura / após um Post}
52+
procedure Post(Sender: TObject);
53+
{Faz consistência dos dados digitados}
54+
function ConsisteDados(Sender: TObject): Boolean;
55+
{Exibe uma mensagem e dá foco ao controle}
56+
procedure ExibeMensagem(Controle: TWinControl;
57+
Mensagem, Caption: String; Flags: Longint); *)
58+
function SituacaoToStr(Situacao: Char): String;
59+
function StrToSituacao(SitStr: String): Char;
60+
end;
861

62+
{Classe do Form}
963
type
1064
Tform_BibliotecaExplorer = class(TForm)
11-
ImageList1: TImageList;
12-
TreeView1: TTreeView;
13-
Splitter1: TSplitter;
65+
ImageList_Explorer: TImageList;
66+
TreeView_Classes: TTreeView;
67+
Splitter_Vertical: TSplitter;
1468
StatusBar1: TStatusBar;
15-
ListView1: TListView;
16-
Splitter2: TSplitter;
17-
ListView2: TListView;
69+
ListView_Acervo: TListView;
70+
Splitter_Horizontal: TSplitter;
71+
ListView_Exemplares: TListView;
1872
ToolBar_Principal: TToolBar;
19-
ToolButton_Primeiro: TToolButton;
20-
ToolButton_Anterior: TToolButton;
21-
ToolButton_Proximo: TToolButton;
22-
ToolButton_Ultimo: TToolButton;
23-
ToolButton_Separator1: TToolButton;
24-
ToolButton_Pesquisar: TToolButton;
73+
ToolButton_Emprestar: TToolButton;
74+
ToolButton_Devolver: TToolButton;
75+
ToolButton_Reservar: TToolButton;
76+
ToolButton_Perdido: TToolButton;
77+
ToolButton_Fechar: TToolButton;
78+
ToolButton_Separator: TToolButton;
2579
ToolButton1: TToolButton;
2680
ToolButton2: TToolButton;
2781
procedure Emprestar1Click(Sender: TObject);
2882
procedure Reservar1Click(Sender: TObject);
2983
procedure MoverparaAcervoPerdido1Click(Sender: TObject);
84+
procedure FormCreate(Sender: TObject);
85+
procedure FormDestroy(Sender: TObject);
86+
procedure TreeView_ClassesClick(Sender: TObject);
87+
procedure ListView_AcervoClick(Sender: TObject);
3088
private
3189
{ Private declarations }
90+
DataInterface: TDataInterface;
91+
// procedure SetAccess;
3292
public
3393
{ Public declarations }
3494
end;
@@ -38,10 +98,143 @@ Tform_BibliotecaExplorer = class(TForm)
3898

3999
implementation
40100

41-
uses unit_RetiradaDialog, unit_ReservaDialog, unit_AcervoPerdidoDialog;
101+
uses unit_RetiradaDialog, unit_ReservaDialog, unit_AcervoPerdidoDialog,
102+
unit_Desktop, unit_Comum;
42103

43104
{$R *.DFM}
44105

106+
{-------------------- TDataInterface -----------------------}
107+
108+
constructor TDataInterface.Create;
109+
begin
110+
{Instancia um objeto da Classe de Dados}
111+
inherited Create;
112+
FDataClass := TAcervos.Create;
113+
FTipoAcervos := TTipoAcervos.Create;
114+
FAreaAcervos := TAreaAcervos.Create;
115+
FClassificacaoAcervos := TClassificacaoAcervos.Create;
116+
{retorna o primeiro registro}
117+
FDataClass.Refresh;
118+
end;
119+
120+
destructor TDataInterface.Destroy;
121+
begin
122+
{destrói o objeto da classe de dados}
123+
FDataClass.Free;
124+
FTipoAcervos.Free;
125+
FAreaAcervos.Free;
126+
FClassificacaoAcervos.Free;
127+
inherited Destroy;
128+
end;
129+
130+
function TDataInterface.SituacaoToStr(Situacao: Char): String;
131+
begin
132+
if Situacao = 'D' then
133+
Result := 'Disponível'
134+
else if Situacao = 'E' then
135+
Result := 'Emprestado'
136+
else if Situacao = 'P' then
137+
Result := 'Perdido'
138+
else
139+
Result := 'Indefinido';
140+
end;
141+
142+
function TDataInterface.StrToSituacao(SitStr: String): Char;
143+
begin
144+
if SitStr = 'Disponível' then
145+
Result := 'D'
146+
else if SitStr = 'Emprestado' then
147+
Result := 'E'
148+
else if SitStr = 'Perdido' then
149+
Result := 'P'
150+
else
151+
Result := 'I';
152+
end;
153+
154+
procedure TDataInterface.Read(Sender: TObject);
155+
var Node, Node2, Node3: TTreeNode;
156+
i,j,l: Integer;
157+
Classes: TClasses;
158+
begin
159+
with (Sender as Tform_BibliotecaExplorer) do
160+
begin
161+
with TreeView_Classes.Items do
162+
begin
163+
Clear;
164+
FDataClass.GetClasses(Classes);
165+
for i := 0 to Length(Classes.TipoAcervo) - 1 do
166+
begin
167+
Node := Add(nil,Classes.TipoAcervo[i]);
168+
Node.ImageIndex := 0;
169+
Node.SelectedIndex := 1;
170+
Node.StateIndex := 1;
171+
for j := 0 to Length(Classes.AreaAcervo) - 1 do
172+
begin
173+
Node2 := AddChild(Node,Classes.AreaAcervo[j]);
174+
Node2.ImageIndex := 0;
175+
Node2.SelectedIndex := 1;
176+
Node2.StateIndex := 1;
177+
for l := 0 to Length(Classes.ClassificacaoAcervo) - 1 do
178+
begin
179+
Node3 := AddChild(Node2,Classes.ClassificacaoAcervo[l]);
180+
Node3.ImageIndex := 0;
181+
Node3.SelectedIndex := 1;
182+
Node3.StateIndex := 1;
183+
end;
184+
end;
185+
end;
186+
end;
187+
end;
188+
end;
189+
190+
procedure TDataInterface.ReadAcervo(Sender: TObject);
191+
var i: Integer;
192+
begin
193+
with (Sender as Tform_BibliotecaExplorer) do
194+
begin
195+
with ListView_Acervo.Items do
196+
begin
197+
Clear;
198+
if not TreeView_Classes.Selected.HasChildren then
199+
begin
200+
with TreeView_Classes.Selected do
201+
FDataClass.GetTitulos(Parent.Parent.Text,Parent.Text,
202+
TreeView_Classes.Selected.Text);
203+
for i := 1 to FDataClass.RecCount(True) do
204+
begin
205+
FDataClass.GotoReg(i,True);
206+
with Add do
207+
begin
208+
Caption := FDataClass.Registro.Titulo;
209+
ImageIndex := 3;
210+
end;
211+
end;
212+
end;
213+
if Count > 0 then
214+
ListView_Acervo.Selected := Item[0];
215+
end;
216+
end;
217+
end;
218+
219+
procedure TDataInterface.ReadExemplares(Sender: TObject);
220+
begin
221+
with (Sender as Tform_BibliotecaExplorer) do
222+
begin
223+
with ListView_Acervo.Items do
224+
begin
225+
Clear;
226+
// FDataClass.GetExemplares(Classes);
227+
with Add do
228+
begin
229+
Caption := FDataClass.Registro.Titulo;
230+
ImageIndex := 3;
231+
end;
232+
end;
233+
end;
234+
end;
235+
236+
{-------------------- Tform_BibliotecaExplorer -----------------------}
237+
45238
procedure Tform_BibliotecaExplorer.Emprestar1Click(Sender: TObject);
46239
begin
47240
form_RetiradaDialog := Tform_RetiradaDialog.Create(Application);
@@ -64,4 +257,25 @@ procedure Tform_BibliotecaExplorer.MoverparaAcervoPerdido1Click(
64257
form_AcervoPerdidoDialog.Free;
65258
end;
66259

260+
procedure Tform_BibliotecaExplorer.FormCreate(Sender: TObject);
261+
begin
262+
DataInterface := TDataInterface.Create;
263+
DataInterface.Read(Self);
264+
end;
265+
266+
procedure Tform_BibliotecaExplorer.FormDestroy(Sender: TObject);
267+
begin
268+
DataInterface.Free;
269+
end;
270+
271+
procedure Tform_BibliotecaExplorer.TreeView_ClassesClick(Sender: TObject);
272+
begin
273+
DataInterface.ReadAcervo(Self);
274+
end;
275+
276+
procedure Tform_BibliotecaExplorer.ListView_AcervoClick(Sender: TObject);
277+
begin
278+
//
279+
end;
280+
67281
end.

‎afp01/Sistema/unit_CadastroAcervo.dfm‎

7.08 KB
Binary file not shown.

0 commit comments

Comments
 (0)