Dasturiy ta'minot tizimini loyihalash” fanidan tayyorlagan Amalyot ishi 2 Mavzu
Download 1.65 Mb.
|
Amalyot detline 2
FOYDALANILGAN ADABIYOTLAR
Qosimov S. “Axborot texnologiyalari”. “C++ Borland Builder6” elektron o’quv kursi. ZiyoNet tarmog’i Google qidiruv tizimi Никита Культин. “C++ Builder в задачах и примерах.” Рейсдорф К., Хендерсон К. “Borland C++Builder”. Broyda. “Вичислительеые системы, сети и телекомуникатции.” Холингвэрт Дж., Баттерфилд Д., Свор Б. - C++ Builder 5. ILOVA void __fastcall TMainForm::nav_AddProductClick(TObject *Sender) { Page_Control->ActivePageIndex = 1; Pages(); aImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); } //--------------------------------------------------------------------------- void __fastcall TMainForm::nav_SettingsClick(TObject *Sender) { Page_Control->ActivePageIndex = 2; UpdateSettings(); Pages(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::Pages(){ nav_Products->SkinData->SkinSection = "BUTTON"; nav_AddProduct->SkinData->SkinSection = "BUTTON"; nav_Settings->SkinData->SkinSection = "BUTTON"; if(Page_Control->ActivePageIndex == 0){ nav_Products->SkinData->SkinSection = "MENUBTN"; } else if(Page_Control->ActivePageIndex == 1) { nav_AddProduct->SkinData->SkinSection = "MENUBTN"; } else if(Page_Control->ActivePageIndex == 2) { nav_Settings->SkinData->SkinSection = "MENUBTN"; } }
void __fastcall TMainForm::ShowDB() { if(sDBGrid1->SelectedField->Text != ""){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT id FROM Cars WHERE id = :ID"); ADOQuery1->Parameters->ParamByName("ID")->Value = sDBGrid1->SelectedField->Text; ADOQuery1->Open();
MainImage->Picture->LoadFromFile(DIR + "images/"+ADOQuery1->FieldByName("id")->AsString+".jpg"); else if(FileExists(DIR + "images/"+ADOQuery1->FieldByName("id")->AsString+".png")) MainImage->Picture->LoadFromFile(DIR + "images/"+ADOQuery1->FieldByName("id")->AsString+".png"); else MainImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); } } //--------------------------------------------------------------------------- void __fastcall TMainForm::SearchP(TObject *Sender) { Search(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::Search(){
if(seModel->Text == ""){ seModels = ""; } else { seModels = " Nomi LIKE '%"+seModel->Text+"%'"; }
sePrices = ""; } else { if((seModel->Text == "")){ sePrices = " Narxi LIKE '%"+sePrice->Text+"%'"; } else { sePrices = " AND Narxi LIKE '%"+sePrice->Text+"%'"; } }
Where = ""; } else { Where = "WHERE "; }
Sort_type = " ASC"; } else if(sRadioButton2->Checked){ Sort_type = " DESC"; } else { Sort_type = ""; }
Sort = " ORDER BY id" + Sort_type; } else { switch(sSort->ItemIndex){ case 0:
Sort = "id"; break;
case 1: Sort = "Nomi"; break; case 2:
Sort = "Narxi"; break;
} Sort = " ORDER BY " + Sort + Sort_type; }
ADOQuery2->Close(); ADOQuery2->SQL->Clear(); ADOQuery2->SQL->Add("SELECT * FROM Cars ORDER BY id ASC"); ADOQuery2->Open(); dynamic_cast } else { ADOQuery2->Close(); ADOQuery2->SQL->Clear(); ADOQuery2->SQL->Add("SELECT * FROM Cars "); ADOQuery2->SQL->Add(Where+seModels+sePrices+Sort); ADOQuery2->Open(); dynamic_cast }
} //--------------------------------------------------------------------------- void __fastcall TMainForm::sDBGrid1ScrollData(TObject *Sender) { ShowDB(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::UpdateClick(TObject *Sender) { if(sDBGrid1->SelectedField->Text != ""){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Cars WHERE id = " + sDBGrid1->SelectedField->Text); ADOQuery1->Open(); uID->Text = ADOQuery1->FieldByName("id")->AsInteger; uNomi->Text = ADOQuery1->FieldByName("Nomi")->AsString; uYukxona->Text = ADOQuery1->FieldByName("Yukxona")->AsString; uTrans->Text = ADOQuery1->FieldByName("Transmissiya")->AsString; uXavf->Text = ADOQuery1->FieldByName("Xavfsizlik")->AsString; uYoqilgi->Text = ADOQuery1->FieldByName("Yoqilgi_sarfi")->AsString; uNarxi->Text = ADOQuery1->FieldByName("Narxi")->AsString;
if(FileExists(DIR + "images/" + id + ".jpg")) uImage->Picture->LoadFromFile(DIR + "images/" + id + ".jpg"); else if(FileExists(DIR + "images/"+id+".png")) uImage->Picture->LoadFromFile(DIR + "images/" + id + ".png"); else
uImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); Page_Control->ActivePageIndex = 3; }
//--------------------------------------------------------------------------- void __fastcall TMainForm::CreateClick(TObject *Sender) { if(aNomi->Text != "" && aYukxona->Text != "" && aTrans->Text != "" && aXavf->Text != "" && aYoqilgi->Text != "" && aNarxi->Text != ""){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("INSERT INTO Cars (Nomi, Yukxona, Transmissiya, Xavfsizlik, Yoqilgi_sarfi, Narxi) Values ('" + aNomi->Text + "','" + aYukxona->Text + "','" + aTrans->Text + "','" + aXavf->Text + "','" + aYoqilgi->Text + "','" + aNarxi->Text + "')"); ADOQuery1->ExecSQL(); Search(); sDBGrid1->Refresh(); Page_Control->ActivePageIndex = 0; Pages(); aNomi->Text = ""; aYukxona->Text = ""; aTrans->Text = ""; aXavf->Text = ""; aYoqilgi->Text = ""; aNarxi->Text = ""; } }
void __fastcall TMainForm::DeleteClick(TObject *Sender) { if(sDBGrid1->SelectedField->Text != ""){ DBDeleteForm->ShowModal(); } } //--------------------------------------------------------------------------- void __fastcall TMainForm::UpdateActClick(TObject *Sender) { if(uNomi->Text != "" && uYukxona->Text != "" && uTrans->Text != "" && uXavf->Text != "" && uYoqilgi->Text != "" && uNarxi->Text != ""){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("UPDATE Cars SET Nomi=:Nomi,Yukxona=:Yukxona,Transmissiya=:Transmissiya,Xavfsizlik=:Xavfsizlik,Yoqilgi_sarfi=:Yoqilgi_sarfi,Narxi=:Narxi WHERE id=:id;"); ADOQuery1->Parameters->ParamByName("id")->Value = uID->Text; ADOQuery1->Parameters->ParamByName("Nomi")->Value = uNomi->Text; ADOQuery1->Parameters->ParamByName("Yukxona")->Value = uYukxona->Text; ADOQuery1->Parameters->ParamByName("Transmissiya")->Value = uTrans->Text; ADOQuery1->Parameters->ParamByName("Xavfsizlik")->Value = uXavf->Text; ADOQuery1->Parameters->ParamByName("Yoqilgi_sarfi")->Value = uYoqilgi->Text; ADOQuery1->Parameters->ParamByName("Narxi")->Value = uNarxi->Text; ADOQuery1->ExecSQL(); sDBGrid1->Refresh(); Search();
UpdateOK->Visible = true; } }
void __fastcall TMainForm::Timer1Timer(TObject *Sender) { UpdateOK->Visible = false; LoginError->Visible = false; UpdateOK1->Visible = false; Timer1->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TMainForm::UploadImageClick(TObject *Sender) { if(sOpenDialog1->Execute()){ uImage->Picture->LoadFromFile(sOpenDialog1->FileName); uImage->Picture->SaveToFile(DIR + "images/" + uID->Text + ".jpg"); MainImage->Picture->LoadFromFile(sOpenDialog1->FileName); } } //--------------------------------------------------------------------------- void __fastcall TMainForm::uDeleteImageClick(TObject *Sender) { uImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); MainImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); if(FileExists(DIR + "images/" + uID->Text + ".jpg")) DeleteFile(DIR + "images/" + uID->Text + ".jpg"); else if(FileExists(DIR + "images/" + uID->Text + ".png")) DeleteFile(DIR + "images/" + uID->Text + ".png");
//--------------------------------------------------------------------------- void __fastcall TMainForm::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if(Page_Control->ActivePageIndex == 2){ if (Key == VK_BACK){ TMainForm::nav_ProductsClick(Sender); } }
//--------------------------------------------------------------------------- void __fastcall TMainForm::sTabSheet1Show(TObject *Sender) { sDBGrid1->SetFocus(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::FormShow(TObject *Sender) { if(LoginForm->Role == 2){ } } //--------------------------------------------------------------------------- void __fastcall TMainForm::sDBGrid1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { if(LoginForm->Role != 2){ if(Page_Control->ActivePageIndex == 0){ if (Key == VK_RETURN){ } } } } //--------------------------------------------------------------------------- void __fastcall TMainForm::Timer2Timer(TObject *Sender) { Time->Caption = Now().TimeString(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::SelectDB() { ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Cars WHERE id = " + sDBGrid1->SelectedField->Text); ADOQuery1->Open(); } //--------------------------------------------------------------------------- void __fastcall TMainForm::ChangePosition(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { long SC_DRAGMOVE = 0xF012; if(Button == mbLeft) { ReleaseCapture(); SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); } } //--------------------------------------------------------------------------- void __fastcall TMainForm::UpdateSettings() { ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Users WHERE id = " + lId->Text + " AND Name = '" + lLogin->Text + "'"); ADOQuery1->Open();
} //--------------------------------------------------------------------------- void __fastcall TMainForm::SettingsUpdateClick(TObject *Sender) { ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Users WHERE Name = '" + Login->Text + "'"); ADOQuery1->Open();
if(Login->Text != "" && OldPass->Text == "" && NewPass->Text == "" && NewPass2->Text == ""){ if(ADOQuery1->FieldByName("Name")->AsString == ""){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("UPDATE Users SET Name = :Name WHERE id = :id;"); ADOQuery1->Parameters->ParamByName("id")->Value = lId->Text; ADOQuery1->Parameters->ParamByName("Name")->Value = Login->Text; ADOQuery1->ExecSQL(); lLogin->Text = Login->Text; Timer1->Enabled = true; UpdateOK1->Visible = true; } else if(Login->Text == lLogin->Text) { Timer2->Enabled = false; LoginError->Visible = false; Timer1->Enabled = true; UpdateOK1->Visible = true; } else { Timer2->Enabled = true; LoginError->Visible = true; } } else if(Login->Text != "" && OldPass->Text != ""){ if (OldPassMd5 == ADOQuery1->FieldByName("Pass_word")->AsString && NewPass->Text != "" && NewPass2->Text != "") { if(NewPass->Text == NewPass2->Text){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("UPDATE Users SET Pass_word = :Pass WHERE id = :id;"); ADOQuery1->Parameters->ParamByName("id")->Value = lId->Text; ADOQuery1->Parameters->ParamByName("Pass")->Value = MD5(NewPass->Text); ADOQuery1->ExecSQL(); Timer1->Enabled = true; UpdateOK1->Visible = true; OldPass->Text = ""; NewPass->Text = ""; NewPass2->Text = ""; } else { Timer2->Enabled = true; NewPasswordError->Visible = true; NewPassword2Error->Visible = true; } } else { Timer2->Enabled = true; if (OldPassMd5 != ADOQuery1->FieldByName("Pass_word")->AsString) { PasswordError->Visible = true; }
NewPasswordError->Visible = true; NewPassword2Error->Visible = true; } }
} //--------------------------------------------------------------------------- void __fastcall TMainForm::Timer4Timer(TObject *Sender) { LoginError->Visible = false; PasswordError->Visible = false; NewPasswordError->Visible = false; NewPassword2Error->Visible = false; Timer2->Enabled = false; } //--------------------------------------------------------------------------- void __fastcall TMainForm::MainImageClick(TObject *Sender) { if(sDBGrid1->SelectedField->Text != ""){ String id = sDBGrid1->SelectedField->Text; if(FileExists(DIR + "images/" + id + ".jpg") || FileExists(DIR + "images/"+id+".png")){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Cars WHERE id = " + id); ADOQuery1->Open(); if(FileExists(DIR + "images/" + id + ".jpg")) ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/" + id + ".jpg"); else if(FileExists(DIR + "images/"+id+".png")) ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/" + id + ".png"); else ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); ProductImageForm->ProductInfo->Caption = ADOQuery1->FieldByName("Nomi")->AsString; ProductImageForm->ShowModal(); } }
//--------------------------------------------------------------------------- void __fastcall TMainForm::Show_passwordClick(TObject *Sender) { if (Show_password->Checked == true) { OldPass->PasswordChar = '\0'; NewPass->PasswordChar = '\0'; NewPass2->PasswordChar = '\0'; } else { OldPass->PasswordChar = '*'; NewPass->PasswordChar = '*'; NewPass2->PasswordChar = '*'; } } //--------------------------------------------------------------------------- void __fastcall TMainForm::uImageClick(TObject *Sender) { if(uID->Text != ""){ String id = uID->Text; if(FileExists(DIR + "images/" + id + ".jpg") || FileExists(DIR + "images/"+id+".png")){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Cars WHERE id = " + id); ADOQuery1->Open(); if(FileExists(DIR + "images/" + id + ".jpg")) ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/" + id + ".jpg"); else if(FileExists(DIR + "images/"+id+".png")) ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/" + id + ".png"); else ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); ProductImageForm->ProductInfo->Caption = ADOQuery1->FieldByName("Nomi")->AsString; ProductImageForm->ShowModal(); } }
//--------------------------------------------------------------------------- void __fastcall TMainForm::SellClick(TObject *Sender) { if(sDBGrid1->SelectedField->Text != ""){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Cars WHERE id = " + sDBGrid1->SelectedField->Text); ADOQuery1->Open(); uID->Text = ADOQuery1->FieldByName("id")->AsInteger; sNomi->Caption = ADOQuery1->FieldByName("Nomi")->AsString; sYukxona->Caption = ADOQuery1->FieldByName("Yukxona")->AsString; sTrans->Caption = ADOQuery1->FieldByName("Transmissiya")->AsString; sXavf->Caption = ADOQuery1->FieldByName("Xavfsizlik")->AsString; sYoqilgi->Caption = ADOQuery1->FieldByName("Yoqilgi_sarfi")->AsString; sNarxi->Caption = ADOQuery1->FieldByName("Narxi")->AsString;
if(FileExists(DIR + "images/" + id + ".jpg")) sImage->Picture->LoadFromFile(DIR + "images/" + id + ".jpg"); else if(FileExists(DIR + "images/"+id+".png")) sImage->Picture->LoadFromFile(DIR + "images/" + id + ".png"); else
sImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); sTotal->Caption = ((ADOQuery1->FieldByName("Narxi")->AsInteger) * sCounts->Value) - sDiscount->Value; Page_Control->ActivePageIndex = 4; } } //--------------------------------------------------------------------------- void __fastcall TMainForm::sCountsChange(TObject *Sender) { sTotal->Caption = ((ADOQuery1->FieldByName("Narxi")->AsInteger) * sCounts->Value) - sDiscount->Value; } //--------------------------------------------------------------------------- void __fastcall TMainForm::sDiscountChange(TObject *Sender) { sTotal->Caption = ((ADOQuery1->FieldByName("Narxi")->AsInteger) * sCounts->Value) - ((((ADOQuery1->FieldByName("Narxi")->AsInteger) * sCounts->Value) / 100) * sDiscount->Value); } //--------------------------------------------------------------------------- void __fastcall TMainForm::sImageClick(TObject *Sender) { if(uID->Text != ""){ String id = uID->Text; if(FileExists(DIR + "images/" + id + ".jpg") || FileExists(DIR + "images/"+id+".png")){ ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->SQL->Add("SELECT * FROM Cars WHERE id = " + id); ADOQuery1->Open(); if(FileExists(DIR + "images/" + id + ".jpg")) ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/" + id + ".jpg"); else if(FileExists(DIR + "images/"+id+".png")) ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/" + id + ".png"); else ProductImageForm->SImage->Picture->LoadFromFile(DIR + "images/NO_IMAGE.png"); ProductImageForm->ProductInfo->Caption = ADOQuery1->FieldByName("Nomi")->AsString; ProductImageForm->ShowModal(); } }
//--------------------------------------------------------------------------- void __fastcall TMainForm::sSpeedButton1Click(TObject *Sender) { Page_Control->ActivePageIndex = 0; } //--------------------------------------------------------------------------- TATUFF Download 1.65 Mb. Do'stlaringiz bilan baham: |
ma'muriyatiga murojaat qiling