tft每日頭條

 > 寵物

 > 學貓跳躍合集

學貓跳躍合集

寵物 更新时间:2024-09-18 21:40:19

  在前面的學習中,采用命令的操作方式來操作表。今天學習為DAL_CA加上UI操作界面。

  在vfp中打開qiyuprj項目

  表單類設置為Qiyu_form_Singcursor

  感謝群裡的歐緣(254180823)老師,告訴如何設置表單類。

  在主菜單中,找到工具,找到選項,找到表單

  學貓跳躍合集(我的學貓框之路006)(1)

  設定時,點開表單,在class文件夾下,點擊qiyu單筆維護,類名選擇qiuyu_form_singcursor,然後,點确定。

  學貓跳躍合集(我的學貓框之路006)(2)

  新建一個表單,拖入如下控件

  學貓跳躍合集(我的學貓框之路006)(3)

  設置表單的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

  運行表單,即擁有了增删查改的功能

  學貓跳躍合集(我的學貓框之路006)(4)

  ,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关寵物资讯推荐

热门寵物资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved