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();
}
