【正文】 次仁摸了摸微微隆起的肚子，問道：“飛機。 軍區(qū)某團，團長班覺次仁，是藏區(qū)本地人，長得牛高馬大，方面闊口，兩道濃眉下，一雙厲眼透出煞氣。他未曾想到，既然卓木強能搞到軍用包機，那自然和西藏那邊關系不淺?！? 方新道：“他們不一定熟悉，我們就讓機場方面替我們安排一 下就好?！弊磕緩娒Φ溃骸安挥?，不用了?！边@是他為了討好導師，特意吩咐下人安排的，沒想到竟然不在拉薩降落，而屬下居然沒告知他，急得他直撓頭?！? “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過。” 進了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢。對了，飛機先飛成都嗎 ?” 卓木強微笑道：“不，我們直飛拉薩?！? 方新教授笑著回復：“是腳指頭截去了，你老哥??”這時，機場已經遙遙在望了。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復調侃道：“老方，又要進藏逮狗嗎 ?聽說上次你進藏時，是把那話兒凍僵了才回來的。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉念心想， “那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線。你說，你不去德國了 ?” 方新教授肯定地點頭，瑪瑞重復道：“教授，方教授 !你真的不去參加那個論壇了嗎 ?那可是你一直想參加的啊 !” 方新長長吐了口氣，和藹地對瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號碼簿在書桌左邊臺燈的座下。那是我們藏區(qū)特產，它們已經存在幾千萬年了，約在兩千年前流傳到希臘，后到羅馬帝國，又 由東歐的斯拉夫族人傳到歐洲各國，至今世界名犬的體內還保留著藏獒的研究理論“隔代大遺傳”是否有關。 美國，賓夕法尼亞州。強巴生長在一個叫達瓦奴措的小村，那是深入藏原腹地、最接近無人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdGenerate_Click(ThisMonthSalaryForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdPrint_Click() End Sub Private Sub Form_Load() mMonth = Format(Date 30, YYYYMM) End Sub Private Sub OLE1_Updated(Code As Integer) End Sub 畢業(yè)設計（論文） 第 頁 43 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管 他叫強巴。把錯誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設計（論文） 第 頁 42 Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdRefresh_Click() Exit Sub 39。 Exit Sub 39。 amp。 CurPos amp。自由文件號 On Error GoTo ErrGoto 39。保證職工 ID 不會被改變 txtValue(0).Locked = True End Sub 六，創(chuàng)建職位管理窗體 Public CurPos As Integer Private Sub cmdAdd_Click() End Sub Private Sub cmdCancel_Click() End Sub Private Sub cmdDelete_Click() 39。當前行 = 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) MsgBox Close intErrFileNo End Sub 39。 Exit Sub 39。關閉連接 CloseDBFile 畢業(yè)設計（論文） 第 頁 40 39。打開連接 OpenDBFile 39。 txtValue(0).Text amp。 txtValue(5).Text amp。 txtValue(4).Text amp。 txtValue(3).Text amp。 txtValue(2).Text amp。 txtValue(1).Text amp。 txtValue(0).Text amp。 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。退出程序 Private Sub cmdCancel_Click() End Sub 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub Private Sub cmdCancel_Click() End Sub 39。 Exit Sub 39。刷新數據 39。執(zhí)行 SQL 語句 SQL 39。 ) 畢業(yè)設計（論文） 第 頁 38 39。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。 , SQL = SQL amp。生成 SQL 語句 SQL = INSERT INTO 職工 (職工 ID,職位 ,姓名 ,性別 ,出生年月 ,工作年月 ) VALUES( SQL = SQL amp。自由文件號 On Error GoTo ErrGoto 39。添加員工 Private Sub cmdAdd_Click() 39。 ErrGoto: 39。Persist Security Info=False = SQL 畢業(yè)設計（論文） 第 頁 37 Set = Adodc1 39。 。Data Source= amp。自由文件號 On Error GoTo ErrGoto 39。初始化 Private Sub Form_Load() 39。 CurEm = 39。Private Sub DataGrid1_click() 39。End Sub 39。Private Sub DataGrid1_Click() 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() 畢業(yè)設計（論文） 第 頁 36 Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + cmdDeleteEmployee_Click(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 Exit Sub 39。關閉數據庫連接 CloseDBFile 39。 amp。 ?, vbYesNo) Then 39。打開數據庫連接 OpenDBFile = 0 = CurEm If vbYes = MsgBox(是否刪除 amp。自由文件號 On Error GoTo ErrGoto 39。刪除員工 Private Sub cmdDeleteEmployee_Click() 39。顯示添加員工窗體 Private Sub cmdAddEmployee_Click() End Sub 畢業(yè)設計（論文） 第 頁 35 39。調用 特殊項管理 窗體 Private Sub SpecialManage_Click() End Sub 三、創(chuàng)建人員管理窗體 39。調用 工資發(fā)放 窗體 Private Sub PayoffTable_Click() End Sub 39。 \職工工資管理系統(tǒng) .mdb 畢業(yè)設計（論文） 第 頁 34 Set gX = CreateObject() End Sub 39。調用 人員管理 窗體 Private Sub HRManage_Click() End Sub 39。調用 統(tǒng)計報表 窗體 Private Sub Analysis_Click() End Sub 39。 ErrGoto: 39。 畢業(yè)設計（論文） 第 頁 33 CloseDBFile 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。把錯誤信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr