pawninput.pas

一个典当行的业务管理系统程序

     if key=VK_RETURN then
     begin
          cmbPawnCategory.SetFocus;
     end;
end;

procedure TfrmPawnInput.cmbPawnCategoryKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if CertiEnterTimes=0 then
          begin
               CertiEnterTimes:=CertiEnterTimes+1;
               if SendMessage((Sender as TDBComBoBox).handle,CB_GetDroppedState,0,0)
                  =0 then
                  PostMessage((Sender as TDBComBoBox).handle,CB_SHOWDROPDOWN,1,0);
          end
          else
          begin
               CertiEnterTimes:=0;
               txtPawnSpec.SetFocus;
          end;
          {tempText:=cmbPawnCategory.Text;
          with dmPawnFrm do
          begin
               with tblCategory do
               begin
                    Open;
                    SetKey;
                    FieldByName('Code').asstring:=tempText;//dbgDetail.SelectedField.DisplayText;
                    if GotoKey then
                    begin
                         cmbPawnCategory.Text:=FieldByName('Name').asstring;
                         txtPawnSpec.SetFocus;
                    end
                    else
                    begin
                         messagedlg(Msg.MsgCategoryNoExist,mtWarning,[mbYes],0);
                         txtPawnSpec.SetFocus;
                         //cmbPawnCategory.SetFocus;
                    end;
                    Close;
                    end;
               end;}
     end;
end;

procedure TfrmPawnInput.txtPawnSpecKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          txtPawnNumber.SetFocus;
     end;
end;

procedure TfrmPawnInput.txtPawnNumberKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          txtAppriseValue.SetFocus;
     end;
end;

procedure TfrmPawnInput.txtAppriseValueKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          txtDiscountRate.SetFocus;
     end;
end;


procedure TfrmPawnInput.txtDiscountRateKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   tempAppriseValue:Double;
   tempDiscountRate:Double;
   tempMoney:Double;
   Len:integer;
   tempStrDisRate:string;
   tempPercentMark:string;

begin
     if txtAppriseValue.Text='' then
     begin
          tempAppriseValue:=0;
     end
     else
     begin
          tempAppriseValue:=txtAppriseValue.Field.AsFloat;
     end;
     if key=VK_RETURN then
     begin
          if txtDiscountRate.Text='' then
          begin
               tempDiscountRate:=100;
          end
          else
          begin
               Len:=length(txtDiscountRate.Text);
               tempStrDisRate:=txtDiscountRate.Text;
               tempPercentMark:=txtDiscountRate.Text;

               Delete(tempPercentMark,1,Len-1);
               //如字符串的最后一个字符是%，则将他删除
               if tempPercentMark='%' then
               begin
                    Delete(tempStrDisRate,Len,1);
               end;
               tempDiscountRate:=strtofloat(tempStrDisRate);
          end;
          tempMoney:=tempAppriseValue*(tempDiscountRate/100);
          dmPawnFrm.tblDetailTemp.Edit;
          txtPawnMoney.Field.Value:=tempMoney;
          txtPawnMoney.SetFocus;
     end;
end;

procedure TfrmPawnInput.txtPawnMoneyKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   LineNo:integer;
begin
     if key=VK_RETURN then
     begin
          with dmPawnFrm do
          begin
               tblDetailTempPawnTicketCode.Value:=txtPawnCode.Text;
               LineNo:=tblDetailTempPawnLineNum.Value;
               tblDetailTemp.Post;
               if messagedlg(Msg.MsgInputAgain,mtConfirmation,[mbYes,mbNo],0)=mrYes then
               begin
                    LineNo:=LineNo+1;
                    tblDetailTemp.Append;
                    tblDetailTempPawnLineNum.Value:=LineNo;
                    txtPawnName.SetFocus;
               end
               else
               begin
                    LineNo:=0;
                    //将典当期限显示在年月日上
                    if (txtPawnEndYear.Text='') or
                       (txtPawnEndMonth.Text='')or
                       (txtPawnEndDay.Text='') then
                    begin
                         cmbPawnLimitExit(Sender);
                    end;
                    //计算总额
                    GetTotalMoney;
                    //txtPawnBeginYearEnter(Sender);          //计算典当总额
                    //计算利息及综合费用
                    //cmbPawnLimitExit(Sender);
                    txtMonthRateExit(Sender);
                    txtFeeRateExit(Sender);
                    //txtPawnEndDayExit(Sender);              //计算典当期限
                                                            //与利息、费用
                    cmdSave.SetFocus;
               end;
          end;
     end;
end;



procedure TfrmPawnInput.txtAppriseValueKeyPress(Sender: TObject;
  var Key: Char);
begin
     if (key='e') or (key='E') then
        key:=chr(0);
end;

procedure TfrmPawnInput.txtDiscountRateKeyPress(Sender: TObject;
  var Key: Char);
begin
     if (key='e') or (key='E') then
        key:=chr(0);
end;

procedure TfrmPawnInput.txtPawnMoneyEnter(Sender: TObject);
begin
     dmPawnFrm.tblDetailTemp.Edit;
end;

{procedure TfrmPawnInput.cmbPawnLimitDropDown(Sender: TObject);
begin
     cmbPawnLimitExit(Sender);
end;}

procedure TfrmPawnInput.cmbPawnLimitClick(Sender: TObject);
begin
      cmbPawnLimitExit(Sender);
end;



{procedure TfrmPawnInput.txtSysYearChange(Sender: TObject);
begin
     txtPawnBeginYear.Text:=inttostr(txtSysYear.Value);
end;}

{procedure TfrmPawnInput.txtSysMonthChange(Sender: TObject);
begin
     txtPawnBeginMonth.Text:=inttostr(txtSysMonth.Value);
end;}

{procedure TfrmPawnInput.txtSysDayChange(Sender: TObject);
begin
     txtPawnBeginDay.Text:=inttostr(txtSysDay.Value);
end;}

procedure TfrmPawnInput.txtPawnEndYearKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
//var
   //Year,Month,Day:word;
begin
     //DecodeDate(Now,Year,Month,Day);
     if key=VK_RETURN then
     begin
          if txtPawnEndYear.Text='' then
          begin
               txtPawnEndYear.Value:=GlobalVar.SysYear;
               txtPawnEndMonth.SetFocus;
               exit;
          end;
          if (txtPawnEndYear.Value>txtPawnEndYear.MaxValue)or
             (txtPawnEndYear.Value<txtPawnEndYear.MinValue)then
          begin
             txtPawnEndYear.Value:=GlobalVar.SysYear;
          end;
          txtPawnEndMonth.SetFocus;
     end;
end;

procedure TfrmPawnInput.txtPawnEndMonthKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
//var
   //Year,Month,Day:word;
begin
     //DecodeDate(Now,Year,Month,Day);
     if key=VK_RETURN then
     begin
          if txtPawnEndMonth.Text='' then
          begin
               txtPawnEndMonth.Value:=GlobalVar.SysMonth;
               txtPawnEndDay.SetFocus;
               exit;
          end;
          if (txtPawnEndMonth.Value>txtPawnEndMonth.MaxValue) or
             (txtPawnEndMonth.Value<txtPawnEndMonth.MinValue) then
          begin
               txtPawnEndMonth.Value:=GlobalVar.SysMonth;
          end;
          txtPawnEndDay.SetFocus;
     end;
end;

procedure TfrmPawnInput.txtPawnEndDayKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
//var
   //Year,Month,Day:word;
begin
     //DecodeDate(Now,Year,Month,Day);
     if key=VK_RETURN then
     begin
          if txtPawnEndDay.Text='' then
          begin
               txtPawnEndDay.Value:=GlobalVar.SysDay;
               cmdSave.SetFocus;
               exit;
          end;
          if (txtPawnEndDay.Value>txtPawnEndDay.MaxValue) or
             (txtPawnEndDay.Value<txtPawnEndDay.MinValue) then
          begin
               txtPawnEndDay.Value:=GlobalVar.SysDay;
          end;
          cmdSave.SetFocus;
     end;
end;

{procedure TfrmPawnInput.txtPawnBeginYearKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if key=VK_RETURN then
     begin
          if txtPawnBeginYear.Text =''then
             txtPawnBeginYear.Text := IntToStr(Year);
          ChangePawnEndDate(txtPawnBeginYear.Text,'','');
     end;
     //if (length(txtPawnBeginYear.text)=4) then {or
     //   (length(txtPawnBeginYear.text)=2)then
     //   txtPawnBeginMonth.SetFocus ;
end;}

{procedure TfrmPawnInput.txtPawnBeginMonthKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
   InputMonth:integer;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if key=VK_RETURN then
     begin
          if txtPawnBeginMonth.Text ='' then
             txtPawnBeginMonth.Text:=IntToStr(Month);
          //if (length(txtPawnBeginMonth.text)=2)then
          //begin
               InputMonth:=strtoint(txtPawnBeginMonth.Text);
               if (InputMonth>12)or(InputMonth<1) then
               begin
                    txtPawnBeginMonth.Text :=IntToStr(Month);
               end;
               ChangePawnEndDate('',txtPawnBeginMonth.Text,'');
               txtPawnBeginDay.SetFocus ;
          //end;
     end;
end;}

{procedure TfrmPawnInput.txtPawnBeginDayKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   Present: TDateTime;
   Year, Month, Day: Word;
begin
     Present:= Now;
     DecodeDate(Present, Year, Month, Day);
     if key=VK_RETURN then
     begin
          if txtPawnBeginDay.Text =''then
             txtPawnBeginDay.Text:=IntToStr(Day);
          //if length(txtPawnBeginDay.text)=2 then
          //begin
          if (strtoint(txtPawnBeginDay.text)<1)or
             (strtoint(txtPawnBeginDay.text)>31) then
          begin
               txtPawnBeginDay.Text :=IntToStr(Day);
          end;
          ChangePawnEndDate(0,'',txtPawnBeginDay.Text);
          txtPawnEndYear.SetFocus ;
          //end;
     end;
end;}

procedure TfrmPawnInput.txtSysYearKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if txtSysYear.Text='' then
          begin
               txtSysYear.Value:=GlobalVar.SysYear;
               txtSysMonth.SetFocus;
               exit;
          end;
          if (txtSysYear.Value>txtSysYear.MaxValue)or
             (txtSysYear.Value<txtSysYear.MinValue)then
          begin
             txtSysYear.Value:=GlobalVar.SysYear;
          end;
          txtSysMonth.SetFocus;
     end;
end;

procedure TfrmPawnInput.txtSysMonthKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key=VK_RETURN then
     begin
          if txtSysMonth.Text='' then
          begin
               txtSysMonth.Value:=GlobalVar.SysMonth;
               txtSysDay.SetFocus;
               exit;
          end;
          if (txtSysMonth.Value>txtSysMonth.MaxValue)or
             (txtSysMonth.Value<txtSysMonth.MinVal