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

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? formsum.frm

?? 給人寫的畢設
?? FRM
字號: 
VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Formsum 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "在此進行匯編工作"
   ClientHeight    =   4935
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6975
   Icon            =   "Formsum.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Formsum.frx":0442
   ScaleHeight     =   4935
   ScaleWidth      =   6975
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSForms.CommandButton CommandButton8 
      Height          =   495
      Left            =   4920
      TabIndex        =   7
      Top             =   4080
      Width           =   1695
      BackColor       =   16777152
      Caption         =   "返回"
      Size            =   "2990;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton1 
      Height          =   495
      Left            =   240
      TabIndex        =   6
      Top             =   360
      Width           =   3015
      BackColor       =   16777152
      Caption         =   "檔案室庫存檔案目錄匯編"
      Size            =   "5318;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton2 
      Height          =   495
      Left            =   240
      TabIndex        =   5
      Top             =   1600
      Width           =   3015
      BackColor       =   16777152
      Caption         =   "庫存檔案分類目錄匯編"
      Size            =   "5318;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton3 
      Height          =   495
      Left            =   240
      TabIndex        =   4
      Top             =   2840
      Width           =   3015
      BackColor       =   16777152
      Caption         =   "案卷內容簡介匯編"
      Size            =   "5318;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton4 
      Height          =   495
      Left            =   240
      TabIndex        =   3
      Top             =   4080
      Width           =   3615
      BackColor       =   16777152
      Caption         =   "按作者或課題負責人排列的案卷目錄匯編"
      Size            =   "6376;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton5 
      Height          =   495
      Left            =   3600
      TabIndex        =   2
      Top             =   360
      Width           =   3015
      BackColor       =   16777152
      Caption         =   "相同保管期限的案卷目錄匯編"
      Size            =   "5318;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton6 
      Height          =   495
      Left            =   3600
      TabIndex        =   1
      Top             =   1600
      Width           =   3015
      BackColor       =   16777152
      Caption         =   "相同密級的案卷目錄匯編"
      Size            =   "5318;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CommandButton7 
      Height          =   495
      Left            =   3600
      TabIndex        =   0
      Top             =   2840
      Width           =   3015
      BackColor       =   16777152
      Caption         =   "具有相同主題詞的案卷目錄匯編"
      Size            =   "5318;873"
      FontName        =   "宋體"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
End
Attribute VB_Name = "Formsum"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''
'當選擇“編研匯編”后彈出
''''''''''''''''''''''''''''''''''

Private Sub CommandButton1_Click()
On Error Resume Next

Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,存放地點 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh

Formsumlist.MSHFlexGrid1.MergeCells = flexMergeRestrictColumns
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.MergeRow(1) = True
Formsumlist.MSHFlexGrid1.MergeRow(3) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton2_Click()
Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,檔案類型 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton3_Click()

Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,案卷內容簡介 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton4_Click()
Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,課題負責人 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton5_Click()
Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,保管期限 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton6_Click()
Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,密級 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton7_Click()
Formsumlist.Adodc2.RecordSource = "select 檔案號 as 案卷號,案卷標題的主題詞 as 匯編依據 from [檔案]"
Formsumlist.Adodc2.Refresh
If Formsumlist.Adodc2.Recordset.RecordCount = 0 Then
MsgBox "因無相關檔案，還無法成冊", , "注意："
Else
Formsumlist.Adodc2.Recordset.MoveFirst
Formsumlist.Adodc1.Refresh
If Formsumlist.Adodc1.Recordset.RecordCount = 0 Then
Else
Formsumlist.Adodc1.Recordset.MoveFirst
Do Until Formsumlist.Adodc1.Recordset.EOF
Formsumlist.Adodc1.Recordset.Delete
Formsumlist.Adodc1.Recordset.MoveNext
Loop
End If
Do Until Formsumlist.Adodc2.Recordset.EOF
Formsumlist.Adodc1.Recordset.AddNew
Formsumlist.Adodc1.Recordset![案卷號] = Formsumlist.Adodc2.Recordset![案卷號]
Formsumlist.Adodc1.Recordset![匯編依據] = Formsumlist.Adodc2.Recordset![匯編依據]
Formsumlist.Adodc1.Recordset.Update
Formsumlist.Adodc2.Recordset.MoveNext
Loop
Formsumlist.Adodc1.RecordSource = "select * from [匯編] " 'group by [匯編依據]
Formsumlist.Adodc1.Refresh
Formsumlist.MSHFlexGrid1.MergeRow(2) = True
Formsumlist.MSHFlexGrid1.ColWidth(1) = 3000
Formsumlist.MSHFlexGrid1.ColWidth(2) = 6000
Formsumlist.MSHFlexGrid1.ColWidth(3) = 0
Me.Hide
Formsumlist.Show
End If
End Sub

Private Sub CommandButton8_Click()
Me.Hide
Formmain.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.Hide
Formmain.Show
End Sub

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
成人欧美一区二区三区| 国产成人在线观看免费网站| 国产很黄免费观看久久| 欧美日韩1234| 自拍偷拍国产精品| 国产一区二区三区最好精华液| 色综合欧美在线视频区| 久久伊99综合婷婷久久伊| 婷婷久久综合九色综合绿巨人| 成人免费黄色大片| 久久免费国产精品| 亚洲精品日日夜夜| 日本中文字幕一区二区有限公司| 97久久精品人人做人人爽50路| 2023国产精品| 麻豆91在线播放| 欧美一区二区视频在线观看2020| 亚洲视频免费在线| 成人av先锋影音| 国产欧美视频在线观看| 国产一区三区三区| 久久久亚洲欧洲日产国码αv| 石原莉奈一区二区三区在线观看| 在线一区二区三区做爰视频网站| 日本一区二区免费在线观看视频| 精品一区二区三区久久久| 欧美高清精品3d| 午夜精品久久久久久久99水蜜桃| 欧美色涩在线第一页| 亚洲综合自拍偷拍| 欧美偷拍一区二区| 亚洲一区在线电影| 欧美午夜精品久久久| 亚洲444eee在线观看| 91麻豆精品久久久久蜜臀| 日韩精品欧美精品| 日韩欧美亚洲国产另类| 蜜臀91精品一区二区三区| 日韩欧美一二三四区| 久久99精品视频| 久久亚区不卡日本| 岛国精品在线观看| 最新热久久免费视频| 国产综合久久久久久久久久久久| 国产欧美日韩中文久久| 伊人开心综合网| 色激情天天射综合网| 夜夜嗨av一区二区三区| 欧美日韩一级二级| 国模娜娜一区二区三区| 欧美高清一级片在线观看| 91免费在线看| 性做久久久久久久免费看| 精品国产乱码久久久久久牛牛| 国产资源在线一区| 亚洲视频免费在线观看| 欧美日韩不卡在线| 国产一区二区精品久久99| 国产精品入口麻豆九色| 99久免费精品视频在线观看| 亚洲gay无套男同| 久久久久国产精品厨房| 色综合久久天天| 日韩在线卡一卡二| 亚洲欧洲三级电影| 欧美一区二区视频在线观看2022| 高清在线不卡av| 丝袜脚交一区二区| 国产精品午夜免费| 91精品啪在线观看国产60岁| 成人v精品蜜桃久久一区| 亚洲国产精品一区二区尤物区| 欧美精品一区二区三区在线| 99re66热这里只有精品3直播| 免费在线观看日韩欧美| 亚洲另类在线制服丝袜| 久久亚洲综合av| 777久久久精品| 91亚洲精品久久久蜜桃网站| 秋霞午夜鲁丝一区二区老狼| 亚洲欧洲成人av每日更新| 欧美一级片在线| 欧洲视频一区二区| 成人一区二区三区视频在线观看| 午夜视频久久久久久| 国产精品成人免费精品自在线观看 | 91精品国产乱| 99精品视频在线播放观看| 国模大尺度一区二区三区| 日韩综合小视频| 亚洲三级电影网站| 国产欧美视频在线观看| 欧美大片日本大片免费观看| 欧美亚洲自拍偷拍| 91最新地址在线播放| 懂色av中文字幕一区二区三区| 美女网站在线免费欧美精品| 香蕉乱码成人久久天堂爱免费| 综合亚洲深深色噜噜狠狠网站| 久久人人爽人人爽| 精品国产乱码久久久久久1区2区 | 精品久久久久久亚洲综合网| 欧美老肥妇做.爰bbww视频| 色综合夜色一区| 91原创在线视频| caoporm超碰国产精品| 成人av综合一区| 国产精品亚洲一区二区三区在线| 日本美女视频一区二区| 青草国产精品久久久久久| 日本aⅴ精品一区二区三区| 同产精品九九九| 性做久久久久久| 日韩国产欧美在线视频| 日韩电影在线一区二区| 蜜桃av噜噜一区| 九九精品一区二区| 久久国产精品露脸对白| 精品亚洲免费视频| 国产老妇另类xxxxx| 国产精品一区在线| 成人精品鲁一区一区二区| 成人免费黄色大片| 欧美在线播放高清精品| 欧美日韩一级二级三级| 日韩一区二区电影网| 国产日韩欧美a| 国产精品国产三级国产有无不卡 | 色偷偷久久一区二区三区| 91一区在线观看| 欧美日韩激情一区二区| 91精品国产综合久久久久 | 欧美在线综合视频| 欧美日韩免费电影| 精品久久久久香蕉网| 久久久久久久久岛国免费| 中文字幕第一区二区| 亚洲午夜一区二区三区| 日韩成人一区二区三区在线观看| 久久激五月天综合精品| 国产在线视频一区二区三区| 豆国产96在线|亚洲| 欧美性xxxxxxxx| 日韩欧美美女一区二区三区| 亚洲国产成人午夜在线一区| 伊人色综合久久天天| 久88久久88久久久| 99精品欧美一区| 欧美一区二区三区四区在线观看 | 精品福利在线导航| 国产精品久久久久久久久快鸭 | 亚洲三级在线免费| 免费视频最近日韩| www.日韩精品| 国产精品你懂的在线欣赏| 欧美一区二区三区四区视频| 日本一区二区动态图| 日韩 欧美一区二区三区| 丁香婷婷综合五月| 制服丝袜激情欧洲亚洲| 中文字幕一区二区三区在线不卡 | 亚洲精品老司机| 黄一区二区三区| 欧美亚一区二区| 国产夜色精品一区二区av| 亚洲成人一区二区在线观看| 国产一区二区伦理| 91精品国产手机| 亚洲精品高清在线| 国产成人精品亚洲日本在线桃色| 欧美日韩成人激情| 一区二区三区在线高清| 国产成人精品网址| 26uuuu精品一区二区| 视频一区二区中文字幕| 色偷偷久久人人79超碰人人澡 | 成人国产亚洲欧美成人综合网| 欧美一级在线免费| 视频一区国产视频| 在线观看免费视频综合| 中文字幕日韩欧美一区二区三区| 国产精品自产自拍| 精品久久久久久最新网址| 日产国产欧美视频一区精品| 欧美亚洲一区二区在线观看| 国产精品高清亚洲| 不卡视频在线观看| 国产欧美精品在线观看| 激情综合一区二区三区| 欧美一卡二卡在线| 奇米色一区二区| 日韩一区二区电影网| 日韩av中文字幕一区二区| 国内精品久久久久影院色| 欧美大白屁股肥臀xxxxxx| 亚洲精品成人在线| 欧美一区二区三区白人 | 三级成人在线视频| 欧美亚洲尤物久久| 成人一区二区三区在线观看|