Автор: Пользователь скрыл имя, 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. Приложения……………………………………………………….
SysUtils, Classes,
DB, ADODB;
type
TUDM = class(TDataModule)
ADOConnection1: TADOConnection;
ADOTableGeneral: TADOTable;
DSgeneral: TDataSource;
ADOTableGeneralnkvit: TAutoIncField;
ADOTableGeneraltypework: TWideStringField;
ADOTableGeneralpovtorkvit: TWideStringField;
ADOTableGeneraldatain: TDateTimeField;
ADOTableGeneraldataready: TDateTimeField;
ADOTableGeneraldatauved: TDateTimeField;
ADOTableGeneraldataout: TDateTimeField;
ADOTableGeneraldispin: TWideStringField;
ADOTableGeneraldispout: TWideStringField;
ADOTableGeneralfio: TWideStringField;
ADOTableGeneralpassport: TWideStringField;
ADOTableGeneraltel: TWideStringField;
ADOTableGeneraladress: TWideStringField;
ADOTableGeneralkartkvit: TWideStringField;
ADOTableGeneraltypetech: TWideStringField;
ADOTableGeneralmodel: TWideStringField;
ADOTableGeneralsn: TWideStringField;
ADOTableGeneralerror: TWideStringField;
ADOTableGeneralpassword: TWideStringField;
ADOTableGeneralstatus: TWideStringField;
ADOTableGeneralcommentss: TWideStringField;
ADOTableGeneralcommentdss: TWideStringField;
ADOTableGeneralsogl: TWideStringField;
ADOTableGeneralfammast: TWideStringField;
ADOTableGeneralpoint: TWideStringField;
ADOTableGeneralzapch: TWideStringField;
ADOTableGeneralzpostav: TWideStringField;
ADOTableGeneralzdzakaza: TDateTimeField;
ADOTableGeneralzdojid: TDateTimeField;
ADOTableGeneralzdprih: TDateTimeField;
ADOTableGeneralcashin: TBCDField;
ADOTableGeneralcashout: TBCDField;
ADOKartwork: TADOTable;
ADOTypework: TADOTable;
ADOtypetech: TADOTable;
ADOdisp: TADOTable;
ADOpoint: TADOTable;
ADOstatus: TADOTable;
DSstatus: TDataSource;
DSpoint: TDataSource;
DSdisp: TDataSource;
DStypetech: TDataSource;
DStypework: TDataSource;
DSkartwork: TDataSource;
ADOTableGeneralkomplekt: TWideStringField;
ADOTableGeneralwork: TWideMemoField;
ADOTableGeneralworkprice: TWideMemoField;
ADOTableGeneralmaterials: TWideMemoField;
ADOTableGeneralsumm: TBCDField;
ADOTableGeneralcommentzapch: TWideMemoField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
UDM: TUDM;
implementation
{$R *.dfm}
end.