М.: Просвещение, 2004. p> Марченко А.І. Програмування в середовищі T. Pascal. - Київ: Юніор, 1997. p> Немнюгин С. А. Програмування на мові високого рівня. - М.: Просвещение, 1996. p> Вендров А. М. Проектування програмного забезпечення економічних інформаційних систем. - М.: Фінанси і статистика, 2000. - 352 с. p> Соммервіл І. Інженерія програмного забезпечення. - М.: СПб.: Київ: Вид. Дім «³льямсВ», 2002. - 624 с. p> Додаток А
Вхідні документи
Додаток Б
Текст програми
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {Form4},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
Unit12 in 'Unit12.pas' {Form12},
Unit13 in 'Unit13.pas' {Form13},
Unit11 in 'Unit11.pas' {Form11},
Unit16 in 'Unit16.pas' {Form16},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit5 in 'Unit5.pas' {Form5},
Unit15 in 'Unit15.pas' {Form15},
Unit17 in 'Unit17.pas' {Form17},
Unit18 in 'Unit18.pas' {Form18},
Unit19 in 'Unit19.pas' {Form19},
Unit20 in 'Unit20.pas' {Form20},
Unit21 in 'Unit21.pas' {Form21},
Unit22 in 'Unit22.pas' {Form22},
Unit10 in 'Unit10.pas' {Form10},
Unit14 in 'Unit14.pas' {Form14};
{$ R *. res}
begin
Application.Initialize;
Application.Title: = 'УралСтройМонтаж';
Application.CreateForm (TForm1, Form1);
Application.CreateForm (TForm2, Form2);
Application.CreateForm (TForm3, Form3);
Application.CreateForm (TForm4, Form4);
Application.CreateForm (TForm6, Form6);
Application.CreateForm (TForm7, Form7);
Application.CreateForm (TForm12, Form12);
Application.CreateForm (TForm13, Form13);
Application.CreateForm (TForm11, Form11);
Application.CreateForm (TForm16, Form16);
Application.CreateForm (TForm8, Form8);
Application.CreateForm (TForm9, Form9);
Application.CreateForm (TForm5, Form5);
Application.CreateForm (TForm15, Form15);
Application.CreateForm (TForm17, Form17);
Application.CreateForm (TForm18, Form18);
Application.CreateForm (TForm19, Form19);
Application.CreateForm (TForm20, Form20);
Application.CreateForm (TForm21, Form21);
Application.CreateForm (TForm22, Form22);
Application.CreateForm (TForm10, Form10);
Application.CreateForm (TForm14, Form14);
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, StdCtrls, XPMan, ComCtrls, Unit9, Mask, Buttons, jpeg, Unit11, syncobjs, ImgList;
type
TForm1 = class (TForm)
MainMenu1: TMainMenu;
N1: TMenuItem; N2: TMenuItem;
N19: TMenuItem; N18: TMenuItem;
N4: TMenuItem; N3: TMenuItem;
N5: TMenuItem; N6: TMenuItem;
N7: TMenuItem; N8: TMenuItem;
N9: TMenuItem; N10: TMenuItem;
N12: TMenuItem; N13: TMenuItem;
N15: TMenuItem; N16: TMenuItem;
N17: TMenuItem; Panel1: TPanel;
Label4: TLabel; Label1: TLabel;
Edit1: TEdit; Label2: TLabel; Edit2: TEdit;
Label3: TLabel; Label6: TLabel; SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog; PrintDialog1: TPrintDialog;
XPManifest1: TXPManifest; Memo1: TMemo;
N20: TMenuItem; ControlBar1: TControlBar;
FontDialog1: TFontDialog; SpeedButton4: TSpeedButton;
SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton; SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton; SpeedButton7: ​​TSpeedButton;
SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton;
DateTimePicker1: TDateTimePicker; Timer1: TTimer; N11: TMenuItem;
Image1: TImage; Image2: TImage; Label9: TLabel; SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton; Label8: TLabel; MaskEdit3: TMaskEdit;
Label7: TLabel; MaskEdit2: TMaskEdit; Label10: TLabel;
Label5: TLabel; Label12: TLabel; Memo4: TMemo; Timer2: TTimer;
RichEdit1: TRichEdit; SpeedButton11: TSpeedButton; Label11: TLabel;
N14: TMenuItem; procedure N5Click (Sender: TObject);
procedure N16Click (Sender: TObject); procedure N17Click (Sender: TObject);
procedure N7Click (Sender: TObject); procedure N9Click (Sender: TObject);
procedure N10Click (Sender: TObject); procedur...