Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
* Owner)
: TForm (Owner)
{
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sButton1Click (TObject *Sender)
{();->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sButton3Click (TObject *Sender)
{->Timer1->Enabled=false;->Timer1->Enabled=false;->ADOQuery1->Active=false;->ADOQuery2->Active=false;->ADOQuery3->Active=false;->ADOQuery4->Active=false;->ADOQuery5->Active=false;->ADOQuery6->Active=false;->ADOQuery7->Active=false;->ADOQuery8->Active=false;->ADOQuery9->Active=false;->ADOQuery10->Active=false;->ADOQuery11->Active=false;->ADOQuery12->Active=false;->ADOQuery13->Active=false;->ADOQuery14->Active=false;->ADOQuery15->Active=false;->ADOTable1->Active=false;->ADOTable2->Active=false;->ADOTable3->Active=false;->ADOTable4->Active=false;->ADOTable5->Active=false;->ADOTable6->Active=false;->ADOTable7->Active=false;->ADOTable8->Active=false;->ADOTable9->Active=false;->ADOTable10->Active=false;->ADOTable11->Active=false;->ADOTable12->Active=false;->ADOTable13->Active=false;->ADOTable14->Active=false;->ADOTable15->Active=false;->ADOTable16->Active=false;->ADOConnection1->Connected=false;->Enabled=true;
}
// ---------------------------------------------------------------------------__fastcall TForm7:: Timer1Timer (TObject *Sender)
{->Progress++;(sGauge1->Progress==1) {sGauge1->Suffix="% Отключение базы данных. "; }(sGauge1->Progress==2) {sGauge1->Suffix="% Копирование базы данных. "; }(sGauge1->Progress==sGauge1->MaxValue) {sGauge1->Suffix="% Подключение базы данных. ";->Enabled=false;( (ExtractFilePath (ParamStr (0)) +"backup // "+"PTO_"+Date () +". mdb"). c_str (), (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str (),false);->ADOConnection1->Connected=true;->ADOQuery1->Active=true;->ADOQuery2->Active=true;->ADOQuery3->Active=true;->ADOQuery4->Active=true;->ADOQuery5->Active=true;->ADOQuery6->Active=true;->ADOQuery7->Active=true;->ADOQuery8->Active=true;->ADOQuery9->Active=true;->ADOQuery10->Active=true;->ADOQuery11->Active=true;->ADOQuery12->Active=true;->ADOQuery13->Active=true;->ADOQuery14->Active=true;->ADOQuery15->Active=true;->ADOTable1->Active=true;->ADOTable2->Active=true;->ADOTable3->Active=true;->ADOTable4->Active=true;->ADOTable5->Active=true;->ADOTable6->Active=true;->ADOTable7->Active=true;->ADOTable8->Active=true;->ADOTable9->Active=true;->ADOTable10->Active=true;->ADOTable11->Active=true;->ADOTable12->Active=true;->ADOTable13->Active=true;->ADOTable14->Active=true;->ADOTable15->Active=true;->ADOTable16->Active=true;>MessageBoxA ("Backup базы данных завершён успешно!","Копирование базы данных",64);->Suffix="%";->MaxValue=0;->Timer1->Enabled=true;->Timer1->Enabled=true;
}
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sButton2Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"backup // "+"PTO_"+Date () +". mdb"). c_str ();(StrToInt (Date (). FormatString ("dd")) ==DaysPerMonth (StrToInt (Date (). FormatString ("yyyy")),StrToInt (Date (). FormatString ("mm")))) {(FileExists (FileTo) ==false) {( (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str (),FileTo,true);>MessageBoxA ("Backup базы данных завершён успешно!","Копирование базы данных",64); }{ if (Application->MessageBoxA ("База существует, перезаписать?","Копирование базы данных",4+32) == 6) {( (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str (),FileTo,true);>MessageBoxA ("Backup базы данных завершён успешно!","Копирование базы данных",64); }}}{Application->MessageBoxA ("Копирование БД возможно в последний день месяца!","Копирование базы данных",64); }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sButton4Click (TObject *Sender)
{(sButton4->Caption=="Инфо") {->Width=297;->Visible=true;->Visible=true;->Caption="Закрыть"; }{->Width=0;->Visible=false;->Caption="Инфо"; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sButton5Click (TObject *Sender)
{(sButton5->Caption=="Инфо") {->Width=297;->Visible=true;->Visible=true;->Caption="Закрыть"; }{->Width=0;->Visible=false;->Caption="Инфо"; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel26Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"01.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel27Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"02.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel28Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"03.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel29Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"04.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel30Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"05.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel31Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"2012.05. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sWebLabel32Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index // "+"2012.06. xls"). c_str ();(FileExists (FileTo)) {(Handle, "open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA (NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sPageControl3Change (TObject *Sender)
{->ActivePage=sTabSheet8;
}
// ---------------------------------------------------------------------------__fastcall TForm7:: sPageControl1Change (TObject *Sender)
{->ActivePage=sTabSheet3;->ActivePage=sTabSheet5;->ActivePage=sTabSheet8; }
// ---------------------------------------------------------------------------__fastcall TForm7:: FormKeyDown (TObject *Sender, WORD &Key,Shift) {(Key==VK_ESCAPE) {sButton1Click (sButton1); } }
// ---------------------------------------------------------------------------
Приложение 2
Структурная схема программного продукта представлена на рисунке 2.1.
Рисунок 2.1 - Структурная схема программного продукта
Приложение 3
Блок-схема алгоритма работы основных расчётных модулей представлена на рисунке 3.1.
Рисуно