VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "物資管理信息系統"
   ClientHeight    =   5085
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8055
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   4815
      Width           =   8055
      _ExtentX        =   14208
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   8573
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2007-08-18"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "11:06"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系統"
      Begin VB.Menu menuModifypwd 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu menuAdduser 
         Caption         =   "添加用戶"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu menuMaterial 
      Caption         =   "物資基本信息管理"
      Begin VB.Menu menuAddmaterial 
         Caption         =   "添加物資基本信息"
      End
      Begin VB.Menu menuModifymaterial 
         Caption         =   "修改物資基本信息"
      End
      Begin VB.Menu menuDeletematerial 
         Caption         =   "刪除物資基本信息"
      End
      Begin VB.Menu menuInqurematerial 
         Caption         =   "查詢物資基本信息"
      End
   End
   Begin VB.Menu menuMaterialin 
      Caption         =   "物資入庫信息管理"
      Begin VB.Menu menuAddmaterialin 
         Caption         =   "添加物資入庫信息"
      End
      Begin VB.Menu menuModifymaterialin 
         Caption         =   "修改物資入庫信息"
      End
      Begin VB.Menu menuDeletematerialin 
         Caption         =   "刪除物資入庫信息"
      End
      Begin VB.Menu menuInquirematerialin 
         Caption         =   "查詢物資入庫信息"
      End
   End
   Begin VB.Menu menuMaterialout 
      Caption         =   "物資出庫信息管理"
      Begin VB.Menu menuAddmaterialout 
         Caption         =   "添加物資出庫信息"
      End
      Begin VB.Menu menuModifymaterialout 
         Caption         =   "修改物資出庫信息"
      End
      Begin VB.Menu menuDeletematerialout 
         Caption         =   "刪除物資出庫信息"
      End
      Begin VB.Menu menuInquirematerialout 
         Caption         =   "查詢物資出庫信息"
      End
   End
   Begin VB.Menu menuSurplus 
      Caption         =   "物資余額信息管理"
      Begin VB.Menu menuInquiresurplus 
         Caption         =   "查詢物資余額信息"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "幫助"
      Begin VB.Menu menuAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
    Me.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 Sub





Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    Unload Me
End Sub

Private Sub menuAddmaterial_Click()
    gintMmode = 1
    frmMater1.Show
    frmMater1.ZOrder 0
    
End Sub

Private Sub menuAddmaterialin_Click()
    gintImode = 1
    frmMaterIn1.Show
    frmMaterIn1.ZOrder 0
End Sub

Private Sub menuAddmaterialout_Click()
    gintOmode = 1
    frmMaterOut1.Show
    frmMaterOut1.ZOrder 0
End Sub

Private Sub menuAddsurplus_Click()
    gintLmode = 1
    frmMaterList1.Show
    frmMaterList1.ZOrder 0
End Sub

Private Sub menuDeletematerial_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    
    If flagMedit Then
        If frmMater.msgList.Rows > 1 Then
            If MsgBox("真的要刪除這條文件記錄么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmMater.msgList.Row
                txtSQL = "delete from material where wzid='" & Trim(frmMater.msgList.TextMatrix(intCount, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                Unload frmMater
                frmMater.txtSQL = "select * from material"
                frmMater.Show
            End If
        End If
    End If
    
    
End Sub

Private Sub menuDeletematerialin_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    If flagIedit Then
        If frmMaterIn.msgList.Rows > 1 Then
            If MsgBox("真的要刪除這條文件記錄么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmMaterIn.msgList.Row
                txtSQL = "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 frmMaterIn
                frmMaterIn.txtSQL = "select * from msave"
                frmMaterIn.Show
                
                
            End If
        End If
    End If
End Sub

Private Sub menuDeletematerialout_Click()
    Dim txtSQL As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    If flagOedit Then
        If frmMaterOut.msgList.Rows > 1 Then
            If MsgBox("真的要刪除這條文件記錄么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmMaterOut.msgList.Row
                
                txtSQL = "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 frmMaterOut
                frmMaterOut.txtSQL = "select * from muse"
                frmMaterOut.Show
            End If
        End If
    End If
End Sub

Private Sub menuInquirematerialin_Click()
    frmMaterIn2.Show
End Sub

Private Sub menuInquirematerialout_Click()
    frmMaterOut2.Show
End Sub

Private Sub menuInquiresurplus_Click()
    If flagLedit Then
        frmMaterList2.Show
    Else
        frmMaterList.txtSQL = "select * from msurplus"
        frmMaterList.Show
    End If
    
End Sub

Private Sub menuInqurematerial_Click()
    frmMater2.Show
End Sub

Private Sub menuModifymaterial_Click()
    Dim intCount As Integer
    If flagMedit Then
        If frmMater.msgList.Rows > 1 Then
            gintMmode = 2
            intCount = frmMater.msgList.Row
            frmMater1.txtSQL = "select * from material where wzid='" & Trim(frmMater.msgList.TextMatrix(intCount, 1)) & "'"
            frmMater1.Show
        Else
            Call menuAddmaterial_Click
        End If
    Else
        frmMater.txtSQL = "select * from material"
        frmMater.Show
    End If
    
   
    
    
End Sub

Private Sub menuModifymaterialin_Click()
    Dim intCount As Integer
    If flagIedit Then
        If frmMaterIn.msgList.Rows > 1 Then
            gintImode = 2
            intCount = frmMaterIn.msgList.Row
            frmMaterIn1.txtSQL = "select * from msave where rkno='" & Trim(frmMaterIn.msgList.TextMatrix(intCount, 1)) & "'"
            frmMaterIn1.Show
        Else
            Call menuAddmaterialin_Click
        End If
    Else
        frmMaterIn.txtSQL = "select * from msave"
        frmMaterIn.Show
    End If


End Sub

Private Sub menuModifymaterialout_Click()
    Dim intCount As Integer
    If flagOedit Then
        If frmMaterOut.msgList.Rows > 1 Then
            gintOmode = 2
            intCount = frmMaterOut.msgList.Row
            frmMaterOut1.txtSQL = "select * from muse where lyno='" & Trim(frmMaterOut.msgList.TextMatrix(intCount, 1)) & "'"
            frmMaterOut1.Show
        Else
            Call menuAddmaterialout_Click
        End If
    Else
        frmMaterOut.txtSQL = "select * from muse"
        frmMaterOut.Show
    End If
    
    
End Sub