Сотрудники фирмы
Курсовая работа, 22 Ноября 2013, автор: пользователь скрыл имя
Описание работы
Современная жизнь немыслима без эффективного управления. Важной категорией являются системы обработки информации, от которых во многом зависит эффективность работы любого предприятия ли учреждения. Такая система должна:
обеспечивать получение общих или детализированных отчетов по итогам работы;
позволять легко определять тенденции изменения важнейших показателей;
обеспечивать получение информации, критической по времени, без существенных задержек;
выполнять точный и полный анализ данных.
Содержание работы
Введение…………………………………………………………
1. Анализ предметной области …………………………………
1.1 Базы данных и СУБД ………………………………………
1.2 Функции СУБД ……………………………………………..
1.3 Модели данных, поддерживающих СУБД………………...
1.4 Обзор наиболее популярных СУБД ………………………
2. Разработка алгоритма…………………………………………
3. Создание программного продукта. Тестирование………….
Заключение……………………………………………………
Список используемых источников………………………....
Приложение…………………………………………………..
Файлы: 1 файл
Титул.doc
— 1.99 Мб (Скачать файл)[7] Журнал «PC Magazine Russian Edition» 17, 1994, статья У. Плейна, «Microsoft Access».
[8] Информатика Л.З Шауцукова ( Глава 7. Алгоритмы. Алгоритмизация. Алгоритмические языки)
Приложения:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, Menus, ExtCtrls, jpeg,ShellApi;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
MainMenu1: TMainMenu;
afqk1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Edit1: TEdit;
Image1: TImage;
N5: TMenuItem;
N6: TMenuItem;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.show;
AdoQuery1.append;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
AdoQuery1.Delete;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form1.adoquery1.Sort:='fio DESC'
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form1.ADOQuery1.Sort:= 'fio ASC'
end;
procedure TForm1.N4Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var
help1, help2: string;
begin
help1:= '%'+unit1.Form1.Edit1.Text+'%'
help2:= quotedstr(help1);
with unit1.Form1.ADOQuery1 do
begin
close;
sql.clear;
sql.add('select*from tabl
where fio+g_d_roj+pol+yo+g_
open;
end;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
ADOQuery1.Edit;
Image1.Picture.LoadFromFile(
ADOQuery1.Post;
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
ADOQuery1.Edit;
Image1.Picture.LoadFromFile(
ADOQuery1.Post;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
ShellExecute(Handle, 'open','mmm.chm',nil, nil,Sw_show);
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls;
type
TForm2 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit4: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.ADOQuery1.Post;
close;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TForm3 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form1.show;
Form1.ADOQuery1.Post;
close;
end;
end.