a04040f002unit.pas

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

   strPosion:=Trim(moneyEdt.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(moneyEdt.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.SpeedButton5Click(Sender: TObject);
var
   strRet:array[0..20] of string;
begin
   TD04jsrEdt.SetFocus;
   Application.CreateForm(TF007Frm,F007Frm);
   F007Frm.CallCodeHelp('Select * from TC05',1,striniHelpName,'TC05',strRet);
   if strRet[0]='-1' then exit;
   TD04jsrEdt.SetFocus;
   TD04jsrEdt.Text:=strRet[0];
end;

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

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

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

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

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

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

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

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

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

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

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

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

procedure TA04040F002Frm.TD04jsrEdtKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      SaveTBBtn.Click ;
end;

procedure TA04040F002Frm.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
      SaveTBBtn.Click ;
end;

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

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

procedure TA04040F002Frm.PreviewTBBtnClick(Sender: TObject);
var
   dataRecord:ChequeRecord;
   pp:pStrArray; // 用于将日期转换为大写
begin
      SpeedButton3.Click;
      { 从数据库中读取打印项配置}
      TC07ATbl.Close;
      TC07ATbl.Open;
      TD04jsrEdt.SetFocus;

      TC07ATbl.Locate('票据种类;打印项',VarArrayOf(['04','出票日期']),[loCaseInsensitive]);
      if TC07ATbl.FieldByName('打印标志').AsString='Y' then
      begin
          if TC07ATbl.FieldByName('数据格式').AsString='大写' then
          begin
              pp:=EnglishToChina(yearEdt.Text,mouthEdt.Text,dayEdt.Text);
              dataRecord.cpYear       := (pp^)[1];
              dataRecord.cpMonth      := (pp^)[2];
              dataRecord.cpDay        := (pp^)[3];
          end
          else
          begin
              dataRecord.cpYear       := yearEdt.Text;
              dataRecord.cpMonth      := IntToStr(StrToInt(mouthEdt.Text));
              dataRecord.cpDay        := IntToStr(StrToInt(dayEdt.Text));
          end;
      end;

      TC07ATbl.Locate('票据种类;打印项',VarArrayOf(['04','金额']),[loCaseInsensitive]);
      if TC07ATbl.FieldByName('打印标志').AsString='Y' then
      begin
        dataRecord.Shouxufei1   := trim(checkMoney(Zero(TD04InNameDBEdt.Text)));
        dataRecord.Shouxufei2   := trim(checkMoney(Zero(TD04InCodeDBEdt.Text)));
        dataRecord.Shouxufei3   := trim(checkMoney(Zero(TD04InBankDBEdt.Text)));
        dataRecord.Youfei1        :=trim(checkMoney(Zero(DBEdit6.Text)));
        dataRecord.Youfei2        :=trim(checkMoney(Zero(DBEdit8.Text)));
        dataRecord.Youfei3        :=trim(checkMoney(Zero(DBEdit10.Text)));
        dataRecord.Dianbaofei1    := trim(checkMoney(Zero(DBEdit7.Text)));
        dataRecord.Dianbaofei2    := trim(checkMoney(Zero(DBEdit9.Text)));
        dataRecord.Dianbaofei3    := trim(checkMoney(Zero(DBEdit11.Text)));
        dataRecord.Xiaoji1        := trim(checkMoney(Zero(DBEdit12.Text)));
        dataRecord.Xiaoji2        := trim(checkMoney(Zero(DBEdit13.Text)));
        dataRecord.Xiaoji3        := trim(checkMoney(Zero(DBEdit14.Text)));
        dataRecord.Heji1         :=trim(checkMoney(Edit4.Text));
        dataRecord.Heji2         :=trim(Zero(Edit5.Text));
        dataRecord.Heji3         :=trim(Zero(Edit6.Text));
        dataRecord.Heji4         :=trim(Zero(Edit7.Text));
        dataRecord.Heji5         :=trim(Zero(Edit8.Text));
        dataRecord.Money        :=trim(MoneyEdt.text);
      end;

      TC07ATbl.Locate('票据种类;打印项',VarArrayOf(['04','出票帐号']),[loCaseInsensitive]);
      if TC07ATbl.FieldByName('打印标志').AsString='Y' then
         dataRecord.Zhanghu        := TD04OutCodeDBEdt.Text;

      dataRecord.Jiesuan1         :=trim(TD04OutNameDBEdt.Text);
      dataRecord.Jiesuan2         :=trim(TD04OutCodeDBEdt.Text);
      dataRecord.Jiesuan3         :=trim(InDBEdt.Text);
      dataRecord.Huakuan1        :=trim(TD04KindDBEdt.Text);
      dataRecord.Huakuan2        :=trim(TD04NumDBEdt.Text);
      dataRecord.Huakuan3        :=trim(DBEdit2.Text);
      dataRecord.Bishu1       :=trim(checkMoney(DBEdit3.Text));
      dataRecord.Bishu2       :=trim(checkMoney(DBEdit4.Text));
      dataRecord.Bishu3       :=trim(checkMoney(DBEdit5.Text));
      dataRecord.Zhanghu         :=trim(TD04OutBankDBEdt.Text);
      A04040Rep.CallPrintCheque(dataRecord);
end;

procedure TA04040F002Frm.AddTBBtnClick(Sender: TObject);
var
   WordYear:Word;
   WordMouth:Word;
   WordDay:Word;
   result:Word;
begin
   if SaveTBBtn.Enabled then
   begin
      result:=Application.MessageBox('添加记录前，要保存当前记录吗？',
         '提示',MB_YesNoCancel+MB_DefButton1+MB_IconQuestion+MB_ApplModal);
      if result=IdYes then
      begin
         SaveTBBtnClick(Sender);     // 保存
      end;
      if result=IdCancel then
      begin
         exit;                       // 取消添加动作
      end;
      if result=IdNo then
      begin
         DMMain.adoConnMain.RollbackTrans;   // 回滚一个事务
         DMMain.adoConnMain.BeginTrans;   // 开始一个事务
      end;
   end;
   TD04ATbl.Append;
   currstat:='append';
   SaveTBBtn.Enabled :=True;
   DecodeDate(Date,WordYear,WordMouth,WordDay);
   YearEdt.Text :=IntToStr(WordYear);
   MouthEdt.Text :=IntToStr(WordMouth);
   DayEdt.Text :=IntToStr(WordDay);
end;

procedure TA04040F002Frm.MonthCalendar1DblClick(Sender: TObject);
begin
   SpeedButton2.Click ;
end;

procedure TA04040F002Frm.TD04OutNameDBEdtEnter(Sender: TObject);
begin
   if sender is TDBEdit then
      setfocuscolor(sender as TDBEdit);
   if sender is TEdit then
      setfocuscolor(sender as TEdit);
end;

procedure TA04040F002Frm.TD04OutNameDBEdtExit(Sender: TObject);
begin
   if sender is TDBEdit then
      setexitcolor(sender as TDBEdit);
   if sender is TEdit then
      setexitcolor(sender as TEdit);
end;

procedure TA04040F002Frm.TD04OutCodeDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04OutCodeDBEdt);
end;

procedure TA04040F002Frm.TD04OutBankDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04OutBankDBEdt);
end;

procedure TA04040F002Frm.TD04OutBankDBEdtExit(Sender: TObject);
begin
    setexitcolor(TD04OutBankDBEdt);
end;

procedure TA04040F002Frm.TD04InNameDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04InNameDBEdt);
end;

procedure TA04040F002Frm.TD04InNameDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04InNameDBEdt);
   TD04InNameDBEdt.text:=Zero(TD04InNameDBEdt.text);
end;

procedure TA04040F002Frm.TD04InCodeDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04InCodeDBEdt);
end;

procedure TA04040F002Frm.TD04InCodeDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04InCodeDBEdt);
   TD04InCodeDBEdt.Text:=Zero(TD04InCodeDBEdt.Text);
end;

procedure TA04040F002Frm.TD04InBankDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04InBankDBEdt);
end;

procedure TA04040F002Frm.TD04InBankDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04InBankDBEdt);
   TD04InBankDBEdt.text:=Zero(TD04InBankDBEdt.text);
end;

procedure TA04040F002Frm.MoneyEdtEnter(Sender: TObject);
begin
   setfocuscolor(MoneyEdt);
end;

procedure TA04040F002Frm.TD04KindDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04KindDBEdt);
end;

procedure TA04040F002Frm.TD04KindDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04KindDBEdt);
end;

procedure TA04040F002Frm.TD04NumDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04NumDBEdt);
end;

procedure TA04040F002Frm.TD04NumDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04NumDBEdt);
end;

procedure TA04040F002Frm.InDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(InDBEdt);
end;

procedure TA04040F002Frm.InDBEdtExit(Sender: TObject);
begin
   setexitcolor(InDBEdt);
end;

procedure TA04040F002Frm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
   45: // insert
      if (AddTBBtn.Enabled) and (AddTBBtn.Visible) then
         AddTBBtnClick(Sender);
   114: // F3
      SaveTBBtnClick(Sender);
   end;
end;

procedure TA04040F002Frm.SpeedButton1Click(Sender: TObject);
var strMoney:string;
begin
    DBEdit12.Text:='';
    DBEdit13.Text:='';
    DBEdit14.Text:='';
    edit4.Text:='';
    edit5.Text:='';