unit2.pas

职工信息管理系统的源代码

unit Unit2;

interface

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

type
  Treport1 = class(TForm)
    QuickRep1: TQuickRep;
    PageFooterBand1: TQRBand;
    QRExpr1: TQRExpr;
    ColumnHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRExpr3: TQRExpr;
    QRLabel3: TQRLabel;
    QRExpr4: TQRExpr;
    QRLabel4: TQRLabel;
    QRExpr5: TQRExpr;
    gzb: TTable;
    QRLabel5: TQRLabel;
    DataSource1: TDataSource;
    QRExpr6: TQRExpr;
    chang: TTable;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRExpr7: TQRExpr;
    QRExpr8: TQRExpr;
    DataSource2: TDataSource;
    changSj: TStringField;
    changKg: TStringField;
    changCd: TStringField;
    gzbBDEDesigner: TStringField;
    gzbBDEDesigner2: TStringField;
    gzbBDEDesigner3: TStringField;
    gzbBDEDesigner4: TStringField;
    gzbBDEDesigner5: TStringField;
    gzbbianhao: TStringField;
    gzbkg: TIntegerField;
    gzbsj: TIntegerField;
    gzbcd: TIntegerField;
    changcd1: TIntegerField;
    changsj1: TIntegerField;
    changkg1: TIntegerField;
    QRExpr2: TQRExpr;
    zgb: TTable;
    zgbBDEDesigner: TStringField;
    zgbBDEDesigner2: TStringField;
    zgbBDEDesigner3: TStringField;
    zgbBDEDesigner4: TStringField;
    zgbBDEDesigner5: TStringField;
    zgbxingming: TStringField;
    zc: TTable;
    zcBDEDesigner: TStringField;
    zcjiben: TIntegerField;
    gzbjiangjin: TIntegerField;
    zgbDate: TDateField;
    zcJg: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure changCalcFields(DataSet: TDataSet);
    procedure zgbCalcFields(DataSet: TDataSet);
    procedure zcCalcFields(DataSet: TDataSet);
    procedure gzbCalcFields(DataSet: TDataSet);
  private
  end;

var
  report1: Treport1;

implementation
  uses quan;
{$R *.DFM}

procedure Treport1.FormCreate(Sender: TObject);
begin
gzb.Active:=false;
gzb.DatabaseName:=s;
gzb.TableName:='gzb.db';
gzb.Active:=true;
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
chang.Active:=false;
chang.DatabaseName:=s;
chang.TableName:='chang.db';
chang.Active:=true;
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
end;

procedure Treport1.FormShow(Sender: TObject);
begin
gzb.Active:=false;
gzb.DatabaseName:=s;
gzb.TableName:='gzb.db';
gzb.Active:=true;
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
chang.Active:=false;
chang.DatabaseName:=s;
chang.TableName:='chang.db';
chang.Active:=true;
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
gzb.Refresh;
zc.Refresh;
chang.Refresh;
zgb.Refresh;
end;

procedure Treport1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
chang.Active:=false;
gzb.Active:=false;
zc.Active:=false;
zgb.Active:=false;
end;

procedure Treport1.changCalcFields(DataSet: TDataSet);
begin
if  qu.cf(changsj.Value)='' then
changsj1.Value:=0
else
changsj1.Value:=strtoint(qu.cf(changsj.Value));
if  qu.cf(changcd.Value)='' then
changcd1.Value:=0
else
changcd1.Value:=strtoint(qu.cf(changcd.Value));
if  qu.cf(changkg.Value)='' then
changkg1.Value:=0
else
changkg1.Value:=strtoint(qu.cf(changkg.Value));
end;

procedure Treport1.zgbCalcFields(DataSet: TDataSet);
begin
zgbxingming.Value:=qu.cf(zgbBDEDesigner2.Value);
end;

procedure Treport1.zcCalcFields(DataSet: TDataSet);
begin
if  qu.cf(zcjg.Value)='' then
zcjiben.Value:=0
else
zcjiben.Value:=strtoint(qu.cf(zcjg.Value) );
end;

procedure Treport1.gzbCalcFields(DataSet: TDataSet);
begin
if  qu.cf(gzbBDEDesigner2.Value)='' then
gzbkg.Value:=0
else
gzbkg.Value:=strtoint(qu.cf(gzbBDEDesigner2.Value));
if  qu.cf(gzbBDEDesigner3.Value)='' then
gzbcd.Value:=0
else
gzbcd.Value:=strtoint(qu.cf(gzbBDEDesigner3.Value));
if  qu.cf(gzbBDEDesigner4.Value)='' then
gzbsj.Value:=0
else
gzbsj.Value:=strtoint(qu.cf(gzbBDEDesigner4.Value));
gzbbianhao.Value:=qu.cf(gzbBDEDesigner.Value);
if  qu.cf(gzbBDEDesigner5.Value)='' then
gzbjiangjin.Value:=0
else
gzbjiangjin.Value:=strtoint(qu.cf(gzbBDEDesigner5.Value));
end;
end.