財務管理系統(tǒng)及財務知識分析程序-資料下載頁
2025-06-19 20:35本頁面
【正文】 close。 。 (39。delete * from xmb39。)。 ExecSQL。 close。 。 (39。select * from xmb39。)。 open。 end。end。end.unit dm。interfaceuses SysUtils, Classes, ADODB, DB。type Tdm2 = class(TDataModule) ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery。 ADOQuery1DSDesigner: TWideStringField。 ADOQuery1DSDesigner2: TBCDField。 ADOQuery1DSDesigner3: TBCDField。 ADOQuery1DSDesigner4: TDateTimeField。 ADOQuery1DSDesigner5: TWideStringField。 ADOQuery1total: TCurrencyField。 ADOTable1: TADOTable。 procedure ADOQuery1CalcFields(DataSet: TDataSet)。 private { Private declarations } public { Public declarations } end。var dm2: Tdm2。implementation{$R *.dfm}procedure (DataSet: TDataSet)。begin := 。end。end.unit report。interfaceuses Windows, SysUtils, Messages, Classes, Graphics, Controls, StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, ADODB。type Tqr1 = class(TQuickRep) ColumnHeaderBand1: TQRBand。 TitleBand1: TQRBand。 QRLabel1: TQRLabel。 DetailBand1: TQRBand。 QRLabel2: TQRLabel。 QRLabel3: TQRLabel。 QRLabel4: TQRLabel。 QRLabel5: TQRLabel。 QRLabel6: TQRLabel。 QRLabel7: TQRLabel。 QRDBText1: TQRDBText。 QRDBText2: TQRDBText。 QRDBText3: TQRDBText。 QRDBText4: TQRDBText。 QRDBText5: TQRDBText。 QRDBText6: TQRDBText。 QRShape1: TQRShape。 QRShape2: TQRShape。 QRShape3: TQRShape。 QRShape7: TQRShape。 QRShape8: TQRShape。 QRShape9: TQRShape。 SummaryBand1: TQRBand。 QRSysData1: TQRSysData。 QRLabel8: TQRLabel。 QRLabel9: TQRLabel。 QRSysData2: TQRSysData。 QRLabel10: TQRLabel。 QRSysData3: TQRSysData。 private public end。var qr1: Tqr1。implementation uses dm。{$R *.DFM}end.unit about。interfaceuses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls。type TAboutBox = class(TForm) Panel1: TPanel。 ProgramIcon: TImage。 ProductName: TLabel。 Version: TLabel。 Copyright: TLabel。 Comments: TLabel。 OKButton: TButton。 private { Private declarations } public { Public declarations } end。var AboutBox: TAboutBox。implementation{$R *.dfm}end.18 / 18
職業(yè)教育相關推薦
鄂ICP備17016276號-1