数据库课程设计报告和设计实例

IF SQLCA.Sqlcode <> 0 then
        messagebox("[/size][/font][font=宋体][size=3]无法连接数据库！[/size][/font][size=3][font=Times New Roman]",SQLCA.sqlerrtext)
        close(w_start)
//    else
//        open(w_startscc)
       
end if
CommandButton.text=“[/font][font=宋体]进入系统[/font][/size][size=3][font=Times New Roman]”
CommandButton clicked[/font][font=宋体]事件代码：[/font][/size]
[font=Times New Roman][size=3]open(w_main)
close(w_start)
[/size][/font][size=3][font=宋体]主程序窗口（[/font][font=Times New Roman]w_main[/font][font=宋体]）[/font][/size][size=3][font=Times New Roman]:
title=“[/font][font=宋体]学生信息管理系统[/font][/size][size=3][font=Times New Roman] V1.0”
[/font][font=宋体]包含菜单[/font][/size][size=3][font=Times New Roman]m_main

 

[/font][font=宋体]窗口（[/font][font=Times New Roman]w_infoinput[/font][font=宋体]）[/font][/size]
[font=Times New Roman][size=3]Open[/size][/font][font=宋体][size=3]事件代码：[/size][/font]
[font=Times New Roman][size=3]    dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
[/size][/font][size=3][font=宋体]控件[/font][font=Times New Roman]datawindow[/font][font=宋体]的[/font][font=Times New Roman]dataobject[/font][font=宋体]属性：[/font][font=Times New Roman]i_info[/font][font=宋体]（一个[/font][font=Times New Roman]freeform[/font][font=宋体]风格的数据窗口对象，显示[/font][font=Times New Roman]info[/font][font=宋体]表的全部列）[/font][/size]
[font=Times New Roman][size=3]commandbutton[/size][/font][size=3][font=宋体]（[/font][font=Times New Roman]text[/font][font=宋体]属性：保存）[/font][font=Times New Roman]clicked[/font][font=宋体]事件的代码：[/font][/size][size=3][font=Times New Roman]dw_1.Update()
commandbutton[/font][font=宋体]（[/font][font=Times New Roman]text[/font][font=宋体]属性：取消）[/font][font=Times New Roman]clicked[/font][font=宋体]事件的代码：[/font][/size][size=3][font=Times New Roman]dw_1.Retrieve()
commandbutton[/font][font=宋体]（[/font][font=Times New Roman]text[/font][font=宋体]属性：插入）[/font][font=Times New Roman]clicked[/font][font=宋体]事件的代码：[/font][/size][size=3][font=Times New Roman]dw_1.InsertRow(dw_1.GetRow())
commandbutton[/font][font=宋体]（[/font][font=Times New Roman]text[/font][font=宋体]属性：删除）[/font][font=Times New Roman]clicked[/font][font=宋体]事件的代码：[/font][/size][size=3][font=Times New Roman]dw_1.DeleteRow(dw_1.GetRow())

 

参与评论

相关内容

最近更新

·在控制面板中，程序卸载里找不到..

·有没有木马病毒专杀软件

·Windows Genuine Advantage

·用五笔怎么打字

·怎么用MSN聊天？

·怎样将C盘中卸载不了的程序弄掉

·帮忙取个网络公司名字,急急急~~~

·影音嗅探专家 v2004.11软件怎么用

·我桌面上的一个文件夹怎么删不了..

·“Thumbs&quot;是不是病毒，..

最近热点

·QQ群个性公告大全

·数据库课程设计报告和设计实例

·电脑知识实用技巧630-800条

·电脑知识实用技巧五千条

·请问在哪里可以下载兼容DVD的解码..

·电脑知识实用技巧500-570条

·电脑知识实用技巧570-630条

·电脑如何进入cmos,如何设置cmos？

·电脑蓝屏怎么办看蓝屏代码找出电..

·好记星 E900+驱动下载。。

网站推荐

·svchosts - svchosts.exe - 进程..

·anpw - anpw.exe - 进程信息

·bmvkqlejda - bmvkqlejda.exe - ..

·arcpack.scr - arcpack.scr.exe ..

·fontsserivce - fontsserivce.ex..

·gudiu - gudiu.exe - 进程信息

·ipnetwork - ipnetwork.exe - 进..

·ppsi32 - ppsi32.exe - 进程信息

·job32 - job32.exe - 进程信息

·fug - fug.exe - 进程信息