Skip to content

Commit 29786f9

Browse files
mmalinovammalinova
committed
Add Company project.
1 parent 45351c2 commit 29786f9

16 files changed

+2295
-0
lines changed

‎Facturas/Data/DBStructure.sql

+73
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,73 @@
1+
/*=================================================================*/
2+
CREATE DATABASE "C:\Projects\Facturas\Data\Facturas.gdb"
3+
user "SYSDBA"
4+
password "masterkey"
5+
page_size=4096;
6+
/*=================================================================*/
7+
CREATE TABLE FacturasTbl
8+
(
9+
ID INTEGER NOT NULL,
10+
Nomer VARCHAR(20),
11+
Data VARCHAR(15),
12+
CompanyName VARCHAR(20),
13+
PRIMARY KEY(ID)
14+
);
15+
16+
CREATE TABLE MatTbl
17+
(
18+
ID INTEGER NOT NULL,
19+
Name VARCHAR(12),
20+
PRIMARY KEY(ID)
21+
);
22+
23+
CREATE TABLE SalesTbl
24+
(
25+
ID INTEGER NOT NULL,
26+
FID INTEGER NOT NULL,
27+
MID INTEGER NOT NULL,
28+
Quantity NUMERIC(14,2),
29+
SPrice NUMERIC(14,2),
30+
TotalPrice NUMERIC(14,2),
31+
PRIMARY KEY(ID),
32+
FOREIGN KEY(FID) REFERENCES FacturasTbl(ID),
33+
FOREIGN KEY(MID) REFERENCES MatTbl(ID)
34+
);
35+
36+
/*=================================================================*/
37+
38+
CREATE GENERATOR FacturasTblIDGen;
39+
SET GENERATOR FacturasTblIDGen TO 0;
40+
41+
CREATE GENERATOR SalesTblIDGen;
42+
SET GENERATOR SalesTblIDGen TO 0;
43+
44+
SET TERM ^ ;
45+
46+
CREATE PROCEDURE FACTURASTBL_IDSP
47+
RETURNS(ID INTEGER)
48+
AS
49+
BEGIN
50+
ID = GEN_ID(FacturasTblIDGen, 1);
51+
END^
52+
53+
CREATE PROCEDURE SALESTBL_IDSP
54+
RETURNS(ID INTEGER)
55+
AS
56+
BEGIN
57+
ID = GEN_ID(SalesTblIDGen, 1);
58+
END^
59+
60+
SET TERM ; ^
61+
62+
/*=================================================================*/
63+
64+
CREATE INDEX FacturasTblNomerNDX ON FacturasTbl(Nomer);
65+
CREATE INDEX FacturasTblCompanyNDX ON FacturasTbl(CompanyName);
66+
67+
/*=================================================================*/
68+
/*
69+
SELECT F.CompanyName, F.Nomer, F.Data
70+
FROM FacturasTbl F, SalesTbl S, MatTbl M
71+
WHERE M.NAME LIKE :PNAME AND M.ID = S.MID AND S.FID = F.ID
72+
*/
73+
/*=================================================================*/

‎Facturas/Data/FACTURAS.GDB

672 KB
Binary file not shown.

‎Facturas/Facturas.bpr

+123
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,123 @@
1+
<?xml version='1.0' encoding='utf-8' ?>
2+
<!-- C++Builder XML Project -->
3+
<PROJECT>
4+
<MACROS>
5+
<VERSION value="BCB.06.00"/>
6+
<PROJECT value="Facturas.exe"/>
7+
<OBJFILES value="Facturas.obj MainUnit1.obj"/>
8+
<RESFILES value="Facturas.res"/>
9+
<IDLFILES value=""/>
10+
<IDLGENFILES value=""/>
11+
<DEFFILE value=""/>
12+
<RESDEPEN value="$(RESFILES) MainUnit1.dfm"/>
13+
<LIBFILES value=""/>
14+
<LIBRARIES value=""/>
15+
<SPARELIBS value="vcl.lib rtl.lib dbrtl.lib vcldb.lib ibxpress.lib cds.lib dsnap.lib
16+
dbexpress.lib"/>
17+
<PACKAGES value="vcl.bpi rtl.bpi bcb2kaxserver.bpi dbrtl.bpi adortl.bpi vcldb.bpi vclx.bpi
18+
bdertl.bpi vcldbx.bpi ibxpress.bpi dsnap.bpi cds.bpi bdecds.bpi qrpt.bpi
19+
teeui.bpi teedb.bpi tee.bpi dss.bpi teeqr.bpi visualclx.bpi
20+
visualdbclx.bpi dsnapcrba.bpi dsnapcon.bpi bcbsmp.bpi vclie.bpi xmlrtl.bpi
21+
inet.bpi inetdbbde.bpi inetdbxpress.bpi inetdb.bpi nmfast.bpi webdsnap.bpi
22+
bcbie.bpi websnap.bpi soaprtl.bpi dclocx.bpi dbexpress.bpi dbxcds.bpi
23+
indy.bpi"/>
24+
<PATHCPP value=".;"/>
25+
<PATHPAS value=".;"/>
26+
<PATHRC value=".;"/>
27+
<PATHASM value=".;"/>
28+
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
29+
<RELEASELIBPATH value="$(BCB)\lib\release"/>
30+
<LINKER value="ilink32"/>
31+
<USERDEFINES value="_DEBUG"/>
32+
<SYSDEFINES value="_RTLDLL;NO_STRICT;USEPACKAGES"/>
33+
<MAINSOURCE value="Facturas.cpp"/>
34+
<INCLUDEPATH value="&quot;C:\Program Files (x86)\Borland\CBuilder6\Projects&quot;;C:\Projects\Facturas;$(BCB)\include;$(BCB)\include\vcl"/>
35+
<LIBPATH value="&quot;C:\Program Files (x86)\Borland\CBuilder6\Projects&quot;;C:\Projects\Facturas;$(BCB)\lib\obj;$(BCB)\lib"/>
36+
<WARNINGS value="-w-par"/>
37+
<OTHERFILES value=""/>
38+
</MACROS>
39+
<OPTIONS>
40+
<IDLCFLAGS value="-I&quot;C:\Program Files (x86)\Borland\CBuilder6\Projects&quot;
41+
-IC:\Projects\Facturas -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix
42+
cpp -D_DEBUG -boa"/>
43+
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl60.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
44+
-tW -tWM"/>
45+
<PFLAGS value="-$YD -$W -$O- -$A8 -v -JPHNE -M"/>
46+
<RFLAGS value=""/>
47+
<AFLAGS value="/mx /w2 /zd"/>
48+
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
49+
<OTHERFILES value=""/>
50+
</OPTIONS>
51+
<LINKER>
52+
<ALLOBJ value="c0w32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)"/>
53+
<ALLRES value="$(RESFILES)"/>
54+
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
55+
<OTHERFILES value=""/>
56+
</LINKER>
57+
<FILELIST>
58+
<FILE FILENAME="Facturas.res" FORMNAME="" UNITNAME="Facturas.res" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
59+
<FILE FILENAME="Facturas.cpp" FORMNAME="" UNITNAME="Facturas" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
60+
<FILE FILENAME="MainUnit1.cpp" FORMNAME="Form1" UNITNAME="MainUnit1" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
61+
</FILELIST>
62+
<BUILDTOOLS>
63+
</BUILDTOOLS>
64+
65+
<IDEOPTIONS>
66+
[Version Info]
67+
IncludeVerInfo=0
68+
AutoIncBuild=0
69+
MajorVer=1
70+
MinorVer=0
71+
Release=0
72+
Build=0
73+
Debug=0
74+
PreRelease=0
75+
Special=0
76+
Private=0
77+
DLL=0
78+
Locale=1026
79+
CodePage=1251
80+
81+
[Version Info Keys]
82+
CompanyName=
83+
FileDescription=
84+
FileVersion=1.0.0.0
85+
InternalName=
86+
LegalCopyright=
87+
LegalTrademarks=
88+
OriginalFilename=
89+
ProductName=
90+
ProductVersion=1.0.0.0
91+
Comments=
92+
93+
[Debugging]
94+
DebugSourceDirs=$(BCB)\source\vcl
95+
96+
[Parameters]
97+
RunParams=
98+
Launcher=
99+
UseLauncher=0
100+
DebugCWD=
101+
HostApplication=
102+
RemoteHost=
103+
RemotePath=
104+
RemoteLauncher=
105+
RemoteCWD=
106+
RemoteDebug=0
107+
108+
[Compiler]
109+
ShowInfoMsgs=0
110+
LinkDebugVcl=0
111+
LinkCGLIB=0
112+
113+
[CORBA]
114+
AddServerUnit=1
115+
AddClientUnit=1
116+
PrecompiledHeaders=1
117+
118+
[Language]
119+
ActiveLang=
120+
ProjectLang=
121+
RootDir=
122+
</IDEOPTIONS>
123+
</PROJECT>

‎Facturas/Facturas.cpp

+33
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,33 @@
1+
//---------------------------------------------------------------------------
2+
3+
#include <vcl.h>
4+
#pragma hdrstop
5+
//---------------------------------------------------------------------------
6+
USEFORM("MainUnit1.cpp", Form1);
7+
//---------------------------------------------------------------------------
8+
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
9+
{
10+
try
11+
{
12+
Application->Initialize();
13+
Application->CreateForm(__classid(TForm1), &Form1);
14+
Application->Run();
15+
}
16+
catch (Exception &exception)
17+
{
18+
Application->ShowException(&exception);
19+
}
20+
catch (...)
21+
{
22+
try
23+
{
24+
throw Exception("");
25+
}
26+
catch (Exception &exception)
27+
{
28+
Application->ShowException(&exception);
29+
}
30+
}
31+
return 0;
32+
}
33+
//---------------------------------------------------------------------------

0 commit comments

Comments
 (0)