Каталог работ --> Технические --> Программирование --> Автоматизация учета и контроля оборота видеоносителей в видеотеке

Автоматизация учета и контроля оборота видеоносителей в видеотеке

РГТЭУ

Курсовая по предмету:
"Программирование"

Название работы:
"Автоматизация учета и контроля оборота видеоносителей в видеотеке"

Автор работы: Юлия
Страниц: 39 шт.

Год:2008

Цена всего:1490 рублей

~~Цена:2490 рублей~~

Купить Заказать персональную работу

Краткая выдержка из текста работы (Аннотация)

Реализация команды Приём меню Прокат

Для реализации этой команды необходимо на соответствующей форме ввести код клиента в отведенный для этого MaskEdit, после чего в появив¬шийся ComboBox ввести номер заказа. При щелчке на кнопку «Принять» кассеты данного заказа принимаются в видеотеку и удаляются из специали¬зированных списков, и число таких кассет в базе увеличивается на 1.

Реализация команды Добавить новую меню Кассеты

При регистрации видеоносителей в прокате учитывается вся информа¬ция о них: название кассеты, ФИО режиссера, жанр произведения, страна-производитель, кинокомпания, сделавшая данный продукт, время воспроиз¬ведения, цена проката (руб.) за сутки, а так же дата выпуска кассеты в прокат и количество принятых в данное отделение кассет с аналогичным названием. При щелчке по кнопке Добавить В БД добавится установленное количество кассет. Цена их будет зависеть от даты выдачи им лицензии, так как новинки всегда стоят дороже остальных кассет. В программе установлено, что кассета является новинкой в течение месяца после получения лицензии, после чего её цена автоматически снижается до уровня простых кассет. Реализация команды Изменить меню кассеты

Эта команда применяется в том случае, если необходимо изменить данные видеокассете, которые находятся в таблице на главной форме. Для этого необходимо кликнуть правой кнопкой мыши по той записи, которая нуждается в изменении. Из появившегося меню выбрать строку «Изменить». Появится форма, аналогичная форме добавления, но результирующей кноп¬кой «Изменить», на которую надо нажать после коррекции записей.

Реализация команды Добавить меню Клиенты

Регистрируется вся необходимая информация о клиенте: ФИО, контактный телефон, серия и номер паспорта (включая срок действия паспорта), адрес прописки. При щелчке по кнопке «Добавить» В БД добавится 1 новый кли¬ент.

Реализация команды Продажа меню Кассеты

Если стоимость проката кассеты превышает её номинальную стоимость, то клиенту предлагается приобрести кассету. Если клиент согласен, то с формы Выдача сотрудник проката переходит на форму продажа. Форма со¬держит окно, где отображаются выбранные для продажи кассеты, а так же окна, в которых отображаются код клиента, ФИО клиента и цена заказа. При щелчке по кнопке ОК выручка увеличивается на сумму заказа, а количество таких кассет в базе уменьшается на 1.

Разработчик полагает, что описание реализации остальных опций не

имеет смысла по причине их простоты.

Заключение

Полученные результаты полностью соответствуют поставленным зада¬чам. Разработанная программа являет собой автоматизированную систему учета видеоносителей в видеотеке.

Приложение 1.

Исходные тексты программы

type

//TStr = array [0.. 10] of String;

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

DBGrid1: TDBGrid;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

GroupBox1: TGroupBox;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Label5: TLabel;

ADOQuery1: TADOQuery;

ADOCommand1: TADOCommand;

Label6: TLabel;

N14: TMenuItem;

Edit2: TEdit;

procedure FormActivate(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure ComboBox3Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure Edit1Change(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses ADO, priem, Output, manreg, outputmen, stats, Operations, cassreg,

sell, outputed;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

var

SQL : String;

i,j,k: Integer;

begin

{SQL:='update isriks_cassets set isriks_cassets.cas_director = ''Unknown''';

SQL:=SQL + 'where cas_director is null';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(SQL);

ADOQuery1.Open;

ADoquery1.ExecuteOptions;

ADOQuery1.close; }

SQL:='update isriks_cassets set isriks_cassets.cas_director = ''Unknown''';

SQL:=SQL + 'where cas_director is null';

ADOCommand1.prepared:=false;

ADOCommand1.CommandText:=SQL;

ADOCommand1.prepared:=true;

ADOCommand1.execute;

SQL := 'SELECT gen_name FROM isriks_gengers';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(SQL);

ADOQuery1.Open;

ADOQuery1.First;

ComboBox1.Items.Clear;

ComboBox1.Items. Add('Bce');

for i := 1 to ADOQuery1.RecordCount do begin

ComboBox1.Items. Add(Trim(ADOQuery1.FieldValues['gen_name']));

ADOQuery1.Next; end;

ComboBox1.ItemIndex := 0;

SQL := 'SELECT distinct cas_director FROM isriks_cassets';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL. add(SQL);

ADOQuery1.Open;

ADOQuery1.First;

ComboBox2.Items.Clear;

ComboBox2.Items.Add('Все');

for i := 1 to ADOQuery1.RecordCount do begin

ComboBox2.Items.Add(Trim(ADOQuery1.FieldValues['cas_director']));

//tmp[i] := Trim(ADOQuery1.FieldValues['cas_director']);

ADOQuery1.Next;

end;

ComboBox3.ItemIndex := 0;

SQL := 'SELECT distinct cas_country FROM isriks_cassets';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL. add(SQL);

ADOQuery1.Open;

ADOQuery1.First;

ComboBox3.Items.Clear;

ComboBox3.Items.Add('Все');

for i := 1 to ADOQuery1.RecordCount do begin

ComboBox3.Items.Add(Trim(ADOQuery1.FieldValues['cas_country']));

ADOQuery1.Next;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form6.Show; //возможно ссылка не туда..

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form1.Close;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

Form8.show;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

Form9.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form7.Show;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

form10.show

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin