一、
一、命令方式:啟動Visual Foxpro系統后,在命令窗口中輸入
CREATE PROJECT 庫存管理 && 保留字可以取前四個字母
二、可以使用菜單方式進行建立
1. 單擊“文件\新建”命令項,彈出“新建”對話框。
2. 在“新建”對話框中,選擇“項目”單選鈕,再按“新建文件”按鈕,彈出“創(chuàng)建”對話框。
3. 在“創(chuàng)建”對話框中輸入項目文件名“飯店管理”,再按回車鍵或按“保存”按鈕,這樣就可以建立項目文件了,并出現“項目管理器”對話框。
1. 打開項目“庫存管理”,在項目管理器中的“數據”選項卡中,選擇“數據庫”,單擊“新建”按鈕。
2. 在“新建數據庫”對話框中,再單擊“新建數據庫”按鈕。
3. 在“創(chuàng)建”對話框中,選定考生文件夾,在“數據庫名”中輸入“使用零件情況”,然后單擊“保存”命令按鈕即可。
方法一:
1. 打開并修改數據庫
MODIFY DATABASE 使用零件情況
2. 在“數據庫設計器-使用零件情況”中,選擇表“零件信息”并單擊鼠標右鍵,選擇“修改”命令項。
3. 在“表設計器-零件信息.dbf”中,在結構的最后處輸入字段名為“規(guī)格”,然后選擇類型為“字符型”并輸入寬度“8”,并單擊“確定”按鈕即可。
方法二:
使用命令增加字段
ALTER TABLE 零件信息 ADD COLUMN 規(guī)格 C(8)
1. 打開并修改菜單文件
MODIFY MENU mymenu
2. 在菜單名稱“文件”行處,單擊“編輯”按鈕,將顯示“文件”菜單下的子菜單項“查找”和“替換”。
3. 在菜單名稱“查找”行處,單擊“選項”下的按鈕,接著顯示“提示選項”對話框,再把插入點移至“鍵標簽”處,再按“Ctrl+T”鍵即可。
二、
在item.txt文件存放如下內容
select 項目信息.項目號,項目名,使用零件.零件號,零件名稱 ;
from 項目信息,使用零件,零件信息 where 項目信息.項目號=使用零件.項目號;
and 使用零件.零件號=零件信息.零件號 and 使用零件.零件號 in ;
(select 零件號 from 使用零件 where 使用零件.項目號='s1') into dbf item_temp;
order by 項目信息.項目號 desc
1. 打開并修改數據庫
MODIFY DATABASE 使用零件情況
2. 單擊“文件\新建”菜單項,在“新建”對話框中選擇“視圖”單選鈕,再單擊“新建文件”。在“添加表或視圖”對話框中,雙擊表“零件信息”(或單擊選中表“零件信息”,接著單擊“添加”按鈕),再雙擊表“使用零件”,在“聯接條件”對話框中直接單擊“確定”按鈕,再雙擊表“項目信息”,在“聯接條件”對話框中直接單擊“確定”按鈕,把這三個表文件添加到“視圖設計器”中,接著單擊“關閉”按鈕,來關閉“添加表或視圖”對話框。
3. 單擊“字段”選項卡,選擇試題要求的字段添加到“選定字段”列表框中。
4. 單擊“篩選”選項卡,在“字段名”處選擇“項目信息.項目號”,在“條件”處選擇“=”,在“實例”處輸入“"s2"”。
5. 單擊“排序依據”選項卡,選擇“項目信息.項目號”并選擇“升序”,接著單擊“添加”按鈕。
6. 保存該視圖,在“保存”對話框中輸入視圖名“view_item”。
三、
1. 在命令窗口中輸入建立表單命令
CREATE FORM form_item
2. 在“表單設計器”中,在“屬性”的Caption處輸入“使用零件情況統計”,在Name處輸入“form_item”。
3. 雙擊Load Event事件處,在“form_item.Load”輸入下列語句。
public ma(3),cox
open database 使用零件情況
cox=1
ma(1)="s1"
ma(2)="s2"
ma(3)="s3"
4. 雙擊Destroy Event事件處,在“form_item.Destroy”輸入下列語句。
release cox ,ma
close database
5. 在“表單設計器”中,添加一個組合框控件,在RowSource處輸入“ma”,在RowSourceType處選擇“5 - 數組”,在ControlSource處輸入“cox”,在Style處選擇“2 - 下拉列表框”。
6. 在“表單設計器”中,添加一個文本框Text1和添加兩個命令按鈕,在第1個命令按鈕“屬性”的Caption處輸入“統計”,在第2個命令按鈕“屬性”窗口的Caption處輸入“退出”。
7. 雙擊“統計”按鈕,在“Command1.Click”編輯窗口中編寫相應的程序
select sum(單價*數量) from 項目信息,使用零件,零件信息 where 項目信息.項目號=使用零件.項目號;
and 使用零件.零件號=零件信息.零件號 ;
and 使用零件.項目號=ma(cox);
into array a
form_item.text1.value=a[1]
8. 雙擊“退出”命令按鈕,在“Command2.Click”編輯窗口中輸入“Release Thisform”,并關閉編輯窗口。
相關推薦:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |