连接Access 97资料库

On Error GoTo 连接错误

conn.Open 」Provider=Microsoft.Jet.OLEDB.3.51;Data Source=弹药台帐.mdb;Persist Security Info=False」

……

Private Sub cmdAdd_Click() Dim 型号 As String, 批次 As String, 入库数 As Integer Dim 入库日期 As Date, 经办人 As String

……

Private Sub Form_Unload(Cancel As Integer)

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

随着所有的代码敲击完毕，张安邦将文件保存好，并且命名为钢七连武器弹药台帐.exe并且和和弹药台帐.mdb放在了同一个文件夹里。

「那个谁，王文，你去把武器库把李军械员叫过来，让他带着台帐过来。」张安邦吩咐了一声，随即伸了个懒腰，咔吧咔吧的骨骼碰撞声传来，让人精神为之一振。

「报告。」

「进。」

嘎吱，办公室的门打开，军械员李建国过来了。

「副连长，您找我，是不是您说的那个电子台帐系统搞好了。」李建国一脸兴奋的问道。

张安邦点点头，「老李班长，搞好了，喊你过来呢，就是把现在所有的武器数据都输入进去，之后呢咱们在查找什麽数据就很简单了。」

「好好，副连长，台帐我都带来了，这个输入您教教我，这个电脑我倒是用过，就是不知道这个电子台帐系统是怎麽用。」李建国有啥说啥，赶紧学到手才是正理啊。

「这个简单，你看滑鼠双击这个弹药台帐.exe就可以运行了。」随着张安邦点开电子台帐系统，只见没有任何背景图和花里胡哨的控制项，灰色的背景上浮现着黑色的文字。

极简的风格特别适合部队的作风，李建国看着这两个配色，忍不住小声嘀咕，「副连长的审美真是不咋滴，虽然看着风格好看，这个配色太丑了，比军绿色差远了。」

张安邦耳朵微微一动，「老李，你嘀咕啥呢，虽然我没听清你说的是什麽，但是我感觉不像什麽好话。」

「啊，副连长，你没听见吗，我刚才看您这个电子台帐有的震惊，所以夸它好看来着。」李建国连磕巴都不打的就接上了话。

「是吗？」张安邦狐疑的看了一眼李建国，总感觉这老小子刚才说的不像是夸奖的话。

「好吧，我也觉得我这个背景图做的相当的大气简约，听没听说过那句话，简约不简单，说的就是这个。」张安邦竖着大拇指自夸道。

「副连长说的对，大气，您快跟我说说怎麽输入数据吧。」李建国嘿嘿一笑，快速的就要略过这个话题。

张安邦手把手的教给李建国该怎麽输入各类数据，半个小时过去，「建国，学会了吧，这个很简单的，你只需要注意好，保证所有数据的准确性，一点不能错。」

李建国点点头，「副连长，我学会了，您放心吧，我保证不会出错。」

「行，这里就交给你了，我出去活动活动。」

……

「哎，副连长，您在这里呢。」

一道声音从背后传来，张安邦扭头看去只见正是七连的司务长老赵，赵东来。

「老赵，我躲这麽严实都能碰到你，你这不像是无意中过来的吧。」

赵东来嘿嘿一笑，手里忙抽出塔山递过来一根，「副连长，我听说您给武器库那边弄了一个电子台帐，您看啥时候给咱们炊事班也弄一个啊。

我这采购的时候吧得按照现在的标准来计算，不过咱们现在的吃法还是按照过去的吃法来做的，毕竟这标准推行有一定的滞后期，这样咱们算起来很是麻烦，不小心还出错，您看……」