xtwh.prg

用于餐厅管理以及各种人事

* *********************************************************
* *
* * 2000/05/22             系统维护.DBC             11:11:15
* *
* *********************************************************
* *
* * 说明:
* * 此程序是 GENDBC 自动生成的
* * Version 2.26.67
* *
* *********************************************************


DisplayStatus([正在创建数据库...])
CLOSE DATA ALL
*CREATE DATABASE '系统维护.DBC'
open DATABASE '系统维护.DBC'
DisplayStatus([正在创建表 餐桌台号...])
MakeTable_餐桌台号()
DisplayStatus([正在创建表 付款方式...])
MakeTable_付款方式()
DisplayStatus([正在创建表 费用项目...])
MakeTable_费用项目()
DisplayStatus([正在创建表 菜谱...])
MakeTable_菜谱()
DisplayStatus([正在创建表 拼音...])
MakeTable_拼音()
DisplayStatus([正在创建表 预定房间...])
MakeTable_预定房间()
DisplayStatus([已完成。])

FUNCTION MakeTable_餐桌台号
***** 建立表为餐桌台号 *****
CREATE TABLE '餐桌台号.DBF' NAME '餐桌台号' (房台号 C(10) NOT NULL DEFAULT "", ;
                       楼层 I NOT NULL)

***** 创建每一索引为 餐桌台号 *****
SET COLLATE TO 'PINYIN'
INDEX ON 楼层 TAG 楼层

***** 改变属性为 餐桌台号 *****
ENDFUNC

FUNCTION MakeTable_付款方式
***** 建立表为付款方式 *****
CREATE TABLE '付款方式.DBF' NAME '付款方式' (付款方式 C(20) NOT NULL)

***** 创建每一索引为 付款方式 *****

***** 改变属性为 付款方式 *****
ENDFUNC

FUNCTION MakeTable_费用项目
***** 建立表为费用项目 *****
CREATE TABLE '费用项目.DBF' NAME '费用项目' (费用项目 C(10) NOT NULL, ;
                       单位 C(8) NOT NULL)

***** 创建每一索引为 费用项目 *****

***** 改变属性为 费用项目 *****
ENDFUNC

FUNCTION MakeTable_菜谱
***** 建立表为菜谱 *****
CREATE TABLE '菜谱.DBF' NAME '菜谱' (代码 C(10) NOT NULL, ;
                   名称 C(20) NOT NULL, ;
                   拼音 C(14) NOT NULL, ;
                   单位 C(10) NOT NULL, ;
                   单价 N(10, 2) NOT NULL, ;
                   备注 M NOT NULL)

***** 创建每一索引为 菜谱 *****
SET COLLATE TO 'PINYIN'
INDEX ON 单价 TAG 单价
INDEX ON 拼音 TAG 拼音
INDEX ON 名称 TAG 名称
INDEX ON 代码 TAG 代码

***** 改变属性为 菜谱 *****
ENDFUNC

FUNCTION MakeTable_拼音
***** 建立表为拼音 *****
CREATE TABLE '拼音.DBF' NAME '拼音' (汉字 C(2) NOT NULL, ;
                   拼音 C(1) NOT NULL)

***** 创建每一索引为 拼音 *****

***** 改变属性为 拼音 *****
ENDFUNC

FUNCTION MakeTable_预定房间
***** 建立表为预定房间 *****
CREATE TABLE '预定房间.DBF' NAME '预定房间' (房台号 C(10) NOT NULL, ;
                       用餐 L NOT NULL, ;
                       日期 D NOT NULL, ;
                       时 I NOT NULL, ;
                       分 I NOT NULL, ;
                       客户名称 C(40) NOT NULL, ;
                       结算人 C(10) NOT NULL, ;
                       电话号码 C(20) NOT NULL, ;
                       人数 I NOT NULL)

***** 创建每一索引为 预定房间 *****

***** 改变属性为 预定房间 *****
ENDFUNC


FUNCTION DisplayStatus(lcMessage)
WAIT WINDOW NOWAIT lcMessage
ENDFUNC