2.4程序设计语言和编码
编码阶段的任务使根据详细设计说明书编写程序，程序设计语言的特性和程序设计风格会深刻地影响软件的质量和可文护性。为了保证程序编码的质量，程序员必须深刻理解、熟练掌握并正确运用程序设计语言的特性。此外，还要求程序具有良好的结构性和良好的程序设计风格。
该系统使用VB语言设计，Visual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。该系统的特点使用VB模板，使用者看着更加人性化。易于上手、容易操作。编码条例清晰，方便文修。
程序代码：
Private Sub ckkc_Click()
frmchakanku.Show 1
End Sub
Private Sub Form_Load()
Call
If ifmana = False Then
glyh.Enabled = False
hpcs.Enabled = False
xgzl.Enabled = False
xgmm.Enabled = False
tjzl.Enabled = False
sjbf.Enabled = False
End If
lblxianshi.Caption = mingzi
' Dim rs As New ADODB.Recordset
' Dim sql As String
' sql = "select * from admin where caozuoyuan='" & username & "'"
' rs.open sql, cn
' lblxianshi.Caption = rs!caozuoyuan
If ifmana = False Then
lblquanxian.Caption = "操作员"
Else
lblquanxian.Caption = "管理员"
End If
'' glyh.Enabled = False
End Sub
Private Sub glyh_Click()
frmuser.Show 1
End Sub
Private Sub hpcs_Click()
frmcanshu.Show 1
End Sub
Private Sub hpcx_Click()
frmchahuo.Show 1
End Sub
Private Sub jhd_Click()
frmjinhuo.Show 1
End Sub
Private Sub jhjl_Click()
frmjhjl.Show 1
End Sub
Private Sub jsb_Click()
Dim RetVal As String
RetVal = Shell("C:\WINDOWS\NOTEPAD.EXE", 1)
End Sub
Private Sub jsq_Click()
Dim RetVal As String
RetVal = Shell("C:\WINDOWS\system32\calc.exe", 1)
End Sub
Private Sub Picture1_Click()
End Sub
Private Sub sjbf_Click()
frmbeifen.Show 1
End Sub
Private Sub tccx_Click()
End
End Sub
Private Sub Timer1_Timer()
lbltime.Caption = Format(Date, "yyyy年mm月dd日")
'lbltime.Caption = Format(Date, "long date")
End Sub
Private Sub tjzl_Click()
frmyanzheng.Show 1
End Sub