亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? formview.frm

?? 給人寫的畢設(shè)
?? FRM
?? 第 1 頁 / 共 3 頁
字號: 
Formsub.DataCombo4.Enabled = True
 Formsub.Label8.Enabled = True               '''''保管期限：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo5.Enabled = True
Formsub.Label9.Enabled = True           '存放地點(diǎn)：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox1.Enabled = True
 Formsub.Label6.Enabled = True              '''''''''''案卷頁數(shù)：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox2.Enabled = True
 Formsub.Label11.Enabled = True             '案卷內(nèi)容簡介：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox3.Enabled = True
 Formsub.Label14.Enabled = True            '檔案號：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox4.Enabled = True
 Formsub.Label13.Enabled = True                 '案卷順序號：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox5.Enabled = True
 Formsub.Label2.Enabled = True             '案卷標(biāo)題：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox6.Enabled = True
 Formsub.Label4.Enabled = True          '''''''''''''課題負(fù)責(zé)人：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox7.Enabled = True
 Formsub.Label5.Enabled = True       ''''''''''''案卷標(biāo)題的主題詞：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox8.Enabled = True
 Formsub.Label10.Enabled = True            '''''''備注：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Formsub.MaskEdBox1.Text = Format(Now, "yyyy年mm月dd日")
 Else
 tiaojian = "where"
End If
'''''''''''''''''''''''''''''''''''''''
If Me.Check2.Value = 1 Then
 Formsub.MaskEdBox1.Enabled = False
 Formsub.Label1.Enabled = False
 If InStr(Me.MaskEdBox1.Text, "?") = 0 And InStr(Me.MaskEdBox2.Text, "?") = 0 Then
tiao2 = " [歸檔日期] " + " <= " + " '" & Me.MaskEdBox2.Text & "'" + " and " + " [歸檔日期] " + " >= " + " '" & Me.MaskEdBox1.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao2

Else
tiaojian = tiaojian + " and " + tiao2
 
End If
Else
Formsub.MaskEdBox1.Enabled = True
 Formsub.Label1.Enabled = True
 MsgBox "請準(zhǔn)確輸入時間段！", , "注意："
GoTo e1:
End If
End If
''''''''''''''''''''''''''''''''''''''''
If Me.Check3.Value = 1 Then
Formsub.TextBox3.Enabled = False
 Formsub.Label14.Enabled = False           '檔案號：
If Trim(TextBox3.Text) <> "" Then
tiao3 = " [檔案號] " + " like " + "'" & Me.TextBox3.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao3
Else
tiaojian = tiaojian + " and " + tiao3
End If
Else
Formsub.TextBox3.Enabled = True
 Formsub.Label14.Enabled = True            '檔案號：
MsgBox "您已選擇了“檔案號”，但沒輸入內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''
If Me.Check4.Value = 1 Then
Formsub.TextBox4.Enabled = False
 Formsub.Label13.Enabled = False                '案卷順序號：
If Trim(TextBox4.Text) <> "" Then
tiao4 = " [案卷順序號] " + " like " + "'" & Me.TextBox4.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao4
Else
tiaojian = tiaojian + " and " + tiao4
End If
Else
Formsub.TextBox4.Enabled = True
 Formsub.Label13.Enabled = True                 '案卷順序號：
MsgBox "您已選擇了“案卷順序號”，但沒輸入內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''
If Me.Check5.Value = 1 Then
Formsub.TextBox5.Enabled = False
 Formsub.Label2.Enabled = False             '案卷標(biāo)題：
If Trim(TextBox5.Text) <> "" Then
tiao5 = " [案卷標(biāo)題] " + " like " + "'" & Me.TextBox5.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao5
Else
tiaojian = tiaojian + " and " + tiao5
End If
Else
Formsub.TextBox5.Enabled = True
 Formsub.Label2.Enabled = True             '案卷標(biāo)題：
MsgBox "您已選擇了“案卷標(biāo)題”，但沒輸入內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''
If Me.Check6.Value = 1 Then
Formsub.DataCombo1.Enabled = False
 Formsub.Label12.Enabled = False            '''''''''''''''''檔案類型：
If Trim(Me.DataCombo1.Text) <> "" Then
tiao6 = " [檔案類型] " + " = " + "'" & Me.DataCombo1.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao6
Else
tiaojian = tiaojian + " and " + tiao6
End If
Else
Formsub.DataCombo1.Enabled = True
 Formsub.Label12.Enabled = True             '''''''''''''''''檔案類型：
MsgBox "您已選擇了“檔案類型”，但沒選擇內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''
If Me.Check7.Value = 1 Then
Formsub.DataCombo2.Enabled = False
 Formsub.Label3.Enabled = False          ''''''''''''''''''立卷單位：
If Trim(Me.DataCombo2.Text) <> "" Then
tiao7 = " [立卷單位] " + " = " + "'" & Me.DataCombo2.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao7
Else
tiaojian = tiaojian + " and " + tiao7
End If
Else
Formsub.DataCombo2.Enabled = True
 Formsub.Label3.Enabled = True             ''''''''''''''''''立卷單位：
MsgBox "您已選擇了“立卷單位”，但沒選擇內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''
If Me.Check8.Value = 1 Then
Formsub.TextBox6.Enabled = False
 Formsub.Label4.Enabled = False         '''''''''''''課題負(fù)責(zé)人：
If Trim(TextBox6.Text) <> "" Then
tiao8 = " [課題負(fù)責(zé)人] " + " like " + "'" & Me.TextBox6.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao8
Else
tiaojian = tiaojian + " and " + tiao8
End If
Else
Formsub.TextBox6.Enabled = True
 Formsub.Label4.Enabled = True          '''''''''''''課題負(fù)責(zé)人：
MsgBox "您已選擇了“課題負(fù)責(zé)人”，但沒輸入內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''
If Me.Check9.Value = 1 Then
Formsub.TextBox7.Enabled = False
 Formsub.Label5.Enabled = False     ''''''''''''案卷標(biāo)題的主題詞：
If Trim(TextBox7.Text) <> "" Then
tiao9 = " [案卷標(biāo)題的主題詞] " + " like " + "'" & Me.TextBox7.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao9
Else
tiaojian = tiaojian + " and " + tiao9
End If
Else
Formsub.TextBox7.Enabled = True
 Formsub.Label5.Enabled = True       ''''''''''''案卷標(biāo)題的主題詞：
MsgBox "您已選擇了“案卷標(biāo)題的主題詞”，但沒輸入內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''
If Me.Check10.Value = 1 Then
Formsub.DataCombo3.Enabled = False
 Formsub.Label7.Enabled = False                ''''''''保密等級：
If Trim(Me.DataCombo3.Text) <> "" Then
tiao10 = " [密級] " + " = " + "'" & Me.DataCombo3.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao10
Else
tiaojian = tiaojian + " and " + tiao10
End If
Else
Formsub.DataCombo3.Enabled = True
 Formsub.Label7.Enabled = True                 ''''''''保密等級：
MsgBox "您已選擇了“保密等級”，但沒選擇內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''
If Me.Check11.Value = 1 Then
Formsub.DataCombo4.Enabled = False
 Formsub.Label8.Enabled = False             '''''保管期限：
If Trim(Me.DataCombo4.Text) <> "" Then
tiao11 = " [保管期限] " + " = " + "'" & Me.DataCombo4.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao11
Else
tiaojian = tiaojian + " and " + tiao11
End If
Else
Formsub.DataCombo4.Enabled = True
 Formsub.Label8.Enabled = True               '''''保管期限：
MsgBox "您已選擇了“保管期限”，但沒選擇內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''
If Me.Check12.Value = 1 Then
Formsub.DataCombo5.Enabled = False
Formsub.Label9.Enabled = False           '存放地點(diǎn)：
If Trim(Me.DataCombo5.Text) <> "" Then
tiao12 = " [存放地點(diǎn)] " + " = " + "'" & Me.DataCombo5.Text & "'"
If Len(tiaojian) = 5 Then
tiaojian = tiaojian + tiao12
Else
tiaojian = tiaojian + " and " + tiao12
End If
Else
Formsub.DataCombo5.Enabled = True
Formsub.Label9.Enabled = True           '存放地點(diǎn)：
MsgBox "您已選擇了“存放地點(diǎn)”，但沒選擇內(nèi)容", , "注意："
GoTo e1:
End If
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''
Formlist.Adodc1.RecordSource = "select * from [檔案] " + tiaojian
Formlist.Adodc1.Refresh
If Formlist.Adodc1.Recordset.RecordCount = 0 Then
Formlist.CommandButton2.Enabled = False
Formlist.CommandButton3.Enabled = False
Formlist.CommandButton4.Enabled = False
Formlist.CommandButton5.Enabled = False

Else
Formlist.CommandButton2.Enabled = True
Formlist.CommandButton3.Enabled = True
Formlist.CommandButton4.Enabled = True
Formlist.CommandButton5.Enabled = True

End If
Formlist.DataGrid1.Columns(5).Width = 0
Formlist.Show
Unload Me
Formmain.Hide
End If
e1:
End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub


Private Sub CommandButton3_Click()
Unload Me
Formmain.Hide
Formlist.Show
Formlist.Hide
biaoji = 0
Formsub.Show
 Formsub.MaskEdBox1.Enabled = True
 Formsub.Label1.Enabled = True            ''''''''''建檔時間：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo1.Enabled = True
 Formsub.Label12.Enabled = True             '''''''''''''''''檔案類型：
 '''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo2.Enabled = True
 Formsub.Label3.Enabled = True             ''''''''''''''''''立卷單位：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo3.Enabled = True
 Formsub.Label7.Enabled = True                 ''''''''保密等級：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo4.Enabled = True
 Formsub.Label8.Enabled = True               '''''保管期限：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.DataCombo5.Enabled = True
Formsub.Label9.Enabled = True           '存放地點(diǎn)：
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox1.Enabled = True
 Formsub.Label6.Enabled = True              '''''''''''案卷頁數(shù)：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox2.Enabled = True
 Formsub.Label11.Enabled = True             '案卷內(nèi)容簡介：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox3.Enabled = True
 Formsub.Label14.Enabled = True            '檔案號：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox4.Enabled = True
 Formsub.Label13.Enabled = True                 '案卷順序號：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox5.Enabled = True
 Formsub.Label2.Enabled = True             '案卷標(biāo)題：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox6.Enabled = True
 Formsub.Label4.Enabled = True          '''''''''''''課題負(fù)責(zé)人：
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox7.Enabled = True
 Formsub.Label5.Enabled = True       ''''''''''''案卷標(biāo)題的主題詞：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.TextBox8.Enabled = True
 Formsub.Label10.Enabled = True            '''''''備注：
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Formsub.MaskEdBox1.Text = Format(Now, "yyyy年mm月dd日")
End Sub

Private Sub Form_Load()
If jibie = False Then
Me.CommandButton3.Visible = False
End If

tiaojian = ""
Me.MaskEdBox1.Text = Format(Now - 30, "yyyy年mm月dd日")
Me.MaskEdBox2.Text = Format(Now, "yyyy年mm月dd日")
DataEnvironment1.Connection1.BeginTrans



 

       If DataEnvironment1.Connection1.Errors.Count = 0 Then
            DataEnvironment1.Connection1.CommitTrans

        Else
            DataEnvironment1.Connection1.RollbackTrans
        End If

  
       
 
End Sub

Private Sub Form_Unload(Cancel As Integer)
Formmain.Show

End Sub

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美激情资源网| 99在线精品观看| 成人的网站免费观看| 91蝌蚪国产九色| 7777女厕盗摄久久久| 亚洲精品一线二线三线无人区| 国产亚洲欧美日韩日本| 亚洲蜜桃精久久久久久久| 日韩不卡手机在线v区| 国产成人在线视频免费播放| 99re在线精品| 欧美一级精品在线| 国产精品欧美一区喷水| 亚洲一二三区视频在线观看| 狠狠色狠狠色综合系列| 91麻豆国产在线观看| 日韩欧美国产一区二区三区| 国产精品国产三级国产专播品爱网| 亚洲高清三级视频| 福利一区福利二区| 777xxx欧美| 亚洲精品ww久久久久久p站| 久久成人精品无人区| 成人avav影音| 日本一区二区三区久久久久久久久不| 综合在线观看色| 精彩视频一区二区| 在线观看免费亚洲| 久久嫩草精品久久久精品一| 亚洲精品中文在线| 国产美女精品在线| 4438x亚洲最大成人网| 中文字幕亚洲一区二区va在线| 婷婷久久综合九色综合伊人色| 成人亚洲精品久久久久软件| 911国产精品| 一区二区三区资源| 成人中文字幕在线| 欧美成人女星排行榜| 亚洲国产精品尤物yw在线观看| 国产成人精品www牛牛影视| 91精品国产综合久久久久久久久久| 亚洲欧洲日产国产综合网| 精品一区二区三区在线播放 | 日韩精品在线看片z| 亚洲黄色片在线观看| 岛国av在线一区| 亚洲精品一区二区三区蜜桃下载| 亚瑟在线精品视频| 色综合中文字幕| 中文字幕在线观看不卡视频| 国产一区在线看| 欧美大度的电影原声| 水野朝阳av一区二区三区| 色综合天天视频在线观看| 欧美极品少妇xxxxⅹ高跟鞋| 狠狠狠色丁香婷婷综合激情| 91精品国产综合久久婷婷香蕉| 亚洲黄色尤物视频| 色av综合在线| 亚洲免费看黄网站| av不卡在线观看| 国产精品天天看| 懂色av一区二区三区免费观看 | 国产综合一区二区| 日韩一级免费一区| 日产国产欧美视频一区精品| 欧美浪妇xxxx高跟鞋交| 亚洲观看高清完整版在线观看| 日本高清不卡视频| 亚洲激情校园春色| 色av一区二区| 亚洲国产日韩一级| 欧美老肥妇做.爰bbww| 日韩精品每日更新| 欧美一级免费观看| 久久成人久久爱| 国产亚洲欧美一区在线观看| 国产成人精品1024| 国产精品网站一区| 91网址在线看| 亚洲综合成人在线| 欧美日韩国产系列| 男人的天堂久久精品| 精品对白一区国产伦| 国产一区视频导航| 中文成人av在线| 99久久精品免费看国产| 亚洲精品第一国产综合野| 欧美日韩午夜影院| 人人超碰91尤物精品国产| 日韩欧美视频一区| 国产成人在线视频播放| 中文字幕在线免费不卡| 欧美三级一区二区| 久久国产综合精品| 国产午夜精品一区二区三区视频| 成人国产一区二区三区精品| 亚洲综合视频在线| 91精品视频网| 国产精品一二三四| 一区二区三区在线视频观看58| 欧美日韩久久一区| 韩国精品主播一区二区在线观看| 国产欧美一区视频| 欧美网站一区二区| 久久99热99| 亚洲欧美一区二区在线观看| 欧美日韩免费观看一区二区三区| 麻豆精品一区二区综合av| 国产精品视频yy9299一区| 在线观看日韩精品| 激情综合网av| 亚洲色图视频网站| 欧美一区二区三区在线看| 成人永久免费视频| 午夜精品福利在线| 久久久久亚洲蜜桃| 精品免费国产一区二区三区四区| 国产原创一区二区| 亚洲一区二区欧美| 26uuu亚洲| 在线免费观看日韩欧美| 国产一区在线不卡| 亚洲成人av在线电影| 国产日韩精品视频一区| 欧美日韩中字一区| 国产成人99久久亚洲综合精品| 亚洲bt欧美bt精品| 国产精品天天看| 日韩三级av在线播放| 一本久久a久久精品亚洲| 精品影院一区二区久久久| 亚洲精品你懂的| 久久日一线二线三线suv| 欧美性感一类影片在线播放| 国产精品综合av一区二区国产馆| 亚洲国产另类av| 国产精品不卡在线| 精品99一区二区三区| 欧美网站大全在线观看| 高清不卡一区二区在线| 麻豆传媒一区二区三区| 亚洲综合色区另类av| 欧美国产精品专区| 91精品国产综合久久久蜜臀粉嫩 | 亚洲制服丝袜一区| 日本一区二区不卡视频| 欧美大胆人体bbbb| 国产精品99久久久久久有的能看| 日精品一区二区三区| 一区二区三区欧美日| 国产精品久久777777| 精品久久久久久久久久久久久久久久久 | 欧美日韩在线亚洲一区蜜芽| 国产成人aaa| 韩国三级在线一区| 美腿丝袜在线亚洲一区| 亚洲第一综合色| 亚洲综合精品自拍| 亚洲精品五月天| 欧美国产成人精品| 国产欧美久久久精品影院| 久久理论电影网| 久久综合久久综合久久综合| 欧美一区二区高清| 欧美老肥妇做.爰bbww| 欧美视频一区二区| 99re这里都是精品| 色综合久久中文字幕综合网| 成人av在线网| 成人h精品动漫一区二区三区| 激情综合网av| 国产乱子伦一区二区三区国色天香| 日产国产欧美视频一区精品| 三级不卡在线观看| 偷窥国产亚洲免费视频| 亚洲高清不卡在线| 午夜在线成人av| 亚洲v精品v日韩v欧美v专区| 亚洲成人激情综合网| 亚洲1区2区3区视频| 天天色天天爱天天射综合| 日韩电影在线免费看| 日本中文字幕一区二区有限公司| 首页国产丝袜综合| 热久久一区二区| 美脚の诱脚舐め脚责91 | 性做久久久久久久久| 日韩av电影免费观看高清完整版| 午夜免费久久看| 亚洲18影院在线观看| 日韩精品电影在线| 亚洲图片一区二区| 日韩电影免费一区| 国产真实精品久久二三区| 久久精品国产999大香线蕉| 国产在线观看免费一区| 国产精品正在播放| 粉嫩高潮美女一区二区三区|