void __fastcall TfrmParolaAyar::tbtnKAYDETClick(TObject *Sender)
{
tblPAROLA->Edit();
tblPAROLAKULLANICI_ADI->Value = AnsiUpperCase(tblPAROLAKULLANICI_ADI->Value);
tblPAROLAPAROLA1->Value = AnsiUpperCase(tblPAROLAPAROLA1->Value);
tblPAROLAPAROLA2->Value = AnsiUpperCase(tblPAROLAPAROLA2->Value);
if (DBEdit2->Text != DBEdit3->Text)
Application->MessageBoxA("Parolalar birbiriyle uyum saðlamýyor!..\nLütfen düzeltin",
"Uyarý Mesajý", MB_OK + MB_ICONEXCLAMATION);
else {
if (RadioButton2->Checked == false &&
RadioButton1->Checked == false)
Application->MessageBoxA("Lütfen izin türünü seçin !..",
"Uyarý Mesajý", MB_OK + MB_ICONEXCLAMATION);
else if (RadioButton2->Checked == true) {
tblPAROLA-> Edit();
tblPAROLAIZIN->Value = true;
}
else {
tblPAROLA-> Edit();
tblPAROLAIZIN->Value = false;
}
tblPAROLA->Post();
tbtnKAYDET->Enabled = false;
}
}
//---------------------------------------------------------------------------
TdxOcShape __fastcall TOrgChartRLMainForm::GetShape(AnsiString ShapeName)
{
const AnsiString ShapeArray[] = {"Rectangle", "Round Rect", "Ellipse", "Diamond"};
for (int i = 0; i<4; i++)
if (AnsiUpperCase(ShapeArray[i]) == AnsiUpperCase(ShapeName))
return TdxOcShape(i);
};
//---------------------------------------------------------------------------
void __fastcall TfrmSonucGirisi::SpeedButton2Click(TObject *Sender)
{
unsigned short nGun, nAy, nYil;
int nDeger;
nDeger = Application->MessageBox("Kaydý silmek son kararýnýz mý?", "Silme onayý",
MB_YESNO + MB_ICONQUESTION);
if (nDeger == IDYES) {
tblJOKEYHAR->First();
while (!tblJOKEYHAR->Eof) {
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARJOKEY->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "JOKEY";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() != 0) {
tblJOKEYANA->Filtered = true;
tblJOKEYANA->Filter = "[REFERANS]='"+IntToStr(queryKAYITKONTROLREFERANS->Value)+"'";
tblJOKEYANA->Edit();
--tblJOKEYANATOPLAMKOSU->Value;
if (tblJOKEYHARKACINCI->Value == 1)
--tblJOKEYANATOPLAMBIRINCI->Value;
tblJOKEYANA->Post();
}
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARANTRENOR->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "ANTRENOR";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() != 0) {
tblJOKEYANA->Filtered = true;
tblJOKEYANA->Filter = "[REFERANS]='"+IntToStr(queryKAYITKONTROLREFERANS->Value)+"'";
tblJOKEYANA->Edit();
--tblJOKEYANATOPLAMKOSU->Value;
if (tblJOKEYHARKACINCI->Value == 1)
--tblJOKEYANATOPLAMBIRINCI->Value;
tblJOKEYANA->Post();
}
tblJOKEYHAR->Next();
}
DateTimePicker1->Date.DecodeDate(&nYil, &nAy, &nGun);
if (comboPist->Text.Length() != 0 &&
comboKosuNo->Text.Length() != 0 ) {
Referans = IntToStr(nYil)+IntToStr(nAy)+IntToStr(nGun)+
comboPist->Text+IntToStr(comboKosuNo->ItemIndex);
querySONUCSILME->SQL->Clear();
querySONUCSILME->SQL->Add("DELETE FROM JOKEYHAR");
querySONUCSILME->SQL->Add("WHERE REFERANS='"+Referans+"'");
querySONUCSILME->ExecSQL();
ListeFiltrele();
}
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmSonucGirisi::SpeedButton4Click(TObject *Sender)
{
int nSayac = 0;
tblJOKEYHAR->First();
while (!tblJOKEYHAR->Eof) {
++nSayac;
tblJOKEYHAR->Edit();
if (nSayac < 10)
tblJOKEYHARKACINCI->Value = nSayac;
else
tblJOKEYHARKACINCI->Value = 0;
tblJOKEYHAR->Post();
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARJOKEY->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "JOKEY";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() != 0) {
tblJOKEYANA->Filtered = true;
tblJOKEYANA->Filter = "[REFERANS]='"+IntToStr(queryKAYITKONTROLREFERANS->Value)+"'";
if (tblJOKEYHARISARETLE->Value == false) {
tblJOKEYANA->Edit();
++tblJOKEYANATOPLAMKOSU->Value;
if (tblJOKEYHARKACINCI->Value == 1)
++tblJOKEYANATOPLAMBIRINCI->Value;
tblJOKEYANA->Post();
}
}
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARANTRENOR->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "ANTRENOR";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() != 0) {
tblJOKEYANA->Filtered = true;
tblJOKEYANA->Filter = "[REFERANS]='"+IntToStr(queryKAYITKONTROLREFERANS->Value)+"'";
if (tblJOKEYHARISARETLE->Value == false) {
tblJOKEYANA->Edit();
++tblJOKEYANATOPLAMKOSU->Value;
if (tblJOKEYHARKACINCI->Value == 1)
++tblJOKEYANATOPLAMBIRINCI->Value;
// Ýþaret Burada yerleþiyor.
tblJOKEYHAR->Edit();
tblJOKEYHARISARETLE->Value = true;
tblJOKEYHAR->Post();
//----------------------------------
tblJOKEYANA->Post();
}
}
tblJOKEYHAR->Next();
}
}
//---------------------------------------------------------------------------
TdxOcImageAlign __fastcall TOrgChartRLMainForm::GetImageAlign(AnsiString AlignName)
{
const AnsiString AlignArray[] = {
"None",
"Left-Top", "Left-Center", "Left-Bottom",
"Right-Top", "Right-Center", "Right-Bottom",
"Top-Left", "Top-Center", "Top-Right",
"Bottom-Left", "Bottom-Center", "Bottom-Right"
};
for(int i=0; i< 13; i++)
if (AnsiUpperCase(AlignArray[i]) == AnsiUpperCase(AlignName))
return(TdxOcImageAlign(i));
return(TdxOcImageAlign(0));
};
//---------------------------------------------------------------------------
void __fastcall TfrmHareketListesi::FormShow(TObject *Sender)
{
queryHAREKET->Close();
queryHAREKET->ParamByName("FATURA_NO")->AsString = AnsiUpperCase(Firma_Edit->Text+"%");
queryHAREKET->ParamByName("HAREKET_TURU")->AsString = frmStokHareketi->Edit1->Text;
queryHAREKET->ParamByName("DEPARTMAN")->AsString = frmAnaMenu->ComboBox1->Text;
queryHAREKET->Open();
}
//---------------------------------------------------------------------------
long __fastcall TCDirectoryOutline::GetChildNamed(const AnsiString& Name,
long Item)
{
String AText, AName;
TOutlineNode* Node = Items[Item];
Node->Expanded = true;
long rc = Node->getFirstChild();
AName = AnsiUpperCase(Name);
AText = AnsiUpperCase(Items[rc]->Text);
while (rc != InvalidIndex && AText != AName)
{
rc = Node->GetNextChild(rc);
if (rc != InvalidIndex)
AText = AnsiUpperCase(Items[rc]->Text);
}
return rc;
}
void __fastcall TfrmSonucGirisi::DBGrid1KeyPress(TObject *Sender,
char &Key)
{
if (Key == Char(VK_RETURN)) {
if (DBGrid1->SelectedIndex == 1) {
tblJOKEYHAR->Edit();
tblJOKEYHARJOKEY->Value = AnsiUpperCase(tblJOKEYHARJOKEY->Value);
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARJOKEY->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "JOKEY";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() == 0)
frmHataMesaji->Show();
else {
++DBGrid1->SelectedIndex;
Key = 0;
}
}
else if (DBGrid1->SelectedIndex == 2) {
tblJOKEYHAR->Edit();
tblJOKEYHARANTRENOR->Value = AnsiUpperCase(tblJOKEYHARANTRENOR->Value);
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARANTRENOR->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "ANTRENOR";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() == 0)
frmHataMesaji2->Show();
else {
DBGrid1->SelectedIndex = 1;
tblJOKEYHAR->Next(); // ..::Database bir sonraki elemana geçiyor::..
}
}
else {
++DBGrid1->SelectedIndex;
Key = 0;
}
}
}
void __fastcall TfrmSonucGirisi::Kaydet1Click(TObject *Sender)
{
int nDeger;
nDeger = Application->MessageBox("Kaydý silmek son kararýnýz mý?", "Silme onayý",
MB_YESNO + MB_ICONQUESTION);
if (nDeger == IDYES) {
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARJOKEY->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "JOKEY";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() != 0) {
tblJOKEYANA->Filtered = true;
tblJOKEYANA->Filter = "[REFERANS]='"+IntToStr(queryKAYITKONTROLREFERANS->Value)+"'";
tblJOKEYANA->Edit();
--tblJOKEYANATOPLAMKOSU->Value;
if (tblJOKEYHARKACINCI->Value == 1)
--tblJOKEYANATOPLAMBIRINCI->Value;
tblJOKEYANA->Post();
}
queryKAYITKONTROL->Close();
queryKAYITKONTROL->ParamByName("ADISOYADI")->AsString = AnsiUpperCase(tblJOKEYHARANTRENOR->Value);
queryKAYITKONTROL->ParamByName("KAYITTURU")->AsString = "ANTRENOR";
queryKAYITKONTROL->Open();
if (queryKAYITKONTROLADISOYADI->Value.Length() != 0) {
tblJOKEYANA->Filtered = true;
tblJOKEYANA->Filter = "[REFERANS]='"+IntToStr(queryKAYITKONTROLREFERANS->Value)+"'";
tblJOKEYANA->Edit();
--tblJOKEYANATOPLAMKOSU->Value;
if (tblJOKEYHARKACINCI->Value == 1)
--tblJOKEYANATOPLAMBIRINCI->Value;
tblJOKEYANA->Post();
}
tblJOKEYHAR->Delete();
}
}
void __fastcall TKeyControlForm::SendButtonClick( TObject */*Sender*/ )
{
sendCW( AnsiUpperCase( Memo1->Lines->Text.Trim() ).t_str(), SpeedControl->Value, ToneEdit->Text.ToIntDef( 1000 ) );
}
