Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΊΠ°Π·Π° Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ Π²ΡΡΡΠ°Π²ΠΎΡΠ½ΠΎΠ³ΠΎ ΡΡΠ΅Π½Π΄Π°
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΠΈΡΠΌΠ°Ρ ΠΈ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°Ρ ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Ρ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΌΠ°ΠΊΠ΅ΡΠ°Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°Ρ . ΠΡΠΎΡΠ΅Π΄ΡΡΠ°… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΊΠ°Π·Π° Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ Π²ΡΡΡΠ°Π²ΠΎΡΠ½ΠΎΠ³ΠΎ ΡΡΠ΅Π½Π΄Π° (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅
- Π‘ΠΠΠ‘ΠΠ Π£Π‘ΠΠΠΠΠ«Π₯ ΠΠΠΠΠΠΠ§ΠΠΠΠ Π Π‘ΠΠΠ ΠΠ©ΠΠΠΠ
- ΠΠΠΠΠΠΠΠ
- 1. 3. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
- 1. 3. 1. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ Π²Π½Π΅Π΄ΡΠ΅Π½ΠΈΡ
- 1. 3. 2. ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ
- 1. 3. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
- 2. 1. ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ±ΠΎΡΠ° ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ΅Π΄ΡΡΠ²
- 2. 3. ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ±ΠΎΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ²
- 2. 4. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΌΠΎΠ΄Π΅Π»ΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
- 2. 5. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΡΠΌ ΠΎΡΡΠ΅ΡΠ½ΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ
- 2. 6. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΠΈΡΡΠ΅ΠΌΡ
- 2. 7. ΠΡΠ±ΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΎΠ±ΠΌΠ΅Π½Π° Π΄Π°Π½Π½ΡΠΌΠΈ
- 2. 9. Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
- 2. 10. ΠΠ΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΈ Π²Π°Π»ΠΈΠ΄Π°ΡΠΈΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π·Π°ΠΊΠ°Π·Π° Π½Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ Π²ΡΡΡΠ°Π²ΠΎΡΠ½ΠΎΠ³ΠΎ ΡΡΠ΅Π½Π΄Π°
- 2. 10. 1. ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ, ΡΠ΅Π»ΠΈ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² Π²Π΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΠΈ Π²Π°Π»ΠΈΠ΄Π°ΡΠΈΠΈ
- 2. 10. 2. ΠΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΠ΅ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
- 2. 10. 2. 1. ΠΠ±ΡΠ΅ΠΊΡ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
- 2. 10. 2. 2. Π¦Π΅Π»Ρ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
- 2. 10. 2. 3. Π‘ΡΠ΅Π΄ΡΡΠ²Π° ΠΈ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
- 2. 10. 2. 4. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ
- 2. 10. 3. ΠΠ±Π·ΠΎΡ Π²Π΅ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ
- 2. 10. 3. 1. ΠΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΡ
- 2. 10. 3. 2. ΠΡΠ°ΡΠΈΠΊ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡ ΠΏΠΎ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 2. 10. 3. 3. Π Π΅Π·ΡΠΌΠ΅ ΠΏΠΎ ΡΠ΅ΡΡΡΡΠ°ΠΌ
- 2. 10. 3. 4. ΠΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎΡΡΡ
- 2. 10. 4. 1. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅ΡΠ²Π΅ΡΠ½ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΠ
- 2. 10. 4. 1. 1 ΠΠ»Π°Π½ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 2. 10. 4. 1. 2 Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
- 2. 10. 4. 2. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ»ΠΈΠ΅Π½ΡΡΠΊΠΎΠΉ ΡΠ°ΡΡΠΈ
- 2. 10. 4. 2. 1 ΠΠ»Π°Π½ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 2. 10. 4. 2. 2 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ»ΠΈΠ΅Π½ΡΡΠΊΠΎΠΉ ΡΠ°ΡΡΠΈ
- 2. 10. 4. 3. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 2. 10. 4. 3. 1 ΠΠ»Π°Π½ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 2. 10. 4. 3. 2 Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 2. 10. 5. ΠΠ½Π°Π»ΠΈΠ· ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
FormCount — 1 DownTo 0 do
if (Screen.Forms[i]. Name = FormName) then
begin
Result := True;
Break;
end;
end;
procedure TMainClientsForm. BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);
{**************************************************************ΠΠΎΠ½ΡΡΡΡΠΊΡΠΎΡ Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ
***********************************************************}
begin
//ΡΠΎΠ·Π΄Π°Π΅ΠΌ ΡΠΎΡΠΌΡ
DirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);
DirectoryForm.TableDBGrid.DataSource:=ds;
DirectoryForm.Top:=0;
DirectoryForm.Left:=0;
DirectoryForm.Caption:=sCaption;
end;
procedure TMainClientsForm. N12Click (Sender: TObject);
begin
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΡΠ°ΡΠΈΡΡ
***********************************************************}
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable9;
mainclientsform.ADOTable9.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('Π’Π°ΡΠΈΡΡ', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ΠΠ΄. ';
DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Π Π°Π±ΠΎΡΡ ';
DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' Π’Π°ΡΠΈΡ ';
end;
procedure TMainClientsForm. N6Click (Sender: TObject);
begin
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΠ°ΠΊΠ΅ΡΡ
***********************************************************}
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;
mainclientsform.ADOTable1.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('ΠΠ°ΠΊΠ΅ΡΡ', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Π½ΠΎΠΌΠ΅Ρ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='β ΠΈΠ½Ρ.';
DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='β Π΄ΠΎΠ³ΠΎΠ².';
DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ΠΈΠ΄.ΡΠ°Π·ΠΌΠ΅Ρ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ΠΈΠ΄.ΡΠΌΠ΅ΡΠ° ';
DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='ΡΠΎΡΡΠΎΡΠ½ΠΈΠ΅';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='ΠΠΎΠΊΡΡΡΠΈΠ΅';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='ΠΠ΄ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»';
end;
procedure TMainClientsForm. N7Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΠΎΠ³ΠΎΠ²ΠΎΡΡ
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;
mainclientsform.ADOTable2.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('ΠΠΎΠ³ΠΎΠ²ΠΎΡΡ', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ΠΠ΄. Π΄ΠΎΠ³ΠΎΠ²ΠΎΡΠ°';
DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' ΠΠΎΠΌΠ΅Ρ ';
DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' ΠΠ°ΡΠ° ';
DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ΠΠ. ΡΠΈΡΠΌ';
DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='ΠΠ ΠΊΠ»ΠΈΠ΅Π½Ρ';
DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='Π΄Π°ΡΠ° ΠΏΠΎΡΡΠ°Π²ΠΊΠΈ';
end;
procedure TMainClientsForm. N8Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΠ»ΠΈΠ΅Π½ΡΡ
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;
mainclientsform.ADOTable3.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('ΠΠ»ΠΈΠ΅Π½ΡΡ', mainclientsform. DataSource1);
directoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ΠΠ. ';
DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' Π€Π°ΠΌΠΈΠ»ΠΈΡ ';
DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:=' ΠΠΌΡ';
DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='ΠΡΡΠ΅ΡΡΠ²ΠΎ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ΡΠ΅Π»Π΅ΡΠΎΠ½';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Π°Π΄ΡΠ΅Ρ';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Π±Π°Π½ΠΊ';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='ΡΠ΅ΠΊΠ²ΠΈΠ·ΠΈΡ';
end;
procedure TMainClientsForm. N9Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Π‘ΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠΈΡΠΌΡ
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;
mainclientsform.ADOTable4.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('Π‘ΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠΈΡΠΌΡ', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ΠΠ΄. ';
DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='ΠΠ°Π·Π²Π°Π½ΠΈΠ΅';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Π’Π΅Π»Π΅ΡΠΎΠ½';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ΠΠ΄ΡΠ΅Ρ';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ΠΠΎΠ½ΡΠ°ΠΊΡΠ½ΠΎΠ΅ Π»ΠΈΡΠΎ';
end;
procedure TMainClientsForm. RzRapidFireButton1Click (Sender: TObject);
{**************************************************************Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ toolbuttons
***********************************************************}
begin
MainClientsForm.N3Click (Sender);
end;
procedure TMainClientsForm. RzRapidFireButton2Click (Sender: TObject);
{**************************************************************Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ toolbuttons
***********************************************************}
begin
MainClientsForm.N4Click (Sender);
end;
procedure TMainClientsForm. RzRapidFireButton3Click (Sender: TObject);
{**************************************************************Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ toolbuttons
***********************************************************}
begin
MainClientsForm.N15Click (Sender);
end;
procedure TMainClientsForm. RzRapidFireButton4Click (Sender: TObject);
{**************************************************************Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ toolbuttons
***********************************************************}
begin
MainClientsForm.N14Click (Sender);
end;
procedure TMainClientsForm. RzRapidFireButton5Click (Sender: TObject);
{**************************************************************Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ toolbuttons
***********************************************************}
begin
MainClientsForm.Close;
end;
procedure TMainClientsForm. N10Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΡΠ΅Π½Π΄Π΅
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;
mainclientsform.ADOTable5.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΡΠ΅Π½Π΄Π΅', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ΠΠ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅ ';
end;
procedure TMainClientsForm. N20Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Π Π°Π·ΠΌΠ΅ΡΡ
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;
mainclientsform.ADOTable6.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('Π Π°Π·ΠΌΠ΅ΡΡ', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ΠΠ';
DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='ΠΠ»ΠΈΠ½Π° ';
DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Π¨ΠΈΡΠΈΠ½Π°';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Π’ΠΎΠ»ΡΠΈΠ½Π°';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Π²ΡΡΠΎΡ. ΠΊΡΠ΅ΠΏΠ»Π΅Π½';
DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='ΠΠΎΠΏ. ΡΠ°Π·ΠΌΠ΅Ρ';
DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:='Π²Π΅Π»ΠΈΡΠΈΠ½Π°';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='ΠΠΎΠΏ ΡΠ°Π·ΠΌΠ΅Ρ2';
DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='ΠΠ΅Π»ΠΈΡΠΈΠ½Π°';
DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='ΠΠ»ΠΎΡΠ°Π΄Ρ';
end;
procedure TMainClientsForm. N21Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΈΠΊ Π‘ΠΌΠ΅ΡΡ
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;
mainclientsform.ADOTable7.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem ('Π‘ΠΌΠ΅ΡΠ°', mainclientsform. DataSource1);
DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:=' ΠΠ ';
DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:=' ΡΡΠΌΠΌΠ°';
DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='ΠΌΠ°ΡΠ΅Ρ.';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ΡΠ°Π±ΠΎΡ.';
//DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ΠΊΡΠ΄Π°';
DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='β ΡΠ°ΡΠΈΡ';
DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='ΠΡΠΈΠΌΠ΅ΡΠ°Π½ΠΈΠ΅';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='ΠΠΎΠΊΡΡΡΠΈΡΠ΅';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='ΠΡΠ½ΠΎΠ²Π°';
DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='ΠΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅';
end;
procedure TMainClientsForm. N22Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
***********************************************************}
begin
IsMDIChildOpen (MainClientsForm,'addForm');
IsMDIChildOpen (MainClientsForm,'addForm');
mainflag:=false;
MainClientsForm.N6Click (sender);
prosmForm:=Taddform.Create (Owner);
prosmForm.Top:=230;
prosmForm.Left:=0;
prosmForm.Width:=500;
prosmForm.Height:=200;
prosmForm.Caption:='ΠΏΡΠΎΡΠΌΠΎΡΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ';
mainflag:=true;
prosmForm.Show;
prosmForm.Button1.Visible:=false;
prosmForm.GroupBox3.Visible:=true;
prosmForm.GroupBox1.Visible:=false;
prosmForm.GroupBox2.Visible:=false;
prosmForm.GroupBox4.Visible:=false;
MainClientsForm.DataSource1.DataSet.last;
end;
procedure TMainClientsForm. FormCreate (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ Π³Π»Π°Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Ρ ΡΠ°Π±Π»ΠΈΡΠ°ΠΌΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
***********************************************************}
var NewConnection: Widestring;
begin
NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);
MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;
MainClientsForm.ADOConnection1.Connected:=true;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable8.Active:=true;
end;
procedure TMainClientsForm. N3Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°
***********************************************************}
var dobForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen (MainClientsForm,'addForm');
dobForm:=Taddform.Create (Owner);
dobForm.Top:=240;
dobForm.Left:=3;
dobForm.Caption:='Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°';
dobForm.Show;
dobForm.Button1.Visible:=true;
dobForm.GroupBox1.Visible:=false;
dobForm.GroupBox3.Visible:=false;
dobForm.GroupBox4.Visible:=false;
end;
procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;
Field: TField);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΠΏΠΈΡΠΈ ΠΏΡΠΈ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ
***********************************************************}
begin
if mainflag then
begin
prosmForm.edit5.text:='';
prosmForm.edit50.text:='';
prosmForm.edit51.text:='';
prosmForm.edit47.text:='';
prosmForm.edit17.text:='';
prosmForm.edit4.text:='';
prosmForm.edit3.text:='';
prosmForm.edit53.text:='';
prosmForm.edit55.text:='';
prosmForm.edit49.text:='';
prosmForm.edit54.text:='';
prosmForm.edit7.text:='';
prosmForm.edit47.text:='';
prosmForm.edit44.text:='';
prosmForm.edit39.text:='';
prosmForm.edit37.text:='';
prosmForm.edit41.text:='';
prosmForm.edit35.text:='';
prosmForm.edit20.text:='';
prosmForm.edit41.text:='';
prosmForm.edit45.text:='';
prosmForm.edit46.text:='';
prosmForm.edit48.text:='';
id_inform:=MainClientsForm.ADOTable1.FieldByName ('id_inform').AsInteger;
id_dogovor:=MainClientsForm.ADOTable1.FieldByName ('id_dogovor').AsInteger;
id_razmer:=MainClientsForm.ADOTable1.FieldByName ('id_razmer').AsInteger;
id_smeta:=MainClientsForm.ADOTable1.FieldByName ('id_smeta').AsInteger;
status:=MainClientsForm.ADOTable1.FieldByName ('status').asstring;
pokrut1:=MainClientsForm.ADOTable1.FieldByName ('pokrut').asstring;
id_stroit_mat:=MainClientsForm.ADOTable1.FieldByName ('id_stroit_mat').AsInteger;
prosmForm.edit41.text:=inttostr (id_inform);
prosmForm.edit45.text:=inttostr (id_stroit_mat);
prosmForm.edit48.text:=status;
prosmForm.edit46.text:=pokrut1;
sql_str:='SELECT * from informac where id_inform= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_inform;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add (sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
inform:=MainClientsForm.ADOQuery1.FieldByName ('inform').AsString;
prosmForm.Edit5.Text:=inform;
naznach:=MainClientsForm.ADOQuery1.FieldByName ('naznach').AsString;
prosmForm.Edit50.Text:=naznach;
notes:=MainClientsForm.ADOQuery1.FieldByName ('notes').AsString;
prosmForm.Edit51.Text:=notes;
sql_str:='SELECT * from razmer where id_ramer= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_razmer;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add (sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
dlina:=MainClientsForm.ADOQuery1.FieldByName ('dlina').Asfloat;
prosmForm.Edit47.Text:=floattostr (dlina);
shirina:=MainClientsForm.ADOQuery1.FieldByName ('shirina').Asfloat;
prosmForm.Edit17.Text:=floattostr (shirina);
tolshina:=MainClientsForm.ADOQuery1.FieldByName ('tolshina').Asfloat;
prosmForm.Edit4.Text:=floattostr (tolshina);
vusota_kreplen:=MainClientsForm.ADOQuery1.FieldByName ('tolshina').Asfloat;
prosmForm.Edit3.Text:=floattostr (vusota_kreplen);
ploshad:=MainClientsForm.ADOQuery1.FieldByName ('ploshad').Asfloat;
prosmForm.Edit49.Text:=floattostr (ploshad);
dop_razmer_zn1:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer_zn1').Asfloat;
prosmForm.Edit53.Text:=floattostr (dop_razmer_zn1);
dop_razmer_zn2:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer_zn2').Asfloat;
prosmForm.Edit55.Text:=floattostr (dop_razmer_zn2);
dop_razmer1:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer1').AsString;
prosmForm.Edit54.Text:=dop_razmer1;
dop_razmer2:=MainClientsForm.ADOQuery1.FieldByName ('dop_razmer2').AsString;
prosmForm.Edit7.Text:=dop_razmer2;
sql_str:='SELECT * from smeta where id_smeta= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=id_smeta;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add (sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
smeta:=MainClientsForm.ADOQuery1.FieldByName ('smeta').Asfloat;
prosmForm.Edit38.Text:=floattostr (smeta);
mater:=MainClientsForm.ADOQuery1.FieldByName ('mater').Asfloat;
prosmForm.Edit44.Text:=floattostr (mater);
rabot:=MainClientsForm.ADOQuery1.FieldByName ('rabot').Asfloat;
prosmForm.Edit39.Text:=floattostr (rabot);
id_tarif:=MainClientsForm.ADOQuery1.FieldByName ('id_tarif').AsInteger;
prosmForm.Edit20.Text:=inttostr (id_tarif);
pokrut:=MainClientsForm.ADOQuery1.FieldByName ('pokrut').Asfloat;
prosmForm.Edit37.Text:=floattostr (pokrut);
osnova:=MainClientsForm.ADOQuery1.FieldByName ('osnova').Asfloat;
prosmForm.Edit31.Text:=floattostr (osnova);
kreplen:=MainClientsForm.ADOQuery1.FieldByName ('kreplen').Asfloat;
prosmForm.Edit35.Text:=floattostr (kreplen);
end;
end;
procedure TMainClientsForm. N4Click (Sender: TObject);
var zakForm: Taddform;
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΌΠ°ΠΊΠ΅ΡΠ°
***********************************************************}
begin
mainflag:=false;
IsMDIChildOpen (MainClientsForm,'zakForm');
IsMDIChildOpen (MainClientsForm,'addForm');
zakForm:=Taddform.Create (Owner);
zakForm.Top:=240;
zakForm.Left:=3;
zakForm.Caption:='Π½ΠΎΠ²ΡΠΉ ΠΌΠ°ΠΊΠ΅Ρ';
zakForm.Show;
zakForm.Button1.Visible:=true;
zakForm.GroupBox1.Visible:=false;
zakForm.GroupBox2.Visible:=false;
zakForm.GroupBox4.Visible:=false;
zakForm.GroupBox3.Visible:=true;
zakForm.GroupBox3.Left:=2;
zakForm.GroupBox3.Top:=2;
end;
procedure TMainClientsForm. N14Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° ΠΌΠ°ΠΊΠ΅ΡΠ°
***********************************************************}
var poisk: Tparampoik;
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addform');
IsMDIChildOpen (MainClientsForm,'parampoik');
poisk:=Tparampoik.Create (Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='ΠΏΠΎΠΈΡΠΊ ΠΌΠ°ΠΊΠ΅ΡΠ°';
nomer_poisk:=1;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;
procedure TMainClientsForm. N15Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠΈΡΠΊΠ° ΠΊΠ»ΠΈΠ΅Π½ΡΠ°
***********************************************************}
var poisk: Tparampoik;
begin
IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen (MainClientsForm,'addform');
IsMDIChildOpen (MainClientsForm,'parampoik');
poisk:=Tparampoik.Create (Owner);
poisk.Left:=530;
poisk.Top:=3;
poisk.Width:=300;
poisk.Caption:='ΠΏΠΎΠΈΡΠΊ ΠΊΠ»ΠΈΠ΅Π½ΡΠ° ';
nomer_poisk:=2;
poisk.Label2.Visible:=false;
poisk.Label3.Visible:=false;
poisk.Label7.Visible:=false;
poisk.Edit2.Visible:=false;
poisk.Edit3.Visible:=false;
poisk.Edit4.Visible:=false;
poisk.Edit5.Visible:=false;
poisk.Edit6.Visible:=false;
poisk.Edit7.Visible:=false;
poisk.Label1.Caption:='Π€Π°ΠΌΠΈΠ»ΠΈΡ';
poisk.UpDown1.Visible:=false;
poisk.UpDown2.Visible:=false;
poisk.UpDown3.Visible:=false;
poisk.UpDown4.Visible:=false;
end;
procedure TMainClientsForm. Button1Click (Sender: TObject);
begin
MainClientsForm.N22Click (sender);
end;
end.
{**************************************************************** ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ addsorce. pas
******************************************************************}
unit addsorce;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,
StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls, DBCtrls, comobj;
type
TaddForm = class (TForm)
Panel1: TPanel;
GroupBox3: TGroupBox;
GroupBox2: TGroupBox;
Button1: TButton;
Label30: TLabel;
Label27: TLabel;
Label23: TLabel;
Label18: TLabel;
Label15: TLabel;
Edit18: TEdit;
Edit21: TEdit;
Edit26: TEdit;
Label25: TLabel;
Edit28: TEdit;
Label33: TLabel;
Edit36: TEdit;
Edit30: TEdit;
Edit33: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
Label12: TLabel;
Label42: TLabel;
Label45: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label54: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit17: TEdit;
Edit44: TEdit;
Edit45: TEdit;
Edit46: TEdit;
Edit47: TEdit;
Edit48: TEdit;
Edit49: TEdit;
Edit50: TEdit;
Edit51: TEdit;
Edit53: TEdit;
Edit54: TEdit;
Edit55: TEdit;
Label55: TLabel;
Button2: TButton;
Label3: TLabel;
Edit3: TEdit;
Label10: TLabel;
Edit7: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label13: TLabel;
Label17: TLabel;
Label19: TLabel;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit9: TEdit;
Edit11: TEdit;
Edit14: TEdit;
GroupBox4: TGroupBox;
Label8: TLabel;
Edit6: TEdit;
Label11: TLabel;
Edit8: TEdit;
Label14: TLabel;
Edit10: TEdit;
Label20: TLabel;
Edit12: TEdit;
Label22: TLabel;
Edit13: TEdit;
Edit15: TEdit;
Label26: TLabel;
Edit16: TEdit;
Button4: TButton;
Label24: TLabel;
DBNavigator2: TDBNavigator;
Button5: TButton;
Label16: TLabel;
Edit19: TEdit;
Label21: TLabel;
Edit24: TEdit;
Label29: TLabel;
Edit27: TEdit;
Label28: TLabel;
Edit20: TEdit;
Label32: TLabel;
Label34: TLabel;
Edit31: TEdit;
Label35: TLabel;
Edit35: TEdit;
Label36: TLabel;
Label41: TLabel;
Edit37: TEdit;
Edit38: TEdit;
Label43: TLabel;
Edit39: TEdit;
Label52: TLabel;
Edit41: TEdit;
procedure Button5Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
addForm: TaddForm;
naim:string;
ed_izm:string;
kolvo:integer;
cena:real;
nomerpartiya:string;
sernum:string;
srok_godnost:tdate;
data_postavka:tdate;
postavchik:string;
description:string;
location:string;
location_part:string;
primech:string;
Ayear, amonth, aday: word;
razmer_part, kol: integer;
id_part, idaddional, idlocation, idzapas: integer;
idtov, id_proffesiya:integer;
Familiya, imya, otchestvo, pasportnomer, pasportvudan: string;
dogovor_nomer:string;
data_dog, okonch: tdatetime;
id_operac:integer;
implementation
uses MainClients;
{$R *.dfm}
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΠ΅ Π΄ΠΎΡΠ΅ΡΠ½Π΅ΠΉ ΡΠΎΡΠΌΡ
***********************************************************}
procedure TaddForm. FormClose (Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°Ρ
***********************************************************}
procedure TaddForm. Button1Click (Sender: TObject);
var bank, revizit: string;
begin
Familiya:=edit18.Text;
imya:=edit21.Text;
otchestvo:=edit26.Text;
adres:=edit30.Text;
bank:=edit33.Text;
revizit:=edit36.Text;
dom_tel:=edit28.Text;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable3.Insert;
MainClientsForm.ADOTable3.FieldByName ('fam').AsString:=Familiya;
MainClientsForm.ADOTable3.FieldByName ('nam').AsString:=imya;
MainClientsForm.ADOTable3.FieldByName ('sec_nam').AsString:=otchestvo;
MainClientsForm.ADOTable3.FieldByName ('adres').AsString:=adres;
MainClientsForm.ADOTable3.FieldByName ('telefon').AsString:=dom_tel;
MainClientsForm.ADOTable3.FieldByName ('bank').AsString:=bank;
MainClientsForm.ADOTable3.FieldByName ('rekvizit').AsString:=revizit;
MainClientsForm.ADOTable3.Post;
id_client:=MainClientsForm.ADOTable3.FieldByName ('id_client').AsInteger;
{dogovor_nomer:=Edit33.text;
data_dog:=strtodate (edit36.Text);
okonch:=strtodate (edit37.Text);
id_operac:=strtoint (edit39.Text);
notes:= Edit38. text;
MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable7.Insert;
MainClientsForm.ADOTable7.FieldByName ('id_client').AsInteger:=id_client;
MainClientsForm.ADOTable7.FieldByName ('nomer').AsString:=dogovor_nomer;
MainClientsForm.ADOTable7.FieldByName ('date').AsDateTime:=data_dog;
MainClientsForm.ADOTable7.FieldByName ('konec').AsDateTime:=okonch;
MainClientsForm.ADOTable7.FieldByName ('id_operacyia').AsInteger:=id_operac;
MainClientsForm.ADOTable7.FieldByName ('notes').AsString:=notes;
MainClientsForm.ADOTable7.Post;}
end;
procedure TaddForm. Button2Click (Sender: TObject);
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΌΠ°ΠΊΠ΅ΡΠ°Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ
***********************************************************}
begin
inform:= edit5. text; ;
naznach:=edit50.text;;
notes:=edit51.text;;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable5.Insert;
MainClientsForm.ADOTable5.FieldByName ('inform').AsString:= inform;
MainClientsForm.ADOTable5.FieldByName ('naznach').AsString:= naznach;
MainClientsForm.ADOTable5.FieldByName ('notes').AsString:= notes;
MainClientsForm.ADOTable5.Post;
id_inform:=MainClientsForm.ADOTable5.FieldByName ('id_inform').AsInteger;
dlina:=strtofloat (edit47.Text);
shirina:=strtofloat (edit17.Text);
tolshina:=strtofloat (edit4.Text);
vusota_kreplen:=strtofloat (edit3.Text);
dop_raz_zn1:=strtofloat (edit53.Text);
dop_raz_zn2:=strtofloat (edit55.Text);
ploshad:=strtofloat (edit49.Text);
dop_razmer1:=edit54.Text;
dop_razmer2:=edit7.Text;
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable6.Insert;
MainClientsForm.ADOTable6.FieldByName ('dop_razmer1').AsString:= dop_razmer1;
MainClientsForm.ADOTable6.FieldByName ('dop_razmer2').AsString:= dop_razmer2;
MainClientsForm.ADOTable6.FieldByName ('dlina').AsFloat:=dlina;
MainClientsForm.ADOTable6.FieldByName ('shirina').AsFloat:=shirina;
MainClientsForm.ADOTable6.FieldByName ('tolshina').AsFloat:= tolshina;
MainClientsForm.ADOTable6.FieldByName ('vusota_kreplen').AsFloat:=vusota_kreplen;
MainClientsForm.ADOTable6.FieldByName ('dop_razmer_zn1').AsFloat:=dop_raz_zn1;
MainClientsForm.ADOTable6.FieldByName ('dop_razmer_zn2').AsFloat:=dop_raz_zn2;
MainClientsForm.ADOTable6.FieldByName ('ploshad').AsFloat:=dlina;
MainClientsForm.ADOTable6.Post;
id_razmer:= MainClientsForm. ADOTable6.FieldByName ('id_ramer').AsInteger;
smeta:= strtofloat (edit47.Text);
mater:=strtofloat (edit44.Text);
rabot:=strtofloat (edit39.Text);
pokrut:=strtofloat (edit37.Text);
osnova:=strtofloat (edit31.Text);
kreplen:=strtofloat (edit35.Text);
id_tarif:=strtoint (edit20.Text);
MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable7.Insert;
MainClientsForm.ADOTable7.FieldByName ('id_tarif').AsInteger:= id_tarif;
MainClientsForm.ADOTable7.FieldByName ('smeta').AsFloat:=smeta;
MainClientsForm.ADOTable7.FieldByName ('mater').AsFloat:=mater;
MainClientsForm.ADOTable7.FieldByName ('rabot').AsFloat:=rabot;
MainClientsForm.ADOTable7.FieldByName ('pokrut').AsFloat:=pokrut;
MainClientsForm.ADOTable7.FieldByName ('osnova').AsFloat:=osnova;
MainClientsForm.ADOTable7.FieldByName ('kreplen').AsFloat:=kreplen;
MainClientsForm.ADOTable7.Post;
id_smeta:=MainClientsForm.ADOTable7.FieldByName ('id_smeta').AsInteger;
id_dogovor:=strtoint (edit41.Text);
id_stroit_mat:=strtoint (edit45.Text);
status:=edit48.Text;
pokrut1:=edit46.Text;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable1.Insert;
MainClientsForm.ADOTable1.FieldByName ('id_inform').AsInteger:= id_inform;
MainClientsForm.ADOTable1.FieldByName ('id_dogovor').AsInteger:= id_dogovor;
MainClientsForm.ADOTable1.FieldByName ('id_razmer').AsInteger:= id_razmer;
MainClientsForm.ADOTable1.FieldByName ('id_smeta').AsInteger:= id_smeta;
MainClientsForm.ADOTable1.FieldByName ('status').asstring:=status;
MainClientsForm.ADOTable1.FieldByName ('pokrut').asstring:=pokrut1;
MainClientsForm.ADOTable1.FieldByName ('id_stroit_mat').AsInteger:= id_stroit_mat;
MainClientsForm.ADOTable1.Post;
end;
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΠΈΡΠΌΠ°Ρ ΠΈ ΠΊΠ»ΠΈΠ΅Π½ΡΠ°Ρ ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ
***********************************************************}
procedure TaddForm. Button3Click (Sender: TObject);
var tovar, srtkl, name_poisk, sqlwhere, stroka_SQL :string;
p1:tparameter;
firm1:string;
kontakt, nomer_dog:string;
id_firm:integer;
datad, datak: tdatetime;
begin
firm1:=edit1.Text;
kontakt:=edit2.Text;
adres:=edit11.Text;
dom_tel:=edit14.Text;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Insert;
MainClientsForm.ADOTable4.FieldByName ('firm').AsString:=Firm1;
MainClientsForm.ADOTable4.FieldByName ('adres').AsString:=adres;
MainClientsForm.ADOTable4.FieldByName ('telefon').AsString:=dom_tel;
MainClientsForm.ADOTable4.FieldByName ('konakt').AsString:=kontakt;
MainClientsForm.ADOTable4.Post;
id_firm:= MainClientsForm. ADOTable4.FieldByName ('id_firm').AsInteger;
nomer_dog:=edit1.Text;
datad:=strtodate (edit19.Text);
id_client:=strtoint (edit24.Text);
datak:=strtodate (edit27.Text);
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable2.Insert;
MainClientsForm.ADOTable2.FieldByName ('nomer').AsString:=nomer_dog;
MainClientsForm.ADOTable2.FieldByName ('data').AsDateTime:=datad;
MainClientsForm.ADOTable2.FieldByName ('id_firm').AsInteger:= id_firm;
MainClientsForm.ADOTable2.FieldByName ('id_client').AsInteger:= id_client;
MainClientsForm.ADOTable2.FieldByName ('data_k').AsDateTime:=datak;
MainClientsForm.ADOTable2.Post;
end;
{**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π΄Π»Ρ Π²ΡΠ΄Π°ΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΡΡΠΎΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Π°Ρ
***********************************************************}
procedure TaddForm. Button4Click (Sender: TObject);
var data_sd:tdatetime;
id_object:integer;
stoimz:real;
tarif:real;
dog1,dog2:integer;
id_operac:integer;
data_prim:tdatetime;
naimen, edinica, proizvod, notes, rabot: string;
begin
naimen:=(edit6.text);
edinica:=(edit13.text);
proizvod:=(edit8.text);
notes:=(edit10.text);
stoimz:=strtofloat (edit12.text);
tarif:=strtofloat (edit16.text);
rabot:=edit15.text;
MainClientsForm.ADOTable8.Active:=true;
MainClientsForm.ADOTable8.Insert;
MainClientsForm.ADOTable8.FieldByName ('naimen').AsString:= naimen;
MainClientsForm.ADOTable8.FieldByName ('edinica').AsString:= edinica;
MainClientsForm.ADOTable8.FieldByName ('proizvod').AsString:= proizvod;
MainClientsForm.ADOTable8.FieldByName ('notes').AsString:= notes;
MainClientsForm.ADOTable8.FieldByName ('stoimz').AsFloat:=stoimz;
MainClientsForm.ADOTable8.Post;
MainClientsForm.ADOTable9.Active:=true;
MainClientsForm.ADOTable9.Insert;
MainClientsForm.ADOTable9.FieldByName ('rabot').AsString:= rabot;
MainClientsForm.ADOTable9.FieldByName ('tarif').AsFloat:=tarif;
MainClientsForm.ADOTable9.Post;
end;
{**************************************************************
**************************************************************ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΠΈΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ Π² Excell ΠΈ ΡΠ°ΡΡΠ΅Ρ ΡΠΌΠ΅ΡΡ
***********************************************************}
procedure TaddForm. Button5Click (Sender: TObject);
var
XlApplication: OleVariant;
XLWorkSheet: OleVariant;
stoim:real;
begin
try
XlApplication := GetActiveOleObject ('Excel.Application');
except
XlApplication := CreateOleObject ('Excel.Application');
end;
XlApplication.Workbooks.Open[ExtractFilePath (Application.ExeName)+'act.xlt', 0, true];
XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
//xlWorkSheet.Range['B1:F1'];
XLWorkSheet.cells[3,3]: =inform;
XLWorkSheet.cells[4,3]: =naznach;
XLWorkSheet.cells[5,3]: =notes;
XLWorkSheet.cells[6,3]: =status;
XLWorkSheet.cells[7,3]: =pokrut;
XLWorkSheet.cells[9,3]: =floattostr (dlina);
XLWorkSheet.cells[10,3]: =floattostr (shirina);
XLWorkSheet.cells[11,3]: =floattostr (tolshina);
XLWorkSheet.cells[12,2]: =dop_razmer1;
XLWorkSheet.cells[13,2]: =dop_razmer2;
XLWorkSheet.cells[12,3]: =floattostr (dop_raz_zn1);
XLWorkSheet.cells[13,3]: =floattostr (dop_raz_zn2);
XLWorkSheet.cells[14,3]: =floattostr (ploshad);
XLWorkSheet.cells[17,3]: =floattostr (mater);
XLWorkSheet.cells[18,3]: =floattostr (osnova);
XLWorkSheet.cells[19,3]: =floattostr (pokrut);
XLWorkSheet.cells[20,3]: =floattostr (kreplen);
XLWorkSheet.cells[21,3]: =floattostr (rabot);
stoim:=(mater+osnova+pokrut)*ploshad+kreplen+rabot;
XLWorkSheet.cells[22,3]: =floattostr (stoim);
end;
end.
ParamPoisk.pas
AddSource.pas
DbdDirectoryTemplate
childTemplate.pas
ΠΠ»Π°Π²Π½Π°Ρ ΡΠΎΡΠΌΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ MainClients
ΠΡΠΎΠ΅ΠΊΡ stend
Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
- ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π.Π―. 100 ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΎΠ±ΡΠ΅Π³ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ Delphi 5. — Π.: ΠΠΈΠ½ΠΎΠΌ, 1999. — 266 Ρ.
- ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π.Π―. Delphi 6. Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅. — Π.: ΠΠΈΠ½ΠΎΠΌ, 2001. — 1024 Ρ.
- ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π.Π―. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi 6. — Π.: ΠΠΈΠ½ΠΎΠΌ, 2001. — 564 Ρ.
- ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π.Π―. Π―Π·ΡΠΊ SQL Π² Delphi 5. — Π.: ΠΠΈΠ½ΠΎΠΌ, 2000. — 205 Ρ.
- ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ : ΠΌΠΎΠ΄Π΅Π»ΠΈ, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ°, ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ / ΠΠ°ΡΠΏΠΎΠ²Π° Π’.- Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2001. -304Ρ.
- ΠΠ΅Π»ΠΎΠ² Π.Π. ΠΡΡ Π³Π°Π»ΡΠ΅ΡΡΠΊΠΈΠΉ ΡΡΠ΅Ρ Π² ΡΡΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΡΡ Π½Π΅ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΡΡ. — Π.: Π€ΠΈΠ½Π°Π½ΡΡ ΠΈ ΡΡΠ°ΡΠΈΡΡΠΈΠΊΠ°, 1995. — 240Ρ.
- ΠΡΡ Π. ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°ΠΌΠΈ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ. Π., 1992. — 654Ρ.
- ΠΠΎΠ»ΠΊΠΎΠ² Π. Π€. ΠΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ° ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ. — Π.: ΠΠΈΡΠ°-ΠΡΠ΅ΡΡ, 1998. — 380Ρ.
- ΠΠ°Π»Π°ΡΠ΅Π½ΠΊΠΎ Π. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½Π°Ρ Π±Π΅Π·ΠΎΠΏΠ°ΡΠ½ΠΎΡΡΡ // ΠΡΠΊΡΡΡΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ- 1996. — N 1−4.
- ΠΠ»ΡΡΠ°ΠΊΠΎΠ² Π‘.Π., ΠΠΎΠΌΠΎΡΡΠΊΠΎ Π. Π. ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ .- Π₯.: Π€ΠΎΠ»ΠΈΠΎ, 2002. — 504 Ρ.
- ΠΠΎΠ»ΡΠ±ΠΊΠΎΠ² Π.Π. ΠΠ°ΡΠΊΠ΅ΡΠΈΠ½Π³: ΡΡΡΠ°ΡΠ΅Π³ΠΈΠΈ, ΠΏΠ»Π°Π½Ρ, ΡΡΡΡΠΊΡΡΡΡ. Π., ΠΠ΅Π»ΠΎ, 1995. — 450Ρ.
- ΠΠΎΠ»ΡΠ±ΠΊΠΎΠ² Π.Π. ΠΠ°ΡΠΊΠ΅ΡΠΈΠ½Π³ΠΎΠ²ΡΠ΅ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ: ΡΠ΅ΠΎΡΠΈΡ, ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ»ΠΎΠ³ΠΈΡ ΠΈ ΠΏΡΠ°ΠΊΡΠΈΠΊΠ°. Π., Π€ΠΈΠ½ΠΏΡΠ΅ΡΡ, 1998. — 280Ρ.
- ΠΠΎΡΠΌΠ°Π½ Π.Π. Π₯ΠΎΠΌΠΎΠ½Π΅Π½ΠΊΠΎ Π.Π. Delphi 5. — Π‘ΠΠ±.: — Π‘Π°Π½ΠΊΠΈ-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2000. -800Ρ.
- ΠΠΎΡΠΌΠ°Π½ Π.Π. Π₯ΠΎΠΌΠΎΠ½Π΅Π½ΠΊΠΎ Π.Π. Delphi 6. — Π‘ΠΠ±.: — Π‘Π°Π½ΠΊΠΈ-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2001. -1145Ρ.
- ΠΠ°ΠΉΠ°Π½ Π. ΠΈ Π΄Ρ. ΠΠ°ΡΠΊΠ΅ΡΠΈΠ½Π³. Π., ΠΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ°, 1993.
- ΠΠΈΠ΄Π΅ΡΠΊΠΈΠΉ Π. Π¦. ΠΡ ΡΠ°Π½Π° ΡΡΡΠ΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ². — Π.: «ΠΡΠ²Π³Π³Π°», 1999.- 186Ρ.
- ΠΡΡΠΎΠ²Π° Π.Π£. ΠΡΠ΄ΠΆΠ΅ΡΠ½ΡΠΉ ΡΡΠ΅Ρ ΠΈ ΠΎΡΡΠ΅ΡΠ½ΠΎΡΡΡ. Π.: Π€ΠΈΠ½Π°Π½ΡΡ, 1970.-215Ρ.
- ΠΠΎΠ²Π°Π»Π΅Π² Π. Π., ΠΠΎΠΉΠ»Π΅Π½ΠΊΠΎ Π. Π. ΠΠ°ΡΠΊΠ΅ΡΠΈΠ½Π³ΠΎΠ²ΡΠΉ Π°Π½Π°Π»ΠΈΠ·. Π., Π¦Π΅Π½ΡΡ ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠΈ ΠΈ ΠΌΠ°ΡΠΊΠ΅ΡΠΈΠ½Π³Π°, 1996.
- ΠΠΎΠ½Π½ΠΎΠ»ΠΈ Π’ΠΎΠΌΠ°Ρ, ΠΠ΅Π³Π³ ΠΠ°ΡΠΎΠ»ΠΈΠ½. ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΈ ΡΠΎΠΏΡΠΎΠ²ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅. Π’Π΅ΠΎΡΠΈΡ ΠΈ ΠΏΡΠ°ΠΊΡΠΈΠΊΠ°. — Π.: ΠΠΈΠ»ΡΡΠΌΡ, 2000. — 1111 Ρ.
- ΠΡΠ»ΡΡΠΈΠ½ Π.Π. Delphi 6: ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° OBJECT PASCAL. — Π.: ΠΠΈΠ½ΠΎΠΌ, 2001. — 526 Ρ.
- ΠΡΠ»ΡΡΠΈΠ½ Π.Π. Delphi 7: ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° OBJECT PASCAL. — Π.: ΠΠΈΠ½ΠΎΠΌ, 2003. — 535 Ρ.
- ΠΠ°Π³Π½ΡΡ Π―.Π ., ΠΠ°ΡΡΡΠ΅Π² Π. Π., ΠΠ΅ΡΠ΅ΡΠ΅ΡΠΊΠΈΠΉ Π. Π. ΠΠΊΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΠΊΠ°. ΠΠ°ΡΠ°Π»ΡΠ½ΡΠΉ ΠΊΡΡΡ. Π., ΠΠ΅Π»ΠΎ, 1997
- ΠΠ°ΠΊΠ»Π°ΠΊΠΎΠ² Π‘.Π. BPwin ΠΈ ERwin. CASE-ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ. — Π.: ΠΠΈΠ°Π»ΠΎΠ³-ΠΠΈΡΠΈ, 2001. — 304 Ρ.
- ΠΠ°ΡΠ²Π΅Π΅Π²Π° Π.Π. ΠΡΠ΄ΠΆΠ΅ΡΠ½ΡΠ΅ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ: Π±ΡΡ Π³Π°Π»ΡΠ΅ΡΡΠΊΠΈΠΉ ΡΡΠ΅Ρ ΠΈ Π½Π°Π»ΠΎΠ³ΠΎΠΎΠ±Π»Π°ΠΆΠ΅Π½ΠΈΠ΅. -Π₯Π°ΡΡΠΊΠΎΠ²: Π€Π°ΠΊΡΠΎΡ, 2001. — 566Ρ.
- Π’ΡΡΡΠΈΠ½ Π‘. ΠΠ±Π·ΠΎΡ ΠΠ‘Π£Π Π΄Π»Ρ ΠΌΠ°Π»ΠΎΠ³ΠΎ Π±ΠΈΠ·Π½Π΅ΡΠ°. Π€ΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ // ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·ΡΠ΅Π½ΠΈΠ΅ № 17 (286), 2001. Ρ.22−27. // www. ITC-UA.COM
- Π€Π°ΡΡΠ΅Π»Π» Π ., Π¨Π°ΡΠ΅Ρ Π. Π¨Π°ΡΠ΅Ρ Π. Π£ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°ΠΌΠΈ: Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° ΠΏΡΠΈ ΠΌΠΈΠ½ΠΈΠΌΡΠΌΠ΅ Π·Π°ΡΡΠ°Ρ. Π.: «ΠΠΈΠ»ΡΡΠΌΡ», 2003. — 1128Ρ.
- Π§Π΅ΡΠ½ΠΈΠΊΠΎΠ² Π. ΠΠΎΠ·Π΄Π½ΡΠΊΠΎΠ² Π. ΠΡ Π±ΡΡ Π³Π°Π»ΡΠ΅ΡΠΈΠΈ ΠΏΠΎΠ΄ Windows ΠΊ ΠΎΡΠΊΡΡΡΡΠΌ Unix-ΡΠΈΡΡΠ΅ΠΌΠ°ΠΌ // ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΠ·ΡΠ΅Π½ΠΈΠ΅ № 34 (402), 2003. Ρ.22−27. www. ITC-UA.COM
- Π¨ΡΠΌΠ°ΠΊΠΎΠ² Π.Π., Π€Π°ΡΠΎΠ½ΠΎΠ² Π.Π. Delphi 5. Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° Π±Π°Π· Π΄Π°Π½Π½ΡΡ . — Π.: ΠΠΎΠ»ΠΈΠ΄ΠΆ, 2000. — 635 Ρ.