Требования к составу и содержанию работ по подготовке объекта автоматизации к вводу системы в действие
В перечень основных мероприятий включают: 6.1. Технические мероприятия 6.2. Организационные мероприятия 6.3. Изменения в информационном обеспечении
Требования к документированию В данном разделе приводят: Вся документация должна быть подготовлена и передана как в печатном, так и в электронном виде (в формате Microsoft Word). Источники разработки Настоящее Техническое Задание разработано на основе следующих документов и информационных материалов:
Приложения Б (обязательное) Листинг программы
unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, Menus;
type TForm1 = class(TForm) con1: TADOConnection; dbnvgr5: TDBNavigator; dbgrd2: TDBGrid; dbnvgr1: TDBNavigator; dbgrd3: TDBGrid; dbnvgr2: TDBNavigator; lbl2: TLabel; lbl1: TLabel; dbgrd1: TDBGrid; lbl3: TLabel; ds1: TDataSource; ds2: TDataSource; ds3: TDataSource; tbl1: TADOTable; tbl2: TADOTable; tbl3: TADOTable; grp1: TGroupBox; dbgrd4: TDBGrid; dbnvgr3: TDBNavigator; ds5: TDataSource; tbl5: TADOTable; mm1: TMainMenu; N1: TMenuItem; N2: TMenuItem; BCrfnm1: TMenuItem; btn1: TButton; dbgrd5: TDBGrid; dbnvgr4: TDBNavigator; ds4: TDataSource; tbl4: TADOTable; btn2: TButton; procedure N2Click(Sender: TObject); procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure BCrfnm1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject); begin Close; end;
procedure TForm1.btn1Click(Sender: TObject); begin
Form1.tbl4.Close; Form1.tbl4.Open;
Form1.tbl5.Close; Form1.tbl5.Open;
end;
procedure TForm1.btn2Click(Sender: TObject); begin
Form1.tbl3.Edit;
Form1.tbl3.FieldByName('kod_tovara').AsInteger:=Form1.tbl5.FieldByName('kod_tovara').AsInteger;
Form1.tbl3.Edit;
Form1.btn1Click(Self);
end;
procedure TForm1.BCrfnm1Click(Sender: TObject); begin Form2.Show; end;
end.
Популярное: Как построить свою речь (словесное оформление):
При подготовке публичного выступления перед оратором возникает вопрос, как лучше словесно оформить свою... Почему стероиды повышают давление?: Основных причин три... Личность ребенка как объект и субъект в образовательной технологии: В настоящее время в России идет становление новой системы образования, ориентированного на вхождение... ©2015-2024 megaobuchalka.ru Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. (1124)
|
Почему 1285321 студент выбрали МегаОбучалку... Система поиска информации Мобильная версия сайта Удобная навигация Нет шокирующей рекламы |