CommonDialog和DBGrid控件需要另外加载，其中还需在DBGrid的属性页中进行一定的数据库挂接和设置，要在其属性页中“布局”中的第二列的“按钮”选中。 以下是本小软件的源代码： Option Explicit 注释：启动外部应用程序的API函数定义 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim OldDate As Date 注释：保存系统日期
Private Sub Command1_Click() If Not Data1.Recordset.EOF Then 注释：若数据库正在添加记录则不动作 Date = Data1.Recordset(2) 注释：改系统时间 Call ShellExecute(0, vbNullString, Data1.Recordset(1), vbNullString, vbNullString, vbOK) 注释：启动外部程序 Me.Enabled = False 注释：屏蔽其他操作 Timer1.Enabled = True 注释：启动延时记时器 End If End Sub
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 