Автоматизированная система управления контролем качества результатов испытаний сырья
Разработка приложения "Лаборатория", предназначенного для регистрации и учета поступающих проб в лабораторию Усть-Каменогорского титано-магниевого комбината. Автоматизированные средства статистического контроля качества результатов испытаний сырья.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 20.05.2013 |
| Размер файла | 3,0 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
FontDialog1.Font := DbAltGrid1.Columns.Items [0].Font;
IF FontDialog1.Execute THEN
FOR i := 0 TO DbAltGrid1.Columns.Count - 1 do
DbAltGrid1.Columns.Items[i].Font := FontDialog1.Font;
end;
procedure TForm1.mnuShriftZagolClick(Sender: TObject);
var i : Integer;
begin
FontDialog1.Font := DbAltGrid1.Columns.Items[0].Title.Font;
IF FontDialog1.Execute then
for i:=0 to DbAltGrid1.Columns.Count-1 do
DbAltGrid1.Columns.Items[i].Title.Font := FontDialog1.Font;
end;
procedure TForm1.nmuFonStolbcaClick(Sender: TObject);
begin
ColorDialog1.Color:=DbAltGrid1.Columns.Items[DbAltGrid1.SelectedIndex].Color;
IF ColorDialog1.Execute THEN
DbAltGrid1.Columns.Items[DbAltGrid1.SelectedIndex].Color:=ColorDialog1.Color;
end;
procedure TForm1.mnuFonZagolStolbcaClick(Sender: TObject);
begin
ColorDialog1.Color:=DbAltGrid1.Columns.Items[DbAltGrid1.SelectedIndex].Title.Color;
IF ColorDialog1.Execute THEN
DbAltGrid1.Columns.Items[DbAltGrid1.SelectedIndex].Title.Color:=ColorDialog1.Color;
end;
procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
ShowScrollBar(Form1.DBGrid2.Handle,SB_HORZ,False); // убераем горизонтальную и
ShowScrollBar(Form1.DBGrid2.Handle,SB_VERT,False); // вертикальную полосу прокрутки
end;
procedure TForm1.mnuFonOknaClick(Sender: TObject);
begin
ColorDialog1.Color:=Panel1.Color;
IF ColorDialog1.Execute THEN
Panel1.Color:=ColorDialog1.Color;
end;
procedure TForm1.PoiskClick(Sender: TObject);
var
KeyFields,KeyValues:String;
Options:TLocateOptions;
begin
if RadioGroup2.ItemIndex=0 then
KeyFields:='NOMPROB';
KeyValues:=Edit3.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
begin
if RadioGroup2.ItemIndex=1 then
KeyFields:='DATAOT';
KeyValues:=edit3.text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
begin
if RadioGroup2.ItemIndex=2 then
KeyFields:='DATAPR';
KeyValues:=Edit3.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
begin
if RadioGroup2.ItemIndex=3 then
KeyFields:='NomProtokol';
KeyValues:=Edit3.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
begin
if RadioGroup2.ItemIndex=4 then
KeyFields:='DatProtokol';
KeyValues:=Edit3.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
end; end;end; end; end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
KeyFields,KeyValues:String;
Options:TLocateOptions;
begin
if RadioGroup3.ItemIndex=0 then
KeyFields:='NOMPROB';
KeyValues:=Edit4.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
begin
if RadioGroup2.ItemIndex=1 then
KeyFields:='DATAOT';
KeyValues:=Edit3.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
begin
if RadioGroup3.ItemIndex=2 then
KeyFields:='NOMKONTR';
KeyValues:=Edit4.Text;
Options:=[loCaseInsensitive, loPartialKey];
if not DM2.TMK_Table.Locate(KeyFields, KeyValues, Options) then
begin
MessageDlg('Запись не найдена!',mtInformation, [mbOK], 0);
exit;
end;
end; end; end;
procedure TForm1.RadioGroup4Click(Sender: TObject);
begin
with DM2.TMK_Table do begin
case RadioGroup4.ItemIndex of
0: begin
IndexFieldNames:='NOMPROB';
DM2.TMK_TableNOMPROB.Index:=0;
end;
1: begin
IndexFieldNames:='DATAOT';
DM2.TMK_TableDATAOT.Index:=0;
end;
2: begin
IndexFieldNames:='DATAPR';
DM2.TMK_TableDATAPR.Index:=0;
end;
3: begin
IndexFieldNames:='KODLABOR';
DM2.TMK_TableKODLABOR.Index:=0;
end;
4: begin
IndexFieldNames:='KontrId';
DM2.TMK_TableKontrId.Index:=0;
end;
end; end; end;
procedure TForm1.RadioGroup5Click(Sender: TObject);
begin
with DM2.TMK_Table do begin
case RadioGroup4.ItemIndex of
0: begin
IndexFieldNames:='NOMPROB';
DM2.TMK_TableNOMPROB.Index:=0;
end;
1: begin
IndexFieldNames:='DATAOT';
DM2.TMK_TableDATAOT.Index:=0;
end;
2: begin
IndexFieldNames:='KODM;
DM2.TMK_TableDATAPR.Index:=0;
end;
3: begin
IndexFieldNames:='NOMKONTR';
DM2.TMK_TableKODMEST.Index:=0;
end;
end; end; end;
unit Unit2;
procedure TDM2.TMK_ConnectiWillConnect(Connection: TADOConnection;
var ConnectionString, UserID, Password: WideString;
var ConnectOptions: TConnectOption; var EventStatus: TEventStatus);
begin
{в случае успешного соединения выбрается синхронный режим работы}
if EventStatus = esOK
then ConnectOptions:=coConnectUnspecified;
end;
procedure TDM2.TMK_ConnectiConnectComplete(Connection: TADOConnection;
const Error: Error; var EventStatus: TEventStatus);
var i, ErrorCnt: Integer;
begin
if EventStatus=esOK then
for i:=0 to TMK_Connecti.CommandCount-1 do
try
if TMK_Connecti.Commands[i].CommandText<>''
then TMK_Connecti.Commands[i].Execute;
Except
on E: Exception do Inc(ErrorCnt);
end;
end;
procedure TDM2.TMK_TablePostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
begin
//Возникла ошибка при записи данных
MessageDlg('Проверте правильность введения данных',mtError,[mbOk],0);
Action:=daAbort;
end;
procedure TDM2.TMK_TableNOMPROBValidate(Sender: TField);
begin
if Pos('.',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "." !');
Abort;
end;
begin
if Pos(',',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "," !');
Abort;
end;
begin
if Pos('!',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "!" !');
Abort;
end;
begin
if Pos('?',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "?" !');
Abort;
end;
begin
if Pos('<',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "<" !');
Abort;
end;
begin
if Pos('>',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ ">" !');
Abort;
end;
begin
if Pos('№',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "№" !');
Abort;
end;
begin
if Pos('"',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ " " " !');
Abort;
end;
begin
if Pos('(',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "(" !');
Abort;
end;
begin
if Pos(')',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ ")" !');
Abort;
end;
begin
if Pos('%',DM2.TMK_TableNOMPROB.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "%" !');
Abort;
end; end; end; end; end; end; end; end; end; end; end; end;
procedure TDM2.TMK_TableNomProtokolValidate(Sender: TField);
begin
if Pos('.',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "." !');
Abort;
end;
begin
if Pos(',',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "," !');
Abort;
end;
begin
if Pos('!',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "!" !');
Abort;
end;
begin
if Pos('?',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "?" !');
Abort;
end;
begin
if Pos('<',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "<" !');
Abort;
end;
begin
if Pos('>',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ ">" !');
Abort;
end;
begin
if Pos('№',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "№" !');
Abort;
end;
begin
if Pos('"',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ " " " !');
Abort;
end;
begin
if Pos('(',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "(" !');
Abort;
end;
begin
if Pos(')',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ ")" !');
Abort;
end;
begin
if Pos('%',DM2.TMK_TableNomProtokol.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "%" !');
Abort;
end; end; end; end; end; end; end; end; end; end; end; end;
procedure TDM2.TMK_TableNOMKONTRValidate(Sender: TField);
begin
if Pos('.',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "." !');
Abort;
end;
begin
if Pos(',',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "," !');
Abort;
end;
begin
if Pos('!',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "!" !');
Abort;
end;
begin
if Pos('?',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "?" !');
Abort;
end;
begin
if Pos('<',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "<" !');
Abort;
end;
begin
if Pos('>',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ ">" !');
Abort;
end;
begin
if Pos('№',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "№" !');
Abort;
end;
begin
if Pos('"',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ " " " !');
Abort;
end;
begin
if Pos('(',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "(" !');
Abort;
end;
begin
if Pos(')',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ ")" !');
Abort;
end;
begin
if Pos('%',DM2.TMK_TableNOMKONTR.AsString) > 0 then
begin
ShowMessage('Ошибка! Недопустимый символ "%" !');
Abort;
end; end; end; end; end; end; end; end; end; end; end; end;
end.
unit Unit3;
procedure TForm3.mnuDiogrClick(Sender: TObject);
begin
Form25.Show;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
Form3.DBGrid4.DataSource:=DM2.Stat_datDS;
DM2.Stat_dat.Close;
DM2.Stat_dat.Parameters.ParamByName('dat1').Value:=DateTimePicker1.DateTime;
DM2.Stat_dat.Parameters.ParamByName('dat2').Value:=DateTimePicker2.DateTime;
DM2.Stat_dat.Open;
end;
procedure TForm3.mnuFonOknaClick(Sender: TObject);
begin
ColorDialog1.Color:=Panel1.Color;
IF ColorDialog1.Execute THEN
Panel1.Color:=ColorDialog1.Color;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Form3.DBGrid4.DataSource:=DM2.Stat_nomDS;
DM2.Stat_nom.Close;
DM2.Stat_nom.Parameters.ParamByName('n1').Value:=Edit1.Text;
DM2.Stat_nom.Parameters.ParamByName('n2').Value:=Edit2.Text;
DM2.Stat_nom.Open;
end;
unit Unit24;
procedure TForm24.BitBtn1Click(Sender: TObject);
begin
if Form24.Edit1.Text='отк' then
begin
Form24.Edit2.Text:='3086';
Form24.Close;
DM2.TMK_Connecti.Open;
DM2.TMK_Query.Open;
form1.Caption:='ОТК АО УК ТМК';
form1.BitBtn3.Visible:=False;
Form1.BitBtn6.Left:=515;
Form1.DBGrid4.Visible:=False;
Form1.Label4.Visible:=False;
Form1.BitBtn9.Visible:=False;
Form1.BitBtn8.Visible:=False;
Form1.StatusBar1.Panels[3].Text:='ОТК';
Form1.Poisk.Visible:=False;
Form1.BitBtn11.Left:=8;
Form1.GroupBox1.Height:=657;
Form1.BitBtn4.Top:=620;
Form1.BitBtn6.Top:=620;
Form1.DbAltGrid1.Height:=489;
ShowScrollBar(Form1.DBGrid2.Handle,SB_HORZ,False);
ShowScrollBar(Form1.DBGrid2.Handle,SB_VERT,False);
Form1.RadioGroup4.Visible:=False;
Form1.RadioGroup5.Visible:=True;
Form1.RadioGroup5.Height:=85;
Form1.RadioGroup5.Top:=31;
Form1.RadioGroup5.Width:=122;
Form1.RadioGroup2.Visible:=False;
Form1.Edit3.Visible:=False;
Form1.Poisk.Visible:=False;
Form1.RadioGroup3.Visible:=True;
Form1.RadioGroup3.Top:=31;
Form1.RadioGroup3.Width:=215;
Form1.RadioGroup3.Height:=85;
Form1.Edit4.Visible:=True;
Form1.Edit4.Top:=62;
Form1.Edit4.Width:=98;
Form1.Edit4.Height:=21;
Form1.BitBtn1.Visible:=True;
Form1.BitBtn1.Top:=89;
Form1.BitBtn1.Width:=90;
Form1.BitBtn1.Height:=23;
DM2.TMK_QueryTOPRINT.Visible:=False;
DM2.TMK_TableTOPRINT.Visible:=False;
Form1.DbAltGrid1.Columns[1].Visible:=False;
DM2.TMK_QueryIdMatProizv.Visible:=False;
DM2.TMK_TableIdMatProizv.Visible:=False;
Form1.DbAltGrid1.Columns[4].Visible:=False;
DM2.TMK_QueryDATAPR.Visible:=False;
DM2.TMK_TableDATAPR.Visible:=False;
Form1.DbAltGrid1.Columns[8].Visible:=False;
DM2.TMK_QueryKODFRAK.Visible:=False;
DM2.TMK_TableKODFRAK.Visible:=False;
Form1.DbAltGrid1.Columns[11].Visible:=False;
DM2.TMK_TableFRAK.Visible:=False;
Form1.DbAltGrid1.Columns[12].Visible:=False;
DM2.TMK_QueryNomProtokol.Visible:=False;
DM2.TMK_TableNomProtokol.Visible:=False;
Form1.DbAltGrid1.Columns[19].Visible:=False;
DM2.TMK_QueryDatProtokol.Visible:=False;
DM2.TMK_TableDatProtokol.Visible:=False;
Form1.DbAltGrid1.Columns[20].Visible:=False;
DM2.TMK_QueryKODLABOR.Visible:=False;
DM2.TMK_TableKODLABOR.Visible:=False;
Form1.DbAltGrid1.Columns[17].Visible:=False;
DM2.TMK_TableLABOR.Visible:=False;
Form1.DbAltGrid1.Columns[18].Visible:=False;
DM2.TMK_TableKONTROL.Visible:=False;
Form1.DbAltGrid1.Columns[16].Visible:=False;
DM2.TMK_QueryIdAnalys.Visible:=False;
DM2.TMK_TableIdAnalys.Visible:=False;
Form1.DbAltGrid1.Columns[0].Visible:=False;
end
else
begin
if Form24.Edit1.Text='утк' then
begin
Form24.Edit2.Text:='3004';
Form24.Close;
DM2.TMK_Connecti.Open;
DM2.TMK_Query.Open;
Form1.StatusBar1.Panels[3].Text:='УТК';
Form1.RadioGroup5.Visible:=False;
ShowScrollBar(Form1.DBGrid2.Handle,SB_HORZ,False);
ShowScrollBar(Form1.DBGrid2.Handle,SB_VERT,False);
Form1.RadioGroup3.Visible:=False;
Form1.Edit4.Visible:=False;
Form1.BitBtn1.Visible:=False;
DM2.TMK_QueryIdAnalys.Visible:=False;
DM2.TMK_TableIdAnalys.Visible:=False;
Form1.DbAltGrid1.Columns[0].Visible:=False;
DM2.TMK_QueryIdMatProizv.Visible:=False;
DM2.TMK_TableIdMatProizv.Visible:=False;
Form1.DbAltGrid1.Columns[4].Visible:=False;
DM2.TMK_QueryKODMEST.Visible:=False;
DM2.TMK_TableKODMEST.Visible:=False;
Form1.DbAltGrid1.Columns[9].Visible:=False;
DM2.TMK_QueryKODVID.Visible:=False;
DM2.TMK_TableKODVID.Visible:=False;
Form1.DbAltGrid1.Columns[5].Visible:=False;
DM2.TMK_QueryVnVidId.Visible:=False;
DM2.TMK_TableVnVidId.Visible:=False;
Form1.DbAltGrid1.Columns[13].Visible:=False;
DM2.TMK_QueryKontrId.Visible:=False;
DM2.TMK_TableKontrId.Visible:=False;
Form1.DbAltGrid1.Columns[15].Visible:=False;
DM2.TMK_QueryKODMEST.Visible:=False;
DM2.TMK_TableKODMEST.Visible:=False;
Form1.DbAltGrid1.Columns[9].Visible:=False;
DM2.TMK_TableMESTO.Visible:=False;
Form1.DbAltGrid1.Columns[10].Visible:=False;
DM2.TMK_QueryVnVidId.Visible:=False;
DM2.TMK_TableVnVidId.Visible:=False;
Form1.DbAltGrid1.Columns[13].Visible:=False;
DM2.TMK_TableVnVid_.Visible:=False;
Form1.DbAltGrid1.Columns[14].Visible:=False;
DM2.TMK_QueryYEAR_.Visible:=False;
DM2.TMK_TableYEAR_.Visible:=False;
Form1.DbAltGrid1.Columns[2].Visible:=False;
DM2.TMK_QueryNOMKONTR.Visible:=False;
DM2.TMK_TableNOMKONTR.Visible:=False;
Form1.DbAltGrid1.Columns[21].Visible:=False;
end; end;
begin
if Form24.Edit1.Text<>'отк' then
if Form24.Edit1.Text<>'утк' then
begin
ShowMessage('Данные введены не верно. В доступе отказано.');
Form24.PASSW_Qu.Close;
Form24.PASSW_Qu.Close;
DM2.TMK_Connecti.Close;
DM2.TMK_Query.Close;
Form1.Close;
end; end; end;
procedure TForm24.BitBtn2Click(Sender: TObject);
begin
Form24.Close;
Form1.Close;
end;
Размещено на Allbest.ru
Подобные документы
Средства программирования, описание языка С++. Назначение программы, требования к документации. Стадии разработки, виды испытаний. Используемые технические, программные средства. Вызов и загрузка, входные и выходные данные. Программа и методика испытаний.
контрольная работа [205,3 K], добавлен 23.07.2013Создание автоматизированной системы для упрощения работы с данными, расчётами и отчётами, анализа и хранения поступающих в лабораторию хроматографических исследований данных. Функциональные требования к системе. Проектирование программного обеспечения.
курсовая работа [1,9 M], добавлен 23.01.2013Стадии жизненного цикла информационной системы (ИС). Распределение ответственности на начальных этапах стадии внедрения ИС. Последовательность внедрения ИС. Документация и объекты испытаний ИС. Виды испытаний, опытная эксплуатация, варианты сопровождения.
презентация [160,9 K], добавлен 08.09.2015Проектирование программного средства "Автоматизированная система контроля и учета кабельных проводок на Нововоронежской АЭС-2". Выбор инструмента для создания программного обеспечения. Технические условия работы программы. Структура базы данных ПС.
дипломная работа [4,4 M], добавлен 29.06.2012Диаграммы декомпозиции в методологии IDEF0 и IDEF3. Информационная модель в нотации IDEF1.X. Создание приложения в СУБД-ориентированной среде. Описание результатной и входной информации. Макеты отображения результатов. Блок-схема основных модулей.
курсовая работа [2,4 M], добавлен 01.03.2015Изучение порядка и особенностей складского учета сырья, принятых на ответственное хранение, а также разработка информационной системы для автоматизации склада. Обоснование создания программного продукта для оптимизации информационных потоков фирмы.
курсовая работа [41,5 K], добавлен 12.05.2013Проектирование приложения, предназначенного для демонстрационного показа операций сдвигов чисел влево и вправо на n-битов и их результатов. Требования к функциональным характеристикам, параметрам технических средств. Компиляция и компоновка программы.
курсовая работа [712,4 K], добавлен 08.11.2013Требования к составу и содержанию работ по подготовке объекта автоматизации к вводу системы в действие. Средства, расширяющие возможности операционной системы. Руководство пользователя. Функции "Учет пациентов". Ввод в действие, методика испытаний.
дипломная работа [2,2 M], добавлен 29.07.2016Создание комплексной информационной системы на основе компьютерных информационных технологий подготовки, приема, обработки, передачи, учета, поиска экономической информации. Повышение оперативности и качества управления строительными материалами.
дипломная работа [2,3 M], добавлен 20.07.2014Требования к функциональным характеристикам, составу и параметрам технических средств, информационной и программной совместимости. Описание программы: общие сведения, логическая структура. Средства и порядок испытаний. Входные и выходные данные.
курсовая работа [6,3 M], добавлен 12.01.2015
