医药GSP管理系统 第3页

Class_frm::load    &&在子类中引用父类的方法

程序中应用了API函数时，应在表单的Load事件中进行函数声明，代码如下：

Declare integer GetSystemMetrics in user32 integer nIndex   &&API函数声明

在表单的Init事件中设置收缩后的功能子菜单的代码如下：

*设置收缩后的侧菜单

Thisform.Img_EB_1.height=Thisform.Height-300

Thisform.Img_B_1.Top=THisform.Height-Thisform.Img_b_1.Height-8

Thisform.Img_EB_1.visible=.f.

Thisform.Img_B_1.visible=.f.

Thisform.Img_C_1.visible=.f.

Thisform.Img_E_1.visible=.f.

在表单Init事件中利用ListView控件显示操作员的可用功能子菜单的代码如下：

*初始化ListView控件

  Thisform.Listview1.BackColor=RGB(239,247,255)

This.Listview1.listitems.clear

this.listview1.view=2          &&设置视图显示方式

this.listview1.Icons=this.imagelist1.object

this.listview1.smallicons=this.imagelist1.object

&&添加列表项--根据操作员权限设置可用的功能项

Select Tab_User

  Locate For 操作员=UserName

Select * From Tab_Purview Where 操作员编号=Tab_User.操作员编号 ;

 Into Cursor Temp_Purview

  Select 0

Select * From Tab_Function Where 上级编号=1 Into Cursor Temp_Function

Do While !EOF()

        Select Temp_Function

        key=Alltrim(Temp_Function.名称)

        Select Temp_Purview

        If Temp_Purview.&key.=.T.

                =ThisForm.listview1.listitems.add(,,key,,1)

        Endif

        Select Temp_Function

        SKIP

EndDo

在表单Activate事件中添加如下代码设置程序主界面根据屏幕分辨率自动设置大小。

thisform.width=GetSystemMetrics(0)   &&获取屏幕的宽度

thisform.height=GetSystemMetrics(1)-24   &&获取屏幕的高度

Class_frm::Init    &&在子类中引用父类的方法

通过ListView控件调用相应的表单的程序代码如下：

fname=alltrim(thisform.listview1.selecteditem.text)

do form form\&fname     &&通过变量调入表单

在“销售管理”按钮的Button_Click事件中加入如下代码显示销售管理功能子菜单。

Thisform.Left_Title.Caption="销售管理"

Thisform.Listview1.listitems.clear  &&清空ListView控件

&&添加列表项

Select Tab_User

Locat For 操作员=UserName

Select * From Tab_Purview Where 操作员编号=Tab_User.操作员编号 Into Cursor Temp_Purview

Select 0

Select * From Tab_Function Where 上级编号=3 Into Cursor Temp_Function

Do While !EOF()

        Select Temp_Function

        key=Alltrim(Temp_Function.名称)

        Select Temp_Purview

        If Temp_Purview.&key.=.T.

                =ThisForm.listview1.listitems.add(,,key,,1)

        Endif

        Select Temp_Function

        SKIP

EndDo

4.2  药品信息管理

用户单击导航功能按钮中的“基础信息管理”按钮，在功能子菜单中选择“药品信息管理”菜单项，进入“药品信息管理”界面，该界面运行结果如图3所示。若图片无法显示请联系QQ752018766

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