【正文】 procedure (Sender: TObject)。 //返回主界面begin 。 。end。procedure (Sender: TObject)。var i:integer。begin 。 。 。 for i:=0 to do begin ((39。成員39。).AsString)。 ((39。成員39。).AsString)。 ((39。成員39。).AsString)。 。 end。end。procedure (Sender: TObject)。begin :=false。 :=false。 :=False。 :=False。 :=False。 :=False。 :=True。end。end.unit Unit4。 //收支報(bào)表打印界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, RzButton, DB, ADODB。type TForm4 = class(TForm) RzBitBtn1: TRzBitBtn。 RzBitBtn2: TRzBitBtn。 RzBitBtn3: TRzBitBtn。 DBGrid1: TDBGrid。 GroupBox1:TGroupBox。 DataSource1: TDataSource。 DataSource2: TDataSource。 GroupBox2: TGroupBox。 DBGrid2: TDBGrid。 procedure RzBitBtn1Click(Sender: TObject)。 procedure RzBitBtn2Click(Sender: TObject)。 procedure RzBitBtn3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form4: TForm4。implementationuses unit3,unit2。{$R *.dfm}procedure (Sender: TObject)。 //打印begin 。end。procedure (Sender: TObject)。 //打印預(yù)覽begin 。end。procedure (Sender: TObject)。begin 。 。end。end.unit Unit3。 //收支報(bào)表打印預(yù)覽界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, QRCtrls, QuickRpt, DB, ADODB, ExtCtrls。type TForm3 = class(TForm) QuickRep1: TQuickRep。 ADODataSet1: TADODataSet。 ADOConnection1: TADOConnection。 QRBand1: TQRBand。 QRBand2: TQRBand。 QRBand3: TQRBand。 QRBand4: TQRBand。 QRBand5: TQRBand。 QRLabel1: TQRLabel。 QRExpr1: TQRExpr。 QRLabel2: TQRLabel。 QRDBText1: TQRDBText。 QRDBText2: TQRDBText。 QRExpr2: TQRExpr。 QRLabel3: TQRLabel。 QRExpr3: TQRExpr。 QRLabel4: TQRLabel。 ADODataSet2: TADODataSet。 ChildBand1: TQRChildBand。 QRLabel5: TQRLabel。 QRLabel6: TQRLabel。 QRLabel7: TQRLabel。 QRLabel8: TQRLabel。 QRLabel9: TQRLabel。 QRLabel10: TQRLabel。 QRSubDetail1: TQRSubDetail。 QRDBText3: TQRDBText。 QRDBText4: TQRDBText。 QRDBText5: TQRDBText。 QRDBText6: TQRDBText。 QRDBText7: TQRDBText。 QRDBText8: TQRDBText。 procedure ADODataSet2AfterScroll(DataSet: TDataSet)。 private { Private declarations } public { Public declarations } end。var Form3: TForm3。implementation{$R *.dfm}procedure (DataSet: TDataSet)。begin:=false。(39。成員39。).Value:= (39。成員39。).AsVariant。:=true。end。end.unit Unit5。 //借貸報(bào)表打印界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, Grids, DBGrids, StdCtrls, DB。type TForm5 = class(TForm) DataSource1: TDataSource。 GroupBox1: TGroupBox。 DBGrid1: TDBGrid。 GroupBox2: TGroupBox。 DBGrid2: TDBGrid。 RzBitBtn1: TRzBitBtn。 RzBitBtn2: TRzBitBtn。 RzBitBtn3: TRzBitBtn。 DataSource2: TDataSource。 procedure RzBitBtn1Click(Sender: TObject)。 procedure RzBitBtn2Click(Sender: TObject)。 procedure RzBitBtn3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form5: TForm5。implementation uses unit6,Unit2。{$R *.dfm}procedure (Sender: TObject)。 //打印begin。end。procedure (Sender: TObject)。 //打印預(yù)覽begin。end。procedure (Sender: TObject)。begin 。 。end。end.unit Unit7。 //銀行存取報(bào)表打印界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, StdCtrls, RzButton。type TForm7 = class(TForm) RzBitBtn1: TRzBitBtn。 RzBitBtn2: TRzBitBtn。 RzBitBtn3: TRzBitBtn。 GroupBox1: TGroupBox。 GroupBox2: TGroupBox。 DataSource1: TDataSource。 DataSource2: TDataSource。 DBGrid1: TDBGrid。 DBGrid2: TDBGrid。 procedure RzBitBtn1Click(Sender: TObject)。 procedure RzBitBtn2Click(Sender: TObject)。 procedure RzBitBtn3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form7: TForm7。implementationuses unit8,unit2。{$R *.dfm}procedure (Sender: TObject)。 //打印begin 。end。procedure (Sender: TObject)。 //打印預(yù)覽begin。end。procedure (Sender: TObject)。begin 。 。end。end.unit Unit9。 //選項(xiàng)界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RzButton, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids。type TForm9 = class(TForm) GroupBox1: TGroupBox。 DBGrid1: TDBGrid。 DBNavigator1: TDBNavigator。 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 RzBitBtn1: TRzBitBtn。 Label1: TLabel。 Edit1: TEdit。 RzBitBtn2: TRzBitBtn。 RzBitBtn3: TRzBitBtn。 GroupBox2: TGroupBox。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Edit2: TEdit。 Edit3: TEdit。 Memo1: TMemo。 Edit4: TEdit。 RzBitBtn4: TRzBitBtn。 RzBitBtn5: TRzBitBtn。 GroupBox3: TGroupBox。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Edit5: TEdit。 Edit6: TEdit。 Edit7: TEdit。 RzBitBtn7: TRzBitBtn。 RzBitBtn8: TRzBitBtn。 procedure RzBitBtn1Click(Sender: TObject)。 procedure RzBitBtn2Click(Sender: TObject)。 procedure RzBitBtn3Click(Sender: TObject)。 procedure RzBitBtn4Click(Sender: TObject)。 procedure RzBitBtn5Click(Sender: TObject)。 procedure RzBitBtn7Click(Sender: TObject)。 procedure RzBitBtn8Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form9: TForm9implementation uses unit2,unit10。{$R *.dfm}procedure (Sender: TObject)。 //查詢成員beginif =39。39。 then begin showmessage(39。請(qǐng)輸入成員名稱!39。)。 en