vb客户管理系统(论文+源程序) 第4页
详细设计
6.1 主窗体的设计
1. 创建工程项目——CustomerManagementSystem
    启动Visual Basic 6.0 后，单击文件|新建工程|，如图下图对话框中选择标准EXE，Visual Basic 6.0将自动生成工程文件。将这个工程项目命名为CustomerManagementSystem。
                               图6.1 创建CustomerManagementSystem项目 
2.创建主窗体界面设计如图6.2所示：
 图6.2 系统主窗体
3.创建公用模块
    由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此通过使用模块可以减少程序代码量。本设计该系统工程中，将通用的代码（如数据库连接、ToolBar控件的通用代码以及公共的全局变量等）都集中放置在一个数据模块Mdl_Link中，这样可以提高编程效率。其模块主要代码如6.1代码所示；
Public PublicStr As String   '定义公共变量用于ADO控件的数据连接，使程序模块化
Public sql As String   '定义字符变量存储SQL语句
Public Tb As String    '存储表名
Public Myflag As Boolean   '标识
Public Sign As Boolean
Public Function cnn() As ADODB.Connection     '定义函数
  Set cnn = New ADODB.Connection
   cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=data_cggl"
  PublicStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=data_cggl"
End Function
'定义设置Toolbar控件上按钮状态的函数
Public Function tlbState(tlb As Toolbar, state As Boolean)
  With tlb
    If state = True Then   '如果状态变量为True
       .Buttons(1).Enabled = False
       .Buttons(2).Enabled = False
       .Buttons(3).Enabled = False
       .Buttons(6).Enabled = False
       .Buttons(4).Enabled = True
       .Buttons(5).Enabled = True
    Else          '如果状态变量为False
       .Buttons(1).Enabled = True
       .Buttons(2).Enabled = True
       .Buttons(3).Enabled = True
       .Buttons(6).Enabled = True
       .Buttons(4).Enabled = False
       .Buttons(5).Enabled = False
     End If
   End With
End Function
Public Function ESQL(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=data_cggl"
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ESQL = rs
End Function
Public Function MyPath(expression As String, delimiter As String) As String    '取出文件夹后剩下的路径
  Dim vstr As Variant
  Dim str(10) As String
  Dim i As Integer
  For i = 0 To UBound(Split(expression, delimiter))
      vstr = Split(expression, delimiter)
      MyPath = vstr(0)
  Next i
End Function
6.1 公共模块设计代码
6.2 系统管理模块的创建
系统管理模块主要实现功能如下，各部分实现窗体如如6.3-6.6所示：
1、操作员管理
2、操作员密码修改3、数据备份4、数据恢复5、操作员权限设置

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页