【正文】 數(shù)據(jù)源配置，安裝BDE數(shù)據(jù)源軟件，建立一個(gè)BDE數(shù)據(jù)源，名稱為sumpo_ehr。首先，執(zhí)行“BDE”中的“管理工具”中的“Object”項(xiàng)目，選擇“NEW”選項(xiàng)卡，下拉菜單“Database Driver Name”選擇“MSSQL”，單擊“OK”按鈕。如圖所示。在選擇卡建立后，填寫DATABASENAME指向sumpo_ehr，Server Name指向本地計(jì)算機(jī)名“ .” ，User Name填寫“sa” 。程序設(shè)計(jì)代碼系統(tǒng)登錄代碼表單的onShow事件代碼procedure (Sender: TObject)。begin := true。 xt_login := 39。true39。 xt_path := ExtractFilePath()。end?！暗卿洝卑粹o的onClick事件代碼procedure (Sender: TObject)。var vExeFile, vDownFile: string。 qDownFCONTENT: TBlobField。begin //版本判斷 vExeFile := UpperCase(39。39。)。 vDownFile := vExeFile。 if UpperCase(ExtractFileName()) vExeFile then begin Showmessage(39。此文件由于修改了文件名(39。 + vExeFile + 39。)而不允許運(yùn)行!39。)。 close。 end。 := false。 := 39。39。 + 39。SELECT RNO, NAMEE, NAMEC, FVER, FSIZE, DOWNFLAG FROM ZD_EXEFILEINF F WHERE (NAMEE=39。39。39。 + vExeFile + 39。39。39。) or (charindex(39。39。39。 + vExeFile + 39。39。39。, MAINPROG)0) 39。 + 39。 ORDER BY RNO 39。 := true。 while not do begin if (((39。DOWNFLAG39。).AsString = 39。139。) and (GetExeFileVer(ExtractFilePath() + (39。NAMEE39。).AsString) (39。FVer39。).AsString)) or (not FileExists(ExtractFilePath() + (39。NAMEE39。).AsString)) then vDownFile := vDownFile + 39。 39。 + (39。NAMEE39。).AsString。 。 end。 := false。 if length(vDownFile) length(vExeFile) then //有文件需要下載 begin if not FileExists(39。39。) then begin := false。 (39。vFileName39。).AsString := 39。39。 := true。 if (not ) then (39。39。) else begin Showmessage(39。，請(qǐng)與管理員聯(lián)系！39。)。 。 //終止應(yīng)用程序 end。 := false。 end。 Showmessage(39。本程序已發(fā)布新的版本，需要下載新的程序！39。)。 WinExec(Pchar(ExtractFilePath() + 39。 39。 + vDownFile), SW_SHOWDEFAULT)。 。 //終止應(yīng)用程序 end。 czylsh := 39。39。 czyxm := 39。39。 czyzwmc := 39。39。 czyksbh := 39。39。 czyksmc := 39。39。 czygwmc := 39。39。 czyqx := 39。39。 xt_gs := 39。39。 if (trim() 39。39。) and (trim() 39。39。) then begin if = 39。員工號(hào)：39。 then begin with do begin close。 。 (39。select * from rs_zd_czy where czylsh=:czylsh and czymm =:czymm 39。)。 (39。czylsh39。).AsString := trim()。 (39。czymm39。).AsString := trim()。 。 if = 0 then begin showmessage(39。查無此人39。)。 。 exit。 end else begin czyxm := (39。czyxm39。).AsString。 czylsh := (39。czylsh39。).AsString。 czymm := (39。czymm39。).AsString。 czybm := (39。czybm39。).AsString。 czyzwmc := (39。zwmc39。).AsString。 czyksbh := (39。ksbh39。).AsString。 czyksmc := (39。ksmc39。).AsString。 czygwmc := (39。gwmc39。).AsString。 czyqx := (39。qx39。).AsString。 case strtoint(czyqx) of 0: xt_gs := copy((39。ksbh39。).AsString,1,2)。 1: xt_gs := copy((39。ksbh39。).AsString,1,4)。 2: xt_gs := copy((39。ksbh39。).AsString,1,6)。 3: xt_gs := copy((39。ksbh39。).AsString,1,8)。 4: xt_gs := copy((39。ksbh39。).AsString,1,8)。 end。 end。 end。 end else begin with do begin close。 。 (39。select * from rs_zd_czy where czybm=:czybm and czymm =:czymm 39。)。 (39。czybm39。).AsString := trim()。 (39。czymm39。).AsString := trim()。 。 if = 0 then begin showmessage(39。查無此人39。)。 。 exit。 end else begin czyxm := (39。czyxm39。).AsString。 czylsh := (39。czylsh39。).AsString。 czymm := (39。czymm39。).AsString。 czybm := (39。czybm39。).AsString。 czyzwmc := (39。zwmc39。).AsString。 czyksbh := (39。ksbh39。).AsString。 czyksmc := (39。ksmc39。).AsString。 czygwmc := (39。gwmc39。).AsString。 czyqx := (39。qx39。).AsString。 case strtoint(czyqx) of 0: xt_gs := copy((39。ksbh39。).AsString,1,2)。 1: xt_gs := copy((39。ksbh39。).AsString,1,4)。 2: xt_gs := copy((39。ksbh39。).AsString,1,6)。 3: xt_gs := copy((39。ksbh39。).AsString,1,8)。 4: xt_gs := copy((39。ksbh39。).AsString,1,8)。 end。 end。 end。 end。 end else begin showmessage(39。輸入[員工號(hào)][呢稱]或[密碼]不正確！將退出！39。)。 。 end。 if trim(czylsh) 39。39。 then begin close。 (39。系統(tǒng)登錄39。, czylsh, czyxm, 39。39。)。 end。end?！巴顺觥卑粹o的onClick事件代碼procedure (Sender: TObject)。begin close。 := false。 。end。41 /