?? frmpromd.frm

?? 學(xué)院MIS管理系統(tǒng),適合大部分畢業(yè)生,請(qǐng)大家支持
?? FRM
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào):
上一頁(yè)12
         Top             =   885
         Width           =   1695
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "數(shù)量"
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0080FFFF&
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   1440
         Width           =   615
      End
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "編號(hào)"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0080FFFF&
      Height          =   255
      Index           =   1
      Left            =   360
      TabIndex        =   16
      Top             =   240
      Width           =   615
   End
End
Attribute VB_Name = "FrmPromd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim mrc As ADODB.Recordset
Dim mcclean As Boolean

Private Sub CmdCancel_Click()
 Call reflashform
End Sub

Private Sub CmdDelete_Click()
   Dim txtSQL As String
    Dim MsgText As String
    mrc.Close
    txtSQL = "select * from caichanguanli where caichan_id = '" & Trim(txtbh.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    '先按編號(hào)查詢到人員信息，再刪除
    If mrc.BOF Then
          MsgBox "數(shù)據(jù)庫(kù)中沒(méi)有此財(cái)產(chǎn)信息！", vbOKOnly + vbExclamation, "無(wú)法刪除"
          Call reflashform
          Exit Sub
    Else
         Call viewData
          '提示是否刪除
          str2$ = MsgBox("是否刪除當(dāng)前記錄？", vbOKCancel + vbQuestion, "刪除當(dāng)前記錄")
        If str2$ = vbOK Then
          mrc.Delete
          MsgBox "刪除成功！", vbOKOnly + vbExclamation, "警告"
          Call reflashform
        Else
          Call reflashform
        End If
     
    End If
End Sub

Private Sub Cmdnext_Click()
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
 Call viewData
End Sub

Private Sub CmdUpdate_Click()
   Dim txtSQL As String
   Dim MsgText As String
   Dim mrcc As ADODB.Recordset
  '判斷是否輸入編號(hào),編號(hào)是主鍵，不能為空
  If Not Testtxt(txtbh.Text) Then
        MsgBox "請(qǐng)輸入財(cái)產(chǎn)編號(hào)！", vbOKOnly + vbExclamation, "警告"
        txtbh.SetFocus
      Exit Sub
  End If
  
  If Not Testtxt(txtName.Text) Then
        MsgBox "請(qǐng)輸入財(cái)產(chǎn)名稱！", vbOKOnly + vbExclamation, "警告"
      txtName.SetFocus
      Exit Sub
    End If
       '判斷是否輸入使用日期？
  If Testtxt(txtRiqi.Text) Then
       '判斷輸入的使用日期是否按照格式
             If Not IsDate(txtRiqi.Text) Then
               MsgBox "出生日期應(yīng)輸入日期格式（yyyy—mm—dd）！", vbOKOnly + vbExclamation, "警告"
               txtRiqi.SetFocus
                 Exit Sub
             Else
                 txtRiqi = Format(txtRiqi, "yyyy-mm-dd")
             End If
    Else
         txtRiqi.Text = "2000-01-01"
         txtRiqi = Format(txtRiqi, "yyyy-mm-dd")
     End If
       
       
       txtSQL = "select * from caichanguanli where caichan_id = '" & Trim(txtbh.Text) & "'"
       '執(zhí)行查詢操作
       Set mrcc = ExecuteSQL(txtSQL, MsgText)
      If mrcc.EOF = False Then
        If mrcc.Fields(0) = mrc.Fields(0) Then
   '如果查詢到的編號(hào)跟mrc的相同，則不算重復(fù)。因?yàn)閙rc是要更新的對(duì)象，更新前要?jiǎng)h除的
        Else
        MsgBox "財(cái)產(chǎn)編號(hào)重復(fù)，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"
        mrcc.Close
        txtbh.SetFocus
        Exit Sub
        End If
       End If
       mrcc.Close
     '將要更新的記錄刪除后，再添加新記錄，代表更新
       mrc.Delete
       mrc.AddNew
       '添加記錄
       mrc.Fields(0) = Trim(txtbh.Text)
       mrc.Fields(1) = Trim(txtName.Text)
       mrc.Fields(2) = Trim(txtGuige.Text)
       mrc.Fields(3) = Trim(txtType.Text)
       mrc.Fields(4) = Trim(txttotal.Text)
       mrc.Fields(5) = Trim(TxtOwner.Text)
       mrc.Fields(6) = Trim(txtRiqi.Text)
       mrc.Fields(7) = Trim(txtBeizhu.Text)
   
       mrc.Update
       MsgBox "修改信息成功", vbOKOnly + vbExclamation, "警告"
       '關(guān)閉數(shù)據(jù)集對(duì)象
       mrc.Close
       Call reflashform
End Sub

Public Sub reflashform()
   Dim txtSQL As String
   Dim MsgText As String
   txtSQL = "select * from caichanguanli"
   Set mrc = ExecuteSQL(txtSQL, MsgText)
      If mrc.BOF = True Then
         str2$ = MsgBox("所有財(cái)產(chǎn)信息被刪除完畢！" & Chr(13) & "      添加財(cái)產(chǎn)信息？", vbOKCancel + vbQuestion, "警告")
            If str2$ = vbOK Then
            Unload FrmPromd
            FrmProadd.Show
            Else
            Unload FrmPromd
            End If
       Unload Me
       Exit Sub
    Else
    mrc.MoveFirst
    Call viewData
    Frame2.Enabled = True
          CmdFirst.Enabled = True
          CmdPrevious.Enabled = True
          Cmdnext.Enabled = True
          CmdLast.Enabled = True
          txtbh.Enabled = True
          txtName.Enabled = False
          txtType.Enabled = False
          txtGuige.Enabled = False
          TxtOwner.Enabled = False
          txttotal.Enabled = False
          txtRiqi.Enabled = False
          txtBeizhu.Enabled = False
          Frame1.Enabled = True
          Cmdedit.Enabled = True
          CmdDelete.Enabled = True
          CmdCancel.Enabled = False
          CmdUpdate.Enabled = False
          mcclean = True
          cmdtui.Enabled = True
          mcclean = True
    End If
End Sub

Private Sub Cmdedit_Click()
    Dim txtSQL As String
    Dim MsgText As String
    mrc.Close
    txtSQL = "select * from caichanguanli where caichan_id = '" & Trim(txtbh.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.BOF Then
          MsgBox "數(shù)據(jù)庫(kù)中沒(méi)有此財(cái)產(chǎn)信息！", vbOKOnly + vbExclamation, "無(wú)法修改"
          Call reflashform
          Exit Sub
    Else
        Call viewData
    
    mcclean = False
    Frame1.Enabled = False
   '使移動(dòng)記錄按鈕失效
    CmdFirst.Enabled = False
    CmdPrevious.Enabled = False
    Cmdnext.Enabled = False
    CmdLast.Enabled = False
    '是各個(gè)文本框有效
          Frame2.Enabled = True
         txtbh.Enabled = True
          txtName.Enabled = True
          txtType.Enabled = True
          txtGuige.Enabled = True
          TxtOwner.Enabled = True
          txttotal.Enabled = True
          txtRiqi.Enabled = True
          txtBeizhu.Enabled = True
          Frame1.Enabled = True
          Cmdedit.Enabled = False
          CmdDelete.Enabled = False
          CmdCancel.Enabled = True
          cmdtui.Enabled = False
          CmdUpdate.Enabled = True
   End If
End Sub

Private Sub CmdFirst_Click()
  mrc.MoveFirst
  Call viewData
End Sub

Public Sub viewData()
      txtbh.Text = Trim(mrc.Fields(0))
       txtName.Text = Trim(mrc.Fields(1))
       txtType.Text = Trim(mrc.Fields(2))
       txtGuige.Text = Trim(mrc.Fields(3))
       TxtOwner.Text = Trim(mrc.Fields(4))
       txttotal.Text = Trim(mrc.Fields(5))
       txtRiqi.Text = Trim(mrc.Fields(6))
       txtBeizhu.Text = Trim(mrc.Fields(7))
End Sub
Private Sub CmdLast_Click()
   mrc.MoveLast
   Call viewData
End Sub

Private Sub CmdPrevious_Click()
    mrc.MovePrevious
    If mrc.BOF Then
    mrc.MoveLast
    End If
    Call viewData
End Sub

Private Sub cmdtui_Click()
Unload Me
End Sub

Private Sub Command3_Click()
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
 Call viewData
End Sub
Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrcc As ADODB.Recordset
   '數(shù)據(jù)庫(kù)中如果沒(méi)有信息，則詢問(wèn)添加
    txtSQL = "select personnel_id ,name from personnel_infor"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If Not mrcc.EOF Then
       mrcc.MoveFirst
    Do While Not mrcc.EOF
         TxtOwner.AddItem Trim(mrcc.Fields(1))
        '移動(dòng)到下一條記錄
        mrcc.MoveNext
    Loop
    End If
    mrcc.Close
    txtSQL = "select caichan_id from caichanguanli"
    Set mrcc = ExecuteSQL(txtSQL, MsgText)
    If Not mrcc.EOF Then
       mrcc.MoveFirst
    Do While Not mrcc.EOF
         txtbh.AddItem Trim(mrcc.Fields(0))
        '移動(dòng)到下一條記錄
        mrcc.MoveNext
    Loop
    End If
    mrcc.Close
Call reflashform
End Sub
上一頁(yè)12
?? 文件大小 1983 K
?? 上傳用戶 asdzxcliu
?? 所屬分類其他
??? 相關(guān)標(biāo)簽

#MIS #管理系統(tǒng) #分 #畢業(yè)
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmpromd.frm

?? 快捷鍵說(shuō)明
