【正文】 可否為空。因為以后要設(shè)計到主鍵，外鍵的問題。如果字段名不同，同一字段長度不同則主鍵和外鍵將會連接不上?？梢娊ū頃r應(yīng)做好全局的打算。我在程序開發(fā)的初期，同樣犯了這個錯誤，導(dǎo)致數(shù)據(jù)庫出錯，有時還要向表中新加入字段。導(dǎo)致數(shù)據(jù)窗口不好用的連鎖反映。 系統(tǒng)的總體設(shè)計 這個管理系統(tǒng)從 4 月 1 日開始著手設(shè)計開發(fā) ,經(jīng)過一段時間的分析，并根據(jù)對 影音店光盤 管理的具體要求及需要本軟件實現(xiàn)的功能，將本軟件 分為 5 個大的模塊，分別是：第一部分： 系統(tǒng)管理 ； 第二部分： 日常統(tǒng)計 ； 第三部分： 查詢統(tǒng)計 模塊； 第四部分： 幫助其他 。 程序流程圖如下： 程序登陸 主界面 系 統(tǒng) 管 理 日 常 操 作 查 詢 統(tǒng) 計 幫助 系統(tǒng)的詳細(xì)設(shè)計 進入 Access 后要做的第一件事就是建立一個數(shù)據(jù)庫。Access 提供了 6 種用構(gòu)造數(shù)據(jù)庫系統(tǒng)的對象，根據(jù)本課題的需要，在這里選擇一個空的數(shù)據(jù)庫，命名 建立了一個數(shù)據(jù)庫名稱為 “ bysj” ， 學(xué)生檔案管理系統(tǒng)。 并在此數(shù)據(jù)庫下創(chuàng)建了六個表，用于存放原始數(shù)據(jù)。它只是存放數(shù)據(jù)，對其中數(shù)據(jù)的修改要通過對應(yīng)的 窗體來完成。 創(chuàng)建各表的具體結(jié)構(gòu)如下 ： 1:cashbook 表 2:czb 表 3czdt 表 : 表 表 3 本程序的技術(shù)實現(xiàn)及具體功能 登錄的 界面與程序設(shè)計 實現(xiàn) 代碼設(shè)計 : unit long。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Menus, ComCtrls, ToolWin, Buttons, StdCtrls, AppEvnts, LabelButton, TradeImage, MaskImageButton, MoveImageButton, TrayBarIcon。 type Tfrm_long = class(TForm) palUp: TPanel。 palLeftUp: TPanel。 imgLeftUp: TImage。 palRightUp: TPanel。 imgRightUp: TImage。 palUpMid: TPanel。 imgCaption: TImage。 palDown: TPanel。 imgLeftDown: TImage。 imgRightDown: TImage。 imgDownMin: TImage。 palLeft: TPanel。 palRight: TPanel。 imgRight: TImage。 imgCloseButton: TImage。 imgMinButton: TImage。 imgSizeButton: TImage。 imgMaxButton: TImage。 imgRestoreButton: TImage。 imgSysIcon: TImage。 popSystemMenu: TPopupMenu。 N_Restore: TMenuItem。 N_Max: TMenuItem。 N_Min: TMenuItem。 N_Move: TMenuItem。 N_Size: TMenuItem。 N_Speater: TMenuItem。 N_Close: TMenuItem。 palClient: TPanel。 lbCaption: TLabel。 CoolBarMenu: TCoolBar。 ToolBarMenu: TToolBar。 imgLeft: TImage。 imgColorLeftUp: TImage。 imgGrayCaption: TImage。 imgGrayMenuBar: TImage。 imgGrayRightUp: TImage。 imgColorCaption: TImage。 imgGrayLeftUp: TImage。 imgColorRightUp: TImage。 imgRightUp1: TImage。 imgLeftUp1: TImage。 imgColorMenubar: TImage。 Label1: TLabel。 Label2: TLabel。 e_pass: TEdit。 e_zzy: TComboBox。 b_ok: TMoveImgBtn。 blabel_ok: TLabelBtn。 blabel_exit: TLabelBtn。 b_exit: TMoveImgBtn。 b_edit: TMoveImgBtn。 LabelBtn1: TLabelBtn。 procedure imgMinButtonClick(Sender: TObject)。 procedure imgSizeButtonClick(Sender: TObject)。 procedure imgCloseButtonClick(Sender: TObject)。 procedure imgCaptionMouseDown(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure imgCaptionMouseMove(Sender: TObject。 Shift: TShiftState。 X, Y: Integer)。 procedure imgCaptionMouseUp(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure FormCreate(Sender: TObject)。 procedure imgSysIconMouseDown(Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 procedure popSystemMenuPopup(Sender: TObject)。 procedure N_SizeClick(Sender: TObject)。 procedure N_MoveClick(Sender: TObject)。 procedure FormShow(Sender: TObject)。 procedure e_zzyChange(Sender: TObject)。 procedure b_okClick(Sender: TObject)。 procedure FormActivate(Sender: TObject)。 procedure b_exitClick(Sender: TObject)。 procedure b_editClick(Sender: TObject)。 procedure e_passKeyPress(Sender: TObject。 var Key: Char)。 procedure FormClose(Sender: TObject。 var Action: TCloseAction)。 private { Private declarations } canmove:boolean。 curPoint:TPoint。 oldPoint:TPoint。 Canvas:TCanvas。 i:integer。//密碼循環(huán)三次 protected procedure CreateParams(var Params:TCreateParams)。override。 procedure WMActivate(var Msg:TWMACTIVATE)。 message WM_ACTIVATE。 public { Public declarations } end。 var frm_long: Tfrm_long。 implementation uses publicvar, passedit, datam, main。 {$R *.dfm} procedure (var Params:TCreateParams)。 begin inherited CreateParams(Params)。 if BorderStylebsNone then :=WS_THICKFRAME or WS_POPUP or WS_BORDER。 end。 procedure (Sender: TObject)。 begin if =self then else DefWindowProc(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0)。 end。 procedure (Sender: TObject)。 begin if = wsNormal then begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)。 :=。 end else begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_RESTORE, 0)。 :=。 end。 end。 procedure (Sender: TObject)。 begin DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0)。 end。 procedure (Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 begin if (Button=mbLeft)and(ssLeft in Shift)then begin canmove:=true。 Canvas:=。 with Canvas do begin :=psdot。 :=bsClear。 :=2。 :=pmNotXor。 Handle :=GetDC(0)。 Rectangle(left,top,Left+width,top+height)。 :=X。 :=Y。 :=Left。 :=Top。 end。 //end with end。 //end if end。 procedure (Sender: TObject。 Shift: TShiftState。 X, Y: Integer)。 begin if not canmove then exit。 with Canvas do begin Rectangle(,+Width,+Height)。 :=Left +。 :=Top +。 Rectangle(,+Width,+Height)。 end。 end。 procedure (Sender: TObject。 Button: TMouseButton。 Shift: TShiftState。 X, Y: Integer)。 begin if not canmove then exit。 with Canvas do begin Rectangle(,+Width,+Height)。 Left :=。 Top :=。 Free。 end。 canmove:=not canmove。 end。 procedure (Sender: TObject)。 begin :=Caption。 。 :=39。編號 39。 while not do begin ((39。操作員 39。).AsString)。 。 end。