【文章內(nèi)容簡介】 。 :=+39。年總收入39。 :=+39。年總支出39。 :=+39。年總余額39。 。 。 。 end else begin 。 。 (39。select sum(金額) as ASUM from 收支表 where 類型 like 39。39。收入%39。39。 and 日期 like 39。39。%39。++39。%39。39。39。)。 。 :=(39。ASUM39。).AsString。 :=+39。年總收入39。 。 。 (39。select sum(金額) as BSUM from 收支表 where 類型 like 39。39。支出%39。39。 and 日期 like 39。39。%39。++39。%39。39。39。)。 。 :=(39。BSUM39。).AsString。 :=+39。年總支出39。 CSUM:=StrToInt()StrToInt()。 :=IntToStr(CSUM)。 :=+39。年總余額39。 end。end。end.unit Unit1。 //理財界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Mask, RzEdit, RzDBEdit, ExtCtrls, RzPanel, RzGroupBar, DB, ADODB, RzButton, Grids, DBGrids, DBCtrls, RzCmboBx, RzSpnEdt, RzRadChk, RzDBGrid, ComCtrls, DateTimePicker1, jpeg, ImgList。type TMainForm = class(TForm) ADOQuery1: TADOQuery。 ADOConnection1: TADOConnection。 RzGroupBar1: TRzGroupBar。 RzGroup1: TRzGroup。 RzGroup2: TRzGroup。 GroupBox1: TGroupBox。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 ComboBox1: TComboBox。 ComboBox3: TComboBox。 Edit2: TEdit。 RzBitBtn1: TRzBitBtn。 DataSource1: TDataSource。 Edit3: TEdit。 Memo1: TMemo。 RzBitBtn2: TRzBitBtn。 DBGrid1: TDBGrid。 GroupBox2: TGroupBox。 Label7: TLabel。 Label8: TLabel。 Label9: TLabel。 Label10: TLabel。 Label11: TLabel。 Label12: TLabel。 ComboBox2: TComboBox。 Edit1: TEdit。 Edit4: TEdit。 ComboBox4: TComboBox。 Memo2: TMemo。 DBGrid2: TDBGrid。 RzBitBtn3: TRzBitBtn。 RzBitBtn4: TRzBitBtn。 RzDateTimeEdit1: TRzDateTimeEdit。 RzDateTimeEdit2: TRzDateTimeEdit。 DataSource2: TDataSource。 ADOQuery2: TADOQuery。 DBNavigator1: TDBNavigator。 DBNavigator2: TDBNavigator。 GroupBox3: TGroupBox。 Label13: TLabel。 Label14: TLabel。 Label15: TLabel。 Label16: TLabel。 Label17: TLabel。 Label18: TLabel。 Label19: TLabel。 ComboBox5: TComboBox。 Edit5: TEdit。 Edit6: TEdit。 RzDateTimeEdit3: TRzDateTimeEdit。 ComboBox6: TComboBox。 ComboBox7: TComboBox。 Memo3: TMemo。 DBGrid3: TDBGrid。 DBNavigator3: TDBNavigator。 ADOQuery3: TADOQuery。 DataSource3: TDataSource。 RzBitBtn5: TRzBitBtn。 RzBitBtn6: TRzBitBtn。 GroupBox4: TGroupBox。 RzRadioButton1:TRzRadioButton。 RzRadioButton2:TRzRadioButton。 RzDBGrid1: TRzDBGrid。 RzBitBtn7: TRzBitBtn。 ComboBox8: TComboBox。 RzRadioButton3: TRzRadioButton。 ADOQuery4: TADOQuery。 DataSource4: TDataSource。 GroupBox5: TGroupBox。 ComboBox9: TComboBox。 RzRadioButton4: TRzRadioButton。 RzRadioButton5: TRzRadioButton。 RzRadioButton6: TRzRadioButton。 RzDBGrid2: TRzDBGrid。 GroupBox6: TGroupBox。 ADOQuery5: TADOQuery。 ADOQuery6: TADOQuery。 DataSource5: TDataSource。 DataSource6: TDataSource。 RzBitBtn8: TRzBitBtn。 RzRadioButton8: TRzRadioButton。 RzRadioButton9: TRzRadioButton。 RzBitBtn9: TRzBitBtn。 RzDBGrid3: TRzDBGrid。 ComboBox10: TComboBox。 RzDateTimeEdit4: TRzDateTimeEdit。 RzDateTimeEdit5: TRzDateTimeEdit。 Label20: TLabel。 Label21: TLabel。 RzRadioButton7: TRzRadioButton。 Label22: TLabel。 Label23: TLabel。 Label24: TLabel。 Label25: TLabel。 RzDateTimeEdit6: TRzDateTimeEdit。 RzDateTimeEdit7: TRzDateTimeEdit。 RzDateTimeEdit8: TRzDateTimeEdit。 RzDateTimeEdit9: TRzDateTimeEdit。 RzToolbar1: TRzToolbar。 RzSpacer1: TRzSpacer。 RzToolButton1: TRzToolButton。 ImageList1: TImageList。 Label26: TLabel。 Edit7: TEdit。 ADOTable1: TADOTable。 Label27: TLabel。 Edit8: TEdit。 Label28: TLabel。 Edit9: TEdit。 Panel1: TPanel。 RzSpacer2: TRzSpacer。 RzToolButton2: TRzToolButton。 Image1: TImage。 StaticText1: TStaticText。 StaticText2: TStaticText。 StaticText3: TStaticText。 procedure RzBitBtn1Click(Sender: TObject)。 procedure RzGroup1Items0Click(Sender: TObject)。 procedure RzBitBtn2Click(Sender: TObject)。 procedure RzBitBtn3Click(Sender: TObject)。 procedure RzBitBtn4Click(Sender: TObject)。 procedure RzBitBtn5Click(Sender: TObject)。 procedure RzBitBtn6Click(Sender: TObject)。 procedure RzBitBtn7Click(Sender: TObject)。 procedure RzRadioButton2Click(Sender: TObject)。 procedure RzRadioButton1Click(Sender: TObject)。 procedure RzRadioButton3Click(Sender: TObject)。 procedure RzBitBtn8Click(Sender: TObject)。 procedure RzRadioButton4Click(Sender: TObject)。 procedure RzRadioButton5Click(Sender: TObject)。 procedure RzRadioButton6Click(Sender: TObject)。 procedure RzBitBtn9Click(Sender: TObject)。 procedure RzRadioButton7Click(Sender: TObject)。 procedure RzRadioButton8Click(Sender: TObject)。 procedure RzRadioButton9Click(Sender: TObject)。 procedure RzGroup1Items1Click(Sender: TObject)。 procedure RzGroup1Items2Click(Sender: TObject)。 procedure RzGroup2Items0Click(Sender: TObject)。 procedure RzGroup2Items1Click(Sender: TObject)。 procedure RzGroup2Items2Click(Sender: TObject)。 procedure RzToolButton1Click(Sender: TObject)。 procedure ComboBox3Enter(Sender: TObject)。 procedure RzToolButton2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var MainForm: TMainForm。implementationuses unit2。{$R *.dfm}procedure (Sender: TObject)。 //收支添加beginif (=39。39。) or (=39。39。) or (=39。39。) or (=39。39。) then begin showmessage(39。數(shù)據(jù)信息不全39。)。 endelse begin 。 。 (39。INSERT INTO 收支表(類型,日期,金額,項目,成員,備注)values(39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。3