a04049f002unit.pas

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

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.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.Money          :=trim(MoneyEdt.text);

        dataRecord.gongbenfei1    := trim(CheckMoney(Zero(gDBEdt1.Text)));

        dataRecord.Xiaoji1        := trim(CheckMoney(Zero(xjEdt1.Text)));

        dataRecord.gongbenfei2    := trim(CheckMoney(Zero(gDBEdt2.Text)));

        dataRecord.Xiaoji2        := trim(CheckMoney(Zero(xjEdt2.Text)));

        dataRecord.gongbenfei3    := trim(CheckMoney(Zero(gDBEdt3.Text)));

        dataRecord.Xiaoji3        := trim(CheckMoney(Zero(xjEdt3.Text)));

        dataRecord.gongbenfei     := trim(CheckMoney(Zero(gEdt.Text)));
       // dataRecord.qita           := trim(CheckMoney(Zero(qtEdt.Text)));
        dataRecord.Heji           :=trim(CheckMoney(Zero(xjEdt.Text)));
      end;
      TC07ATbl.Locate('票据种类;打印项',VarArrayOf(['04','出票人']),[loCaseInsensitive]);
      if TC07ATbl.FieldByName('打印标志').AsString='Y' then
         dataRecord.company        :=trim(companyDBEdt.Text);

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

      NameDBEdt1.Text         :=trim(ComboBox1.Text);
      dataRecord.Jiesuan1         :=trim(NameDBEdt1.Text);
     // dataRecord.Huakuan1        :=trim(TD04KindDBEdt1.Text);
      dataRecord.jiage1       :=trim(checkMoney(Zero(singleMoneyDBEdt1.Text)));
      dataRecord.count1       :=trim(CheckMoney(countDBEdt1.Text));

      NameDBEdt2.Text         :=trim(ComboBox2.text);
      dataRecord.Jiesuan2         :=trim(NameDBEdt2.Text);
     // dataRecord.Huakuan2        :=trim(TD04KindDBEdt2.Text);
      dataRecord.jiage2       :=trim(Checkmoney(Zero(singleMoneyDBEdt2.Text)));
      dataRecord.count2       :=trim(CheckMoney(countDBEdt2.Text));

      NameDBEdt3.Text         :=trim(ComboBox3.text);
      dataRecord.Jiesuan3         :=trim(NameDBEdt3.Text);
    //  dataRecord.Huakuan3        :=trim(TD04KindDBEdt3.Text);
      dataRecord.jiage3       :=trim(checkMoney(Zero(singleMoneyDBEdt3.Text)));
      dataRecord.count3       :=trim(CheckMoney(countDBEdt3.Text));

      dataRecord.jiage        :=trim(CheckMoney(Zero(singleMoneyEdt.Text)));
      dataRecord.count        :=trim(CheckMoney(countEdt.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.NameDBEdt1Enter(Sender: TObject);
begin
   if sender is TDBEdit then
      setfocuscolor(sender as TDBEdit);
   if sender is TEdit then
      setfocuscolor(sender as TEdit);
end;

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

procedure TA04040F002Frm.MoneyEdtEnter(Sender: TObject);
begin
   setfocuscolor(MoneyEdt);
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 strTmp:string;
begin
    xjEdt1.SetFocus;
  //  strTmp:=currtostr(DBEditCheck(gDBEdt1)+DBEditCheck(yDBEdt1)+
  //               +DBEditCheck(sDBEdt1)+DBEditCheck(QtDBEdt1));
    strTmp:=currtostr((DBEditCheck(gDBEdt1))*DBEditCheck(countDBEdt1));
    if strTmp<>'0' then
      xjEdt1.text:=strTmp;

    xjEdt2.SetFocus;
    strTmp:=currtostr((DBEditCheck(gDBEdt2))*DBEditCheck(countDBEdt2));
    if strTmp<>'0' then
      xjEdt2.text:=strTmp;

    xjEdt3.SetFocus;
    strTmp:=currtostr((DBEditCheck(gDBEdt3))*DBEditCheck(countDBEdt3));
    if strTmp<>'0' then
      xjEdt3.text:=strTmp;
end;

procedure TA04040F002Frm.SpeedButton3Click(Sender: TObject);
var
   strMoney:string;
begin
    speedButton1.click;
    strMoney:=currtostr(DBEditCheck(singleMoneyDBEdt1)+DBEditCheck(singleMoneyDBEdt2)
                  +DBEditCheck(singleMoneyDBEdt3));
    if strMoney<>'0' then
      singleMoneyEdt.text:=strMoney;

    strMoney:=currtostr(DBEditCheck(countDBEdt1)+DBEditCheck(countDBEdt2)
                  +DBEditCheck(countDBEdt3));
    if strMoney<>'0' then
      countEdt.text:=strMoney;

    strMoney:=currtostr(DBEditCheck(gDBEdt1)+DBEditCheck(gDBEdt2)
                  +DBEditCheck(gDBEdt3));
    if strMoney<>'0' then
      gEdt.text:=strMoney;

    strMoney:=currtostr(DBEditCheck(yDBEdt1)+DBEditCheck(yDBEdt2)
                  +DBEditCheck(yDBEdt3));
    if strMoney<>'0' then
      yEdt.text:=strMoney;

    strMoney:=currtostr(DBEditCheck(sDBEdt1)+DBEditCheck(sDBEdt2)
                  +DBEditCheck(sDBEdt3));
    if strMoney<>'0' then
      sEdt.text:=strMoney;

     strMoney:=currtostr(EditCheck(xjEdt1)+EditCheck(xjEdt2)
                  +EditCheck(xjEdt3));
    if strMoney<>'0' then
      xjEdt.text:=strMoney;

    if ChangeMoneyLowcaseToUppercase(strMoney)='-1' then
     begin
         Application.MessageBox('金额输入错误！请重新输入',
                '提示',MB_OK+MB_DefButton1+MB_IconInformation+MB_ApplModal);
         moneyEdt.SetFocus;
         exit;
     end;
    strForSaveMoney:=strMoney;
    MoneyEdt.Text:= ChangeMoneyLowcaseToUppercase(strMoney);
    setexitcolor(MoneyEdt);
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:TEdit):Currency;
begin
   if trim(ed.Text)='' then
      result:=0
   else
     result:=strtocurr(trim(ed.text));
end;

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

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

procedure TA04040F002Frm.companyDBEdtKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   strRet:array[0..20] of string;
begin
   if key=113 then
      begin
         speedButton4.Click ;
      end;
   if key=13 then
      begin
         if Trim(companyDBEdt.Text)='' then
            begin
               codeDBEdt.SetFocus;
               Exit;
            end;
         DMMain.AdoQueryOpen('select * from TC03 Where (公司名称='''
                              +comPanyDBEdt.Text+''' or 助记码='''+comPanyDBEdt.Text+
                              ''' or 帐号='''+comPanyDBEdt.Text+''')'+gstrOperater,SelectAQey,'0','1');
         if SelectAQey.RecordCount=0 then
            begin
               Application.CreateForm(TA0106F002Frm,A0106F002Frm);
               A0106F002Frm.striniHelpName:=self.striniHelpName;
               A0106F002Frm.strTC03D01:=comPanyDBEdt.Text;
               A0106F002Frm.Tag:=1;
               A0106F002Frm.ShowModal;
               A0106F002Frm.Destroy;
            end;
         if SelectAQey.RecordCount=1 then
            begin
                  comPanyDBEdt.Text:=SelectAQey.fields[0].AsString;
                  CodeDBEdt.Text:=SelectAQey.fields[2].AsString;
                  ComboBox1.SetFocus;
            end;
         if SelectAQey.RecordCount>1 then
            begin
            Application.CreateForm(TF007Frm,F007Frm);
            F007Frm.CallCodeHelp('Select * from TC03 Where (公司名称='''
                              +companyDBEdt.Text+''' or 助记码='''+comPanyDBEdt.Text+
                              ''' or 帐号='''+comPanyDBEdt.Text+''')'+gstrOperater,3,striniHelpName,'TC03',strRet);
            if strRet[0]='-1' then exit;
            comPanyDBEdt.Text:=strRet[0];
            CodeDBEdt.Text:=strRet[2];
            ComboBox1.SetFocus;
            end;
        end;

end;




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

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

procedure TA04040F002Frm.ComboBox1Change(Sender: TObject);
begin
  NameDBEdt1.Text:=trim(ComboBox1.Text);
end;

procedure TA04040F002Frm.ComboBox2Change(Sender: TObject);
begin
  NameDBEdt2.Text:=trim(ComboBox2.Text);
end;

procedure TA04040F002Frm.ComboBox3Change(Sender: TObject);
begin
  NameDBEdt3.Text:=trim(ComboBox3.Text);
end;

procedure TA04040F002Frm.ComboBox1Enter(Sender: TObject);
begin
  setfocuscolor(ComboBox1);
end;

procedure TA04040F002Frm.ComboBox1Exit(Sender: TObject);
begin
  setexitcolor(ComboBox1);
end;

procedure TA04040F002Frm.ComboBox2Exit(Sender: TObject);
begin
  setexitcolor(ComboBox2);
end;

procedure TA04040F002Frm.ComboBox3Exit(Sender: TObject);
begin
  setexitcolor(ComboBox3);
end;

procedure TA04040F002Frm.ComboBox2Enter(Sender: TObject);
begin
  setfocuscolor(ComboBox2);
end;

procedure TA04040F002Frm.ComboBox3Enter(Sender: TObject);
begin
  setfocuscolor(ComboBox2);
end;

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

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

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



end.