Private Sub cmdExit_Click()
On Error Resume Next
Unload Me
End Sub

Private Sub cmdLook_Click()
On Error Resume Next
sqlForParty = "select xh,xm,csny,mz,yx,nj,sy,xl,tgsj,zzsj,zdsj,zddd from Party "
sqlPartyPrint = " "
frmPartyList.Show 1
End Sub

Private Sub cmdQuery_Click()
On Error Resume Next
Dim Start As Integer '從此開始組建SQL語句
Dim EmpetyAll As Boolean '為空則無法組建SQL語句
Dim EmpetyThis As Boolean
Dim recForMain As Recordset
Dim I As Integer
sqlForParty = "select xh,xm,csny,mz,yx,nj,sy,xl,tgsj,zzsj,zdsj,zddd from Party where "
sqlPartyPrint = ""
EmpetyAll = True
EmpetyThis = False
'尋找第一個有效選項 院系
For I = 0 To 13
  Start = I
  If chkYX(I).Value = 1 Then
      sqlForParty = sqlForParty + "(yx='" + Trim(chkYX(I).Caption) + "' "
      sqlPartyPrint = sqlPartyPrint + "({Party.yx}='" + Trim(chkYX(I).Caption) + "' "
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 院系
If Start < 13 Then
    For I = Start + 1 To 13
      If chkYX(I).Value = 1 Then
          sqlForParty = sqlForParty + "or yx='" + Trim(chkYX(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "or {Party.yx}='" + Trim(chkYX(I).Caption) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForParty = sqlForParty + ") "
    sqlPartyPrint = sqlPartyPrint + ") "
End If
'尋找第一個有效選項 生源
EmpetyThis = False
For I = 0 To 29
  Start = I
  If chkSY(I).Value = 1 Then
      If Right(RTrim(sqlForParty), 5) = "where" Then
          sqlForParty = sqlForParty + "(sy like '" + chkSY(I).Caption + "*'"
          sqlPartyPrint = sqlPartyPrint + "({Party.sy} like '" + chkSY(I).Caption + "*'"
      Else
          sqlForParty = sqlForParty + "and (sy like '" + chkSY(I).Caption + "*'"
          sqlPartyPrint = sqlPartyPrint + "and ({Party.sy} like '" + chkSY(I).Caption + "*'"
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 生源
If Start < 29 Then
    For I = Start + 1 To 29
      If chkSY(I).Value = 1 Then
          sqlForParty = sqlForParty + "or  SY like '" + chkSY(I).Caption + "*' "
          sqlPartyPrint = sqlPartyPrint + "or {Party.sy} like '" + chkSY(I).Caption + "*' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForParty = sqlForParty + ") "
    sqlPartyPrint = sqlPartyPrint + ") "
End If
'尋找第一個有效選項 民族
EmpetyThis = False
For I = 0 To 4
  Start = I
  If chkMZ(I).Value = 1 Then
      If Right(RTrim(sqlForParty), 5) = "where" Then
          sqlForParty = sqlForParty + "(mz='" + Trim(chkMZ(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "({Party.mz}='" + Trim(chkMZ(I).Caption) + "' "
      Else
          sqlForParty = sqlForParty + "and (mz='" + Trim(chkMZ(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "and ({Party.mz}='" + Trim(chkMZ(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 民族
If Start < 4 Then
    For I = Start + 1 To 4
      If chkMZ(I).Value = 1 Then
          sqlForParty = sqlForParty + "or mz='" + Trim(chkMZ(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "or {Party.mz}='" + Trim(chkMZ(I).Caption) + "' "
      End If
    Next I
End If
'少數民族特殊處理
If chkMZ(5).Value = 1 Then
    EmpetyAll = False
    EmpetyThis = True
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "(mz<>'漢族' and mz<>'回族' and mz<>'滿族' and mz<>'壯族' and mz<>'藏族' "
        sqlPartyPrint = sqlPartyPrint + "({Party.mz}<>'漢族' and {Party.mz}<>'回族' and {Party.mz}<>'壯族' and {Party.mz}<>'滿族' and {Party.mz}<>'藏族' "
    Else
        If Start = 4 And chkMZ(4).Value = 0 Then
            sqlForParty = sqlForParty + "and (mz<>'漢族' and mz<>'回族' and mz<>'滿族' and mz<>'壯族' and mz<>'藏族' "
            sqlPartyPrint = sqlPartyPrint + "and ({Party.mz}<>'漢族' and {Party.mz}<>'回族' and {Party.mz}<>'滿族' and {Party.mz}<>'壯族' and {Party.mz}<>'藏族' "
        Else
            sqlForParty = sqlForParty + "or (mz<>'漢族' and mz<>'回族' and mz<>'滿族' and mz<>'壯族' and mz<>'藏族') "
            sqlPartyPrint = sqlPartyPrint + "or ({Party.mz}<>'漢族' and {Party.mz}<>'回族' and {Party.mz}<>'滿族' and {Party.mz}<>'壯族' and {Party.mz}<>'藏族' "
        End If
    End If
End If
If EmpetyThis Then
    sqlForParty = sqlForParty + ") "
    sqlPartyPrint = sqlPartyPrint + ") "
End If
'尋找第一個有效選項 學歷
EmpetyThis = False
For I = 0 To 5
  Start = I
  If chkXL(I).Value = 1 Then
      If Right(RTrim(sqlForParty), 5) = "where" Then
          sqlForParty = sqlForParty + "(xl='" + Trim(chkXL(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "({Party.xl}='" + Trim(chkXL(I).Caption) + "' "
      Else
          sqlForParty = sqlForParty + "and (xl='" + Trim(chkXL(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "and ({Party.xl}='" + Trim(chkXL(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 學歷
If Start < 5 Then
    For I = Start + 1 To 5
      If chkXL(I).Value = 1 Then
          sqlForParty = sqlForParty + "or xl='" + Trim(chkXL(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "or {Party.xl}='" + Trim(chkXL(I).Caption) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForParty = sqlForParty + ") "
    sqlPartyPrint = sqlPartyPrint + ") "
End If
'尋找第一個有效選項 年級
EmpetyThis = False
For I = 0 To 6
  Start = I
  If chkNJ(I).Value = 1 Then
      If Right(RTrim(sqlForParty), 5) = "where" Then
          sqlForParty = sqlForParty + "(nj='" + Trim(chkNJ(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "({Party.nj}='" + Trim(chkNJ(I).Caption) + "' "
      Else
          sqlForParty = sqlForParty + "and (nj='" + Trim(chkNJ(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "and ({Party.nj}='" + Trim(chkNJ(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'組建完整的SQL語句 年級
If Start < 6 Then
    For I = Start + 1 To 6
      If chkNJ(I).Value = 1 Then
          sqlForParty = sqlForParty + "or nj='" + Trim(chkNJ(I).Caption) + "' "
          sqlPartyPrint = sqlPartyPrint + "or {Party.nj}='" + Trim(chkNJ(I).Caption) + "' "
      End If
    Next I
End If
If txtNJ <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "nj='" + Trim(txtNJ) + "'"
        sqlPartyPrint = sqlPartyPrint + "{Party.nj}='" + Trim(txtNJ) + "'"
    Else
        sqlForParty = sqlForParty + "and nj='" + Trim(txtNJ) + "'"
        sqlPartyPrint = sqlPartyPrint + "and {Party.nj}='" + Trim(txtNJ) + "'"
    End If
End If
If EmpetyThis Then
    sqlForParty = sqlForParty + ") "
    sqlPartyPrint = sqlPartyPrint + ") "
End If
'學號
If txtXH <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "(xh like '" + Trim(txtXH) + "*') "
        sqlPartyPrint = sqlPartyPrint + "({Party.xh} like '" + Trim(txtXH) + "*') "
    Else
        sqlForParty = sqlForParty + "and (xh like '" + Trim(txtXH) + "*') "
        sqlPartyPrint = sqlPartyPrint + "and ({Party.xh} like '" + Trim(txtXH) + "*') "
    End If
End If
'姓名
'"(xm like '" + Trim(txtXM) + "*') "
If txtXM <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "(xm  like '" + Trim(txtXM) + "*') "
        sqlPartyPrint = sqlPartyPrint + "({Party.xm} like'" + Trim(txtXH) + "*') "
    Else
        sqlForParty = sqlForParty + "and (xm like'" + Trim(txtXM) + "*') "
        sqlPartyPrint = sqlPartyPrint + "and ({Party.xm} like'" + Trim(txtXH) + "*') "
    End If
End If
'通過時間
If mskTGSJfrom = "__/__/____" And mskTGSJto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "tgsj <=" + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.tgsj} <=" + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and tgsj <=" + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.tgsj} <=" + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
    End If
End If
If mskTGSJfrom.Text <> "__/__/____" And mskTGSJto = "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "tgsj>=" + "#" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.tgsj}>=" + "#" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and tgsj>=" + "#" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.tgsj}>=" + "#" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " "
    End If
End If
If mskTGSJfrom <> "__/__/____" And mskTGSJto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "tgsj between" + " #" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.tgsj} between" + " #" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and tgsj between" + " #" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.tgsj} between" + " #" + "" + Trim(mskTGSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskTGSJto.Text) + "" + "#" + " "
    End If
End If
'轉正時間
If mskZZSJfrom = "__/__/____" And mskZZSJto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "zzsj <=" + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.zzsj} <=" + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and zzsj <=" + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.zzsj} <=" + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
    End If
End If
If mskZZSJfrom.Text <> "__/__/____" And mskZZSJto = "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "zzsj>=" + "#" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.zzsj}>=" + "#" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and zzsj>=" + "#" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.zzsj}>=" + "#" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " "
    End If
End If
If mskZZSJfrom <> "__/__/____" And mskZZSJto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "zzsj between" + " #" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.zzsj} between" + " #" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and zzsj between" + " #" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.zzsj} between" + " #" + "" + Trim(mskZZSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZZSJto.Text) + "" + "#" + " "
    End If
End If
'轉檔時間
If mskZDSJfrom = "__/__/____" And mskZDSJto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "zdsj <=" + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.zdsj} <=" + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and zdsj <=" + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.zdsj} <=" + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
    End If
End If
If mskZDSJfrom.Text <> "__/__/____" And mskZDSJto = "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "zdsj>=" + "#" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.zdsj}>=" + "#" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and zdsj>=" + "#" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.zdsj}>=" + "#" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " "
    End If
End If
If mskZDSJfrom <> "__/__/____" And mskZDSJto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForParty), 5) = "where" Then
        sqlForParty = sqlForParty + "zdsj between" + " #" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.zdsj} between" + " #" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
    Else
        sqlForParty = sqlForParty + "and zdsj between" + " #" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.zdsj} between" + " #" + "" + Trim(mskZDSJfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskZDSJto.Text) + "" + "#" + " "
    End If
End If
'如果無選擇項,則退出過程
If EmpetyAll Then
    MsgBox "無選擇條件", vbInformation + vbOKOnly, "錯誤提示"
    Exit Sub
End If
'完成查詢動作
frmPartyList.Show 1
End Sub

Private Sub Command1_Click()
On Error Resume Next
Unload Me
End Sub

Public Sub GiveUp()
On Error Resume Next
Dim I As Integer
For I = 0 To 13
  chkYX(I).Value = 0
Next I
For I = 0 To 29
  chkSY(I).Value = 0
Next I
For I = 0 To 5
  chkMZ(I).Value = 0
Next I
For I = 0 To 5
  chkXL(I).Value = 0
Next
For I = 0 To 6
  chkNJ(I).Value = 0
Next I
txtXM = " "
txtXH = " "
txtNJ = " "
mskZZSJfrom = "__/__/____"
mskZZSJto = "__/__/____"
mskZDSJfrom = "__/__/____"
mskZDSJto = "__/__/____"
mskTGSJfrom = "__/__/____"
mskTGSJto = "__/__/____"
End Sub

Private Sub Form_Load()
On Error Resume Next
Line4.X1 = 0
Line4.X2 = frmQueryParty.Width
'frmQueryParty.Picture = LoadPicture(App.Path + "\PICTURE\SKY.BMP")

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Me
End Sub

Private Sub MNUCOUNT_Click()
On Error Resume Next
frmPartyCount.Show 1
End Sub

Private Sub MNUEXIT_Click()
On Error Resume Next
Call cmdExit_Click
End Sub
Private Sub MNUINPUT_Click()
On Error Resume Next
frmPartyInput.Show 1
End Sub

Private Sub MNUNOTE_Click()
Dim tt As String
Dim X
tt = App.Path + "\help\djcx.txt"
X = Shell("Notepad " + tt, 1)
End Sub

Private Sub mnurep_Click()
On Error Resume Next
frmPartyModify.Show 1
End Sub