Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Конотопский институт СумГУ

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

курсова 2010.doc

Скачиваний:

Добавлен:

27.02.2016

Размер:

2.28 Mб

Скачать

☆

<<< < Предыдущая 1 2 34 / 44

3.Тестування

Тестування програми показану на рисунках 3.1 – 3.5:

Рис.3.1-Головна форма

Підпункт меню «Файл»:

GradText1, 3- Button1, 4- Button2, 5- MonthCalendar1.

Рис.3.2- На платній основі

1-Label1, 2- SpeedButton18, 3-SpeedButton3, 4- SpeedButton2, 5- SpeedButton1, 6- MainMenu1, 7- PageControl1, 8- DBText1, 9- DBGrid1, 10- DBNavigator1, 11- DBNavigator2, 12- DBGrid 2.

6 1 2 3 4 5 20 21 18 19 16 17 15 22

Рис.3.3- На платній основі(1)

1-Label1, 2- SpeedButton18, 3-SpeedButton3, 4- SpeedButton2, 5- SpeedButton1, 6- MainMenu1, 7- PageControl1, 8- DBGrid3, 9- DBNavigator1, 10- Button1, 11- Button2, 12- SpeedButton11, 13- RichEdit1, 14- SpeedButton9, 15- SpeedButton12, 16- SpeedButton8, 17- SpeedButton15, 18- Label2, 19- SpeedButton7, 20- SpeedButton6, 21- SpeedButton10, 22- DBGrid4.

ис.3.4- На платній основі(2)

1-SpeedButton4, 2- Label4, 3- Label1, 4- SpeedButton18, 5- SpeedButton3, 6- Label3, 7- SpeedButton2, 8- SpeedButton1, 9- MainManu1, 10- PageControl1, 11- ComboBox1, 12- Edit1.

ис.3.5- На платній основі(3)

1-Label1, 2- SpeedButton18, 3-SpeedButton3, 4- SpeedButton2, 5- SpeedButton1, 6- MainMenu1, 7- PageControl1, 8- Edit2, 9- Label5, 10- Edit4, 11- Label7, 12- Label6, 13- Edit3, 14- Label8, 15- Button5, 16- Button4, 17- SpeedButton13, 18- RichEdit2.

Висновок

Дана програма набагато полегшить роботу соціальним працівникам. Всі розрахунки будуть робитися автоматично. Завдяки цьому набагато збільшиться швидкість роботи працівників. Всі дані про людей будуть зберігатися у базах даних. Знайти із списку будь-яку особу буде дуже легко, адже в програмі є можливість пошуку. Варто лише обрати поле, за яким буде здійснюватися пошук, та ввести потрібні дані.

Програма дуже легка у використанні, тому не вимагає особливих навичок користування комп’ютером.

Список джерел

Культин Н. Б. Основы программирования в Delphi 7
С. И. Бобровский. Delphi 7. Учебный курс
А.Я. Архангельський. Програмування в C++Builder 6. – М.. БІНОМ.

В. Єрмолаєв, Т. Сорока. C++ Builder. Книга рецептів. – М.. КУДІЦ-ОБРАЗ, 2006. - 208 с.
В.Пестриков А.Маслобоев - Delphi на примерах ГОСТ 19.105-75 ЕСКД Загальні потреби до текстових документів. – Введ. з 01.07.1996.
Справочник советов и примеров по C++Builder.chm
Алексанкин Г.А.Borland C++ Builder.chm
100comp.pdf

Додаток а. Лістинг Form1

unit Unit1 ;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Menus, ExtCtrls,

ComCtrls, GradText, Buttons;

type

TForm1 = class(TForm)

Button1: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

Button2: TButton;

MonthCalendar1: TMonthCalendar;

GradText1: TGradText;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit4;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.ShowModal;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form4.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Close();

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form4.ShowModal;

end;

end.

Form2

unit Unit2 ;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls,

ComCtrls, ExtDlgs, Buttons, Menus, RpCon, RpConDS, RpDefine, RpRave;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

Table1: TTable;

Table2: TTable;

DataSource2: TDataSource;

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Label1: TLabel;

DataSource3: TDataSource;

Table3: TTable;

Table3N: TFloatField;

Table3PIB: TStringField;

Table3DATA_NARAH: TDateField;

Table3PENSIA: TFloatField;

Table3KOM_POSL: TFloatField;

Table3VIDSOTOK: TFloatField;

Table3vids: TFloatField;

SaveDialog1: TSaveDialog;

Query1: TQuery;

DataSource4: TDataSource;

SpeedButton18: TSpeedButton;

PageControl1: TPageControl;

TabSheet1: TTabSheet;

DBText1: TDBText;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

TabSheet2: TTabSheet;

Label2: TLabel;

DBNavigator3: TDBNavigator;

Button1: TButton;

RichEdit1: TRichEdit;

DBGrid3: TDBGrid;

Panel2: TPanel;

SpeedButton6: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton15: TSpeedButton;

DBGrid4: TDBGrid;

TabSheet3: TTabSheet;

Label3: TLabel;

Label4: TLabel;

SpeedButton4: TSpeedButton;

ComboBox1: TComboBox;

Edit1: TEdit;

Button2: TButton;

OpenDialog1: TOpenDialog;

TabSheet4: TTabSheet;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

RichEdit2: TRichEdit;

SpeedButton13: TSpeedButton;

DBGrid5: TDBGrid;

DataSource5: TDataSource;

Table4: TTable;

DBRichEdit1: TDBRichEdit;

SpeedButton14: TSpeedButton;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Button4: TButton;

Button5: TButton;

procedure SpeedButton4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

i, k, b:integer;

prib:array[0..100] of real;

sum:real;

j,v:integer;

s:string;

implementation

uses Unit5, Unit7, Unit4;

{$R *.dfm}

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

Table1.First;

b:=ComboBox1.ItemIndex;

for i:=0 To Table1.RecordCount do

begin

if Edit1.text=Table1.Fields.Fields[b].Value then k:=i;

Table1.Next;

end;

Table1.First;

for i:=0 to k do

Table1.Next;

PageControl1.ActivePage:=TabSheet1;

end;

procedure TForm2.N3Click(Sender: TObject);

begin

Close();

end

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm2.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taRightJustify;

end;

procedure TForm2.SpeedButton8Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taLeftJustify;

end;

procedure TForm2.SpeedButton12Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taCenter;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm2.SpeedButton17Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsNone;

end;

procedure TForm2.SpeedButton11Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsBold];

end;

procedure TForm2.SpeedButton10Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsItalic];

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

Table1.Delete();

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm2.SpeedButton18Click(Sender: TObject);

begin

Query1.Active:=False;

Query1.Active:=True;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm2.SpeedButton15Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit1.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

RichEdit1.Text:=Query1.Fields.Fields[1].Value;

Query1.Next;

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

Form7.ShowModal;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit2.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm2.SpeedButton13Click(Sender: TObject);

begin

RichEdit2.Clear;

RichEdit2.Lines.Add(Table4.Fields.Fields[0].Value+' '+Edit2.Text+'.'+Edit3.Text+' '+Table4.Fields.Fields[1].Value+' '+Edit4.Text+' '+Table4.Fields.Fields[2].Value);

end;

procedure TForm2.SpeedButton14Click(Sender: TObject);

begin

Table4.Post;

Table4.Refresh;

end;

procedure TForm2.Button5Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit2.Lines.LoadFromFile((OpenDialog1.FileName));

end;

end.

Form4

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, ComCtrls,

Buttons, Menus, StdCtrls;

type

TForm4 = class(TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Table1: TTable;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

DBGrid2: TDBGrid;

Table2: TTable;

DataSource2: TDataSource;

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

SpeedButton4: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton2: TSpeedButton;

Label1: TLabel;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Table3: TTable;

DataSource3: TDataSource;

RichEdit1: TRichEdit;

Button1: TButton;

TabSheet3: TTabSheet;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

SpeedButton1: TSpeedButton;

ComboBox1: TComboBox;

Panel2: TPanel;

SpeedButton6: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton15: TSpeedButton;

Label4: TLabel;

FontDialog1: TFontDialog;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

DBText1: TDBText;

DBGrid4: TDBGrid;

Query1: TQuery;

DataSource4: TDataSource;

SpeedButton18: TSpeedButton;

TabSheet4: TTabSheet;

Label5: TLabel;

Label7: TLabel;

Label6: TLabel;

Edit2: TEdit;

Edit4: TEdit;

Edit3: TEdit;

Label8: TLabel;

RichEdit2: TRichEdit;

Button5: TButton;

Button4: TButton;

SpeedButton13: TSpeedButton;

DBGrid5: TDBGrid;

DBRichEdit1: TDBRichEdit;

Table4: TTable;

DataSource5: TDataSource;

Button2: TButton;

procedure SpeedButton1Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

i,k,b:integer;

s:string;y,j:integer;

implementation

uses Unit6, Unit5, Unit2;

{$R *.dfm}

procedure TForm4.SpeedButton1Click(Sender: TObject);

begin

Table1.First;

b:=ComboBox1.ItemIndex;

for i:=0 To Table1.RecordCount do

begin

if Edit1.text=Table1.Fields.Fields[b].Value then k:=i;

Table1.Next;

end;

Table1.First;

for i:=0 to k do

Table1.Next;

PageControl1.ActivePage:=TabSheet1;

end;

procedure TForm4.N4Click(Sender: TObject);

begin

Close();

end;

procedure TForm4.SpeedButton5Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm4.SpeedButton6Click(Sender: TObject);

begin

if SaveDialog1.Execute then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm4.SpeedButton7Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm4.SpeedButton16Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsBullet;

end;

procedure TForm4.SpeedButton17Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsNone;

end;

procedure TForm4.SpeedButton8Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taLeftJustify;

end;

procedure TForm4.SpeedButton12Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taCenter;

end;

procedure TForm4.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taRightJustify;

end;

procedure TForm4.Button1Click(Sender: TObject);

begin

RichEdit1.Text:=Query1.Fields.Fields[1].Value;

Query1.Next;

end;

procedure TForm4.SpeedButton18Click(Sender: TObject);

begin

Query1.Active:=False;

Query1.Active:=True;

end;

procedure TForm4.SpeedButton3Click(Sender: TObject);

begin

Table1.Post;

end;

procedure TForm4.SpeedButton2Click(Sender: TObject);

begin

Table1.Insert;

end;

procedure TForm4.SpeedButton4Click(Sender: TObject);

begin

Table1.Delete;

end;

procedure TForm4.Button5Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit2.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm4.Button4Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit2.Lines.SaveToFile(SaveDialog1.FileName+'.rtf');

end;

procedure TForm4.SpeedButton13Click(Sender: TObject);

begin

RichEdit2.Clear;

RichEdit2.Lines.Add(Table4.Fields.Fields[0].Value+' '+Edit2.Text+'.'+Edit3.Text+' '+Table4.Fields.Fields[1].Value+' '+Edit4.Text+' '+Table4.Fields.Fields[2].Value);

end;

procedure TForm4.SpeedButton14Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form5.ShowModal;

end;

end.

Form5

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, Buttons, Spin;

type

TForm5 = class(TForm)

RichEdit1: TRichEdit;

Panel1: TPanel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Button1: TButton;

SpeedButton1: TSpeedButton;

SpeedButton3: TSpeedButton;

ColorDialog1: TColorDialog;

SpeedButton15: TSpeedButton;

Panel2: TPanel;

ComboBox1: TComboBox;

ColorBox1: TColorBox;

SpeedButton7: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

SpeedButton16: TSpeedButton;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

SpeedButton17: TSpeedButton;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

PopupMenu1: TPopupMenu;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

FontDialog1: TFontDialog;

N26: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

SpeedButton18: TSpeedButton;

SpinEdit1: TSpinEdit;

SpeedButton19: TSpeedButton;

SpeedButton13: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure Button1Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure ColorBox1Change(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N26Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure SpeedButton18Click(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

i:integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

RichEdit1.Text:=Form2.Query1.Fields.Fields[1].Value;

Form2.Query1.Next;

end;

procedure TForm5.SpeedButton12Click(Sender: TObject);

begin

if ColorDialog1.Execute then

RichEdit1.SelAttributes.Color:=ColorDialog1.Color;

end;

procedure TForm5.ColorBox1Change(Sender: TObject);

begin

RichEdit1.SelAttributes.Color:=ColorBox1.Selected;

end;

procedure TForm5.ComboBox1Change(Sender: TObject);

begin

RichEdit1.SelAttributes.Size:=StrToInt(ComboBox1.Text);

end;

procedure TForm5.N10Click(Sender: TObject);

begin

if N10.Checked=true then Panel1.Visible:=true else Panel1.Visible:=false;

end;

procedure TForm5.N11Click(Sender: TObject);

begin

if N11.Checked=true then Panel2.Visible:=true else Panel2.Visible:=false;

end;

procedure TForm5.SpeedButton16Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Дата: ' +

DateToStr (DateTimePicker1.Date));

end;

procedure TForm5.SpeedButton17Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Час: ' +

DateToStr (DateTimePicker2.Time));

end;

procedure TForm5.SpeedButton1Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit1.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm5.SpeedButton3Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm5.SpeedButton15Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard();

end;

procedure TForm5.SpeedButton7Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsBold];

end;

procedure TForm5.SpeedButton6Click(Sender: TObject);

begin

RichEdit1.SelAttributes.Style:=[fsItalic];

end;

procedure TForm5.SpeedButton8Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taLeftJustify;

end;

procedure TForm5.SpeedButton9Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taCenter;

end;

procedure TForm5.SpeedButton10Click(Sender: TObject);

begin

RichEdit1.Paragraph.Alignment:=taRightJustify;

end;

procedure TForm5.SpeedButton4Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsBullet;

end;

procedure TForm5.SpeedButton5Click(Sender: TObject);

begin

RichEdit1.Paragraph.Numbering:=nsNone;

end;

procedure TForm5.SpeedButton11Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm5.N2Click(Sender: TObject);

begin

if (OpenDialog1.Execute()) then

RichEdit1.Lines.LoadFromFile((OpenDialog1.FileName));

end;

procedure TForm5.N3Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.doc');

end;

procedure TForm5.N4Click(Sender: TObject);

begin

RichEdit1.Print('Печать RichEdit1');

end;

procedure TForm5.N5Click(Sender: TObject);

begin

Close();

end;

procedure TForm5.N7Click(Sender: TObject);

begin

RichEdit1.CutToClipboard();

end;

procedure TForm5.N8Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard();

end;

procedure TForm5.N23Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard();

end;

procedure TForm5.N24Click(Sender: TObject);

begin

RichEdit1.SelectAll();

end;

procedure TForm5.N13Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Дата: ' +

DateToStr (DateTimePicker1.Date));

end;

procedure TForm5.N14Click(Sender: TObject);

begin

RichEdit1.Lines.Add('Час: ' +

DateToStr (DateTimePicker2.Time));

end;

procedure TForm5.N16Click(Sender: TObject);

begin

if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign(FontDialog1.Font);

end;

procedure TForm5.N19Click(Sender: TObject);

begin

RichEdit1.CopyToClipboard();

end;

procedure TForm5.N20Click(Sender: TObject);

begin

RichEdit1.CutToClipboard();

end;

procedure TForm5.N26Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard();

end;

procedure TForm5.N28Click(Sender: TObject);

begin

RichEdit1.SelectAll();

end;

procedure TForm5.SpeedButton18Click(Sender: TObject);

begin

RichEdit1.Paragraph.FirstIndent:=SpinEdit1.Value;

end;

procedure TForm5.SpeedButton19Click(Sender: TObject);

begin

RichEdit1.PasteFromClipboard;

end;

procedure TForm5.SpeedButton13Click(Sender: TObject);

begin

RichEdit1.CutToClipboard;

end;

procedure TForm5.SpeedButton2Click(Sender: TObject);

begin

if SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+'.doc');

end;

end.

<<< < Предыдущая 1 2 34 / 44

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
27.02.2016352.59 Кб28Документ Microsoft Office Word.docx
#
27.02.20164.55 Mб767Електронна та іонна оптика (Бурик І.П.).pdf
#
27.02.201652.22 Кб304звіт з практики.doc
#
27.02.2016453.12 Кб110Звіт.doc
#
27.02.2016609.28 Кб4К.Р. по економике Ігнат..doc
#
27.02.20162.28 Mб9курсова 2010.doc
#
27.02.2016133.12 Кб12Курсова по грошам і кредиту.doc
#
27.02.201681.92 Кб29КУРСОВА РОБОТА (Мозгунов).doc
#
27.02.2016166.91 Кб5ЛАБ фіз.хімі 2013_1.doc
#
27.02.20161.1 Mб73Лекції з дисципліни ТП.doc
#
27.02.2016104.96 Кб166Лекція 1.doc