高手进来帮忙做个VF6.0作业

六、数据库设计

原则上，数据库设计是指定系统中所有数据库文件及相关文件的逻辑结构与存储结构。本系统数据库的组成如图4

假定通过调查、分析，已经得到某商店的服装销售系统信息，为了使用的方便，也为了提高二维表的范式，我们建立五个主要的数据表，它们的结构如下。

工资表的结构

字段 字段类型 宽度 索引

工号 C 6 主索引

姓名 C 8

账号 C 10

应发工资 N 8 2

代扣项目 N 8 2

实发工资 N 8 2

职工情况表的结构

字段 字段类型 宽度 索引

工号 C 6 普通索引

姓名 C 8

性别 C 2

出生年月 D 8

部门 C 8

职位 C 8

籍贯 C 10

代扣项目表的结构

字段 字段类型 宽度 索引

工号 C 10 普通索引

姓名 C 8

水电费 N 6 2

社会保险 N 6 2

个人所得税 N 6 2

代扣项目合计 C 8 2

应发工资表的结构

字段 字段类型 宽度 索引

工号 C 10 普通索引

姓名 C 8

基本工资 N 8 2

误餐补贴 N 8

加班补贴 N 8 2

奖金 N 8 2

代扣项目合计 N 8 2

口令表的结构

字段 字段类型 宽度 索引

用户 C 10

口令 c 6

七、创建数据库

主界面如下

利用菜单选取项中工具栏按钮打开“新建”对话框，指定建立数据库文件，单击“新建”按钮，并给出数据文件名为：工资管理系统dbc,一个数据库文件就建立好了。形式如下图。

建立数据表

创建数据表：工资dbf、职工情况dbf、代扣项目dbf、应发工资dbf、口令dbf

在数据库中“数据库”菜单项，或者快捷菜单的“新建表”选项打开表设计器，在设计器窗口中分别键入各字段名、类型、宽度及小数位数值。结果如图所示

例：

工资dbf表

八、程序设计

程序设计是系统实施阶段贩核心工作，也是主要内容。本作业是基于VFP60的开发环境下进行的。通过使用“应用程序生成器向导”各“项目管理器”等编程工具来实现模块和功能。系统初始界面及其程序

本系统的初始界面如下所述：一个系统应当有一个生动的初始界面，同时还应当能够控制使用该系统的人员，

正确选择 *** 作员输入允许的口令后，单击“确定”按钮打开系统。

“确认”按钮的响应程序如下 。

f lenc(allt(thisformtext1value))#0andlenc(allt(thisformtext2value))#0 then

close database

open database("口令dbc")

use 口令dbf

store 0 to ncount

locate for allt(用户)=allt(thisformtext1value)

do while found()

if allt(口令)=allt(thisformtext2value) then

ncount=recno()

endif

continue

enddo

if ncount>0 then

thisformrelease

do 工资管理系统mpr

else

messagebox("您输入的用户名和口令能错误，请退出!","错误窗口")

endif

use

else

messagebox("请输入用户名和口令!","提示窗口")

thisformtext2value=""

thisformtext1setfocus

endif

系统主控界面

系统以菜单方式 *** 作。

系统的主控程序

整个系统由主控程序 主程序prg调度。该程序内容如下：

et talk off

set safe off

set date ansi

set hours to 24

set cent on

set path to curdir()

_screenvisible=t

_screenautocenter=t

_screenwindowstate=2

do form 欢迎scx

read events

set sysmenu to defa

set talk on

set safety on

close all

clear all

clear windows

clear event

cancel

这个实例是企业工资管理系统

那个高手可以变一个比如说

水果批发系统只要跟上面的不一样就行

Locate 的函数的原型定义如下：

function Locate(const KeyFields: String; const KeyValues:Variant;Options: TLocateOptions): Boolean;

其中，第3个参数定义如下：

TLocateOption = (loCaseInsensitive, loPartialKey);

loCaseInsensitive 表示查找数据不分大小写；loPartialKey 表示以部分字符串来查寻数据。

缺省情况下，即第3个参数为 [] 时，此时要求查找要与目标字符完全匹配。

因此，假设 Name 字段中有  ForYouTou 的记录时：

locate('Name','You',[]) 是查找不到该条记录的。

可以尝试使用以下代码：

tbl1Locate('Name','You',[loCaseInsensitive, loPartialKey]);

以上就是关于高手进来帮忙做个VF6.0作业全部的内容，包括:高手进来帮忙做个VF6.0作业、delphi中有个locate函数，有个疑惑，不清楚他是全字匹配还是像数据库中的like、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！