Delphi_学习1_安装完毕进入界面

本文档介绍了如何使用Delphi进行VCL应用开发的基础步骤,包括新建项目、设置平台、添加控件和数据库组件,以及如何连接和操作数据库。通过实例展示了从创建一个空白界面,到添加按钮、设置数据源、数据集和数据网格,以及打开数据库连接的过程。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

程序 = File + New + VCL_Application + 运行

---------------------------------------------------------------

拉动有右下角的小界面,移动到哪程序窗口就在哪出现

-----------------------------------------------

添加按钮 = 右下角 + Palette + Standard + TButton + Quick_Edit + Caption

----------------------------------------

win64 = 右上角 + Projects + Target_Platforms + Add_Platforms

----------------------------------------------------------

Delphi相关的四个文件

.cfg, .dof, .dpr, .res

.dpr是工程必备不可缺

.res是资源文件

.exe是可执行文件

.pas为源代码文件

.dcu是编译文件(由.pas生成)

.dfm为窗体文件

--------------------------------------------------------

打开一个工程 = File + Open_Project + .dproj

----------------------------------------------------------

Palette内的为控件

分为可视化控件和非可视化控件

可以增加第三方控件

--------------------------------------------------------

打开New_Items = File + New + Other

---------------------------------------------------

Application_新建应用程序

Unit_新建单元

Form_新建窗体

Frame_新建隐性窗体

DataModule_新建数据模块

DLL_新建动态链接库

Package_新建包

----------------------------------------------------------

TADODataSet = 右下角 + Palette + dbGo

---------------------------------------------------------

TDataSource = 右下角 + Palette + Data_Access

-----------------------------------------------------------

TDBGrid = 右下角 + Palette + Data_Controls

-------------------------------------------------------

数据库控件_三剑客

TADODataSet

TDataSource

TDBGrid

----------------------------------------------

TADODataSet介绍

属性:

Active_激活控件

ConnectString_数据源连接符

CommandText_SQL文本集

事件:

Open/ Close_打开/关闭数据集

Insert_插入数据

Append_追加数据

Post_保存数据

Cancel_取消保存数据

Delete_删除数据

-------------------------------------------------------

属性&事件 = 左下角 + Object_Inspector + Properties&Events

----------------------------------------------------------

连接数据库 = TADODataSet + 左下角 + Object_Inspector + Properties + ConnectString + Build

----------------------------------------------------------

指定DataSet = TDataSource+ 左下角 + Object_Inspector + Properties + DataSet

-----------------------------------------------------------------

指定DataSource = DBGrid + 左下角 + Object_Inspector + Properties + DataSource

-------------------------------------------------------------

使数据库连接活跃 = TADODataSet + 左下角 + Object_Inspector + Properties + Active✔

---------------------------------------------------------

添加表中的列 = DBGrid + 左下角 + Object_Inspector + Properties + Columms + 点击添加 + FieldName

-----------------------------------------------------------

自定义列名 = DBGrid + 左下角 + Object_Inspector + Properties + Columms + 点击添加 + Title + Caption

----------------------------------------------------------

按钮获取数据 = TButton + 左下角 + Object_Inspector + Events + OnClick

------------------------------------------------------------

打开数据库连接_ShuJuKuLianJie.Open

-------------------------------------------------------------

*相关程序_Project1.dproj

----------------------------------------------

 

Delphi获取Windows版本号、描述等信息,可获取到主版本号、次版本号、系统描述、系统平台、构建号等,相关代码如下:   //设置版本信息结构的大小    GetVersionEx(OSVI);    //获取版本信息    is98orlater:=    //判断是否98或以后版本    (osvi.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and    ((osvi.dwMajorVersion>4) or    ((osvi.dwMajorVersion=4) and (osvi.dwMinorVersion>0)));   //DOWNLOAD BY HTTP://WWW.CODEFANS.NET    //下面开始显示信息    case OSVI.dwPlatformId of    //根据OSVI.dwPlatformId的数值的不同显示具体的平台描述    VER_PLATFORM_WIN32s:    // Windows 3.1平台    s:='Windows 3.1';    VER_PLATFORM_WIN32_WINDOWS:    // Windows 95/98平台    if(is98orlater) then    //98    s:='Windows 98'    else    //95    s:='Windows 95';    VER_PLATFORM_WIN32_NT:    // Windows NT平台    s:='Windows NT/XP';    end;    Edit1.Text:=s;    Edit2.Text:=IntToStr(OSVI.dwMajorVersion);    Edit3.Text:=IntToStr(OSVI.dwMinorVersion);    case OSVI.dwPlatformId of    //根据平台的不同具体处理OSVI.dwBuildNumber信息    VER_PLATFORM_WIN32_WINDOWS:    // Windows 95/98平台则取OSVI.dwBuildNumber的低位字    Edit4.Text:=IntToStr(LOWORD(OSVI.dwBuildNumber));    VER_PLATFORM_WIN32_NT:    // Windows NT平台则取所有位的值    Edit4.Text:=IntToStr(OSVI.dwBuildNumber);    else    Edit4.Text:='';   // Windows 3.1平台此值位空    end;    Edit5.Text:=OSVI.szCSDVersion;   end;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值