Автор: Пользователь скрыл имя, 12 Января 2011 в 15:51, дипломная работа
Задача накопления, обработки и распространения (обмена) информации стояла перед человечеством на всех этапах его развития. В течение долгого времени основными инструментами для ее решения были мозг, язык и слух человека. Первое кардинальное изменение произошло с приходом письменности, а затем изобретением книгопечатания. Поскольку в эпоху книгопечатания основным носителем информации стала бумага, то технологию накопления и распространения информации естественно называть “бумажной информатикой”.
1. Введение……………………………………………………….
1. Актуальность темы…………………………………………
2. Цель, предмет и объект исследования……………………
3. Перечень задач…………………………………….……….
2. Постановка задачи…………………………………………...
2.1 Предметная область……………………………………….
2.2 Характеристика класса задач……………………………..
2.3 Анализ вариантов решений………………………………
3. Современные инструментальные средства и
целесообразность выбранного варианта решения……..……
3.1 Анализ существующих технологий……………………….
3.2. Описание решения задачи………………………………....
3.3 Методы решения задачи……………………………………
3.4 Экономические расчеты…………………………………..
5. Заключение…………………………………………………..
6. Список использованной литературы…………………………
7. Приложения……………………………………………………….
E.Range['g2']:= '';
E.Range['g31']:= '';
E.Range['c4']:= '';
E.Range['i4']:= '';
E.Range['c6']:= '';
E.Range['c33']:= '';
E.Range['d8']:= '';
E.Range['b10']:= '';
E.Range['b12']:= '';
E.Range['b35']:= '';
E.Range['c14']:= '';
E.Range['c37']:= '';
E.Range['c17']:= '';
E.Range['c19']:= '';
E.Range['c39']:= '';
//----------------------------
E.Range['c2']:= DBEDIT14.Text;
E.Range['g29']:= DBEDIT14.Text;
E.Range['g2']:= DBEdit2.Text;
E.Range['g31']:= DBEdit2.Text;
E.Range['c4']:= DblookupCombobox3.Text;
//E.Range['i4']:= DBEdit3.Text;
E.Range['c6']:= DBEdit3.Text;
E.Range['c33']:= DBEdit3.Text;
E.Range['d8']:= DBEdit5.Text;
E.Range['b10']:= DBEdit6.Text;
E.Range['b12']:= DBEdit7.Text;
E.Range['b35']:= DBEdit7.Text;
E.Range['c14']:= DBEdit8.Text;
E.Range['c37']:= DBEdit8.Text;
E.Range['c17']:= DBEdit9.Text;
E.Range['c19']:= DBEdit11.Text;
E.Range['c39']:= DBEdit11.Text;
Form2.CloseModal;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
UDM.ADOTableGeneral.Cancel;
Form2.CloseModal;
end;
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
if UDM.ADOTableGeneral.Modified then
UDM.ADOTableGeneral.Post;
Form2.Close;
end;
procedure TForm2.BitBtn4Click(Sender: TObject);
var
E: variant;
begin
if UDM.ADOTableGeneral.Modified then
UDM.ADOTableGeneral.Post;
Form2.Close;
E:= CreateOleObject('Excel.
if not Opendialog1.Execute then exit;
E.WorkBooks.Open(OpenDialog1.
E.Visible:= true;
//----------------------------
E.Range['c2']:= '';
E.Range['g29']:= '';
E.Range['g2']:= '';
E.Range['g31']:= '';
E.Range['c4']:= '';
E.Range['i4']:= '';
E.Range['c6']:= '';
E.Range['c33']:= '';
E.Range['d8']:= '';
E.Range['b10']:= '';
E.Range['b12']:= '';
E.Range['b35']:= '';
E.Range['c14']:= '';
E.Range['c37']:= '';
E.Range['c17']:= '';
E.Range['c19']:= '';
E.Range['c39']:= '';
//----------------------------
E.Range['c2']:= DBEDIT14.Text;
E.Range['g29']:= DBEDIT14.Text;
E.Range['g2']:= DBEdit2.Text;
E.Range['g31']:= DBEdit2.Text;
E.Range['c4']:= DblookupCombobox3.Text;
//E.Range['i4']:= DBEdit3.Text;
E.Range['c6']:= DBEdit3.Text;
E.Range['c33']:= DBEdit3.Text;
E.Range['d8']:= DBEdit5.Text;
E.Range['b10']:= DBEdit6.Text;
E.Range['b12']:= DBEdit7.Text;
E.Range['b35']:= DBEdit7.Text;
E.Range['c14']:= DBEdit8.Text;
E.Range['c37']:= DBEdit8.Text;
E.Range['c17']:= DBEdit9.Text;
E.Range['c19']:= DBEdit11.Text;
E.Range['c39']:= DBEdit11.Text;
Form2.CloseModal;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
DBEdit2.Text:= DateToStr(Now);
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
Buttons, Mask, DBCtrls;
type
TForm3 = class(TForm)
Label1: TLabel;
Label3: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DBEdit2: TDBEdit;
Label7: TLabel;
DBEdit3: TDBEdit;
Label8: TLabel;
DBEdit4: TDBEdit;
Label9: TLabel;
DBEdit5: TDBEdit;
Label10: TLabel;
DBEdit6: TDBEdit;
Label11: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
Label12: TLabel;
DBEdit9: TDBEdit;
procedure FormActivate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses UnitDM;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form3.DBEdit8.Text:= 'в ремонт';
if UDM.ADOTableGeneral.Modified then
UDM.ADOTableGeneral.Post;
Form3.Close;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
UDM.ADOTableGeneral.Cancel;
Form3.Close;
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
Form3.DBEdit1.Text:= DateToStr(Now);
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
Buttons, Mask, DBCtrls;
type
TForm4 = class(TForm)
Label1: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label2: TLabel;
DBEdit1: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit2: TDBEdit;
procedure
DBLookupComboBox1CloseUp(
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses UnitDM;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
if UDM.ADOTableGeneral.Modified then
UDM.ADOTableGeneral.Post;
Form4.Close;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
UDM.ADOTableGeneral.Cancel;
Form4.Close;
end;
procedure TForm4.
begin
Form4.DBEdit1.Text:= DateToStr(Now);
Form4.DBEdit2.Text:= 'выдан';
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
Mask, DBCtrls, Buttons;
type
TForm5 = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
Label11: TLabel;
DBEdit11: TDBEdit;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
DBMemo3: TDBMemo;
Label6: TLabel;
Label7: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label10: TLabel;
DBEdit6: TDBEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses UnitDM;
{$R *.dfm}
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
Form5.Close;
end;
end.
unit UnitDM;
interface
uses