人事篇套管用 0003R第 中级 L乐 0002进 高级 北京 0001王 助理 厂东 图2程序运行界面 程序如下,请补充完整。 Public ADOcn As New ADODB.Connection Sub main() Dim stren As String strADOcn "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+App.Path_ +"\HRM.mdb;Persist Security Info=False" ADOcn.Open [1] frmMain.Show End Sub Private Sub Myrefresh() DimADO rs As [2] Dim strtmp As String Dim i As Integer [3] =ADOcn ADOrs..Open"Select*From档案Order by编号" MSFlexGrid1.Clear MSFlexGrid1.FixedRows =0 MSFlexGrid1.Rows 1 MSFlexGrid1.Cols=4 MSFlexGridl.AddItem"职工编号"+vbTab十"职工姓名”+vbTab十"职称" +vbTab+"简历",0 i=1 Do While [4] ADOrs.EOF strtmp=rs("编号")+vbTab+rs("姓名")+vbTab十rs("职称")十 vbTab十rs("简历") 1423运行界 程序如下,请补充完整。 Public ADOcn As New ADODB. Connection Sub mainO Dim strcn As String strADOcn = "Provider=Microsoft. let. OLEDB.4. O;Data Source=" + App. Path_ mdb;Persist Security Info=False" ADOcn. Open [IJ frmMain. Show End Sub Private Sub MyrefreshO DimADO rs As [2J Dim strtmp As String Dim i As Integer [3J=ADOcn ADOrs. Open "Select 赞From 案Order by MSFlexGridl. Clear MSFlexGridl. FixedRows = 0 MSFlexGridl. Rows = 1 MSFlexGridl. Cols = 4 MSFlexGridl. AddItem "职工编号" + vbTab + "职工姓名" + vbTab 职称 + vbTab + "简历", 0 i = 1 Do While[4JADOrs.EOF strtmp = rs(" + vbTab + rs(" + vbTab + + vbTab + rs(" 1423