void __fastcall TFormClients::EditKeyUp(TObject *Sender, WORD &Key, TShiftState Shift) { if(Key == VK_ESCAPE){ ButtonClearClick(this); } else if(Key == VK_RETURN){ if (FIBDataSetClients->RecordCount==1){ FormMain->EditDiskont->Text=FIBDataSetClients->FieldValues["UNIQC"]; FormMain->EditDiskontChange(this); Close(); } else{ MessageDlg("Укажите точный код клиента!", mtError, TMsgDlgButtons() << mbOK, 0); } } else if(Key == VK_INSERT){ TLocateOptions Opts; Opts.Clear(); Opts << loPartialKey; if(!FIBDataSetClients->Locate("UNIQC",Variant(EditUNIQC->Text),Opts)){ EditNAME->Text=""; EditINFO->Text=""; EditADRESS->Text=""; EditPHONE->Text=""; } Opts.Clear(); } else { if(FIBDataSetClients->Active)FIBDataSetClients->Close(); FIBDataSetClients->SQLs->SelectSQL->Clear(); FIBDataSetClients->SQLs->SelectSQL->Add("SELECT UNIQC, CLT_NAME, CLT_INFO, CLT_ADRESS, CLT_TYPE, CLT_PHONE, CLT_COUNTER, CLT_DISCOUNT FROM CLIENTS where uniqc > 0"); if(EditUNIQC->Tag==1) FIBDataSetClients->SQLs->SelectSQL->Add("AND Upper(UNIQC) like \'"+EditUNIQC->Text.UpperCase()+"%\'"); if(EditNAME->Tag==1) FIBDataSetClients->SQLs->SelectSQL->Add("AND Upper(CLT_NAME) like \'"+EditNAME->Text.UpperCase()+"%\'"); if(EditADRESS->Tag==1) FIBDataSetClients->SQLs->SelectSQL->Add("AND Upper(CLT_ADRESS) like \'"+EditADRESS->Text.UpperCase()+"%\'"); if(EditINFO->Tag==1) FIBDataSetClients->SQLs->SelectSQL->Add("AND Upper(CLT_INFO) like \'"+EditINFO->Text.UpperCase()+"%\'"); if(EditPHONE->Tag==1) FIBDataSetClients->SQLs->SelectSQL->Add("AND Upper(CLT_PHONE) like \'"+EditPHONE->Text.UpperCase()+"%\'"); for(int n=0;n<DBGridEhClients->Columns->Count;n++){ if (DBGridEhClients->Columns->Items[n]->Title->SortMarker==smDownEh) FIBDataSetClients->SQLs->SelectSQL->Add("order by "+DBGridEhClients->Columns->Items[n]->FieldName); if (DBGridEhClients->Columns->Items[n]->Title->SortMarker==smUpEh) FIBDataSetClients->SQLs->SelectSQL->Add("order by "+DBGridEhClients->Columns->Items[n]->FieldName+" desc"); } FIBDataSetClients->Open(); } }
void __fastcall TFrmPickVal::LoadData(AnsiString Sql,AnsiString LocalText) { dmMain->FindBySql( Sql, true, CdsMaster) ; if (LocalText !="") { AnsiString tmp; switch (FPickKind) { case ptpay_Accc: tmp ="pbn_BankNo"; break; } TLocateOptions Opts; Opts.Clear(); Opts <<loPartialKey; CdsMaster->Locate(tmp,LocalText,Opts); } }
void __fastcall Toperpwdform::BmodifyClick(TObject *Sender) { if (newpwd1->Text=="") { ShowMessage("请输入新密码!"); newpwd1->SetFocus(); return; } if (newpwd2->Text=="") { ShowMessage("请确认新密码!"); newpwd2->SetFocus(); return; } if (newpwd1->Text != newpwd2->Text) { ShowMessage("密码输入不一致,请重新输入!"); newpwd1->Text=""; newpwd2->Text=""; newpwd1->SetFocus(); return; } AnsiString password; int i; char *pbuf, buff[7]; pbuf=&buff[0]; strcpy(pbuf,(newpwd2->Text).c_str()); for (int i=0; i<(newpwd2->Text).Length();i++) //口令加密 password=password+Char(buff[i]^73+9); TLocateOptions Opts; Opts.Clear(); Opts <<loCaseInsensitive; dm1->OperTab->Close(); try { dm1->OperTab->Open(); } catch(...) { Application->MessageBox("打开表失败!","错误",MB_OK+MB_ICONINFORMATION); return; } dm1->OperTab->First(); if (dm1->OperTab->Locate("op_code",Trim(eoper->Text),Opts)) { dm1->OperTab->Edit(); dm1->OperTab->FieldByName("op_password")->AsString=password; dm1->OperTab->Post(); dm1->OperTab->Refresh(); Application->MessageBox("密码修改成功!下次登录请使用新密码","系统信息",MB_OK+MB_ICONINFORMATION); } else { Application->MessageBox("密码修改不成功!","系统信息",MB_OK); dm1->OperTab->Close(); } Bok->Enabled =true; oldpwd->Enabled = true; oldpwd->Text=newpwd1->Text; oldpwd->SetFocus(); Bmodify->Enabled = false; // Panel6->Enabled =false; // Panel7->Enabled =false; Panel6->Font->Color = clScrollBar; Panel7->Font->Color = clScrollBar; newpwd1->Enabled =false; newpwd2->Enabled =false; newpwd1->Clear(); newpwd2->Clear(); }