141
{
}
void __fastcall TForm7::FormShow(TObject *Sender)
{
ComboBox1->Items->Clear();
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT PInv_num FROM
Printer;");
DataModule2->ADOQuery1->Open();
DataModule2->ADOQuery1->First();
for(int i=0;i<DataModule2->ADOQuery1->RecordCount;i++)
{ComboBox1->Items->Add(DataModule2->ADOQuery1-
>FieldValues["PInv_num"]);
DataModule2->ADOQuery1->Next(); }
}
void __fastcall TForm7::ComboBox1Change(TObject *Sender)
{
if(!(ComboBox1->Text.IsEmpty()))
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("SELECT POtdel FROM Printer
WHERE PInv_num="+ComboBox1->Text+";");
DataModule2->ADOQuery2->Open();
DataModule2->ADOQuery2->First();
Edit1->Text=DataModule2->ADOQuery2->FieldValues["POtdel"];
Edit2->Enabled=true;
if(!(Edit2->Text.IsEmpty()))
{Button2->Enabled=true;}
else{Button2->Enabled=false;}
}
else{
Edit1->Text="";
Edit2->Text="";
142
Edit2->Enabled=false;}
}
void __fastcall TForm7::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm7::Button1Click(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Form7->Close();
}
void __fastcall TForm7::Edit2Change(TObject *Sender)
{
if(!(Edit2->Text.IsEmpty()))
{Button2->Enabled=true;}
else{Button2->Enabled=false;}
}
void __fastcall TForm7::Button2Click(TObject *Sender)
{
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("UPDATE Printer SET
POtdel='"+Edit2->Text+"' WHERE PInv_num="+ComboBox1-
>Text+";");
DataModule2->ADOQuery2->ExecSQL();
DataModule2->ADOQuery2->Close();
DataModule2->ADOQuery2->SQL->Clear();
DataModule2->ADOQuery2->SQL->Add("INSERT INTO Movement VALUES
("+ComboBox1->Text+", '"+Edit1->Text+"', '"+Edit2-
>Text+"');");
DataModule2->ADOQuery2->ExecSQL();
ComboBox1Change(NULL);
}TForm8 *Form8;
143
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm8::Button3Click(TObject *Sender)
{
int result=Application->MessageBox(L"¬ы уверены что хотите
удалить выбранный принтер?",L"ѕодтверждение", MB_YESNO);
if(result == IDYES)
{DBGrid1->DataSource->DataSet->Delete();}
Button4->Enabled=false;
Button3->Enabled=false;
}
void __fastcall TForm8::DBGrid1CellClick(TColumn *Column)
{
if (DBGrid1->DataSource->DataSet->RecordCount>0) {
Button4->Enabled=true;
Button3->Enabled=true;
}
else
{
Button4->Enabled=false;
Button3->Enabled=false;
}
}
void __fastcall TForm8::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->Show();
}
void __fastcall TForm8::Button1Click(TObject *Sender)
{
Form8->Close();
}
void __fastcall TForm8::FormShow(TObject *Sender)
144
{
DataModule2->ADOQuery1->Close();
DataModule2->ADOQuery1->SQL->Clear();
DataModule2->ADOQuery1->SQL->Add("SELECT * FROM Admiss;");
DataModule2->ADOQuery1->Open();
}
void __fastcall TForm8::Button2Click(TObject *Sender)
{
Form8->Hide();
Form9->Caption="ƒобавление нового поступившего принтера";
Form9->Show();
}
void __fastcall TForm8::Button4Click(TObject *Sender)
{
Form8->Hide();
Form9->Caption="»зменение выбранного поступившего принтера";
Form9->Edit1->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AInv_num")->Text;
Form9->DateTimePicker1->DateTime=DBGrid1->DataSource->DataSet-
>FieldByName("ADate")->AsDateTime;
Form9->Edit2->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AFrom")->Text;
Form9->Edit3->Text=DBGrid1->DataSource->DataSet-
>FieldByName("ACost")->Text;
Form9->Edit4->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AName")->Text;
Form9->Edit5->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AOtdel")->Text;
Form9->Edit6->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AInv_num")->Text;
Form9->Edit7->Text=DBGrid1->DataSource->DataSet-
>FieldByName("ADate")->Text;
Form9->Edit8->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AFrom")->Text;
145
Form9->Edit9->Text=DBGrid1->DataSource->DataSet-
>FieldByName("ACost")->Text;
Form9->Edit10->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AName")->Text;
Form9->Edit11->Text=DBGrid1->DataSource->DataSet-
>FieldByName("AOtdel")->Text;
DBGrid1->DataSource->DataSet->Delete();
Form9->Show();
}
TForm9 *Form9;
bool otmena=true;
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm9::FormShow(TObject *Sender)
{
if(Form9->Caption=="Изменение выбранного принтера")
{Button2->Caption="Изменить";
CheckBox1->Visible=false;
CheckBox1->Checked=false;}
else{Button2->Caption="Добавить";
CheckBox1->Visible=true;
CheckBox1->Checked=true;}
}
void __fastcall TForm9::Button1Click(TObject *Sender)
{
Form9->Close();
}
void __fastcall TForm9::Button2Click(TObject *Sender)
{
int d=1;
if(Edit1->Text.IsEmpty() || Edit2->Text.IsEmpty() || Edit3-
>Text.IsEmpty() || isalpha(Edit1->Text[1]) || isalpha(Edit3-
>Text[1]) || Edit4->Text.IsEmpty() || Edit5->Text.IsEmpty() )
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");