frmwzsetup.frm

汽车维修保养管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form frmWZSetup 
   Caption         =   "配件设置信息列表"
   ClientHeight    =   4905
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   7740
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4905
   ScaleWidth      =   7740
   WindowState     =   2  'Maximized
   Begin MSFlexGridLib.MSFlexGrid msgList 
      Height          =   3132
      Left            =   120
      TabIndex        =   0
      Top             =   600
      Width           =   7452
      _ExtentX        =   13150
      _ExtentY        =   5530
      _Version        =   393216
      Cols            =   4
      FixedCols       =   3
      AllowUserResizing=   1
   End
   Begin VB.Label lblTitle 
      Caption         =   "配  件  设  置  信  息  列  表"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   252
      Left            =   1800
      TabIndex        =   1
      Top             =   120
      Width           =   4092
   End
End
Attribute VB_Name = "frmWZSetup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public txtSQL As String
Dim mrc As ADODB.Recordset
'用户的读写权限标识
Dim mintRW As Integer
'状态条中显示的时间信息
Public msBarText As String
Public reportSQL As String
Public Sub RecordFind()
    '
End Sub
Public Sub RecordRefresh()
       
    '显示数据
    msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
    
    ShowData
End Sub


Public Sub RecordAdd()
    gintWZSmode = ADD
    frmWZSetup1.Show 1
End Sub


'删除记录
Public Sub RecordDelete()
    Dim sSQL As String
    Dim intCount As Integer
    Dim recTemp As ADODB.Recordset
    Dim recT As ADODB.Recordset
    Dim MsgText As String
    
    
  On Error GoTo myErr
    
    If msgList.Rows > 1 Then
        If MsgBox("真的要删除款号为" & Trim(msgList.TextMatrix(msgList.Row, 1)) & "的记录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
            intCount = msgList.Row
                        
            sSQL = "select sum(sl) from kucun where wzdm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
            
            Set recTemp = ExecuteSQL(sSQL, MsgText)
            
            If Not recTemp.EOF Then
                If recTemp.Fields(0) > 0 Then
                    MsgBox "库存中仍存在" & Trim(msgList.TextMatrix(intCount, 2)) & ",不能进行删除操作！", vbOKOnly, "警告"
                    Exit Sub
                Else
                    sSQL = "delete from dm_wz where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                    Set recT = ExecuteSQL(sSQL, MsgText)
                    
                    sSQL = "delete from kucun where dm='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                    Set recT = ExecuteSQL(sSQL, MsgText)
                End If
            Else
                sSQL = "delete from dm_wz where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                Set recT = ExecuteSQL(sSQL, MsgText)
                
                sSQL = "delete from kucun where dm='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
                Set recT = ExecuteSQL(sSQL, MsgText)
                
            End If
                
            
            Unload frmWZSetup
            frmWZSetup.txtSQL = "select * from dm_wz"
            frmWZSetup.Show
        End If
    End If
    
    Exit Sub
    
myErr:
    ShowError
End Sub

Public Sub RecordEdit()
    Dim intCount As Integer
    
    If frmWZSetup.msgList.Rows > 1 Then
        gintWZSmode = EDIT
        intCount = msgList.Row
        If intCount > 0 Then
           frmWZSetup1.txtSQL = "select * from dm_wz where dm ='" & Trim(msgList.TextMatrix(intCount, 1)) & "'"
           frmWZSetup1.Show 1
        Else
            MsgBox "警告", vbOKOnly + vbExclamation, "请首先选择需要修改的纪录！"
        End If
        ShowData
    Else
        Call RecordAdd
    End If
    
    
End Sub


Private Sub Form_Activate()
    '设置读写权限
    SetWorkRW mintRW
    fMainForm.sbStatusBar.Panels(1).Text = msBarText
End Sub

Private Sub Form_Load()
    '用户操作权限
    Dim sPermission As String
    Dim recTemp As Recordset
    Dim sSQL As String
    Dim sByte As String
    Dim MsgText As String
    
  On Error GoTo myErr
    '设置操作的表名称
    'msTableName = "ampaytune"
    'msRptName = "paytune.rpt"
    'msOrderBy = " order by tzdate,tzid"
    'sOrder0 = "+ {tzdate}"
    'sOrder1 = "+ {tzid}"
    'msSelect = "select * from "
    
    '置mintRW初值
    mintRW = 0
    sSQL = "select rw from permission where module=10 and id='" & sUserName & " '"
    Set recTemp = ExecuteSQL(sSQL, MsgText)
    If recTemp.EOF = False Then
        mintRW = CInt(recTemp!rw)
    Else
        mintRW = ERRORMODE
        SetMdiEnv
        MsgBox "您的帐号权限有错误！", vbOKOnly + vbCritical, "错误"
        Exit Sub
    End If
    

    
    '设置msSql
        'msSql = msSelect & msTableName & " where tzdate>='" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "' and tzdate<='" & Format(Now, "yyyy-mm-dd") & "'" & msOrderBy
        
    '显示数据
    msBarText = "当前数据时间范围：" & Format(DateAdd("m", -1, Now), "yyyy-mm-dd") & "至" & Format(Now, "yyyy-mm-dd")
    ShowTitle
    ShowData
    
    Set recTemp = Nothing
    Exit Sub
    
myErr:
    ShowError






End Sub


Private Sub cmdModify_Click()
    Dim intCount As Integer
    

End Sub




Private Sub Form_Resize()
    If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
        '边界处理
        If Me.ScaleHeight < 10 * lblTitle.Height Then
            
            Exit Sub
        End If
        If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then
            
            Exit Sub
        End If
        '控制控件的位置
                
        lblTitle.Top = lblTitle.Height
        lblTitle.Left = (Me.Width - lblTitle.Width) / 2
        
        msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2
        msgList.Width = Me.ScaleWidth - 200
        msgList.Left = Me.ScaleLeft + 100
        msgList.Height = Me.ScaleHeight - msgList.Top
        
    End If
End Sub



Public Sub FormClose()
    Unload Me
End Sub
Private Sub ShowData()
    
    Dim j As Integer
    Dim i As Integer
    Dim MsgText As String

  
    Set mrc = ExecuteSQL(txtSQL, MsgText)
        With msgList
        .Rows = 1
        
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            For i = 1 To mrc.Fields.Count
                If Not IsNull(Trim(mrc.Fields(i - 1))) Then
                Select Case mrc.Fields(i - 1).Type
                    Case adDBDate
                        .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
                    Case Else
                        .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
                End Select
                End If
            Next i
            mrc.MoveNext
        Loop
        
          
    End With
    mrc.Close
    
    
End Sub


'显示Grid表头
Private Sub ShowTitle()
    Dim i As Integer
    
    With msgList
        .Cols = 11
        .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) = "备注信息"
        
       
        
        '固定表头
        .FixedRows = 1
                
        '设置各列的对齐方式
        For i = 0 To 10
            .ColAlignment(i) = 0
        Next i
        
        
        '表头项居中
        .FillStyle = flexFillRepeat
        .Col = 0
        .Row = 0
        .RowSel = 1
        .ColSel = .Cols - 1
        .CellAlignment = 4
        
        '设置单元大小
        .ColWidth(0) = 1000
        .ColWidth(1) = 1000
        .ColWidth(2) = 2000
        .ColWidth(3) = 1000
        .ColWidth(4) = 1000
        .ColWidth(5) = 1000
        .ColWidth(6) = 1000
        .ColWidth(7) = 1000
        .ColWidth(8) = 1000
        .ColWidth(9) = 1000
        .ColWidth(10) = 1000
        .Row = 1
        
    End With
End Sub




Private Sub Form_Unload(Cancel As Integer)
    SetMdiEnv
End Sub

Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '右键弹出
    If Button = 2 And Shift = 0 Then
       
    End If
    
End Sub