Информационная система расчетов по договорам
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?ля поиска нужно нажать кнопку Поиск, а для удаления кнопку DEL, все операции программы дублированы пользовательским меню.
Для загрузки списков нужно перемещать переключатели в 3 разных положения, а для просмотра списка необходимо вызвать одноименный пункт меню, или нажать соответствующую кнопку.
Заключение
В ходе работы над проектом были закреплены навыки работы с технологией ООП, были изучены структуры и то как они представлены в памяти компьютера. В ходе работы над проектом были доработаны и закреплены навыки работы в среде визуальной разработки приложений Delphi.
Данный проект очень интересен тем, что он дает студенту возможность попробовать себя в разработке простейшей базы данных, знания, полученные во время работы над проектом пригодятся в дальнейшей трудовой деятельности, а также в предметах курса, изучающих принципы построения и работы с базами данных.
Данный курсовой проект сможет пригодиться для изучения возможностей ООП использования структур данных
Литература
- БакнеллД.М.Фундаментальные алгоритмы и структуры данных в Delphi. СПб: ОООДиаСофтЮП, 2003. 506с.
- Вирт Н. Алгоритмы и структуры данных. СПб: Невский диалект, 2001. 352с.
- ГудричМ.Т.Структуры данных и алгоритмы в Java. / М.Т.Гудрич, Р.Тамассия. Мн.: Новое знание, 2003. 671с.
- КорменТ.Х., ЛейзерсонЧ.И., РивестР.Л., Штайн К. Алгоритмы: построение и анализ. М.: Издательский дом Вильямс, 2009. 1296с.
- КрузР.Л.Структуры данных и проектирование программ. М.: БИНОМ. Лаборатория знаний, 2008. 765с.
- Седжвик Р. Фундаментальные алгоритмы на С.Части 14: Анализ/Структуры данных/Сортировка/Поиск. К.: Издательство ДиаСофт, 2003. 672с.
Приложение
Текст главного модуля Unit1.pas
// ==============
// Created by KamenevA.I.
// gr 417318
// Minsk 2010 MIDO BNTU
// ===================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids, XPMan, UnitCl, Menus, Unit2;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
Button2: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
XPManifest1: TXPManifest;
Button7: TButton;
Bevel1: TBevel;
CheckBox1: TCheckBox;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
Bevel2: TBevel;
Button3: TButton;
Button8: TButton;
FindDialog1: TFindDialog;
procedure Button6Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure RadioButton1Click (Sender: TObject);
procedure RadioButton2Click (Sender: TObject);
procedure RadioButton3Click (Sender: TObject);
procedure CheckBox1Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure N2Click (Sender: TObject);
procedure N10Click (Sender: TObject);
procedure N8Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure FormActivate (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button8Click (Sender: TObject);
procedure N6Click (Sender: TObject);
procedure N7Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
uses Unit3, Unit4;
{$R *.dfm}
// ===================
procedure TForm1. Button6Click (Sender: TObject);
begin
// Остановка программы:
Halt;
end;
// ===================
procedure TForm1. FormCreate (Sender: TObject);
begin
// Инициализация формы и чтение из файла в стринг грид из класса
CheckBox1Click(Sender);
Kp. ReadXD(StringGrid1);
Kp. Free;
end;
// ===================
procedure TForm1. RadioButton1Click (Sender: TObject);
begin
// Дублир XD
FormCreate(Sender);
Button8Click(Sender);
end;
// ===================
procedure TForm1. RadioButton2Click (Sender: TObject);
begin
// Открытие WTK автоматом из файла
Kp. Clear(StringGrid1);// Очистка грида
// инициал формы WTK
Kp.WTKGr(StringGrid1);
Kp. RowC(StringGrid1);
Kp. ReadWTK(StringGrid1);
Kp. Free;
Button8Click(Sender);
end;
procedure TForm1. RadioButton3Click (Sender: TObject);
begin
// Открытие файла BANK
Kp. Clear(StringGrid1);// Очистка грида
// Инициал формы Bank
Kp.BANGr(StringGrid1);
Kp. RowC(StringGrid1);
Kp. ReadBAN(StringGrid1);
Kp. Free;
Button8Click(Sender);
end;
// ===================
procedure TForm1. CheckBox1Click (Sender: TObject);
begin
// запрет на редактир снять поставить
If CheckBox1. Checked Then
StringGrid1. Options:=[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]
else
StringGrid1. Options:=[goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing]
end;
// ===================
procedure TForm1. Button4Click (Sender: TObject);
begin
// Поиск в гриде
Form3. Top:=Trunc (Form1. Top + Form1. Height/2 Form3. Height/2);
Form3. Left:=Trunc (Form1. Left +Form1. Width/2 Form3. Width/2);
Form3. ShowModal;
end;
// ===================
procedure TForm1. Button1Click (Sender: TObject);
begin
// процедура очистки грида по выбору радио кнопы
Kp. Clear(StringGrid1);// Вызов процедуры из класса
If RadioButton1. Checked Then//
begin//
Kp.XDGr(StringGrid1);//
Kp. RowC(StringGrid1);
end
else if RadioButton2. Checked Then
begin
Kp.WTKGr(StringGrid1);
Kp. RowC(StringGrid1);
end
else if RadioButton3. Checked Then
begin
Kp.BANGr(StringGrid1);
Kp. RowC(StringGrid1);
end;
Kp. Free;
end;
// = О ПРОГРАММЕ
=====
procedure TForm1.N2Click (Sender: TObject);
begin
ShowMessage
(КУРСОВОЙ ПРОЕКТ+#13+#13+Разработал КаменевА.И. гр 417 318 / 10 вариант
+#13+МИДО БНТУ 2010г.+#13+#13+Структуры и алгоритмы обработки данных.);
end;
// ===================
procedure TForm1.N10Click (Sender: TObject);
begin
// Меню дубл выход
Button6Click(Sender);
end;
// ===================
procedure TForm1.N8Click (Sender: TObject);
begin
// Сброс дубл меню
Button1Click(Sender);
end;
// ===================
procedure TForm1. Button5Click (Sender: TObject);
// сортировка грида в польз. сообщений
begin
Form4. Top:=Trunc (Form1. Top + Form1. Height/2 Form4. Height/2);
Form4. Left:=Trunc (Form1. Left +Form1. Width/2 Form4. Width/2);
Form4. ShowModal;
end;
// ===================
p