【正文】 程序。 2. 不鉆牛角尖?！　?. 多與別人交流。4. 良好的編程風(fēng)格。如果注釋和代碼不一致，那就更加糟糕。還有就是圖形統(tǒng)計(jì)分析因?yàn)榻ū頃r(shí)的考慮不周使得上手很難，最后時(shí)間用于做圖形統(tǒng)計(jì)分析很少，導(dǎo)致這一功能沒(méi)有完成，這是一個(gè)很大的缺陷！這個(gè)問(wèn)題在我完成了設(shè)計(jì)之后都無(wú)法解決。參考文獻(xiàn)：《數(shù)據(jù)庫(kù)系統(tǒng)概論》，薩師煊、王珊主編，高等教育出版社，2000，2月，第三版?！禗elphi開(kāi)發(fā)經(jīng)驗(yàn)技巧寶典》，明日科技 編著，人民郵電出版社，2007年11月第1版。 //登錄界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, jpeg, ExtCtrls, DB, ADODB。 Image1: TImage。 Label2: TLabel。 Edit1: TEdit。 RzBitBtn1: TRzBitBtn。 ADOConnection1: TADOConnection。 procedure RzBitBtn1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。implementation uses unit2。begin if (=39。) or (=39。) then begin showmessage(39。)。 。select * from 用戶表 where 用戶名=39。39。39。39。 。密碼39。 。密碼錯(cuò)誤，請(qǐng)重新輸入39。 。 end。用戶名錯(cuò)誤,請(qǐng)重新輸入39。 。 。 end。procedure (Sender: TObject)。end。 //主界面代碼interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ToolWin, ComCtrls, RzPanel, RzButton, ExtCtrls, ImgList, DB, ADODB, RzStatus, jpeg, StdCtrls, Mask, RzEdit, RzSpnEdt, RzLabel, Grids, RzGrids。 N1: TMenuItem。 N3: TMenuItem。 N6: TMenuItem。 ImageList1: TImageList。 RzToolButton1: TRzToolButton。 RzToolButton2: TRzToolButton。 RzToolButton3: TRzToolButton。 RzToolButton4: TRzToolButton。 RzToolButton5: TRzToolButton。 N9: TMenuItem。 N4: TMenuItem。 N13: TMenuItem。 RzSpacer5: TRzSpacer。 RzStatusPane1: TRzStatusPane。 RzFieldStatus2: TRzFieldStatus。 RzClockStatus1: TRzClockStatus。 ADOQuery1: TADOQuery。 RzPanel1: TRzPanel。 Panel2: TPanel。 GroupBox1: TGroupBox。 RzBitBtn1: TRzBitBtn。 Label1: TLabel。 Edit2: TEdit。 Label3: TLabel。 procedure RzToolButton2Click(Sender: TObject)。 procedure N8Click(Sender: TObject)。 procedure N4Click(Sender: TObject)。 procedure RzToolButton4Click(Sender: TObject)。 procedure RzToolButton3Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 procedure RzBitBtn1Click(Sender: TObject)。var Main: TMain。{$R *.dfm}procedure (Sender: TObject)。end。begin 。procedure (Sender: TObject)。end。begin showmessage(39。)。 。39。39。end。begin 。procedure (Sender: TObject)。end。begin 。end。begin 。procedure (Sender: TObject)。 :=true。procedure (Sender: TObject)。確定退出系統(tǒng)？39。 。procedure (Sender: TObject)。end。begin 。 (39。39。++39。39。)。 :=(39。).AsString。procedure (Sender: TObject)。begin 。 (39。39。++39。39。)。 if [0].Value=null then begin showmessage(39。)。 :=+39。 :=+39。 :=+39。 。 。 。select sum(金額) as ASUM from 收支表 where 類型 like 39。收入%39。 and 日期 like 39。%39。%39。39。 。ASUM39。 :=+39。 。 (39。39。39。39。++39。39。)。 :=(39。).AsString。年總支出39。 :=IntToStr(CSUM)。年總余額39。end。 //理財(cái)界面代碼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。 ADOConnection1: TADOConnection。 RzGroup1: TRzGroup。 GroupBox1: TGroupBox。 Label2: TLabel。 Label4: TLabel。 Label6: TLabel。 ComboBox3: TComboBox。 RzBitBtn1: TRzBitBtn。 Edit3: TEdit。 RzBitBtn2: TRzBitBtn。 GroupBox2: TGroupBox。 Label8: TLabel。 Label10: TLabel。 Label12: TLabel。 Edit1: TEdit。 ComboBox4: TComboBox。 DBGrid2: TDBGrid。 RzBitBtn4: TRzBitBtn。 RzDateTimeEdit2: TRzDateTimeEdit。 ADOQuery2: TADOQuery。 DBNavigator2: TDBNavigator。 Label13: TLabel。 Label15: TLabel。 Label17: TLabel。 Label19: TLabel。 Edit5: TEdit。 RzDateTimeEdit3: TRzDateTimeEdit。 ComboBox7: TComboBox。 DBGrid3: TDBGrid。 ADOQuery3: TADOQuery。 RzBitBtn5: TRzBitBtn。 GroupBox4: TGroupBox。 RzRadioButton2:TRzRadioButton。 RzBitBtn7: TRzBitBtn。 RzRadioButton3: TRzRadioButton。 DataSource4: TDataSource。 ComboBox9: TComboBox。 RzRadioButton5: TRzRadioButton。 RzDBGrid2: TRzDBGrid。 ADOQuery5: TADOQuery。 DataSource5: TDataSource。 RzBitBtn8: TRzBitBtn。 RzRadioButton9: TRzRadioButton。 RzDBGrid3: TRzDBGrid。 RzDateTimeEdit4: TRzDateTimeEdit。 Label20: TLabel。 RzRadioButton7: TRzRadioButton。 Label23: TLabel。 Label25: TLabel。 RzDateTimeEdit7: TRzDateTimeEdit。 RzDateTimeEdit9: TRzDateTimeEdit。 RzSpacer1: TRzSpacer。 ImageList1: TImageList。 Edit7: TEdit。 Label27: TLabel。 Label28: TLabel。 Panel1: TPanel。 RzToolButton2: TRzToolButton。 StaticText1: TStaticText。 StaticText3: TStaticText。 procedure RzGroup1Items0Click(Sender: TObject)。 procedure RzBitBtn3Click(Sender: TObject)。 procedure RzBitBtn5Click(Sender: TObject)。 procedure RzBitBtn7Click(Sender: TObject)。 procedure RzRadioButton1Click(Sender: TObject)。 procedure RzBitBtn8Click(Sender: TObject)。 procedure RzRadioButton5Click(Sender: TObject)。 procedure RzBitBtn9Click(Sender: TObject)。 procedure RzRadioButton8Click(Sender: TObject)。 procedure RzGroup1Items1Click(Sender: TObject)。 procedure RzGroup2Items0Click(Sender: TObject)。 procedure RzGroup2Items2Click(Sender: TObject)。 procedure ComboBox3Enter(Sender: TObject)。 private { Private declarations } public { Public declarations } end。implementationuses unit2。 //收支添加beginif (=39。) or (=39。) or (=39。) or (=39。) then begin showmessage(39。)。 。INSERT INTO 收支表(類型,日期,金額,項(xiàng)目,成員,備注)values(39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。)39。 。添加成功39。 。 (39。)。 end。procedure (Sender: TObject)。收入39。end。 //借貸添加begin