DIM DH只要\’storage\’\’存储高度差

DIM DW为长\’存储宽度差异

私有子命令查询1_click（）\’单条件查询

错误goto结束查询

dim search_field作为字符串

如果查询字段=\’任务日期\’，则

如果启动日期\’\’\’\’\’\’\’\’\’\’\’（start date）=false and deadline\’\’\’和isnull（start date）=false and查询字段\’\’和isnull（start field）=false

search_field=查询字段

rw_filter=search_field\’\’start Date\’和\’deadline\’\’之间

别的

rw_filter=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

出口子

如果查询字段=“倒计时天”，则

如果最小\’\’\’\’和isnull（min）=false and maxima

search_field=查询字段

rw_filter=search_field\’=\’min\’和\’search_field\’=\’最大

别的

rw_filter=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

出口子

如果查询内容\’\’\’和isnull（查询内容）=false and Query Five\’\’\’\’\’iSnull（query field）=false

search_field=查询字段

rw_filter=search_field\’喜欢\’\’查询内容\’\’\’

别的

rw_filter=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

出口子

END查询：

msgbox err.Description

私有子命令管理_Click（）

在错误上goto a1

rw_num=dataGrid1.columns（0）.Text

FRM任务管理。展示1

A1:

私有子命令descending_click（）

如果排序\’\’和isnull（stort）=false，则

rw_order=排序\’desc\’

别的

rw_order=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

私有子命令all_click（）

rw_filter=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

私有sub命令accending_click（）

如果排序\’\’和isnull（stort）=false，则

rw_order=排序\’asc\’

别的

rw_order=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

私有子命令生成report_click（）

datareport任务详细信息report.datamember=\’\’

与dataEnvironment1

.commands（1）.commandType=adcmdText

如果.rscommand任务查询。STATE=1，则

.rscommand任务查询

设置datareport任务详细信息report.datasource=dataenvironment1

datareport任务详细信息report.datamember=\’命令任务查询\’

\’打开报告

datareport任务详细报告。显示1

私有子命令add_click（）

如果任务添加权限=false，则

msgbox“无许可”

出口子

添加了FRM任务。显示1

私有子form_load（）

\’滤波器排序变量清除

rw_filter=\’\’

rw_order=\’任务ID desc\’

查询内容。可见=true

\’ – 隐藏日期控制

开始date.visible=false

deadline.visible=false

\’ – 隐藏量控制

最小值。可见=false

Max.Visible=false

\’标签

标签查询内容。可见=true

\’ – 隐藏日期控制

标签开始日期。可见=false

标签deadline.visible=false

\’ – 隐藏量控制

标签最小值。可见=false

标签max.visible=false

\’ADO控制设置

adodc1.connectionstring=\’provider=microsoft.jet.oledb.4.0; data source=\’app.path\’\\ db_rw.mdb; jet OLEDB:DATABASE密码=ABC123; abc123;

adodc1.commandType=adcmdunknown

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh\’刷新

“存储数据表控制和形式宽度和高度差异

DH=Me.Height -DataGrid1.Height

dw=me.Width -DataGrid1.Width

函数生成查询语句（byval searchtb作为字符串，byval searchfilter作为字符串，byval searchorder as String）为字符串

生成查询语句=\’\’

DIM SQLTEXT作为字符串

sqltext=\’select *从\’searchtb

如果searchFilter\’\’然后

sqltext=sqltext\’where\’searchFilter

如果搜索订单\’\’然后

sqlText=sqlText\’Sorder by\’searchorder

生成查询语句=sqlText

私有子form_resize（）

\’表格尺寸更改表控制尺寸变化

如果我。

datagrid1.height=me.height -dh

datagrid1.width=me.width -dw

私有sub Query field_click（）

如果查询字段=\’任务日期\’，则

开始date.visible=true

deadline.visible=true

最小值。可见=false

Max.Visible=false

查询内容。可见=false

开始date.value=日期

deadline.value=日期

goto a1

别的

开始date.visible=false

deadline.visible=false

最小值。可见=false

Max.Visible=false

查询内容。可见=true

如果查询字段=“倒计时天”，则

开始date.visible=false

deadline.visible=false

最小值。可见=true

Max.Visible=true

查询内容。可见=false

goto a1

别的

开始date.visible=false

deadline.visible=false

最小值。可见=false

Max.Visible=false

查询内容。可见=true

A1:

\’标签

如果查询字段=\’任务日期\’，则

标签开始日期。可见=true

标签截止日期。可见=true

标签最小值。可见=false

标签max.visible=false

标签查询内容。可见=false

goto a2

别的

标签开始日期。可见=false

标签deadline.visible=false

标签最小值。可见=false

标签max.visible=false

标签查询内容。可见=true

如果查询字段=“倒计时天”，则

标签开始日期。可见=false

标签deadline.visible=false

标签最小值。可见=true

标签max.visible=true

标签查询内容。可见=false

goto a2

别的

标签开始日期。可见=false

标签deadline.visible=false

标签最小值。可见=false

标签max.visible=false

标签查询内容。可见=true

A2:

任务查询

DIM DH只要\’storage\’\’存储高度差

DIM DW为长\’存储宽度差异

私有子命令查询1_click（）\’单条件查询

错误goto结束查询

dim search_field作为字符串

如果查询字段=\’任务日期\’，则

如果启动日期\’\’\’\’\’\’\’\’\’\’\’（start date）=false and deadline\’\’\’和isnull（start date）=false and查询字段\’\’和isnull（start field）=false

search_field=查询字段

rw_filter=search_field\’之间的\’start date\’和\’deadline\’\’\’\’\’并创建一个帐户=\’\’login_name\’\’\’\’\’\’\’\’

别的

rw_filter=\’创建一个帐户=\’\’login_name\’\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

出口子

如果查询字段=“倒计时天”，则

如果最小\’\’\’\’和isnull（min）=false and maxima

search_field=查询字段

rw_filter=search_field\’=\’min\’和\’search_field\’=\’maximut\’并创建一个帐户=\’\’login_name\’\’\’\’\’\’

别的

rw_filter=\’创建一个帐户=\’\’login_name\’\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

出口子

如果查询内容\’\’\’和isnull（查询内容）=false and Query Five\’\’\’\’\’iSnull（query field）=false

search_field=查询字段

rw_filter=search_field\’喜欢\’\’query content\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’\’login_name\’\’\’\’\’

别的

rw_filter=\’创建一个帐户=\’\’login_name\’\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

出口子

END查询：

msgbox err.Description

私有子命令管理_Click（）

在错误上goto a1

rw_num=dataGrid1.columns（0）.Text

FRM任务管理。展示1

A1:

私有子命令descending_click（）

如果排序\’\’和isnull（stort）=false，则

rw_order=排序\’desc\’

别的

rw_order=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

私有子命令all_click（）

rw_filter=\’创建一个帐户=\’\’login_name\’\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

私有sub命令accending_click（）

如果排序\’\’和isnull（stort）=false，则

rw_order=排序\’asc\’

别的

rw_order=\’\’

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh

datagrid1.refresh

datagrid1.setfocus

私有子命令生成report_click（）

datareport任务详细信息report.datamember=\’\’

与dataEnvironment1

.commands（1）.commandType=adcmdText

如果.rscommand任务查询。STATE=1，则

.rscommand任务查询

设置datareport任务详细信息report.datasource=dataenvironment1

datareport任务详细信息report.datamember=\’命令任务查询\’

\’打开报告

datareport任务详细报告。显示1

私有子命令add_click（）

如果任务添加权限=false，则

msgbox“无许可”

出口子

添加了FRM任务。显示1

私有子form_load（）

\’滤波器排序变量清除

rw_filter=\’创建一个帐户=\’\’login_name\’\’\’

rw_order=\’任务ID desc\’

查询内容。可见=true

\’ – 隐藏日期控制

开始date.visible=false

deadline.visible=false

\’ – 隐藏量控制

最小值。可见=false

Max.Visible=false

\’标签

标签查询内容。可见=true

\’ – 隐藏日期控制

标签开始日期。可见=false

标签deadline.visible=false

\’ – 隐藏量控制

标签最小值。可见=false

标签max.visible=false

\’ADO控制设置

adodc1.connectionstring=\’provider=microsoft.jet.oledb.4.0; data source=\’app.path\’\\ db_rw.mdb; jet OLEDB:DATABASE密码=ABC123; abc123;

adodc1.commandType=adcmdunknown

adodc1.recordsource=生成查询语句（\’任务信息查询\’，rw_filter，rw_order）

adodc1.refresh\’刷新

“存储数据表控制和形式宽度和高度差异

DH=Me.Height -DataGrid1.Height

dw=me.Width -DataGrid1.Width

函数生成查询语句（byval searchtb作为字符串，byval searchfilter作为字符串，byval searchorder as String）为字符串

生成查询语句=\’\’

DIM SQLTEXT作为字符串

sqltext=\’select *从\’searchtb

如果searchFilter\’\’然后

sqltext=sqltext\’where\’searchFilter

如果搜索订单\’\’然后

sqlText=sqlText\’Sorder by\’searchorder

生成查询语句=sqlText

私有子form_resize（）

\’表格尺寸更改表控制尺寸变化

如果我。

datagrid1.height=me.height -dh

datagrid1.width=me.width -dw

私有sub Query field_click（）

如果查询字段=\’任务日期\’，则

开始date.visible=true

deadline.visible=true

最小值。可见=false

Max.Visible=false

查询内容。可见=false

开始date.value=日期

deadline.value=日期

goto a1

别的

开始date.visible=false

deadline.visible=false

最小值。可见=false

Max.Visible=false

查询内容。可见=true

如果查询字段=“倒计时天”，则

开始date.visible=false

deadline.visible=false

最小值。可见=true

Max.Visible=true

查询内容。可见=false

goto a1

别的

开始date.visible=false

deadline.visible=false

最小值。可见=false

Max.Visible=false

查询内容。可见=true

A1:

\’标签

如果查询字段=\’任务日期\’，则

标签开始日期。可见=true

标签截止日期。可见=true

标签最小值。可见=false

标签Max.Vis

ible = False

Label查询内容.Visible = False

GoTo a2

Else

Label起始日期.Visible = False

Label截止日期.Visible = False

Label最小.Visible = False

Label最大.Visible = False

Label查询内容.Visible = True

If 查询字段 = \”倒计时天数\” Then

Label起始日期.Visible = False

Label截止日期.Visible = False

Label最小.Visible = True

Label最大.Visible = True

Label查询内容.Visible = False

GoTo a2

Else

Label起始日期.Visible = False

Label截止日期.Visible = False

Label最小.Visible = False

Label最大.Visible = False

Label查询内容.Visible = True

a2:

任务添加

Dim dh As Long \’存储高度差

Dim dw As Long \’存储宽度差

Private Sub Text_DblClick(Index As Integer)

If Index = 0 Then

rw_formname = \”frm任务添加\”

frm常见任务选择.Show 1

If Index = 1 Then \’双击输入日期的文本框

If Text(1) <> \”\” Then

DTPicker1.Value = Text(1)

Else

Text(1) = Date

DTPicker1.Value = Date

DTPicker1.Visible = True \’显示日期选择控件

Private Sub Command清空_Click()

Text(0) = \”\”

Text(1) = \”\”

Text(2) = \”\”

Text(3) = \”\”

Combo1(0) = \”\”

Combo1(1) = \”\”

Combo1(2) = \”\”

Combo1(3) = \”\”

DTPicker1.Visible = False \’日期控件隐藏

Private Sub Command添加_Click()

On Error GoTo 错误提示

If 任务添加权限 = False Then

MsgBox \”无权限\”

Exit Sub

\’判断必须输入数据的控件不能为空

If Text(0) = \”\” Or IsNull(Text(0)) = True Then

MsgBox \”任务名称值为空！\”

Exit Sub

Else

If Text(1) = \”\” Or IsNull(Text(1)) = True Then

MsgBox \”任务日期值为空！\”

Exit Sub

Else

Dim add_conn As New ADODB.Connection

Dim add_rs As New ADODB.Recordset

With add_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

add_rs.Open \”任务表\”, add_conn, adOpenKeyset, adLockOptimistic

add_rs.AddNew

On Error Resume Next

add_rs!任务名称.Value = Text(0)

add_rs!任务日期.Value = Text(1)

add_rs!任务描述.Value = Text(2)

add_rs!备注.Value = Text(3)

add_rs!创建账号.Value = login_name

add_rs!任务负责人.Value = Combo1(0)

add_rs!任务时间.Value = Combo1(1)

add_rs!任务类型.Value = Combo1(2)

add_rs!任务状态.Value = Combo1(3)

add_rs.Update

add_rs.Close

Set add_rs = Nothing

add_conn.Close

Set add_conn = Nothing

MsgBox \”添加完成\”

Call Command清空_Click

Adodc1.Refresh

DataGrid1.Refresh

Exit Sub

错误提示:

MsgBox Err.Description

Private Sub Form_Load()

\’ado控件设置

Me.Adodc1.CommandType = adCmdUnknown

Me.Adodc1.RecordSource = \”select * From 任务表 where 创建账号 =\’\” & login_name & \”\’ Order By 任务ID DESC\”

Me.Adodc1.Refresh \’刷新

\’

\’存储数据表格控件与窗体宽高差值

dh = Me.Height – DataGrid1.Height

dw = Me.Width – DataGrid1.Width

Call 设置任务类型选项

Call 设置任务状态选项

Call 设置负责人选项

Private Sub Form_Resize()

\’窗体大小变化表格控件尺寸改变

If Me.WindowState <> 1 Then

DataGrid1.Height = Me.Height – dh

DataGrid1.Width = Me.Width – dw

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next

frm任务查询.Adodc1.Refresh

frm任务查询.DataGrid1.Refresh

frm全部任务.Adodc1.Refresh

frm全部任务.DataGrid1.Refresh

frm系统主页.Adodc1.Refresh

frm系统主页.DataGrid1.Refresh

Private Sub DTPicker1_LostFocus()

DTPicker1.Format = dtpCustom \’日期格式设置

Text(1).Text = DTPicker1.Value \’返回选择的日期值至文本框

DTPicker1.Visible = False \’日期控件隐藏

Private Sub Text_LostFocus(Index As Integer)

If Index = 1 Then \’输入日期的文本框失去焦点

If Text(1).Text <> \”\” And IsDate(Text(1)) = False Then

MsgBox \”输入的数据不是日期类型，请重新输入\”

Text(1).Text = \”\”

DTPicker1.Value = False

Exit Sub

Sub 设置任务类型选项()

Dim i As Long

\’-清除选项

Combo1(2).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 任务类型表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!任务类型 <> \”\” Then

Combo1(2).AddItem search_rs!任务类型

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

Sub 设置任务状态选项()

Dim i As Long

\’-清除选项

Combo1(3).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 任务状态表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!任务状态 <> \”\” Then

Combo1(3).AddItem search_rs!任务状态

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

Sub 设置负责人选项()

Dim i As Long

\’-清除选项

Combo1(0).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 负责人表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!负责人 <> \”\” Then

Combo1(0).AddItem search_rs!负责人

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

任务管理

Private Sub Command更新_Click()

On Error GoTo 更新失败错误

If 任务更新权限 = False Then

MsgBox \”无权限\”

Exit Sub

If MsgBox(\”是否更新该任务记录?\”, vbOKCancel) <> vbOK Then

Exit Sub

If Text(0) = \”\” Or IsNull(Text(0)) = True Then

MsgBox \”任务名称值为空！\”

Exit Sub

Else

If Text(1) = \”\” Or IsNull(Text(1)) = True Then

MsgBox \”任务日期值为空！\”

Exit Sub

Else

\’连接数据库并更新

Adodc1.Recordset.Update

MsgBox \”更新完成！\”

Exit Sub

更新失败错误:

MsgBox Err.Description

Private Sub Command明细删除_Click()

On Error GoTo D1

If MsgBox(\”是否删除该明细记录？明细ID：\” & DataGrid1.Columns(0), vbYesNo) <> vbYes Then

Exit Sub

Dim update_conn As New ADODB.Connection

Dim update_rs As New ADODB.Recordset

With update_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

update_rs.Open \”select * From 明细表 where 明细ID=\” & DataGrid1.Columns(0), update_conn, adOpenKeyset, adLockOptimistic

On Error Resume Next

update_rs.Delete

update_rs.Close

Set update_rs = Nothing

update_conn.Close

Set update_conn = Nothing

Me.Adodc2.Refresh \’刷新

D1:

Private Sub Command明细添加_Click()

frm明细添加.Show 1

Private Sub Command删除_Click()

On Error GoTo 删除失败错误

If 任务删除权限 = False Then

MsgBox \”无权限\”

Exit Sub

If MsgBox(\”是否删除该任务记录?\”, vbOKCancel) <> vbOK Then

Exit Sub

Adodc1.Recordset.Delete

MsgBox \”删除完成\”

Unload Me

Exit Sub

删除失败错误:

MsgBox Err.Description

Private Sub Command未完成_Click()

Dim update_conn As New ADODB.Connection

Dim update_rs As New ADODB.Recordset

With update_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

update_rs.Open \”select * From 明细表 where 明细ID=\” & DataGrid1.Columns(0), update_conn, adOpenKeyset, adLockOptimistic

On Error Resume Next

update_rs!是否完成.Value = False

update_rs.Update

update_rs.Close

Set update_rs = Nothing

update_conn.Close

Set update_conn = Nothing

Me.Adodc2.Refresh \’刷新

\’Me.DataGrid1.Refresh

Private Sub Command已完成_Click()

Dim update_conn As New ADODB.Connection

Dim update_rs As New ADODB.Recordset

With update_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

update_rs.Open \”select * From 明细表 where 明细ID=\” & DataGrid1.Columns(0), update_conn, adOpenKeyset, adLockOptimistic

On Error Resume Next

update_rs!是否完成.Value = True

update_rs.Update

update_rs.Close

Set update_rs = Nothing

update_conn.Close

Set update_conn = Nothing

Me.Adodc2.Refresh \’刷新

Private Sub Form_Load()

Call 设置任务类型选项

Call 设置任务状态选项

Call 设置负责人选项

\’ado控件设置

Me.Adodc1.Refresh \’刷新

Me.Adodc1.CommandType = adCmdUnknown

Me.Adodc1.RecordSource = \”select * From 任务表 where 任务ID=\” & rw_num

Me.Adodc1.Refresh \’刷新

\’

Me.Adodc2.Refresh \’刷新

Me.Adodc2.CommandType = adCmdUnknown

Me.Adodc2.RecordSource = \”select * From 明细查询 where 任务ID=\” & rw_num

Me.Adodc2.Refresh \’刷新

Me.DataGrid1.Refresh

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next

frm任务查询.Adodc1.Refresh

frm任务查询.DataGrid1.Refresh

frm全部任务.Adodc1.Refresh

frm全部任务.DataGrid1.Refresh

Private Sub DTPicker1_LostFocus()

DTPicker1.Format = dtpCustom \’日期格式设置

Text(1).Text = DTPicker1.Value \’返回选择的日期值至文本框

DTPicker1.Visible = False \’日期控件隐藏

Private Sub Text_DblClick(Index As Integer)

If Index = 1 Then \’双击输入日期的文本框

If Text(1) <> \”\” Then

DTPicker1.Value = Text(1)

Else

Text(1) = Date

DTPicker1.Value = Date

DTPicker1.Visible = True \’显示日期选择控件

Private Sub Text_LostFocus(Index As Integer)

If Index = 1 Then \’输入日期的文本框失去焦点

If Text(1).Text <> \”\” And IsDate(Text(1)) = False Then

MsgBox \”输入的数据不是日期类型，请重新输入\”

Text(1).Text = \”\”

DTPicker1.Value = False

Exit Sub

Sub 设置任务类型选项()

Dim i As Long

\’-清除选项

Combo1(2).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 任务类型表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!任务类型 <> \”\” Then

Combo1(2).AddItem search_rs!任务类型

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

Sub 设置任务状态选项()

Dim i As Long

\’-清除选项

Combo1(3).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 任务状态表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!任务状态 <> \”\” Then

Combo1(3).AddItem search_rs!任务状态

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

Sub 设置负责人选项()

Dim i As Long

\’-清除选项

Combo1(0).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 负责人表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!负责人 <> \”\” Then

Combo1(0).AddItem search_rs!负责人

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

明细添加

Private Sub Command清空_Click()

Text(0) = \”\”

Text(2) = \”\”

Combo1(0) = \”\”

Option2.Value = True

Private Sub Command添加_Click()

On Error GoTo 错误提示

If Text(2) = \”\” Or IsNull(Text(2)) = True Then

MsgBox \”明细内容值为空！\”

Exit Sub

Else

If Text(1) = \”\” Or IsNull(Text(1)) = True Then

MsgBox \”任务ID值为空！\”

Exit Sub

Else

Dim add_conn As New ADODB.Connection

Dim add_rs As New ADODB.Recordset

With add_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

add_rs.Open \”明细表\”, add_conn, adOpenKeyset, adLockOptimistic

add_rs.AddNew

On Error Resume Next

add_rs!任务ID.Value = Text(1)

add_rs!明细时间.Value = Text(0)

add_rs!明细内容.Value = Text(2)

add_rs!明细负责人.Value = Combo1(0)

add_rs!是否完成.Value = CBool(Option1.Value)

add_rs.Update

add_rs.Close

Set add_rs = Nothing

add_conn.Close

Set add_conn = Nothing

MsgBox \”添加完成\”

Call Command清空_Click

frm任务管理.Adodc2.Refresh

frm任务管理.DataGrid1.Refresh

Exit Sub

错误提示:

MsgBox Err.Description

Private Sub Form_Load()

Text(1).Text = rw_num

Call 设置负责人选项

Sub 设置负责人选项()

Dim i As Long

\’-清除选项

Combo1(0).Clear

\’-查询并填充选项

On Error GoTo 查询失败错误

Dim search_conn As New ADODB.Connection

Dim search_rs As New ADODB.Recordset

With search_conn

.ConnectionString = \”Provider = microsoft.jet.oledb.4.0;data source=\” & App.Path & \”\\db_rw.mdb;Jet OLEDB:DataBase password=abc123;persist security info=false\”

.Open

Dim search_sql As String

search_sql = \”Select * From 负责人表\”

search_rs.Open search_sql, search_conn, adOpenDynamic, adLockOptimistic

\’

Do While search_rs.EOF = False

If search_rs!负责人 <> \”\” Then

Combo1(0).AddItem search_rs!负责人

search_rs.MoveNext

Loop

\’

search_rs.Close

Set search_rs = Nothing

search_conn.Close

Set search_conn = Nothing

Exit Sub

查询失败错误:

MsgBox Err.Description

数据库

每日任务计划管理系统后端采用access数据库存储数据，格式为mdb，命名为db_rw，为了保证安全性，数据库设置加密，密码为abc123。

表

常见任务表

负责人表

明细表

任务表

任务类型表

任务状态表

表关系

查询

今日任务查询

SELECT 任务表.任务ID, 任务表.任务名称, 任务表.任务日期, 任务表.任务时间, 任务表.任务描述, 任务表.任务负责人, 任务表.任务类型, 任务表.任务状态, IIf([任务日期]-Date()>=0,[任务日期]-Date(),\”已超期\”) AS 倒计时天数, 任务表.备注, 任务表.创建账号

FROM 任务表

WHERE (((任务表.任务日期)=Date()));

明细查询

SELECT 明细表.明细ID, 明细表.任务ID, 明细表.明细时间, 明细表.明细内容, 明细表.明细负责人, IIf([是否完成]=0,\”否\”,\”是\”) AS 已完成, 明细表.是否完成

FROM 明细表;

任务信息查询

SELECT 任务表.任务ID, 任务表.任务名称, 任务表.任务日期, 任务表.任务时间, 任务表.任务描述, 任务表.任务负责人, 任务表.任务类型, 任务表.任务状态, IIf([任务日期]-Date()>=0,[任务日期]-Date(),\”已超期\”) AS 倒计时天数, 任务表.备注, 任务表.创建账号

用户评论

高冷低能儿

终于看到用 VB 做任务管理系统的，我一直想学习这方面的知识！这个代码是不是可以公开分享一下呢？我也很想试试看

    有14位网友表示赞同！

煮酒

Access 数据库真的很好用，简洁清晰，尤其适合小型项目。这篇博文讲得挺不错的，我已经开始研究这个代码了!

    有16位网友表示赞同！

残留の笑颜

我试着用过 VB 做任务管理系统，但是 Access 的查询功能并不是很强大，数据整合起来还是有些麻烦，你们有没有遇到类似的问题？

    有10位网友表示赞同！

又落空

说实话，现在市面上已经有很多优秀的任务管理软件了，用个开源的也不错啊！为啥要用 VB 自己开发呢？代码看起来也很复杂，需要花很多时间去理解…

    有12位网友表示赞同！

杰克

对于初学者来说使用 VB 管理系统确实比较困难，还是建议从一些基础的程序开始学习。不过这篇博文讲解得还是很清楚的，希望作者能多更新一些案例和教程!

    有16位网友表示赞同！

拽年很骚

这篇文章太棒了！特别是对 Visual Basic 的使用讲解很透彻，我之前只是知道 VB 可以开发应用程序，现在才知道它也可以用在数据库管理上，非常开眼界!

    有17位网友表示赞同！

■孤独像过不去的桥≈

Access 数据库确实不错，学习成本低而且功能也足够实用。不过这个 VB 代码的复杂度有点高，让我感觉这套系统适合开发者而不是普通用户。

    有8位网友表示赞同！

北染陌人

这款 VB 管理系统的界面设计好像不太好，信息过于密集，操作起来有点不方便。希望作者能改进一下界面美观性和用户体验.

    有7位网友表示赞同！

淡抹烟熏妆丶

我一直在寻找一款简单易学的任务管理软件，这个 VB 系统看起来很有潜力，但是不知道它的安全性怎么样？

    有17位网友表示赞同！

风中摇曳着长发

这个代码示例很实用的，可以作为学习参考，但我担心实际应用中可能需要进行大量修改才能满足个人需求。

    有13位网友表示赞同！

逾期不候

ACCESS 数据库的限制性比较大，如果项目发展到较大规模，很难扩展。这种设计应该考虑多采用云数据库方案，更灵活更方便!

    有9位网友表示赞同！

封锁感觉

这个 VB 管理系统可以作为学习 vb 的入门案例，但是要应用于实际生产环境，还需要根据需求进行优化和完善

    有19位网友表示赞同！

┲﹊怅惘。

感觉这个VB管理系统的思路非常不错，将任务管理与 Access 数据库结合，实现记录和统计功能。对于个人用户来说非常实用。

    有6位网友表示赞同！

抚涟i

我个人觉得学习 VB 编程成本还是比较高的，可能不是普通用户的最佳选择。市面上有很多开源的开源任务管理软件可以使用， 而且更加易于上手。

    有10位网友表示赞同！

顶个蘑菇闯天下i

我很喜欢这个 VB 管理系统的代码结构，很简洁易懂。不过对于没有 VB 基础的用户来说，需要花一些时间来学习它运行机制。

    有6位网友表示赞同！

仰望幸福

我之前也用过 Access 数据库做任务管理系统，效率很高！但是，这款系统还需要加强安全性，避免数据泄露风险!

    有20位网友表示赞同！

黑夜漫长

这个 VB 管理系统的功能十分强大，能够满足大多数用户的需求。如果能提供线上服务和移动端应用，那就更完美了!

    有7位网友表示赞同！

泪湿青衫

作者分享的VB代码很详细，对想要了解数据库管理系统的人非常有帮助！学习一下就能自己制作一个这样的系统

    有15位网友表示赞同！