База данных "Почтовое отделение"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
й +IntToStr(ADOQuery2.RecordCount);.Panels[1].Text:=;;
: begin.Active:=False;.SQL.Clear;.SQL.ADD(SELECT * FROM операции Where код_операции);.Active:=True;.Panels[0].Text:=Количество записей +IntToStr(ADOQuery3.RecordCount);.Panels[1].Text:=;;
0)and(Length(ComboBox5.Text)>0))then.Filtered:=false;RadioButton5.Checkedthen.Filter:=Combobox5.Text+LIKE+#39+Edit5.Text+%+#39.Filter:=Combobox5.Text+LIKE+#39+%+Edit5.Text+%+#39;.Filtered:=true;ADOTable3.Filtered:=false;;TForm2.Edit6Change(Sender:TObject);Length(Edit6.Text)>0then.Filtered:=false;.Filter:=Combobox6.Text+=+#39+Edit6.Text+#39;.Filtered:=true;ADOTable3.Filtered:=false;;TForm2.Edit7Change(Sender:TObject);((Length(Edit7.Text)>0)and(Length(ComboBox7.Text)>0))then.Filtered:=false;RadioButton8.Checkedthen.Filter:=Combobox7.Text+LIKE+#39+Edit7.Text+%+#39.Filter:=Combobox7.Text+LIKE+#39+%+Edit7.Text+%+#39;.Filtered:=true;ADOTable4.Filtered:=false;;TForm2.Edit8Change(Sender:TObject);Length(Edit8.Text)>0then.Filtered:=false;.Filter:=Combobox8.Text+=+#39+Edit8.Text+#39;.Filtered:=true;ADOTable4.Filtered:=false;;TForm2.Excel1Click(Sender:TObject);.show;;.">: begin.Active:=False;.SQL.Clear;.SQL.ADD(SELECT * FROM сотрудники Where код_сотрудника);.Active:=True;.Panels[0].Text:=Количество записей +IntToStr(ADOQuery4.RecordCount);.Panels[1].Text:=;;;;TForm2.BitBtn1Click(Sender: TObject);.Show;Change(PageControl1);;TForm2.BitBtn2Click(Sender: TObject);.Show;Change(PageControl1);;TForm2.BitBtn3Click(Sender: TObject);.Show;Change(PageControl1);;TForm2.BitBtn4Click(Sender: TObject);.Show;;TForm2.BitBtn5Click(Sender: TObject);.Insert;;TForm2.BitBtn6Click(Sender: TObject);.Edit;;TForm2.BitBtn7Click(Sender: TObject);.Delete;;TForm2.BitBtn8Click(Sender: TObject);.Show;Change(PageControl1);;TForm2.Ds1Click(Sender: TObject);.Show;;TForm2.Edit5Change(Sender: TObject);((Length(Edit5.Text) > 0)and(Length(ComboBox5.Text) > 0)) then.Filtered:=false;RadioButton5.Checked then.Filter:=Combobox5.Text + LIKE + #39 + Edit5.Text + %+ #39.Filter:=Combobox5.Text + LIKE + #39+ % + Edit5.Text + % + #39;.Filtered:=true;ADOTable3.Filtered:=false;;TForm2.Edit6Change(Sender: TObject);Length(Edit6.Text) > 0 then.Filtered:=false;.Filter:=Combobox6.Text + = + #39 + Edit6.Text + #39;.Filtered:=true;ADOTable3.Filtered:=false;;TForm2.Edit7Change(Sender: TObject);((Length(Edit7.Text) > 0)and(Length(ComboBox7.Text) > 0)) then.Filtered:=false;RadioButton8.Checked then.Filter:=Combobox7.Text + LIKE + #39 + Edit7.Text + %+ #39.Filter:=Combobox7.Text + LIKE + #39+ % + Edit7.Text + % + #39;.Filtered:=true;ADOTable4.Filtered:=false;;TForm2.Edit8Change(Sender: TObject);Length(Edit8.Text) > 0 then.Filtered:=false;.Filter:=Combobox8.Text + = + #39 + Edit8.Text + #39;.Filtered:=true;ADOTable4.Filtered:=false;;TForm2.Excel1Click(Sender: TObject);.show;;.
Листинг программного кода для формы редактора заказов.
unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls, DB, ADODB, ImgList, ComCtrls, ToolWin;= class(TForm): TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TToolBar;: TToolButton;: TToolButton;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TCheckBox;ToolButton1Click(Sender: TObject);ToolButton3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm7;Unit2;
{$R*.dfm}TForm7.ToolButton1Click(Sender: TObject);.ADOTable2.Insert;.ADOTable2.Edit;.ADOTable2.FieldByName(уч_номер).Value:=LabeledEdit5.Text;.ADOTable2.FieldByName(код_операции).Value:=LabeledEdit1.Text;.ADOTable2.FieldByName(код_вида_кор).Value:=LabeledEdit2.Text;.ADOTable2.FieldByName(код_сотрудника).Value:=LabeledEdit3.Text;.ADOTable2.FieldByName(получатель).Value:=LabeledEdit4.Text;.ADOTable2.FieldByName(адрес_получ).Value:=LabeledEdit6.Text;.ADOTable2.FieldByName(отправитель).Value:=LabeledEdit7.Text;.ADOTable2.FieldByName(адрес_отпрв).Value:=LabeledEdit8.Text;.ADOTable2.FieldByName(дата).Value:=LabeledEdit9.Text;.ADOTable2.FieldByName(ценность).Value:=LabeledEdit10.Text;.ADOTable2.FieldByName(вес).Value:=LabeledEdit11.Text;.ADOTable2.FieldByName(цена).Value:=LabeledEdit12.Text;.ADOTable2.FieldByName(номер_квитанции).Value:=LabeledEdit13.Text;.ADOTable2.Post;.Close;;TForm7.ToolButton3Click(Sender: TObject);.Close;;.
2.4 Требования к программному и аппаратному обеспечению
Операционная система: Windows 2000/2003 Professional/Vista.
Процессор: Pentium4, частота 700Мгц или выше.
Оперативная память: 6Мб.
Память на жестком диске: 4Мб.
Клавиатура, мышь.
.5 Руководство пользователя
Использование программного обеспечения начинается со входа в базу данных пользователя. Пользователь должен ввести свой логин и пароль в соответствии со своей квалификацией. Пользователю могут соответствовать три вида квалификации: Администратор, Приемщик и Менеджер. Каждый из пользователей имеет свой уникальный пароль. В нашем случае все три пользователя имеют пароль: 0000.
После входа в базу данных пользователь приступает непосредственно к своим обязанностям. Администратор осуществляет администрирование системы и базы данных, Приемщик осуществляет создание и ведение каталога почтовой корреспонденции, Менеджер осуществляет запись и регистрацию отправителей и получателей. Администратор не ограничен в правах и способен использовать все возможности программы. Менеджер и Приемщик ограничены в правах и выполняют строго определенные функции. Для приемщика существует определенное поле, через которое он ведет каталог почтовой корреспонденции. Для менеджера существует определенная форма через которую ведется запись и регистрация отправителей и получателей.
Управление в программе ведется с помощью кнопок находящихся в верхней части приложения. Кнопки имеют следующие функции: В начало - возврат в самое начало таблицы; Вперед - перемещение по таблице на строку вниз; Назад - перемещение по таблице на строку вверх; В конец - перемещение в самый низ таблицы; Добавить - переход к форме менеджера; Изменить - редактирование данных в строке; Удалить - удаление строки с данными; Квитанция - вывод формы для создания квитанции; Извещение - вывод формы для формирования извещения.
Заключение
Данное программное обеспечение разработано с целью замены бумажной картотеки, экономии драгоценного времени и упрощении работы в почтовом отделении. Программа предназначена для работников почтовых отделений, где ведется подсчет количества корреспонденции и количества отправителей и получателей. Программа имеет достаточно простой и интуитивно понятный интерфейс, который позволяет достаточно легко управлять данным приложением. В программе собраны все основные функции, необходимые для полноценного функционирования системы почтового отделения. Каждый из сотрудников