unit4.~pas

《Delphi案例设计》源代码

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, QRCtrls, QuickRpt, ExtCtrls;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Table1: TTable;
    QuickRep1: TQuickRep;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TCurrencyField;
    Table1BDEDesigner8: TCurrencyField;
    Table1BDEDesigner9: TCurrencyField;
    Table1BDEDesigner10: TCurrencyField;
    Table1BDEDesigner11: TCurrencyField;
    Table1BDEDesigner12: TCurrencyField;
    Table1BDEDesigner13: TCurrencyField;
    Table1BDEDesigner14: TCurrencyField;
    Table1BDEDesigner15: TCurrencyField;
    Table1BDEDesigner16: TCurrencyField;
    Table1BDEDesigner17: TCurrencyField;
    Table1BDEDesigner18: TCurrencyField;
    Table1BDEDesigner19: TCurrencyField;
    Table1BDEDesigner20: TCurrencyField;
    Table1BDEDesigner21: TCurrencyField;
    QRBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRExpr1: TQRExpr;
    QRExpr2: TQRExpr;
    QRExpr3: TQRExpr;
    QRExpr4: TQRExpr;
    QRExpr5: TQRExpr;
    QRExpr6: TQRExpr;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRExpr7: TQRExpr;
    QRExpr8: TQRExpr;
    QRExpr9: TQRExpr;
    QRExpr10: TQRExpr;
    QRExpr11: TQRExpr;
    QRExpr12: TQRExpr;
    QRExpr13: TQRExpr;
    QRExpr14: TQRExpr;
    QRShape1: TQRShape;
    QRLabel16: TQRLabel;
    QRShape2: TQRShape;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    QRLabel21: TQRLabel;
    QRExpr15: TQRExpr;
    QRExpr16: TQRExpr;
    QRExpr17: TQRExpr;
    QRExpr18: TQRExpr;
    QRShape3: TQRShape;
    QRLabel22: TQRLabel;
    QRLabel23: TQRLabel;
    QRLabel24: TQRLabel;
    QRExpr19: TQRExpr;
    QRExpr20: TQRExpr;
    QRExpr21: TQRExpr;
    Memo1: TMemo;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.SpeedButton1Click(Sender: TObject);
var
bookmark1:tbookmark;
begin
table1.refresh;
with table1 do
try
  disablecontrols;
  filtered:=false;
  if ComboBox1.text='按个人工资号打印'  then memo1.Text:='个人工资号='+''''+edit1.Text+'''';
  if ComboBox1.text='按单位名称打印'  then memo1.Text:='单位名称='+''''+edit1.Text+'''';
  if ComboBox1.text='按职工姓名打印'  then memo1.Text:='职工姓名='+''''+edit1.Text+'''';
  if ComboBox1.text='按工资年份打印'  then memo1.Text:='工资年份='+''''+edit1.Text+'''';
  if ComboBox1.text='按工资月份打印'  then memo1.Text:='工资月份='+''''+edit1.Text+'''';
  filter:=memo1.text;
  filtered:=true;
finally
  enablecontrols;
if table1.recordcount=0 then begin
messagebeep(1);
showmessage('没有符合条件的记录,请确认条件或放弃打印!');
if messageDlg('是否继续打印？,只有结束打印才能作其它操作!',mtinformation,[mbYes,mbNo],0)=mrno then begin
  filtered:=false;
 table1.close;
 table1.open;
end;
end else begin
QuickRep1.Preview;
bookmark1:=table1.getbookmark;
 filtered:=false;
 table1.close;
 table1.open;
end;
end;
end;
end;
end.