当前位置：文档之家 › 登录窗体代码

登录窗体代码

  • 格式：pdf
  • 大小：230.12 KB
  • 文档页数：51

登录窗体代码：Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim micount As IntegerPrivate Sub Form_Load()Dim sBuffer As StringDim lSize As LongsBuffer = Space$(255)lSize = Len(sBuffer)Call GetUserName(sBuffer, lSize)If lSize > 0 Thentxtusername.Text = Left$(sBuffer, lSize)Elsetxtusername.Text = vbNullStringEnd IfOK = Falsemicount = 0End SubPrivate Sub Cmdcancel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As String'ToDo: create test for correct password'check for correct passwordusername = ""If Trim(txtusername.Text = "") ThenMsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"txtusername.SetFocusElsetxtSQL = "select * from user_Info where user_ID = '" & txtusername.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtusername.SetFocusElseIf Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenright = Trim(mrc.Fields(2))OK = Truemrc.CloseMe.Hideusername = Trim(txtusername.Text)ElseMsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""End IfEnd IfEnd Ifmicount = micount + 1If micount = 3 ThenMe.HideEnd IfExit SubEnd SubPrivate Sub option1_click()right = 1End SubPrivate Sub option2_click()right = 0End Sub添加用户代码：Private Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIf Trim(Text1(0).Text) = "" ThenMsgBox "请输入用户名称！", vbOKOnly + vbExclamation, "警告"Exit SubText1(0).SetFocusElsetxtSQL = "select * from user_Info "Set mrc = ExecuteSQL(txtSQL, MsgText)While (mrc.EOF = False)If Trim(mrc.Fields(0)) = Trim(Text1(0)) ThenMsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"Text1(0).SetFocusText1(0).Text = ""Text1(1).Text = ""Text1(2).Text = ""Exit SubElsemrc.MoveNextEnd IfWendEnd IfIf ((Not Option1.Value) And (Not Option2.Value)) ThenMsgBox "请选择用户类型！", vbOKOnly + vbExclamation, "警告"Option1.SetFocusElseIf Option1.Value Then right = 1 Else right = 0If Trim(Text1(1).Text) <> Trim(Text1(2).Text) ThenMsgBox "两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告"Text1(1).SetFocusText1(1).Text = ""Text1(2).Text = ""Exit SubElseIf Text1(2).Text = "" ThenMsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"Text1(0).SetFocusText1(1).Text = ""Text1(2).Text = ""mrc.AddNewmrc.Fields(0) = Trim(Text1(0).Text)mrc.Fields(1) = Trim(Text1(1).Text)mrc.Fields(2) = rightmrc.Updatemrc.CloseMe.HideMsgBox "添加用户成功！", vbOKOnly + vbExclamation, "添加用户"End IfEnd IfEnd IfEnd SubPrivate Sub Cmdcancel_Click()Unload MeEnd Sub修改密码代码：Option ExplicitPrivate Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As Stringusername = ""If Trim(txtusername.Text) = "" ThenMsgBox "用户名不能为空！", vbOKOnly + vbExclamation, "警告"txtusername.SetFocusElsetxtSQL = "select * from user_Info where user_ID = '" & txtusername.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True ThenMsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"txtusername.SetFocusExit SubElseIf Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Thenright = Trim(mrc.Fields(2))mrc.CloseMe.Hideusername = Trim(txtusername.Text)ElseMsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"txtPassword.SetFocustxtPassword.Text = ""Exit SubEnd IfEnd IfIf Trim(Text1.Text) <> Trim(Text2.Text) ThenMsgBox "输入的新密码不一致！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusText1.Text = ""ElsetxtSQL = "select * from user_Info where user_ID = '" & username & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.Fields(1) = Text1.Textmrc.Updatemrc.CloseMsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"Me.HideEnd IfEnd IfEnd SubPrivate Sub Cmdcancel_Click()Unload MeEnd SubPrivate Sub xtPassword_Change()End Sub主菜单代码：Private Sub MDIForm_Load()If right = "0" ThenmenuAdduser.Visible = FalsemenuModifypwd.Visible = FalsemenuModifymaterial.Visible = FalsemenuDeletematerial.Visible = FalseEnd IfMe.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000) Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500) Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)End SubPrivate Sub MDIForm_Unload(Cancel As Integer)If Me.WindowState <> vbMinimized ThenSaveSetting App.Title, "Settings", "MainLeft", Me.LeftSaveSetting App.Title, "Settings", "MainTop", Me.TopSaveSetting App.Title, "Settings", "MainWidth", Me.WidthSaveSetting App.Title, "Settings", "MainHeight", Me.Height End IfUnload MeEnd SubPrivate Sub menuAbout_Click()frmAbout.ShowEnd SubPrivate Sub menuAdduser_Click()frmLogin1.ShowEnd SubPrivate Sub menuExit_Click()EndEnd SubPrivate Sub menuModifypwd_Click()frmLogin2.ShowEnd SubPrivate Sub menuAddmaterial_Click()gintMmode = 1frmMater1.ShowfrmMater1.ZOrder 0End SubgintImode = 1frmMaterIn1.ShowfrmMaterIn1.ZOrder 0End SubPrivate Sub menuAddmaterialout_Click()gintOmode = 1frmMaterOut1.ShowfrmMaterOut1.ZOrder 0End SubPrivate Sub menuAddsurplus_Click()gintLmode = 1frmMaterList1.ShowfrmMaterList1.ZOrder 0End SubPrivate Sub menuDeletematerial_Click()Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagMedit ThenIf frmMater.msgList.Rows > 1 ThenIf MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK ThenintCount = frmMater.msgList.RowtxtSQL = "delete from material where wzid='" & Trim(frmMater.msgList.TextMatrix(intCount, 1)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)Unload frmMaterfrmMater.txtSQL = "select * from material"frmMater.ShowEnd IfEnd IfEnd IfEnd SubDim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagIedit ThenIf frmMaterIn.msgList.Rows > 1 ThenIf MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK ThenintCount = frmMaterIn.msgList.RowtxtSQL = "update msurplus set yeaccount=yeaccount-" & Trim(frmMaterIn.msgList.TextMatrix(intCount, 7)) & ",yevalue=yevalue-" & Trim(frmMaterIn.msgList.TextMatrix(intCount, 9)) & " where yeid='" & Trim(frmMaterIn.msgList.TextMatrix(intCount, 2)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "delete from msave where rkno='" & Trim(frmMaterIn.msgList.TextMatrix(intCount, 1)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)Unload frmMaterInfrmMaterIn.txtSQL = "select * from msave"frmMaterIn.ShowEnd IfEnd IfEnd IfEnd SubPrivate Sub menuDeletematerialout_Click()Dim txtSQL As StringDim intCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As StringIf flagOedit ThenIf frmMaterOut.msgList.Rows > 1 ThenIf MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK ThenintCount = frmMaterOut.msgList.RowtxtSQL = "update msurplus set yeaccount=yeaccount+" &Trim(frmMaterOut.msgList.TextMatrix(intCount, 7)) & ",yevalue=yevalue+" & Trim(frmMaterOut.msgList.TextMatrix(intCount, 9)) & " where yeid='" & Trim(frmMaterOut.msgList.TextMatrix(intCount, 2)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "delete from muse where lyno='" & Trim(frmMaterOut.msgList.TextMatrix(intCount, 1)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)Unload frmMaterOutfrmMaterOut.txtSQL = "select * from muse"frmMaterOut.ShowEnd IfEnd IfEnd IfEnd SubPrivate Sub menuInquirematerialin_Click()frmMaterIn2.ShowEnd SubPrivate Sub menuInquirematerialout_Click()frmMaterOut2.ShowEnd SubPrivate Sub menuInquiresurplus_Click()If flagLedit ThenfrmMaterList2.ShowElsefrmMaterList.txtSQL = "select * from msurplus"frmMaterList.ShowEnd IfEnd SubPrivate Sub menuInqurematerial_Click()frmMater2.ShowEnd SubPrivate Sub menuModifymaterial_Click()Dim intCount As IntegerIf flagMedit ThenIf frmMater.msgList.Rows > 1 ThengintMmode = 2intCount = frmMater.msgList.RowfrmMater1.txtSQL = "select * from material where wzid='" & Trim(frmMater.msgList.TextMatrix(intCount, 1)) & "'"frmMater1.ShowElseCall menuAddmaterial_ClickEnd IfElsefrmMater.txtSQL = "select * from material"frmMater.ShowEnd IfEnd SubPrivate Sub menuModifymaterialin_Click()Dim intCount As IntegerIf flagIedit ThenIf frmMaterIn.msgList.Rows > 1 ThengintImode = 2intCount = frmMaterIn.msgList.RowfrmMaterIn1.txtSQL = "select * from msave where rkno='" & Trim(frmMaterIn.msgList.TextMatrix(intCount, 1)) & "'"frmMaterIn1.ShowElseCall menuAddmaterialin_ClickEnd IfElsefrmMaterIn.txtSQL = "select * from msave"frmMaterIn.ShowEnd IfEnd SubPrivate Sub menuModifymaterialout_Click()Dim intCount As IntegerIf flagOedit ThenIf frmMaterOut.msgList.Rows > 1 ThengintOmode = 2intCount = frmMaterOut.msgList.RowfrmMaterOut1.txtSQL = "select * from muse where lyno='" &Trim(frmMaterOut.msgList.TextMatrix(intCount, 1)) & "'"frmMaterOut1.ShowElseCall menuAddmaterialout_ClickEnd IfElsefrmMaterOut.txtSQL = "select * from muse"frmMaterOut.ShowEnd IfEnd Sub物资列表代码：Option ExplicitDim mrc As ADODB.RecordsetDim MsgText As StringPublic txtSQL As StringPrivate Sub Form_Load()ShowTitleShowDataflagMedit = TrueEnd SubPrivate Sub Form_Resize()If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then '边界处理If Me.ScaleHeight < 10 * lblTitle.Height ThenExit SubEnd IfIf Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 ThenExit SubEnd If'控制控件的位置lblTitle.Top = lblTitle.HeightlblTitle.Left = (Me.Width - lblTitle.Width) / 2msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2msgList.Width = Me.ScaleWidth - 200msgList.Left = Me.ScaleLeft + 100msgList.Height = Me.ScaleHeight - msgList.Top - 200End IfEnd SubPublic Sub FormClose()Unload MeEnd Sub'删除记录Private Sub Form_Unload(Cancel As Integer)flagMedit = FalsegintMmode = 0End Sub'显示Grid的内容Private Sub ShowData()Dim i As IntegerSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList.Rows = 1Do While Not mrc.EOF.Rows = .Rows + 1For i = 1 To mrc.Fields.CountSelect Case mrc.Fields(i - 1).TypeCase adDBDate.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "","yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""End SelectNext imrc.MoveNextLoopEnd Withmrc.CloseEnd Sub'显示Grid表头Private Sub ShowTitle()Dim i As IntegerWith msgList.Cols = 6.TextMatrix(0, 1) = "物资编号".TextMatrix(0, 2) = "物资名称".TextMatrix(0, 3) = "规格型号".TextMatrix(0, 4) = "类别".TextMatrix(0, 5) = "计量单位"'固定表头.FixedRows = 1'设置各列的对齐方式For i = 0 To 5.ColAlignment(i) = 0Next i'表头项居中.FillStyle = flexFillRepeat.Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4'设置单元大小.ColWidth(0) = 300.ColWidth(1) = 1000.ColWidth(2) = 2000.ColWidth(3) = 2000.ColWidth(4) = 1000.ColWidth(5) = 1000.Row = 1End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) '右键弹出If Button = 2 And Shift = 0 ThenPopupMenu fMainForm.menuMaterialEnd IfEnd Sub物资信息代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cmdExit_Click()If mblChange And cmdSave.Enabled ThenIf MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim MsgText As StringFor intCount = 0 To 4If Trim(txtItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "物资编号"Case 1sMeg = "物资名称"Case 2sMeg = "规格型号"Case 3sMeg = "计量单位"Case 4sMeg = "类别"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCount'添加判断是否有相同的ID记录If gintMmode = 1 ThentxtSQL = "select * from material where wzid='" & Trim(txtItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "已经存在此物资编号的记录！", vbOKOnly + vbExclamation, "警告"txtItem(0).SetFocusExit SubEnd Ifmrc.CloseEnd If'判断是否有相同内容的记录txtSQL = "select * from material where wzid<>'" & Trim(txtItem(0)) & "' and wzname='" & Trim(txtItem(1)) & "' and wzspec='" & Trim(txtItem(2)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox "已经存在相同物资内容的记录！", vbOKOnly + vbExclamation, "警告"txtItem(1).SetFocusExit SubEnd If'先删除已有记录txtSQL = "delete from material where wzid='" & Trim(txtItem(0)) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)'再加入新记录txtSQL = "select * from material"Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(txtItem(0))For intCount = 1 To 4mrc.Fields(intCount) = Trim(txtItem(intCount))Next intCountmrc.Updatemrc.CloseIf gintMmode = 1 ThenMsgBox "添加记录成功！", vbOKOnly + vbExclamation, "添加记录" For intCount = 0 To 4txtItem(intCount) = ""Next intCountmblChange = FalseIf flagMedit ThenUnload frmMaterfrmMater.txtSQL = "select * from material"frmMater.ShowEnd IfElseIf gintMmode = 2 ThenUnload MeIf flagMedit ThenUnload frmMaterEnd IffrmMater.txtSQL = "select * from material"frmMater.ShowEnd IfEnd SubPrivate Sub Form_Load()Dim intCount As IntegerDim MsgText As StringIf gintMmode = 1 ThenMe.Caption = Me.Caption & "添加"ElseIf gintMmode = 2 ThenSet mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenWith mrcFor intCount = 0 To 4txtItem(intCount) = .Fields(intCount)Next intCountEnd WithtxtItem(0).Enabled = FalseEnd IfMe.Caption = Me.Caption & "修改"End IfmblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer)gintMmode = 0End SubPrivate Sub txtItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub物资查询代码：Option ExplicitPrivate Sub cmdExit_Click()Me.HideEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As StringDim sQSql As StringIf chkItem(0).Value = vbChecked ThensQSql = " wzname ='" & Trim(txtItem(0) & " ") & "'"End IfIf chkItem(1).Value = vbChecked ThenIf Trim(sQSql & " ") = "" ThensQSql = " wzspec ='" & Trim(txtItem(1) & " ") & "' "ElsesQSql = sQSql & " and wzspec = '" & Trim(txtItem(1) & " ") & "'"End IfEnd IfIf Trim(sQSql) = "" ThenMsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"Exit SubElseIf flagMedit ThenUnload frmMaterEnd IffrmMater.txtSQL = "select * from material where" & sQSqlfrmMater.ShowEnd IfEnd SubPrivate Sub lblitem_Click(Index As Integer)chkItem(Index).Value = vbCheckedtxtItem(Index).SetFocusEnd SubPrivate Sub chkItem_Click(Index As Integer)txtItem(Index).SetFocusEnd SubPrivate Sub txtItem_GotFocus(Index As Integer)txtItem(Index).SelStart = 0txtItem(Index).SelLength = Len(txtItem(Index))End Sub入库物资信息代码：Option ExplicitPublic txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Form_Load()ShowTitleShowDataflagIedit = TrueEnd SubPrivate Sub Form_Resize()If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then '边界处理If Me.ScaleHeight < 10 * lblTitle.Height ThenExit SubEnd IfIf Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 ThenExit SubEnd If'控制控件的位置lblTitle.Top = lblTitle.HeightlblTitle.Left = (Me.Width - lblTitle.Width) / 2msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2msgList.Width = Me.ScaleWidth - 200msgList.Left = Me.ScaleLeft + 100msgList.Height = Me.ScaleHeight - msgList.Top - 200End IfEnd SubPublic Sub RecordEdit()Dim intCount As IntegerIf msgList.Rows > 1 ThengintMode = EDITintCount = msgList.RowgsSql = " where rkno='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "'"frmMaterIn1.Show 1ShowDataCall MovCursor(intCount, msgList)ElseCall RecordAddEnd IfEnd SubPublic Sub FormClose()Unload MeEnd Sub'删除记录Public Sub RecordDelete()Dim sSql As StringDim intCount As IntegerOn Error GoTo myErrIf msgList.Rows > 1 ThenIf MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK ThenintCount = msgList.RowwksHuaxia.BeginTranssSql = "update amsurplus set yeaccount=yeaccount-" & Trim(msgList.TextMatrix(msgList.Row, 7)) & ",yevalue=yevalue-" & Trim(msgList.TextMatrix(msgList.Row, 9)) & " where yeid='" & Trim(msgList.TextMatrix(msgList.Row, 2)) & "'"dbHuaxia.Execute sSql, dbSQLPassThroughsSql = "delete from " & msTableName & " where rkno='" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "'"dbHuaxia.Execute sSql, dbSQLPassThroughmitTransShowDataIf msgList.Rows > 1 ThenIf intCount = msgList.Rows ThenMovCursor msgList.Rows - 1, msgListElseMovCursor intCount, msgListEnd IfEnd IfEnd IfEnd IfExit SubmyErr:wksHuaxia.RollbackShowErrorEnd SubPublic Sub RecordRefresh()'设置msSqlmsSql = msSelect & msTableName & " where rkdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and rkdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy'显示数据msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")sOrder0 = "+ {rkdate}"sOrder1 = ""ShowDataEnd SubPublic Sub RecordAdd()gintMode = AddfrmMaterIn1.Show 1ShowDataEnd SubPublic Sub RecordFind()frmMaterIn2.Show 1If Trim(frmMaterIn2.sQSql & " ") <> "" ThenmsSql = msSelect & msTableName & " where" & frmMaterIn2.sQSql & msOrderByShowDataEnd IfUnload frmMaterIn2End SubPrivate Sub Form_Unload(Cancel As Integer)flagIedit = FalsegintImode = 0End Sub'显示Grid的内容Private Sub ShowData()Dim j As IntegerDim i As IntegerSet mrc = ExecuteSQL(txtSQL, MsgText)With msgList.Rows = 1Do While Not mrc.EOF.Rows = .Rows + 1For i = 1 To mrc.Fields.CountSelect Case mrc.Fields(i - 1).TypeCase adDBDate.TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")Case Else.TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""End SelectNext imrc.MoveNextLoopEnd Withmrc.CloseEnd Sub'显示Grid表头Private Sub ShowTitle()Dim i As IntegerWith msgList.Cols = 15.TextMatrix(0, 1) = "".TextMatrix(0, 2) = "物资编号".TextMatrix(0, 3) = "物资名称".TextMatrix(0, 4) = "规格型号".TextMatrix(0, 5) = "类别".TextMatrix(0, 6) = "计量单位".TextMatrix(0, 7) = "数量".TextMatrix(0, 8) = "单价".TextMatrix(0, 9) = "金额".TextMatrix(0, 10) = "时间".TextMatrix(0, 11) = "经办人".TextMatrix(0, 12) = "保管人".TextMatrix(0, 13) = "仓库".TextMatrix(0, 14) = "备注"'固定表头.FixedRows = 1'设置各列的对齐方式For i = 0 To 6.ColAlignment(i) = 0Next iFor i = 7 To 9.ColAlignment(i) = 7Next iFor i = 10 To 14.ColAlignment(i) = 0Next i'表头项居中.FillStyle = flexFillRepeat.Col = 0.Row = 0.RowSel = 1.ColSel = .Cols - 1.CellAlignment = 4'设置单元大小.ColWidth(0) = 300.ColWidth(1) = 0.ColWidth(2) = 1000.ColWidth(3) = 2000.ColWidth(4) = 2000.ColWidth(5) = 600.ColWidth(6) = 1000.ColWidth(7) = 600.ColWidth(8) = 800.ColWidth(9) = 1000.ColWidth(10) = 1000For i = 11 To 14.ColWidth(i) = 1000Next i.Row = 1End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) '右键弹出If Button = 2 And Shift = 0 ThenPopupMenu fMainForm.menuMaterialinEnd IfEnd Sub出库物资信息代码：Option Explicit'是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cboItem_Change(Index As Integer)'有变化设置gblchangemblChange = TrueEnd SubPrivate Sub cboItem_Click(Index As Integer)Dim sSql As StringDim MsgText As StringDim mrcc As ADODB.RecordsetIf gintImode = 1 Then'初始化员工名称和IDIf Index = 1 ThencboItem(0).Enabled = TruecboItem(3).Enabled = TruecboItem(4).Enabled = TruecboItem(2).ClearcboItem(0).ClearcboItem(3).ClearcboItem(4).CleartxtSQL = "select wzid,wzspec,wzkind,wzunit from material where wzname='" & Trim(cboItem(1)) & "'"Set mrcc = ExecuteSQL(txtSQL, MsgText)If Not mrcc.EOF ThenDo While Not mrcc.EOFcboItem(0).AddItem mrcc!wzidcboItem(2).AddItem mrcc!wzspeccboItem(3).AddItem mrcc!wzkindcboItem(4).AddItem mrcc!wzunitmrcc.MoveNextLoopcboItem(0).Enabled = FalsecboItem(3).Enabled = FalsecboItem(4).Enabled = FalsecboItem(2).ListIndex = 0cmdSave.Enabled = TrueElseMsgBox "请先建立物资档案！", vbOKOnly + vbExclamation, "警告"cmdSave.Enabled = FalseExit SubEnd Ifmrcc.CloseElseIf Index = 2 ThencboItem(0).Enabled = TruecboItem(3).Enabled = TruecboItem(4).Enabled = TrueWith cboItem(2)cboItem(0).ListIndex = .ListIndexcboItem(3).ListIndex = .ListIndexcboItem(4).ListIndex = .ListIndexEnd WithcboItem(0).Enabled = FalsecboItem(3).Enabled = FalsecboItem(4).Enabled = FalseEnd IfEnd IfExit SubEnd SubPrivate Sub cboItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click()If mblChange And cmdSave.Enabled ThenIf MsgBox("保存当前记录的变化吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then'保存Call cmdSave_ClickEnd IfEnd IfUnload MeEnd SubPrivate Sub cmdSave_Click()Dim intCount As IntegerDim sMeg As StringDim mrcc As ADODB.RecordsetDim MsgText As StringFor intCount = 0 To 5If Trim(txtItem(intCount) & " ") = "" ThenSelect Case intCountCase 0sMeg = "数量"Case 1sMeg = "单价"Case 2sMeg = "金额"Case 3sMeg = "入库时间"Case 4sMeg = "经办人"Case 5sMeg = "保管人"End SelectsMeg = sMeg & "不能为空！"MsgBox sMeg, vbOKOnly + vbExclamation, "警告"txtItem(intCount).SetFocusExit SubEnd IfNext intCountIf IsDate(txtItem(3)) ThentxtItem(3) = Format(txtItem(3), "yyyy-mm-dd")ElseMsgBox "入库时间应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"txtItem(3).SetFocusExit SubEnd If'判断余额库中是否有rkid的记录txtSQL = "select * from msurplus where yeid='" & Trim(cboItem(0)) & "' and yebase='" & Trim(txtItem(6) & " ") & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True Then '为空'向余额库加入新记录mrc.ClosetxtSQL = "select * from msurplus"Set mrcc = ExecuteSQL(txtSQL, MsgText)mrcc.AddNewmrcc.Fields(0) = Trim(cboItem(0))For intCount = 1 To 4If Trim(cboItem(intCount) & " ") = "" Thenmrcc.Fields(intCount) = NullElseOn Error Resume Nextmrcc.Fields(intCount) = Trim(cboItem(intCount))End IfNext intCountmrcc.Fields(5) = 0mrcc.Fields(6) = 0mrcc.Fields(7) = Trim(txtItem(6) & " ")mrcc.Fields(8) = Nullmrcc.Updatemrcc.CloseElsemrc.CloseEnd IfIf gintImode = 2 Then'先删除已有记录txtSQL = "delete from msave where rkno='" & Trim(txtNo) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "update msurplus set yeaccount=yeaccount-" & Trim(txtAccount) & ",yevalue=yevalue-" & Trim(txtValue) & " where yeid='" & Trim(cboItem(0)) & "' and yebase='" & Trim(txtBase) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)End If。

合集下载

C#读写Access数据库、表格datagridview窗体显示代码实例

C#读写Access数据库、表格datagridview窗体显示代码实例

C#读写Access数据库、表格datagridview窗体显⽰代码实例C#读写Access数据库、表格datagridview窗体显⽰代码实例最近项⽬中⽤到C#对于Access数据库表读写.mdb操作，学习了下相关的东西，这⾥先整理C#对于Access数据库的操作，对于MySQL和Oracle数据库的操作放到后⾯再写。

Access是微软数据库编辑软件，其⽣成的数据库⽂件为.mdb或.accdb，因此在Visual Studio⾥不像操纵MySQL那样需要使⽤mysql数据库驱动，系统库⾥有关于操纵数据库的⼏个类。

说下其中⼏个主要⽤到的类：System.Data;System.Data.OleDb;System.Data.Odbc;System.Data.SqlClient;先简单说下C#对于Access数据库的⼏个基本操作原理：C#操作Access连接字符串String connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=mydata.mdb";C#操作Access建⽴连接OleDbConnection connection = new OleDbConnection(connectionString);C#操作Access使⽤OleDbCommand类执⾏Sql语句OleDbCommand cmd = new OleDbCommand(sql, connection);connection.Open();cmd.ExecuteNonQuery();[1]连接Access数据库OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Application.StartupPath + "\\mydata.mdb");[2]连接SQL Server2000数据库SqlConnection conn = new SqlConnection("server=.; uid=admin; pwd=123456; database=mydata");[3]受信任的SQL Server2000数据库SqlConnection conn = new SqlConnection("workstation id=localhost; Integrated Security=SSPI; database=mydata");[4]ASP中链接SQL Server/Access数据库：（⽹页）(SQL Server):conn.connectionstring = "driver={sql server}; server=(local); uid=admin; pwd=123456; database=mydata"(Access):conn.connectionstring = "Driver={Microsoft Access Driver(*.mdb)}; DBQ=" & Server.Mappath("mydata.mdb")注意：→在asp中，语句结束不需要" ; "--------------------------------------------------------------------------------------------------------------------------------------------⼀、创建.mdb数据库//创建.mdb，注意参数path是.mdb的完整路径（不包含表的名称）//C#的不能通过编程⽅式创建新的ACCESS(MDB)数据库，所以只能⽤COM的链接库的ADOX操作public static bool CreateMdbDatabase(string path){try{ADOX.CatalogClass cat = new ADOX.CatalogClass();cat.Create("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + path + ";");cat = null;return true;}catch{return false;}}⼆、C#写⼊记录到Access数据库Sql插⼊数据库操作，⼀次只能插⼊⼀条记录，多条记录插⼊只能通过"循环"实现，效率不⾼；或者要么更快地就是开启事务（保证数据⼀致性）→循环插⼊→最后数据再⼀起导⼊。

access计算机代码归纳

access计算机代码归纳

第一套加载窗体fQuery重置窗体标题为“显示查询信息”Add1 Me.Caption = “显示查询信息”退出cQuit命令按钮改的文字颜色改为红色Add2 Me. 命令7.ForeColor = vbRed字体粗细改为加粗，加粗为700Add3 Me. 命令7.FontWeight = 700tStudent表中的全部记录显示Add4 BBB.Form.RecoedSource = “ select * from tStudent”第二套将Tda标签的标题设置为“YYYY年雇员信息”Add1 Me.Tda.Caption = Year(Date) & "年雇员信息"设置代码执行宏Add2 DoCmd.RunMacro "m1"第三套将标签显示内容设置为所选项目名加上"内容:"Add1 Me.Ldetail.Caption = Me.CItem.Value & "内容："显示全部记录Add2 fDetail.Form.RecordSource = "tStud"设置提示框Add3 MsgBox "查询项目或查询内容不能为空！！！", vbOKOnly, "注意"设置窗体标题为标签tTitle的标题Add4 Me.Caption = Me.tTitle.Caption第五套（同3套，少标题）Add1 Me.Ldetail.Caption = Me.cItem.Value & "内容：" Add2 Me.fDetail.Form.RecordSource = "tStud"Add3 MsgBox "查询项目和查询内容不能为空！！！", vbOKOnly, "注意"第六套单击修改按钮，保存按钮变为可用Add1 Me.CmdSave.Enabled = True焦点移到"CmdEdit"命令按钮Add2 Me.CmdEdit.SetFocus第八套设置窗体标题为“xxxx年信息输出”Add1 Me.Caption = Year(Date) & "年信息输出"预览方式输出报表rEmpAdd2 DoCmd.OpenReport "rEmp", acViewPreview第九套消息框提示关闭窗体Add If MsgBox("确认退出？", vbYesNo + vbQuestion, "提示") = vbYes ThentSub学号第56位判断专业控件来源=IIf(Mid([学号],5,2)="10","信息","管理")第十套实现“tPass”文本框内容以密码形式显示Add1 Me.tPass.InputMask = "password"用户名为cueb ，用户密码为1234Add2 If name = "cued" And pass = "1234" ThenAdd3 Me.tUser.SetFocusAdd4 DoCmd.Close 第十一套表tDept的控件来源=DLookUp("科室名称","tOffice","科室ID='" & [科室ID] & "'")tDoct的控件来源=DLookUp("姓名","tDoctor","医生ID = '" & [医生ID] & "'")将标签显示内容设置为所选项目名加上"内容:"Add1 Me.Ldetail.Caption = Me.CItem.Value & "内容："显示全部记录Add2 fDetail.Form.RecordSource = "tStud"设置提示框Add3 MsgBox "查询项目或查询内容不能为空！！！", vbOKOnly, "注意"设置窗体标题Add4 Me.Caption = Year(Date) & "年" & Month(Date) & "月" & Me.tTitle.Caption第十二套tPa的控件来源=IIf([tEmp]![党员否]=[ture],"党员","非党员")窗体对象改为查询对象”qEmp ”动态设置窗体记录源属性Add1 Me.Form.RecordSource = "qEmp"关闭窗口Add2 DoCmd.Close第十三套txtIf的控件来源=IIf(Sum([单价]*[数量])>30000,"达标","不达标")第十四套计算满足表达式1+2+3+..+n<=30000 在Program行中输入Dim s As IntegerDo While s <= 30000n = n + 1s = s + nLoopn = n – 1代码调用宏对象"mEmp" Add2 DoCmd.RunMacro "mEmp"设置窗体标题为标签"bTitle"的标题内容Add1 Me.Caption = Me.bTitle.Caption第十五套题干为对不起！为输入雇员姓名，请输入！Add1 Set rs = New ADODB.RecordsetAdd2 If Not rs.EOF ThenAdd3 Me.TxtDetail = ""第十六套tDept的控件来源=DLookUp("名称","tGroup","部门编号='" & [所属部门] & "'")第十七套窗体标题显示为**月**日####Me.Caption = Trim(Month(Date) & "月" & Day(Date) & "月") & Trim(Me.bTitle.Caption)第十八套窗体标题显示为**月**日####样例Me.Caption = Trim(Month(Date) & "月" & Day(Date) & "日") & Trim(Me.bTitle.Caption & "样例")第十九套使用DLookUp函数查询并将结果分别显示在标签上Add1 btitle2.Caption = "性别查询结果: " & COMBO1.Value & "的平均年龄为" & DLookup("平均年龄", "qEmp", "性别='" & COMBO1.Value & "'")设置组合框列表框行来源，用于列出不同的性别值供选择Add2 BO1.RowSourceType = "值列表"BO1.AddItem "男"BO1.AddItem "女"设置Label2初始标签值为“性别查询结果：”Add3 Me.btitle2.Caption = "性别查询结果："第二十套窗体标题显示为CD明细显示Me.Caption = Me.bTitle.Caption & "显示"CDID标签的文字颜色改为红色Me.CDID_标签.ForeColor = vbRed第二十一套文本框已输入的字符串反向显示设置循环Add1 For i = Len(s1) To 1 Step -1将结果显示在bTxt2中Add2 Me.bTxt2.Value = s2第二十二套窗体标题显示为**月####Me.Caption = Month(Date) & "月" & Me.bTitle.Caption第二十三套设置过滤属性，输出团员信息Add1 Me.RecordSource = "select * from tStudent where 政治面貌= '团员'"设置子对象的数据源Add2 Me.子对象.SourceObject = "fGrade"取消子窗体导航按钮Add3 Me.子对象.Form.NavigationButtons = FalseAdd4 DoCmd.Close第二十四套等级考试测试Me.bTitle.Caption =Me.tText.Value & Trim("等级考试测试")英文部分大写输出Me.Caption = UCase(Me.bTitle.Caption)第二十五套设置bTitle标签为红色文本显示Add1 Me.bTitle.ForeColor = vbRed'调用mdPnt，预览输出Add2 mdPnt acViewPreview'调用mdPnt，打印输出Add3 mdPnt acViewNormal第二十六套代码重置"bTitle"标签的标题为"员工最大年龄差为XXX" Add1 Me.bTitle.Caption = "员工最大年龄差为" & (DMax("年龄", "temp") - DMin("年龄", "temp"))消息框提示报表输出(外观样式见题干图例)Add2 If MsgBox("报表预览", vbYesNo + vbQuestion, "确认") = vbYes Then第二十七套重置窗体标题为"XXXX年度党员学生信息"Add1 Me.Caption = Year(Date) & "年度党员学生信息"设置窗体的记录源Add2 Me.RecordSource = "SELECT * FROM tStud where [党员否]=true"关闭当前窗体DoCmd.Close第二十八套非团员人数为XXXXAdd1 bTitle.Caption = "非团员人数为" & DCount("学号", "tstud", "团员否=FALSE")验证用户输入Add2 If Name = "csy" And pass = "1129" Then光标焦点移至要求文本框内Me.tUser.SetFocus第二十九套设置窗体标题为当前日期Add1 Me.Caption = Date设置"fTitle"标签的标题Add2 Me.fTitle.Caption = "读者借阅信息"预览方式打开报表并设置条件输出高级读者（职称为"教授"和"副教授"的读者）借阅信息Add3 DoCmd.OpenReport "rReader", acViewPreview, "qT", "职称in('教授','副教授')第三十套重置窗体标题为"系统登录" Add1 Me.Caption = "系统登录"验证用户输入Add2 If tUser = "cueb" And tPass = "1234" Then光标焦点移至要求文本框内Add3 Me.tUser.SetFocus 第三十二套报表标题****年度######Me.Caption = Trim(Year(Date) & "年度") & Trim(Me.bTitle.Caption)定义变量f为整型Dim f As Integer窗体标题自动显示为“计时器”Form.Caption = "计时器"设置铃声Beep在文本框中显示计时的秒数Me.txtList.Value = s第三十三套设置窗体标题为"**年度报表输出"Add1 Me.Caption= mid(Year(Date),3,2) & "年度报表输出"设置窗体"退出"命令按钮标题为粗体显示Add2 Me.bt2.FontBold = -1预览方式输出报表rEmpAdd3 DoCmd.OpenReport "rEmp", acViewPreview第三十四套题干为：没有这个职员Add1 If isnull (Trim(me.txtName))thenAdd2 strSQL = “ select * from tEmp where 姓名= ‘” & name & “’”Add3 If rs.EOF then。

控件命令大全

控件命令大全

1.实体命令：xueshengbiaoEntities myDB = new xueshengbiaoEntities();2.登录命令：If((textBox1.Text==””)||(texBox2.Text==””)){MessageBox.Show(“姓名或密码不能为空”，“错误提示”，)；}else if(myDB.学生表.Any(ren=>ren.qq号.Equals(textBox1.Text)&& ren.密码.Equals(textBox2.Text))){this.Hide();Main 密码 = new Main();密码.Show();}elseMessageBox.Show("用户名或密码错误");textBox1.Text=textBox.Text2=””;//清空文本框或：if ((textBox1.Text == "") || (textBox2.Text) == ""){MessageBox.Show("姓名或密码不能为空", "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);}else if (myDB.学生表.Any(student => student.姓名.Equals(textBox1.Text) && student.密码.Equals(textBox2.Text))){this.Hide();Form2 mm = new Form2();MessageBox.Show("登录成功","成功",MessageBoxButtons.OK,MessageBoxIcon.Warning);mm.Show();}elseMessageBox.Show("用户名或密码错误","错误", MessageBoxButtons.OK, MessageBoxIcon.Warning);3.从一个界面到另一个界面：this.Hide();Form2 cx = new Form2();cx.Location = new Point(400,200);cx.StartPosition =FormStartPosition.Manual;cx.Show();窗体关闭提示：private void Form1_FormClosing(object sender, FormClosingEventArgs e){DialogResult dr = MessageBox.Show("确¨¡¤定¡§退ª?出?？ê?", "提¬¨¢示º?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning);if (dr == DialogResult.Yes){e.Cancel = false;}else{e.Cancel = true;}}4.保存：private void button1_Click(object sender, EventArgs e){myDB.SaveChanges();MessageBox.Show("保存成功！");}private void Form1_Load(object sender, EventArgs e){//dataGridView1.DataSource = myDB.学生表;// TODO: 这行代码将数据加载到表“示例DataSet.学生表”中。

第9章C#使用ADO进行数据库编程

第9章C#使用ADO进行数据库编程


9.2 窗体设计部分
任务9.1 任务实施
（四）“搜索电影”窗体模块 • (3) 添加控件
9.2 窗体设计部分
任务9.1 任务实施
（五）“评价电影”窗体模块 • (1) ―评价电影”模块概述
– “评价电影”窗体，能够根据用户在“导航”窗体“评电 影”一栏的文本框中输入的关键字，在数据库的“电影介 绍表”中搜索，找到与关键字匹配的电影，如果存在，就 把与该电影相关的所有评论显示在“评价电影”窗体的“ 网格视图”控件中。并允许用户插入、修改、删除相应的 评论记录。 – “评价电影”窗体也允许用户由“搜索电影”窗体或“推 荐电影”窗体跳转过来。 – 其界面布局如图9-17所示。
– “推荐电影”窗体，能够在“电影评论表”中找出当前登 录用户没有评价过的电影，然后根据其他人对电影评分的 平均值，按照由高分到低分的原则，向用户列出这些电影 的详细介绍信息。窗体结构和“搜索电影”几乎一样，而 代码实现逻辑完全不同，其窗体布局如图9-19所示。
9.2 窗体设计部分
任务9.1 任务实施
9.1.1 项目概述
―电影荐评系统”的流程图如图9-2所示。
9.1.2 数据库设计
要完成对电影和电影评价的保存，还要记录登录的用户信 息，这个简单的系统需要三张数据表来完成数据的保存。 系统的表结构如下：
1. filmintro（电影介绍表） • 表filmintro用于保存系统所有的电影信息
– 选择【文件】|【新建】|【项目】命令，打开“新建项目 ”对话框，在“模板”区域选择“Windows应用程序”， 在“名称”框里输入本项目的名称“FSS‖，在“位置”框 里设置项目保存的路径，单击“确定”完成项目创建。操 作如图9-8所示。
9.2 窗体设计部分