a02050f002unit.pas

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

      end;   
   if key=13 then
      begin
         if Trim(TD04OutNameDBEdt.Text)<>'' then
            if Trim(TD04OutCodeDBEdt.Text)<>'' then
               if Trim(TD04OutBankDBEdt.Text)<>'' then
                  begin
                     TD04InNameDBEdt.SetFocus;
                     Exit;
                  end;
         if Trim(TD04OutNameDBEdt.Text)='' then
            begin
               TD04OutCodeDBEdt.SetFocus;
               Exit;
            end;
         DMMain.AdoQueryOpen('select * from TC02 Where 客户名称='''
                              +TD04OutNameDBEdt.Text+'''',SelectAQey,'0','1');
         if SelectAQey.RecordCount=0 then
            begin
               Application.CreateForm(TA0107F002Frm,A0107F002Frm);
               A0107F002Frm.striniHelpName:=self.striniHelpName;
               A0107F002Frm.strTC02D01:=TD04OutNameDBEdt.Text;
               A0107F002Frm.Tag:=1;
               A0107F002Frm.ShowModal;
               A0107F002Frm.Destroy;
            end;
         if SelectAQey.RecordCount=1 then
            begin
                  TD04OutNameDBEdt.Text:=SelectAQey.fields[0].AsString;
                  TD04OutCodeDBEdt.Text:=SelectAQey.fields[2].AsString;
                  TD04OutBankDBEdt.Text:=SelectAQey.fields[1].AsString;
            end;
         if SelectAQey.RecordCount>1 then
            begin
            Application.CreateForm(TF007Frm,F007Frm);
            F007Frm.CallCodeHelp('Select * from TC03 Where 公司名称='''
                              +TD04OutNameDBEdt.Text+'''',3,striniHelpName,'TC03',strRet);
            if strRet[0]='-1' then exit;
            TD04OutNameDBEdt.Text:=strRet[0];
            TD04OutCodeDBEdt.Text:=strRet[2];
            TD04OutBankDBEdt.Text:=strRet[1];
            end;
      end;
end;

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

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

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

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

procedure TA02050F002Frm.TD04InNameDBEdtKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
var
   strRet:array[0..5] of string;
begin
   if key=113 then
      begin
         InSBtn.Click ;
      end;
   if key=13 then
      begin
         if Trim(TD04InNameDBEdt.Text)<>'' then
            if Trim(TD04InCodeDBEdt.Text)<>'' then
               if Trim(TD04InBankDBEdt.Text)<>'' then
                  begin
                     MoneyEdt.SetFocus;
                     Exit;
                  end;
         if Trim(TD04InNameDBEdt.Text)='' then
            begin
               TD04InCodeDBEdt.SetFocus;
               Exit;
            end;
         DMMain.AdoQueryOpen('select * from TC03 Where 公司名称='''
                              +TD04InNameDBEdt.Text+'''',SelectAQey,'0','1');
         if SelectAQey.RecordCount=0 then
            begin
               Application.CreateForm(TA0106F002Frm,A0106F002Frm);
               A0106F002Frm.striniHelpName:=self.striniHelpName;
               A0106F002Frm.strTC03D01:=TD04InNameDBEdt.Text;
               A0106F002Frm.Tag:=1;
               A0106F002Frm.ShowModal;
               A0106F002Frm.Destroy;
            end;
         if SelectAQey.RecordCount=1 then
            begin
                  TD04InNameDBEdt.Text:=SelectAQey.fields[0].AsString;
                  TD04InCodeDBEdt.Text:=SelectAQey.fields[2].AsString;
                  TD04InBankDBEdt.Text:=SelectAQey.fields[1].AsString;
            end;
         if SelectAQey.RecordCount>1 then
            begin
            Application.CreateForm(TF007Frm,F007Frm);
            F007Frm.CallCodeHelp('Select * from TC03 Where 公司名称='''
                              +TD04InNameDBEdt.Text+'''',3,striniHelpName,'TC03',strRet);
            if strRet[0]='-1' then exit;
            TD04InNameDBEdt.Text:=strRet[0];
            TD04InCodeDBEdt.Text:=strRet[2];
            TD04InBankDBEdt.Text:=strRet[1];
            end;
      end;
end;

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

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

procedure TA02050F002Frm.MoneyEdtKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then
   begin
      TD04KindDBEdt.SetFocus;
      setexitcolor(MoneyEdt);
   end;  
end;

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

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

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

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

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

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

procedure TA02050F002Frm.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 TA02050F002Frm.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 TA02050F002Frm.PreviewTBBtnClick(Sender: TObject);
var
   dataRecord:ChequeRecord;
begin
      TD04jsrEdt.SetFocus;
      dataRecord.strNum         := TD04NumDBEdt.Text;
      dataRecord.strName        := TD04KindDBEdt.Text;
      dataRecord.strMoney       := MoneyEdt.Text;
      dataRecord.cpYear         := yearEdt.Text;
      dataRecord.cpMonth        := mouthEdt.Text;
      dataRecord.cpDay          := dayEdt.Text;
      dataRecord.OutName        := TD04OutNameDBEdt.Text;
      dataRecord.OutCode        := TD04OutCodeDBEdt.Text;
      dataRecord.OutBank        := TD04OutBankDBEdt.Text;
      dataRecord.InName         := TD04InNameDBEdt.Text;
      dataRecord.InCode         := TD04InCodeDBEdt.Text;
      dataRecord.InBank         := TD04InBankDBEdt.Text;

      dataRecord.lowcaseMoney0  := moneyLabel0.Caption;
      dataRecord.lowcaseMoney1  := moneyLabel1.Caption;
      dataRecord.lowcaseMoney2  := moneyLabel2.Caption;
      dataRecord.lowcaseMoney3  := moneyLabel3.Caption;
      dataRecord.lowcaseMoney4  := moneyLabel4.Caption;
      dataRecord.lowcaseMoney5  := moneyLabel5.Caption;
      dataRecord.lowcaseMoney6  := moneyLabel6.Caption;
      dataRecord.lowcaseMoney7  := moneyLabel7.Caption;
      dataRecord.lowcaseMoney8  := moneyLabel8.Caption;
      dataRecord.lowcaseMoney9  := moneyLabel9.Caption;

      A02050Rep.CallPrintCheque(dataRecord);
end;

procedure TA02050F002Frm.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;
   MoneyEdt.Text :='';
   moneyLabel0.Caption :='0';
   moneyLabel1.Caption :='0';
   moneyLabel2.Caption :='0';
   moneyLabel3.Caption :='0';
   moneyLabel4.Caption :='0';
   moneyLabel5.Caption :='0';
   moneyLabel6.Caption :='0';
   moneyLabel7.Caption :='0';
   moneyLabel8.Caption :='0';
   moneyLabel9.Caption :='0';
   SaveTBBtn.Enabled :=True;
   DecodeDate(Date,WordYear,WordMouth,WordDay);
   YearEdt.Text :=IntToStr(WordYear);
   MouthEdt.Text :=IntToStr(WordMouth);
   DayEdt.Text :=IntToStr(WordDay);
end;

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

procedure TA02050F002Frm.TD04OutNameDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04OutNameDBEdt);
end;

procedure TA02050F002Frm.TD04OutNameDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04OutNameDBEdt);
end;

procedure TA02050F002Frm.TD04OutCodeDBEdtEnter(Sender: TObject);
begin
   setfocuscolor(TD04OutCodeDBEdt);
end;

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

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

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

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

procedure TA02050F002Frm.TD04InNameDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04InNameDBEdt);
end;

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

procedure TA02050F002Frm.TD04InCodeDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04InCodeDBEdt);
end;

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

procedure TA02050F002Frm.TD04InBankDBEdtExit(Sender: TObject);
begin
   setexitcolor(TD04InBankDBEdt);
end;

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

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

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

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

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

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

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

procedure TA02050F002Frm.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;

end.