unit1.pas

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,MYSELF, StdCtrls, Buttons,
  ExtCtrls, DBCtrls, DB, Grids, DBGrids, ToolEdit, RXDBCtrl, Mask, CurrEdit,
  DBCtrlsEh, sncCurrency, sncDBCurrency, FR_Class, FR_DSet, FR_DBSet,
  DBGridEh, ComCtrls, FR_Desgn, Menus, ToolWin, DBActns, ActnList, ADODB,
  AAFontDialog, AAFont, AACtrls, RzStatus, RzPanel, ImgList, DosMove,
  RzDBNav;

type
  TForm1 = class(TForm)
    ControlBar1: TControlBar;
    ToolBar2: TToolBar;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton7: TToolButton;
    czplx: TComboBox;
    snccy: TsncDBCurrencyEdit;
    sncCurrencyLabel1: TsncCurrencyLabel;
    rxdbj: TRxDBCalcEdit;
    csj: TDBDateTimeEditEh;
    Label1: TLabel;
    Shape2: TShape;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    sj: TLabel;
    Shape1: TShape;
    DBN1: TDBNavigator;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    cyh: TComboBox;
    czh: TComboBox;
    DataSource1: TDataSource;
    Label9: TLabel;
    cdx: TLabel;
    Label10: TLabel;
    czphm: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    AALabel1: TAALabel;
    AAFontDialog1: TAAFontDialog;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzStatusPane2: TRzStatusPane;
    RzStatusPane3: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzStatusPane4: TRzStatusPane;
    bbdy: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ImageList3: TImageList;
    cdw: TComboEdit;
    xg: TfrDesigner;
    cyt: TComboBox;
    cms: TRadioGroup;
    DosMove1: TDosMove;
    procedure datasave;
    procedure bb_print;
    procedure bb_build;
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure csjChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure rxdbjChange(Sender: TObject);
    procedure cyhChange(Sender: TObject);
    procedure czhChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBN1Click(Sender: TObject; Button: TNavigateBtn);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure cdwButtonClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cytButtonClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
  yhh,yth,skdwh:integer;
  print_mb:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses unit2,unit3,unit4,unit5,unit6,unit7,unit8,unit9,unit10;
{$R *.dfm}

procedure TForm1.datasave;
begin
    data.ZPJE.Edit ;
    if czplx.text=''then
      begin
         MessageBox(self.Handle, '请选择支票类型!', '提示', mb_IconInformation + mb_Ok);
         Abort;
      end
    else
    if czplx.Text='现金' then
       data.ZPJE.FieldByName('lb').Value:=1
    else
       data.ZPJE.FieldByName('lb').Value:=2 ;
    if cyt.Text=''then
        begin
            MessageBox(self.Handle, '请选择支票用途!', '提示', mb_IconInformation + mb_Ok);
            cyt.Focused;
           Abort;

        end
     else
         if data.ZPYT.Locate('ytmc',cyt.Text,[]) then
             data.ZPJE.FieldByName('yt_h').Value:=data.ZPYT.FieldByName('ytdh').Value ;
     if cyh.Text='' then
         begin
             MessageBox(self.Handle, '请选择开户银行!', '提示', mb_IconInformation + mb_Ok);
              cyh.Focused;
             Abort;
         end
      else
         if data.BANCK.Locate('bank_name',cyh.Text,[]) then
            data.ZPJE.FieldByName('yh_h').Value:=data.BANCK.FieldByName('bank_dh').Value ;
     if rxdbj.Value<1 then
        begin
            MessageBox(self.Handle, '请输入数字金额!', '提示', mb_IconInformation + mb_Ok);
            rxdbj.Focused;
            Abort;
        end;
    if cdw.Text='' then
         begin
            MessageBox(self.Handle, '请输入收款单位!', '提示', mb_IconInformation + mb_Ok);
            cdw.Focused;
            Abort;
         end
    else
       if data.addw.Locate('skdw',cdw.Text,[]) then
          data.ZPJE.FieldByName('dw_h').Value:=data.addw.FieldByName('dw_dh').Value ;
    if czphm.Text='' then
        begin
            MessageBox(self.Handle, '请输入支票号码!', '提示', mb_IconInformation + mb_Ok);
            czphm.Focused;
            Abort;
        end;
    data.zphm.ExecSQL ;
    if data.zphm.Locate('zphm',czphm.Text,[]) then
      begin
            MessageBox(self.Handle, '支票号码重复,请重新输入!', '提示', mb_IconInformation + mb_Ok);
            Abort;
      end;
    data.ZPJE.Post ;
end;
procedure TForm1.bb_print;
begin
    if data.BANCK.Locate('bank_name',cyh.Text,[]) then
        print_mb:= data.BANCK.FieldByName('bank_mb').AsString ;
    if czplx.Text='现金' then
      begin
        if print_mb='工商银行' then
          begin
            bbdy.LoadFromFile('cash.frf');
            bbdy.ShowReport;
          end;
        if print_mb='建设银行' then
           begin
            bbdy.LoadFromFile('cash1.frf');
            bbdy.ShowReport;
           end;
        if print_mb='农业银行' then
          begin
            bbdy.LoadFromFile('cash2.frf');
            bbdy.ShowReport;
          end;
        if print_mb='信用联社' then
          begin
            bbdy.LoadFromFile('cash3.frf');
            bbdy.ShowReport;
          end;
        if print_mb='其他' then
          begin
            bbdy.LoadFromFile('cash4.frf');
            bbdy.ShowReport;
          end;  
      end
    else
      begin
      if cms.ItemIndex=0 then
        begin
        if print_mb='工商银行' then
          begin
            bbdy.LoadFromFile('carry.frf');
            bbdy.ShowReport;
          end;
        if print_mb='建设银行' then
          begin
            bbdy.LoadFromFile('carry1.frf');
            bbdy.ShowReport;
          end;
        if print_mb='农业银行' then
          begin
            bbdy.LoadFromFile('carry2.frf');
            bbdy.ShowReport;
          end;
        if print_mb='信用联社' then
          begin
            bbdy.LoadFromFile('carry3.frf');
            bbdy.ShowReport;
          end;
        if print_mb='其他' then
          begin
            bbdy.LoadFromFile('carry4.frf');
            bbdy.ShowReport;
          end;
        end;
        if cms.ItemIndex=1 then
        begin
        if print_mb='工商银行' then
          begin
            bbdy.LoadFromFile('acarry.frf');
            bbdy.ShowReport;
          end;
        if print_mb='建设银行' then
          begin
            bbdy.LoadFromFile('acarry1.frf');
            bbdy.ShowReport;
          end;
        if print_mb='农业银行' then
          begin
            bbdy.LoadFromFile('acarry2.frf');
            bbdy.ShowReport;
          end;
        if print_mb='信用联社' then
          begin
            bbdy.LoadFromFile('acarry3.frf');
            bbdy.ShowReport;
          end;
        if print_mb='其他' then
          begin
            bbdy.LoadFromFile('acarry4.frf');
            bbdy.ShowReport;
          end;
         end;
        end;
end;
procedure TForm1.bb_build;
begin
  if data.BANCK.Locate('bank_name',cyh.Text,[]) then
        print_mb:= data.BANCK.FieldByName('bank_mb').AsString ;
    if czplx.Text='现金' then
      begin
        if print_mb='工商银行' then
          begin
            bbdy.LoadFromFile('cash.frf');
            bbdy.DesignReport;
          end;
        if print_mb='建设银行' then
           begin
            bbdy.LoadFromFile('cash1.frf');
            bbdy.DesignReport;
           end;
        if print_mb='农业银行' then
          begin
            bbdy.LoadFromFile('cash2.frf');
            bbdy.DesignReport;
          end;