unit1.pas

来自「职工信息管理系统的源代码」· PAS 代码 · 共 105 行

unit Unit1;

interface

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

type
  Treport = class(TForm)
    PageFooterBand1: TQRBand;
    QRExpr1: TQRExpr;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRExpr2: TQRExpr;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRExpr4: TQRExpr;
    QRLabel4: TQRLabel;
    QRExpr5: TQRExpr;
    QRLabel5: TQRLabel;
    QRExpr6: TQRExpr;
    QRLabel6: TQRLabel;
    QRExpr7: TQRExpr;
    zgb: TTable;
    bmb: TTable;
    DataSource1: TDataSource;
    bmbBDEDesigner: TStringField;
    bmbBDEDesigner2: TStringField;
    zgbBDEDesigner: TStringField;
    zgbBDEDesigner2: TStringField;
    zgbBDEDesigner3: TStringField;
    zgbBDEDesigner4: TStringField;
    zgbBDEDesigner5: TStringField;
    zgbbianhao: TStringField;
    zgbsex: TStringField;
    zgbzc: TStringField;
    bmbbname: TStringField;
    QRExpr3: TQRExpr;
    zgbxingming: TStringField;
    QuickRep1: TQuickRep;
    zgbDate: TDateField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure zgbCalcFields(DataSet: TDataSet);
    procedure bmbCalcFields(DataSet: TDataSet);
  private
  end;

var
  report: Treport;

implementation
 uses quan;
{$R *.DFM}

procedure Treport.FormCreate(Sender: TObject);
begin
bmb.Active:=false;
bmb.DatabaseName:=s;
bmb.TableName:='bmb.db';
bmb.Active:=true;
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
end;

procedure Treport.FormShow(Sender: TObject);
begin
bmb.Active:=false;
bmb.DatabaseName:=s;
bmb.TableName:='bmb.db';
bmb.Active:=true;
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
bmb.Refresh;
zgb.Refresh;
end;

procedure Treport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 bmb.Active:=false;
 zgb.Active:=false;
end;

procedure Treport.zgbCalcFields(DataSet: TDataSet);
begin
zgbbianhao.Value:=qu.cf(zgbBDEDesigner.Value);
zgbxingming.Value:=qu.cf(zgbBDEDesigner2.Value);
zgbsex.Value:=qu.cf(zgbBDEDesigner3.Value);
zgbzc.Value:=qu.cf(zgbBDEDesigner5.Value);
end;

procedure Treport.bmbCalcFields(DataSet: TDataSet);
begin
bmbbname.Value:=qu.cf(bmbBDEDesigner2.Value);
end;

end.