unit1.pas

这是我给一单位开以的支票打印系统,开发环境为delphi,控件为fastreport

        if print_mb='信用联社' then
          begin
            bbdy.LoadFromFile('cash3.frf');
            bbdy.DesignReport;
          end;
        if print_mb='其他' then
          begin
            bbdy.LoadFromFile('cash4.frf');
            bbdy.DesignReport;
          end;  
      end;
   if czplx.Text='转帐' then
       begin
       if cms.ItemIndex=0 then
        begin
        if print_mb='工商银行' then
          begin
            bbdy.LoadFromFile('carry.frf');
            bbdy.DesignReport;
          end;
        if print_mb='建设银行' then
          begin
            bbdy.LoadFromFile('carry1.frf');
            bbdy.DesignReport;
          end;
        if print_mb='农业银行' then
          begin
            bbdy.LoadFromFile('carry2.frf');
            bbdy.DesignReport;
          end;
        if print_mb='信用联社' then
          begin
            bbdy.LoadFromFile('carry3.frf');
            bbdy.DesignReport;
          end;
        if print_mb='其他' then
          begin
            bbdy.LoadFromFile('carry4.frf');
            bbdy.DesignReport;
          end;
          end;
        if cms.ItemIndex=1 then
        begin
        if print_mb='工商银行' then
          begin
            bbdy.LoadFromFile('acarry.frf');
            bbdy.DesignReport;
          end;
        if print_mb='建设银行' then
          begin
            bbdy.LoadFromFile('acarry1.frf');
            bbdy.DesignReport;
          end;
        if print_mb='农业银行' then
          begin
            bbdy.LoadFromFile('acarry2.frf');
            bbdy.DesignReport;
          end;
        if print_mb='信用联社' then
          begin
            bbdy.LoadFromFile('acarry3.frf');
            bbdy.DesignReport;
          end;
        if print_mb='其他' then
          begin
            bbdy.LoadFromFile('acarry4.frf');
            bbdy.DesignReport;
          end;
         end; 
        end ;
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
    form3.ShowModal;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
    form4.ShowModal ;
end;

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
   form5.ShowModal ;
   cyt.Items.Clear ;
   form5.ad_yt.First ;
   while not (form5.ad_yt.Eof) do
   begin
      cyt.Items.Add(form5.ad_yt.Fields[0].AsString );
      form5.ad_yt.Next ;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     sj.Caption:=MY_STRTOYEAR(date())+' 年 '+MY_STRTOMONTH(date())+' 月 '+MY_STRTODDAY(date())+' 日';
end;

procedure TForm1.csjChange(Sender: TObject);
begin
     sj.Caption:=MY_STRTOYEAR(csj.Value)+' 年 '+MY_STRTOMONTH(csj.Value)+' 月 '+MY_STRTODDAY(csj.Value)+' 日';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   cyh.Items.Clear ;
   czh.Items.Clear ;
   cyt.Items.Clear;
   data.BANCK.Open ;
   while not(data.BANCK.Eof )do
   begin
      cyh.Items.Add(data.BANCK.Fields[0].AsString );
      czh.Items.Add(data.BANCK.Fields[1].AsString );
      data.BANCK.Next ;
   end;
    while not(data.ZPYT.Eof )do
   begin
      cyt.Items.Add(data.ZPYT.Fields[0].AsString );
      data.ZPYT.Next ;
   end;
   data.ZPJE.Open;
   data.ZPJE.Last;
   yhh:=data.ZPJE.FieldByName('yh_h').Value;
   yth:=data.ZPJE.FieldByName('yt_h').Value;
   skdwh:=data.ZPJE.FieldByName('dw_h').Value;
   if data.ZPJE.FieldByName('lb').Value=1 then
       czplx.Text:='现金'
   else
       czplx.Text:='转帐';
   if data.ZPYT.Locate('ytdh',yth,[])then
      cyt.Text:=data.ZPYT.Fieldbyname('ytmc').AsString ;
   if data.BANCK.Locate('bank_dh',yhh,[]) then
      cyh.Text:=data.BANCK.Fieldbyname('bank_name').AsString ;
      czh.Text:=data.BANCK.Fieldbyname('bank_zh').AsString ;
   if data.addw.Locate('dw_dh',skdwh,[])then
      cdw.Text:=data.addw.Fieldbyname('skdw').AsString ;
end;

procedure TForm1.rxdbjChange(Sender: TObject);
begin
     if rxdbj.Value <>0 then
      cdx.Caption:=DXzh(floattostr(rxdbj.Value)) ;
end;

procedure TForm1.cyhChange(Sender: TObject);
begin
    if data.BANCK.Locate('bank_name',cyh.Text,[]) then
         czh.Text:=data.BANCK.Fieldbyname('bank_zh').AsString ;
end;

procedure TForm1.czhChange(Sender: TObject);
begin
      if data.BANCK.Locate('bank_zh',czh.Text,[]) then
         cyh.Text:=data.BANCK.Fieldbyname('bank_name').AsString ;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var systemtime:tsystemtime;
    mydate:tdatetime;
begin
     getlocaltime(systemtime);
     mydate:=systemtimetodatetime(systemtime);
      data.ZPJE.Edit ;
      data.ZPJE.Append ;
      cdx.Caption:='';
      cyh.Text:='';
      czh.Text:='';
      cyt.Text:='';
      cdw.Text:='';
      csj.Value:=mydate;
      bitbtn1.Enabled:=false;
      dbn1.Enabled:=false;
      BitBtn2.Enabled:=true;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
    datasave;
    bitbtn1.Enabled:=true;
    dbn1.Enabled:=true;
end;

procedure TForm1.DBN1Click(Sender: TObject; Button: TNavigateBtn);
begin
   yhh:=data.ZPJE.FieldByName('yh_h').Value;
   yth:=data.ZPJE.FieldByName('yt_h').Value;
   skdwh:=data.ZPJE.FieldByName('dw_h').Value;
   if data.ZPJE.FieldByName('lb').Value=1 then
       czplx.Text:='现金'
   else
       czplx.Text:='转帐';
   if data.ZPYT.Locate('ytdh',yth,[])then
      cyt.Text:=data.ZPYT.Fieldbyname('ytmc').AsString ;
   if data.BANCK.Locate('bank_dh',yhh,[]) then
      cyh.Text:=data.BANCK.Fieldbyname('bank_name').AsString ;
      czh.Text:=data.BANCK.Fieldbyname('bank_zh').AsString ;
    if data.addw.Locate('dw_dh',skdwh,[])then
      cdw.Text:=data.addw.Fieldbyname('skdw').AsString ;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
    close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
    data.zphm.ExecSQL ;
    if not data.zphm.Locate('zphm',czphm.Text,[]) then
      begin
         datasave;
         bitbtn1.Enabled:=true;
         dbn1.Enabled:=true;
         with bbdy.Dictionary do
         begin
            frVariables['dskyt']:=cyt.Text ;
            frVariables['dkhh']:=cyh.Text ;
            frVariables['dyhzh']:=czh.Text ;
            frVariables['dskdw']:=cdw.Text ;
            bb_print;
         end;
      end
    else
      with bbdy.Dictionary do
       begin
          frVariables['dskyt']:=cyt.Text ;
          frVariables['dkhh']:=cyh.Text ;
          frVariables['dyhzh']:=czh.Text ;
          frVariables['dskdw']:=cdw.Text ;
          bb_print;
       end;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
   form6.ShowModal;
end;

procedure TForm1.ToolButton6Click(Sender: TObject);
begin
    form8.ShowModal ;
end;

procedure TForm1.cdwButtonClick(Sender: TObject);
begin
    form9.ShowModal ;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
    bb_build;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    if MessageBox(application.handle,
                '您确定要退出管理系统吗？     ',
                '确认',mb_ICONQuestion+mb_YesNo)=mrno then
       canclose:=false
    else
       application.Terminate;
end;



procedure TForm1.cytButtonClick(Sender: TObject);
begin
     form10.ShowModal ;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
    form10.ShowModal;
end;

end.