frmngzcc.frm

来自「企业工资管理系统的具体实现」· FRM 代码 · 共 520 行 · 第 1/2 页

               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            ScrollBars      =   3
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
            BeginProperty Column02 
            EndProperty
            BeginProperty Column03 
            EndProperty
            BeginProperty Column04 
            EndProperty
            BeginProperty Column05 
            EndProperty
            BeginProperty Column06 
            EndProperty
            BeginProperty Column07 
            EndProperty
            BeginProperty Column08 
            EndProperty
            BeginProperty Column09 
            EndProperty
            BeginProperty Column10 
            EndProperty
            BeginProperty Column11 
            EndProperty
            BeginProperty Column12 
            EndProperty
         EndProperty
      End
   End
   Begin VB.Frame Frame1 
      Height          =   1515
      Left            =   30
      TabIndex        =   0
      Top             =   0
      Width           =   11850
      Begin VB.ComboBox Combo1 
         Enabled         =   0   'False
         Height          =   300
         Left            =   5700
         TabIndex        =   14
         Top             =   330
         Width           =   2025
      End
      Begin VB.CheckBox Check1 
         Caption         =   "年份："
         Enabled         =   0   'False
         Height          =   300
         Left            =   525
         TabIndex        =   10
         Top             =   360
         Value           =   1  'Checked
         Width           =   840
      End
      Begin VB.TextBox Text1 
         BackColor       =   &H80000000&
         Enabled         =   0   'False
         Height          =   345
         Left            =   1380
         TabIndex        =   9
         Top             =   300
         Width           =   885
      End
      Begin VB.CheckBox Check2 
         Caption         =   "车间代号："
         Height          =   345
         Left            =   4500
         TabIndex        =   8
         Top             =   330
         Width           =   1215
      End
      Begin VB.CheckBox Check3 
         Caption         =   "职工代号："
         Height          =   390
         Left            =   525
         TabIndex        =   7
         Top             =   915
         Width           =   1200
      End
      Begin VB.TextBox Text4 
         Enabled         =   0   'False
         Height          =   345
         Left            =   1725
         TabIndex        =   6
         Top             =   915
         Width           =   2205
      End
      Begin VB.CheckBox Check4 
         Caption         =   "姓    名："
         Height          =   375
         Left            =   4515
         TabIndex        =   5
         Top             =   900
         Width           =   1200
      End
      Begin VB.TextBox Text5 
         Enabled         =   0   'False
         Height          =   345
         Left            =   5715
         TabIndex        =   4
         Top             =   915
         Width           =   2130
      End
      Begin VB.CommandButton Command1 
         Caption         =   "选择查询"
         Height          =   405
         Left            =   8565
         TabIndex        =   3
         Top             =   1005
         Width           =   945
      End
      Begin VB.CommandButton Command2 
         Caption         =   "全部查询"
         Height          =   405
         Left            =   9525
         TabIndex        =   2
         Top             =   1005
         Width           =   945
      End
      Begin VB.CommandButton Command3 
         Caption         =   "退  出"
         Height          =   405
         Left            =   10485
         TabIndex        =   1
         Top             =   1005
         Width           =   945
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "年"
         Height          =   180
         Left            =   2415
         TabIndex        =   11
         Top             =   405
         Width           =   180
      End
   End
End
Attribute VB_Name = "frmngzcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
If Check1.Value = 1 Then
    Text1.Enabled = True
    Text2.Enabled = True
ElseIf Check1.Value = 0 Then
    Text1.Enabled = False
    Text2.Enabled = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
    Combo1.Enabled = True
ElseIf Check2.Value = 0 Then
    Combo1.Enabled = False
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
    Text4.Enabled = True
ElseIf Check3.Value = 0 Then
    Text4.Enabled = False
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
    Text5.Enabled = True
ElseIf Check4.Value = 0 Then
    Text5.Enabled = False
End If
End Sub

Private Sub Command1_Click()
If Check2.Value = 0 And Check3.Value = 0 And Check4.Value = 0 Then
    MsgBox "请选择你要查询的条件！", vbInformation, "提示"
    Exit Sub
End If
sql = "select * from gzzjb where "
If Check2.Value = 1 Then sql = sql & "cjdh='" & Trim(Combo1.Text) & "'"
If Check2.Value = 1 And Check3.Value = 1 Then
    sql = sql & " and grdh='" & Trim(Text4.Text) & "'"
ElseIf Check2.Value = 0 And Check3.Value = 1 Then
    sql = sql & "grdh='" & Trim(Text4.Text) & "'"
End If
If Check2.Value = 1 Then
    If Check3.Value = 1 Then
        If Check4.Value = 1 Then
            sql = sql & " and xm='" & Trim(Text5.Text) & "'"
        End If
    Else
        If Check4.Value = 1 Then
            sql = sql & " and xm='" & Trim(Text5.Text) & "'"
        End If
    End If
Else
    If Check3.Value = 1 Then
        If Check4.Value = 1 Then
            sql = sql & " and xm='" & Trim(Text5.Text) & "'"
        End If
    Else
        If Check4.Value = 1 Then
            sql = sql & "xm='" & Trim(Text5.Text) & "'"
        End If
    End If
End If
With Adodc1
    .ConnectionString = constr
    .RecordSource = sql & " order by grdh"
    .Refresh
    If .Recordset.EOF And .Recordset.BOF Then
        MsgBox "没有查到符合条件的记录！", vbInformation, "提示"
    End If
End With
End Sub

Private Sub Command2_Click()
With Adodc1
    .ConnectionString = constr
    .RecordSource = "select * from gzzjb order by grdh"
    .Refresh
End With
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
With Adodc1
    .ConnectionString = constr
    .RecordSource = "select qsny from gzzjb"
    .Refresh
    If .Recordset.EOF And .Recordset.BOF Then
        Text1.Text = Left(.Recordset.Fields("qsny").Value, 4)
    End If
    
    .RecordSource = "select * from gzzjb order by grdh"
    .Refresh
    
End With
Set DataGrid1.DataSource = Adodc1
Call frmwork(frmngzcc)
End Sub