Дипломная работа: Автоматизация процесса ведения документации и отчетности в ОАО «Бобруйсктранс»

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
146
{Application->MessageBox(L"Не все поля заполнены либо
заполнены не верно!",L"Ошибка!", MB_OK);}
else{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT COUNT(*) AS Pole FROM
Printer WHERE PInv_num ="+Edit1->Text+";");
DataModule2->ADOQuery2->Open();
d = DataModule2->ADOQuery2->FieldByName("Pole")->AsInteger;
if(d==0)
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Admiss VALUES
("+Edit1->Text+", '"+DateTimePicker1->DateTime+"', '"+Edit2-
>Text+"', '"+Edit3->Text+"', '"+Edit4->Text+"', '"+Edit5-
>Text+"');");
DataModule2->ADOQuery2->ExecSQL();
otmena=false;
if(CheckBox1->Checked)
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Printer VALUES
("+Edit1->Text+", '"+Edit4->Text+"', '"+Edit5->Text+"');");
DataModule2->ADOQuery2->ExecSQL();
}
Form9->Close();
}
else{Application->MessageBox(L"Данный инвентарный номер уже
существует!",L"Ошибка!", MB_OK);}}
}
void __fastcall TForm9::FormClose(TObject *Sender,
TCloseAction &Action)
{
147
if(Button2->Caption=="Изменить" && otmena==true){
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Admiss VALUES
("+Edit6->Text+", '"+Edit7->Text+"', '"+Edit8->Text+"',
'"+Edit9->Text+"', '"+Edit10->Text+"', '"+Edit11->Text+"');");
DataModule2->ADOQuery2->ExecSQL(); }
otmena=true;
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Edit4->Text="";
Edit5->Text="";
Form8->Show();
}
TForm10 *Form10;
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm10::FormShow(TObject *Sender)
{
DBGrid1->Visible=false;
DBGrid2->Visible=false;
DBGrid3->Visible=false;
ComboBox1->Items->Clear();
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT PInv_num FROM
Printer;");
DataModule2->ADOQuery2->Open();
DataModule2->ADOQuery2->First();
for(int i=0;i<DataModule2->ADOQuery2->RecordCount;i++)
{ComboBox1->Items->Add(DataModule2->ADOQuery2-
>FieldValues["PInv_num"]);
148
DataModule2->ADOQuery2->Next();}
}
void __fastcall TForm10::Button1Click(TObject *Sender)
{
Form10->Close();
}
void __fastcall TForm10::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm10::ComboBox1Change(TObject *Sender)
{
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Printer WHERE
PInv_num LIKE '"+ComboBox1->Text+"';");
DataModule2->ADOQuery1->Open();
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT * FROM Remont WHERE
RInv_num LIKE '"+ComboBox1->Text+"';");
DataModule2->ADOQuery2->Open();
DataModule2->ADOQuery3->Close();
DataModule2->ADOQuery3->SQL->Clear();
DataModule2->ADOQuery3->SQL->Add("SELECT * FROM Movement WHERE
MInv_num LIKE '"+ComboBox1->Text+"';");
DataModule2->ADOQuery3->Open();
DBGrid1->Visible=true;
DBGrid2->Visible=true;
DBGrid3->Visible=true;
}
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
149
{
}
void __fastcall
TForm11::Button1Click(TObject *Sender)
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT * FROM tmp;");
DataModule2->ADOQuery2->Open();
DataModule2->ADOQuery2->First();
}
vBorder(Variant& vVarCell,int Weight,
int LineStyle,int ColorIndex)
{
for(int i=8; i <= 10; i++)
{
switch(LineStyle)
{
case 1:
case -4115:
case 4:
case 5:
case -4118:
case -4119:
case 13:
case -4142:
vVarCell.OlePropertyGet("Borders",10).
OlePropertySet("LineStyle",LineStyle);
break;
default:
vVarCell.OlePropertyGet("Borders",i).
OlePropertySet("LineStyle",1);
}
switch(Weight)
{
150
case 1:
case -4138:
case 2:
case 4:
vVarCell.OlePropertyGet("Borders",i).
OlePropertySet("Weight",Weight);
break;
default:
vVarCell.OlePropertyGet("Borders",i).
OlePropertySet("Weight",1);
}
vVarCell.OlePropertyGet("Borders",i).
OlePropertySet("ColorIndex",ColorIndex);
}
}
{
Variant v;
if(!fStart)
{
try
{
vVarApp=CreateOleObject("Excel.Application");
fStart=true;
}
else return;
vVarApp.OlePropertySet("Visible",true);
vVarBooks=vVarApp.OlePropertyGet("Workbooks");
vVarApp.OlePropertySet("SheetsInNewWorkbook",2);
vVarBooks.OleProcedure("Add");
vVarSheet.OleProcedure("Activate");
vAsCurDir=GetCurrentDir();
vVarBook.OlePropertyGet("ActiveSheet").
vVarSheet=vVarSheets.OlePropertyGet("Item",1);
vVarSheet.OlePropertySet("Name","Учетная карточка");
vVarSheet.OleProcedure("Activate");
Источник: https://baza.diplomsite.ru/previewfile/2041

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы
- Описание типа СЭТ7009
- Программа ГПИ