在前面的學習中,采用命令的操作方式來操作表。今天學習為DAL_CA加上UI操作界面。
在vfp中打開qiyuprj項目
表單類設置為Qiyu_form_Singcursor
感謝群裡的歐緣(254180823)老師,告訴如何設置表單類。
在主菜單中,找到工具,找到選項,找到表單
設定時,點開表單,在class文件夾下,點擊qiyu單筆維護,類名選擇qiuyu_form_singcursor,然後,點确定。
新建一個表單,拖入如下控件
設置表單的opcode為2,編輯模式
設置Qiyu_Grid_Soft1的RecordResource為DAL_Employees 的Alias别名,這裡為Employees
表單的LOAD方法中加入如下代碼
Thisform.Oca=Newobject(Dal_EmployeesDal_Employees.prg) If !Thisform.Oca.CursorFill(.T.) &&加載數據 Aerror(laerror) Messagebox(laerror(2)) Return 0 Endif
添加按鈕Click方法
Thisform.Oca.Add() Thisform.Refresh()
删除按鈕Click方法
thisform.Oca.delete()
保存按鈕Click方法
If Thisform.Oca.Save() Wait 保存成功 Windows Else Wait 保存失敗 Windows Endif
撤消按鈕Click方法
If Thisform.Oca.Undo()=0 Wait 撤消成功 Windows Endif
運行表單,即擁有了增删查改的功能
,
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!