a04040f002unit.pas

工商收费系统,主要是管理非税收收入的费用的管理

    edit6.Text:='';
    edit7.Text:='';
    edit8.Text:='';

    DBEdit12.SetFocus;
    strMoney:=currtostr(DBEditCheck(TD04InNameDBEdt)+DBEditCheck(DBEdit6)
                  +DBEditCheck(DBEdit7));
    if strMoney<>'0' then
        DBEdit12.text:=strMoney;

    DBEdit13.SetFocus;
    strMoney:=currtostr(DBEditCheck(TD04InCodeDBEdt)+DBEditCheck(DBEdit8)
                  +DBEditCheck(DBEdit9));
    if strMoney<>'0' then
        DBEdit13.text:=strMoney;
    DBEdit14.SetFocus;
    strMoney:=currtostr(DBEditCheck(TD04InBankDBEdt)+DBEditCheck(DBEdit11)
                  +DBEditCheck(DBEdit10));
    if strMoney<>'0' then
        DBEdit14.text:=strMoney;
   Edit4.SetFocus;
   strMOney:=currtostr(DBEditCheck(DBEdit3)+DBEditCheck(DBEdit4)
                +DBEditCheck(DBEdit5));
   if strMoney<>'0' then
        Edit4.text:=strMoney;
   Edit5.SetFocus;
   strMoney:=currtostr(DBEditCheck(TD04InNameDBEdt)+DBEditCheck(TD04InCodeDBEdt)
                +DBEditCheck(TD04InBankDBEdt));
   if strMoney<>'0' then
        Edit5.text:=strMoney;
   Edit6.SetFocus;
   strMoney:=currtostr(DBEditCheck(DBEdit6)+DBEditCheck(DBEdit8)+DBEditCheck(DBEdit10));
   if strMoney<>'0' then
        Edit6.text:=strMoney;
   Edit7.SetFocus;
   strMoney:=currtostr(DBEditCheck(DBEdit7)+DBEditCheck(DBEdit9)+DBEditCheck(DBEdit11));
   if strMoney<>'0' then
        Edit7.text:=strMoney;
   Edit8.SetFocus;
   strMoney:=currtostr(EditCheck(DBEdit12)+EditCheck(DBEdit13)+EditCheck(DBEdit14));
   if strMoney<>'0' then
        Edit8.text:=strMoney;
end;

procedure TA04040F002Frm.SpeedButton3Click(Sender: TObject);
var
   i:integer;
   strMoney,strTmp:string;
   intTmp:integer;
   strPosion:string;
begin
{    speedButton1.Click;
    DBEdit12.SetFocus;
    DBEdit12.text:=currtostr(DBEditCheck(TD04InNameDBEdt)+DBEditCheck(DBEdit6)
                  +DBEditCheck(DBEdit7));
    DBEdit13.SetFocus;
    DBEdit13.text:=currtostr(DBEditCheck(TD04InCodeDBEdt)+DBEditCheck(DBEdit8)
                  +DBEditCheck(DBEdit9));
    DBEdit14.SetFocus;
    DBEdit14.text:=currtostr(DBEditCheck(TD04InBankDBEdt)+DBEditCheck(DBEdit11)
                  +DBEditCheck(DBEdit10));}
   Edit4.SetFocus;
   Edit4.text:=currtostr(DBEditCheck(DBEdit3)+DBEditCheck(DBEdit4)
                +DBEditCheck(DBEdit5));
   if Trim(Edit4.text)='0' then
     Edit4.Text:='';
   Edit5.SetFocus;
   Edit5.text:=currtostr(DBEditCheck(TD04InNameDBEdt)+DBEditCheck(TD04InCodeDBEdt)
                +DBEditCheck(TD04InBankDBEdt));
   if Trim(Edit5.text)='0' then
     Edit5.Text:='';
   Edit6.SetFocus;
   Edit6.text:=currtostr(DBEditCheck(DBEdit6)+DBEditCheck(DBEdit8)+DBEditCheck(DBEdit10));
   if Trim(Edit6.text)='0' then
     Edit6.Text:='';
   Edit7.SetFocus;
   Edit7.text:=currtostr(DBEditCheck(DBEdit7)+DBEditCheck(DBEdit9)+DBEditCheck(DBEdit11));
   if Trim(Edit7.text)='0' then
     Edit7.Text:='';
   Edit8.SetFocus;
   Edit8.text:=currtostr(EditCheck(DBEdit12)+EditCheck(DBEdit13)+EditCheck(DBEdit14));

   { 先进行判断是否需要进行处理 }
   {//strTmp:=ChangeMoneyLowcaseToUppercase(strForSaveMoney);
   if moneyEdt.Text=strTmp then
      begin
         setexitcolor(MoneyEdt);
          exit; // 不需要处理
      end;

   { 开始处理 }
   DBEdit15.text:=Trim(Edit8.text);
   strMoney:=Edit8.text;   // 临时保存原始金额；
   strForSaveMoney:=Edit8.text;  // 将原始输入，保存到类成员中
   { 对输入的金额进行处理}
   strPosion:=Trim(Edit8.text);
   intTmp:=Pos('.',pChar(strMoney));
   Delete(strPosion,intTmp,1);
   if intTmp=0 then
      strPosion:=strPosion+'00'
   else if (strlen(pChar(strPosion))-intTmp+1)=1 then
      strPosion:=strPosion+'0'
   else if (strlen(pChar(strPosion))-intTmp+1)=0 then
      strPosion:=strPosion+'00';
  {// if Length(strPosion)>10 then
      begin
         Application.MessageBox('金额输入错误！请重新输入',
                '提示',MB_OK+MB_DefButton1+MB_IconInformation+MB_ApplModal);
         moneyEdt.SetFocus;
         exit;
      end;            }
   { 将金额转换为大写并填写到对应项中 }
   moneyEdt.Text:=ChangeMoneyLowcaseToUppercase(Edit8.text);

   { 对输入的金额进行处理，去掉小数点并补充上角分位 }
   intTmp:=Pos('.',pChar(strMoney));
   Delete(strMoney,intTmp,1);
   if intTmp=0 then
      strMoney:=strMoney+'00'
   else if (strlen(pChar(strForSaveMoney))-intTmp)=1 then
      strMoney:=strMoney+'0'
   else if (strlen(pChar(strForSaveMoney))-intTmp)=0 then
      strMoney:=strMoney+'00';
   { 去除无用零字符 }
   intTmp:=Pos('0',pChar(strMoney));
   while (intTmp=1) and (intTmp<>strlen(pChar(strMoney))) do
   begin
      Delete(strMoney,intTmp,1);
      intTmp:=Pos('0',pChar(strMoney));
   end;
   setexitcolor(MoneyEdt);
end;


procedure TA04040F002Frm.DBEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      TD04InNameDBEdt.SetFocus;
end;

procedure TA04040F002Frm.DBEdit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit7.SetFocus;
end;

procedure TA04040F002Frm.DBEdit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit12.SetFocus;
end;

procedure TA04040F002Frm.DBEdit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      TD04OutCodeDBEdt.SetFocus;
end;

procedure TA04040F002Frm.TD04NumDBEdtKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
   if key=13 then
      DBEdit4.SetFocus;
end;

procedure TA04040F002Frm.DBEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      TD04InCodeDBEdt.SetFocus;
end;

procedure TA04040F002Frm.DBEdit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit9.SetFocus;
end;

procedure TA04040F002Frm.DBEdit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit13.SetFocus;
end;

procedure TA04040F002Frm.DBEdit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      InDBEdt.SetFocus;
end;

procedure TA04040F002Frm.InDBEdtKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit2.SetFocus;
end;

procedure TA04040F002Frm.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit5.SetFocus;
end;

procedure TA04040F002Frm.DBEdit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      TD04InBankDBEdt.SetFocus;
end;

procedure TA04040F002Frm.DBEdit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      DBEdit11.SetFocus;
end;

procedure TA04040F002Frm.DBEdit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
       DBEdit14.SetFocus;
end;

procedure TA04040F002Frm.DBEdit14KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      begin
//      SpeedButton1Click(Sender);
      SpeedButton3Click(Sender);
      MoneyEdt.SetFocus;
      end;
end;

Function TA04040F002Frm.DBEditCheck(edt:TDBEdit):Currency;
begin
   if trim(edt.Text)='' then
      result:=0
   else
     result:=strtocurr(trim(edt.text));
end;

Function TA04040F002Frm.EditCheck(ed:TDBEdit):Currency;
begin
   if trim(ed.Text)='' then
      result:=0
   else
     result:=strtocurr(trim(ed.text));
end;

procedure TA04040F002Frm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      begin
        SpeedButton1Click(Sender);
        TD04OutCodeDBEdt.SetFocus;
      end;
end;

procedure TA04040F002Frm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      begin
         SpeedButton1Click(Sender);
         InDBEdt.SetFocus;
      end;
end;

procedure TA04040F002Frm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      begin
         SpeedButton1Click(Sender);
         Edit4.SetFocus;
      end;
end;

procedure TA04040F002Frm.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      Edit5.SetFocus;
end;

procedure TA04040F002Frm.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      Edit6.SetFocus;
end;

procedure TA04040F002Frm.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      Edit7.SetFocus;
end;

procedure TA04040F002Frm.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      begin
        Edit8.SetFocus;
        SpeedButton3Click(Sender);
      end;
end;

procedure TA04040F002Frm.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
       MoneyEdt.SetFocus;
end;

procedure TA04040F002Frm.ToolButton1Click(Sender: TObject);
begin
   Application.CreateForm(TLeftAndTopFrm,LeftAndTopFrm);
   LeftAndTopFrm.strCode := '04040';
   LeftAndTopFrm.strTabelName := 'TC07';
   LeftAndTopFrm.EdtKind.Text := '收费凭证';
   LeftAndTopFrm.strKind := '04';
   LeftAndTopFrm.strDateName := '出票日期';
   LeftAndTopFrm.Showmodal;
end;

procedure TA04040F002Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TA04040F002Frm.DBEdit6Exit(Sender: TObject);
begin
    setexitcolor(DBEdit6);
   DBEdit6.text:=Zero(DBEdit6.text);
end;

procedure TA04040F002Frm.DBEdit8Exit(Sender: TObject);
begin
    setexitcolor(DBEdit8);
   DBEdit8.text:=Zero(DBEdit8.text);
end;

procedure TA04040F002Frm.DBEdit10Exit(Sender: TObject);
begin
   setexitcolor(DBEdit10);
   DBEdit10.text:=Zero(DBEdit10.text);
end;

procedure TA04040F002Frm.DBEdit7Exit(Sender: TObject);
begin
   setexitcolor(DBEdit7);
   DBEdit7.text:=Zero(DBEdit7.text);
end;

procedure TA04040F002Frm.DBEdit9Exit(Sender: TObject);
begin
    setexitcolor(DBEdit9);
   DBEdit9.text:=Zero(DBEdit9.text);
end;

procedure TA04040F002Frm.DBEdit11Exit(Sender: TObject);
begin
   setexitcolor(DBEdit11);
   DBEdit11.text:=Zero(DBEdit11.text);
end;

procedure TA04040F002Frm.Edit1Exit(Sender: TObject);
begin
    if sender is TDBEdit then
    begin
      setexitcolor(sender as TDBEdit);
      (Sender as TDBEdit).text:=Zero((Sender as TDBEdit).text);
    end;
   if sender is TEdit then
   begin
      setexitcolor(sender as TEdit);
     (Sender as TEdit).text:=Zero((Sender as TEdit).text);
   end;
end;

procedure TA04040F002Frm.SpeedButton4Click(Sender: TObject);
var
   strRet:array[0..20] of string;
begin
   Application.CreateForm(TF007Frm,F007Frm);
   F007Frm.CallCodeHelp('Select * from TC03',3,striniHelpName,'TC03',strRet);
   if strRet[0]='-1' then exit;
   TD04OutBankDBEdt.SetFocus ;
   TD04OutBankDBEdt.Text:=strRet[2];
end;

end.