【文章內(nèi)容簡介】 f(“職務(wù):%lfn”,worker[i].work)。printf(“住址:%sn”,worker[i].addr)。printf(“電話:%sn”,worker[i].tel)。flag++。}}if(flag==0)printf(“n對不起沒有找到!please”)。getchar()。}void del()//刪除函數(shù) { inti,j。FILE *fp。char name[20]。char c。if((fp=fopen(“”,“wb”))==NULL)//以只寫方式打開一個二進(jìn)制文件{printf(“ncannot open filen”)。exit(0)。} printf(“請輸入要刪除的職工的姓名:”)。scanf(“%s”,name)。for(i=0。iif(strcmp(name,worker[i].name)==0)//判斷輸入的姓名和原來的姓名是否相同{printf(“找到該職工,是否刪除?(y/n)”)。fflush(stdin)。scanf(“%c”,amp。c)。if(c ==39。Y39。||c==39。y39。){for(j=i。jworker[j]=worker[j+1]。printf(“刪除成功!n”)。//break。}} } if(i=N){ printf(“沒有找到該職工!n ”)。return。}else {N=N1。for(i=0。iif(fwrite(amp。worker[i],sizeof(struct worker),1,fp)!=1){printf(“ncannot save filen”)。getchar()。}fclose(fp)。}}void modify()//修改函數(shù) { struct worker p。FILE *fp。inti,n。double t。printf(“n輸入要修改的職工號:n”)。scanf(“%d”,amp。n)。for(i=0。iif(n==worker[i].num){printf(“找到該職工的信息(任意鍵繼續(xù))！”)。printf(“n請輸入職工的信息！n”)。printf(“請輸入姓名:n”)。scanf(“%s”,)。printf(“請輸入性別:n”)。scanf(“%s”,)。printf(“請輸入出身年月:n”)。scanf(“%d”,amp。)。printf(“請輸入工作年月:n”)。scanf(“%lf”,amp。)。printf(“請輸入學(xué)歷(中專=zz，大專＝dz，yjs):n”)。scanf(“%s”,)。printf(“請輸入工資:n”)。scanf(“%lf”,amp。t)。=t。printf(“請輸入職務(wù):n”)。scanf(“%s”,)。printf(“請輸入住址:n”)。scanf(“%s”,)。本科＝bk，研究生＝}printf(“請輸入電話:n”)。scanf(“%s”,)。=n。if((fp=fopen(“”,“r+”))==NULL)//以讀寫的方式將修改的信息寫入磁盤文件{printf(“ncannot open filen”)。exit(0)。}fseek(fp,i*sizeof(struct worker),0)。//將位置指針移到i*sizeof(struct worker)個字節(jié)處fwrite(amp。p,sizeof(struct worker),1,fp)。fclose(fp)。printf(“修改成功!n”)。break。} } if(i=N)printf(“n未找到該職工!n”)。第三篇：VB學(xué)生信息管理系統(tǒng)及源代碼VB學(xué)生信息管理系統(tǒng)及源代碼Option Explicit39。標(biāo)識是否能關(guān)閉Dim mbClose As Boolean39。標(biāo)識當(dāng)前要顯示的照片的文件 Dim mstrFileName As String Private Sub Form_Load()On Error Resume NextIf = 1 Then39。學(xué)生用戶 = False = False = False = False = False = False = FalseIf Not( And )ThenDim Temp As StringTemp = “name = ” amp。 “39。” amp。 amp。 “39?！?Temp39。刷新所綁定的控件Call RefreshBindingEnd IfExit SubElse = True = True = True = True = True = True = TrueEnd IfDim rsDep As New , rsClass As New Set rsDep = Set rsClass = 39。從Department表中讀取數(shù)據(jù)，填充cboDep組合框到中 “全部”39。將各個系的id號作為ItemData附加到組合框中(0)= 0While Not rsDep(“Name”)()ChunkAry = (Fragment)Put FileNumber, , ChunkAry39。寫入文件End IfReDim ChunkAry(ChunkSize1)39。為數(shù)據(jù)塊重新開辟空間For lngI = 1 To Chunks39。循環(huán)讀出所有塊ChunkAry = (ChunkSize)39。在數(shù)據(jù)庫中連續(xù)讀數(shù)據(jù)塊Put FileNumber, , ChunkAry()39。將數(shù)據(jù)塊寫入文件中Next lngIClose FileNumberReadImage = strFileNameExit FunctionerrHander:ReadImage = “ End FunctionPrivate Sub imgPhoto_Click()End39。關(guān)閉文件 SubOption Explicit 39。表示當(dāng)前的用戶類型：0管理員類型的用戶。1學(xué)生類型的用戶 Public mnUserType As Integer 39。表示當(dāng)前登錄的用戶名 Public msUserName As StringPrivate Sub MDIForm_Load()39。根據(jù)不同的用戶類型，使相應(yīng)的菜單項可見Select Case mnUserTypeCase 0:39。以管理員身份登錄 = True(3).Visible = True(4).Visible = TrueExit SubCase 1:39。以學(xué)生身份登錄，只能查詢自己的信息 = False39?！靶畔⒉樵儭辈藛尾豢梢?3).Visible = False39?！靶畔⒉樵儭卑粹o不可見(4).Visible = False39。第二個分隔條不可見Exit SubEnd Select End SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)If MsgBox(”真的要對出本系統(tǒng)嗎？“, vbQuestion + vbYesNo + vbDefaultButton2, ”退出“)= vbNo ThenCancel = 1End If End Sub Private Sub mnuAbout_Click()Load frmSplash = True vbModal End SubPrivate Sub mnuArr_Click()(3)39。設(shè)置主窗體中所有最小化MDI子窗體圖標(biāo)重排 End SubPrivate Sub mnuCas_Click()(0)39。設(shè)置主窗體中所有非最小化MDI子窗體層疊顯示 End SubPrivate Sub mnuExit_Click()Unload Me End SubPrivate Sub mnuFind_Click() End SubPrivate Sub mnuHori_Click()(1)39。設(shè)置主窗體中所有非最小化MDI子窗體水平平鋪 End SubPrivate Sub mnuLog_Click()If MsgBox(”若重新登錄，所有窗體都將關(guān)閉！“ amp。 vbCrLf amp。 ”是否重新登錄？“, _vbQuestion + vbYesNo + vbDefaultButton2, ”重新登錄“)= vbYes ThenUnload MeEnd If End SubPrivate Sub mnuStudent_Click()Load frmStudent End Sub Private Sub mnuVer_Click()(2)39。設(shè)置主窗體中所有非最小化MDI子窗體垂直平鋪 End SubPrivate Sub tlbMain_ButtonClick(ByVal Button As )Select Case Case ”Student“mnuStudent_ClickExit SubCase ”Find“mnuFind_ClickExit SubCase ”Login“mnuLog_ClickExit SubCase ”Exit“mnuExit_ClickExit SubEnd Select End SubOption Explicit39。表示當(dāng)前用戶登錄所選擇的身份，即用戶類型, 0表示教務(wù)管理人員；1表示學(xué)生 Dim mnUserType As Integer Private Sub cmdCancel_Click()Unload Me End SubPrivate Sub cmdOK_Click()39。取得用戶輸入的用戶名和密碼Dim user As String, pwd As Stringuser = Trim(txtUser)pwd = Trim(txtPwd)39。根據(jù)不同的身份，選擇不同的表用以查詢Dim r As New Set r = Dim strSQL As StringSelect Case mnUserTypeCase 0: 39。若身份為管理員strSQL = ”select * from 系統(tǒng)人員表 where name=39?！?amp。 user amp。 ”39。 and pwd=39。“ amp。 pwd amp。 ”39?！癈ase 1: 39。若身份為學(xué)生strSQL = ”select * from 學(xué)生信息表 where name=39。“ amp。 user amp。 ”39。 and serial=39。“ amp。 pwd amp。 ”39?！癊nd SelectOn Error Resume Next39。，如果已經(jīng)打開，則先關(guān)閉If = adStateOpen Then strSQL39。39。用戶密碼錯誤的次數(shù)，如果錯誤次數(shù)超過3次，則退出系統(tǒng)Static nTryCount As IntegerIf Then39。登錄失敗MsgBox ”對不起，無此用戶或者密碼不正確！請重新輸入！“, vbCritical, ”錯誤“ = 0 = Len(txtUser)nTryCount = nTryCount + 1If nTryCount = 3 ThenMsgBox ”您無權(quán)操作本系統(tǒng)！“, vbCritical, ”錯誤“Unload MeEnd IfElse39。登陸成功39。顯示MDI窗體, 并將用戶類型和用戶名傳到MDI窗體中的mnUserType, msUserName中With frmMain.mnUserType = mnUserType.msUserName = userEnd WithLoad frmMainUnload MeEnd If End Sub Private Sub Form_Load()optUserType(0).Value = True End SubPrivate Sub optUserType_Click(Index As Integer)mnUserType = Index End Sub ExplicitPrivate Sub Command1_Click()Dim strCon1 As StringDim strCon2 As StringOn Error GoTo myerrIf Trim()= ”“ Or Trim()= ”“ ThenIf MsgBox(”請輸入查詢條件！“, vbInformation, ”提示“)Then GoTo myerrEnd IfSelect Case Trim()Case ”學(xué)號“strCon1 = ”Serial“Case ”姓名“strCon1 = ”Name“Case ”班級“strCon1 = ”Class“OptionCase ”生日“strCon1 = ”Birthday“Case ”性別“strCon1 = ”Sex“Case ”家庭地址“strCon1 = ”Address“Case ”電話“strCon1 = ”Tel“End SelectSelect Case Trim()Case ”學(xué)號“strCon2 = ”Serial“Case ”姓名“strCon2 = ”Name“Case ”班級“strCon2 = ”Class“Case ”生日“strCon2 =