加强党务干部队伍建设:有没有学过数据库的高手呀~

我要做一个采购数据管理的窗体
框架做好了,就是不会编程~!
是很基础的东西,我学校实训用的,不是公司里用的,有知道的朋友请找我,我把资料发给大家帮我看看!@!急用!在线等qq:32112995(注明:编程)
大概就是这样一些程序:
Private Sub Combo_ID2_LostFocus()
Me![ID].SetFocus
DoCmd.FindRecord Me![Combo_ID2], , True, , True
Me![Text_MODEL2] = Me![MODEL]
Me![Text_DW2] = Me![DW]
Me![Text_NAME2] = Me![NAME]
Me![Text_DATE2] = Date
Me![Text_DJ2] = 0#
Me![Text_SL2] = 0
End Sub

Private Sub Text_DJ2_AfterUpdate()
Me![Text_JE2] = Me![Text_DJ2] * Me![Text_SL2]
End Sub

Private Sub Text_SL2_AfterUpdate()
Me![Text_JE2] = Me![Text_DJ2] * Me![Text_SL2]
End Sub

Private Sub cancel_Click()
Me![Text_DJ2] = 0
Me![Text_SL2] = 0
Me![Text_JE2] = 0
Me!Combo_GZRY2 = Null
End Sub

Private Sub exit_Click()
On Error GoTo Err_exit_Click
DoCmd.Close
Exit_exit_Click:
Exit Sub
Err_exit_Click:
MsgBox Err.Description
Resume Exit_exit_Click
End Sub

Private Sub insert_Click()
On Error GoTo Err_insert_Click
If Me![Text_JE2] <> 0 Then
Me![进货数据记录 子窗体].SetFocus
DoCmd.GoToRecord , , acNewRec
Me![进货数据记录 子窗体]![货号] = Me![Combo_ID2]
Me![进货数据记录 子窗体]![货名] = Me![Text_NAME2]
Me![进货数据记录 子窗体]![规格] = Me![Text_MODEL2]
Me![进货数据记录 子窗体]![单位] = Me![Text_DW2]
Me![进货数据记录 子窗体]![进货单价] = Me![Text_DJ2]
Me![进货数据记录 子窗体]![数量] = Me![Text_SL2]
Me![进货数据记录 子窗体]![采购日期] = Me![Text_DATE2]
Me![进货数据记录 子窗体]![采购人员] = Me![Combo_GZRY2]
Me.SetFocus
End If
Me![Text_DJ2] = 0#
Me![Text_SL2] = 0
Me![Text_JE2] = 0#
Exit_insert_Click:
xit Sub
Err_insert_Click:
sgBox Err.Description
Resume Exit_insert_Click
End Sub