Расчет стоимости пластиковых оконных конструкций и дверей
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
hi 7.0, а так же работу с нестандартными компонентами. При разработке данной программы мне пришлось столкнуться с множеством проблем. Но благодаря использованию различной литературы, а также ранее полученного опыта удалось обойти или решить большинство этих проблем. Накопленный мной опыт, несомненно, пригодится в будущем, при разработке программ.
Список использованных источников
Попов В. М. Программирование в T. Pascal . ? М.: Просвещение, 1997.
Макарова И. Р. Информатика. ? М.: Финансы и статистика, 2003.
Рудаков А. В. Технология разработки программных продуктов. ? М.: Академия, 2004.
Хомоненко А. Гофман В. Delphi 7 в подлиннике. ? М.: Просвещение, 2004.
Никифоров В. В. Основы разработки программных продуктов. ? М.: Просвещение, 2004.
Марченко А. И. Программирование в среде T. Pascal. ? Киев: Юниор, 1997.
Немнюгин С. А. Программирование на языке высокого уровня. ? М.: Просвещение, 1996.
Вендров А. М. Проектирование программного обеспечения экономических информационных систем. ? М.: Финансы и статистика, 2000. ? 352 с.
Соммервил И. Инженерия программного обеспечения. ? М.: СПб.: Киев: Изд. Дом Вильямс, 2002. ? 624 с.
Приложение А
Входные документы
Приложение Б
Текст программы
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); procedure N3Click(Sender: TObject);
procedure N18Click(Sender: TObject); procedure N19Click(Sender: TObject);
procedure N11Click(Sender: TObject); procedure N13Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure N20Click(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CheckEvent: TEvent; Form1: TForm1; dir:string; kolok:integer;
prof,spak,mon,got:string;fiozam,fiozak,adres,data,itog,domtel,sottel:string;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit12,
Unit15;
{$R *.dfm}
procedure TForm1.N5Click(Sender: TObject);
begin form2.Showmodal end;
procedure TForm1.N16Click(Sender: TObject);
begin form3.Showmodal end;
procedure TForm1.N17Click(Sender: TObject);
begin form4.Showmodal end;
procedure TForm1.N7Click(Sender: TObject);
var dlg:Word; begin
dlg:=MessageDlg(Вы
точно хотите выйти???,mtConfirmation,mbYesNoCancel,0);
if dlg = mrYes then close; end;
procedure TForm1.N9Click(Sender: TObject);
begin form6.Showmodal; end;
procedure TForm1.N10Click(Sender: TObject);
begin form7.Showmodal; end;
procedure TForm1.N3Click(Sender: TObject);
begin Form1.PrintDialog1.Execute; end;
procedure TForm1.N18Click(Sender: TObject);
begin if Form1.SaveDialog1.Execute then
RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); end;
procedure TForm1.N19Click(Sender: TObject);
begin if form1.OpenDialog1.Execute then
RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end;
procedure TForm1.N11Click(Sender: TObject);
begin form9.Showmodal; end;
procedure TForm1.N13Click(Sender: TObject);
begin form12.Showmodal; end;
procedure TForm1.N2Click(Sender: TObject);
begin form11.Show; end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin RichEdit1.Paragraph.Alignment:=taLeftJustify; end;
procedure TForm1.SpeedButton1Click(Sender: TObject);