学习 SQL 语句 - Select(6): 字段运算
2009-05-28 16:12
387 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB; type TForm1 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; ADODataSet1: TADODataSet; Panel1: TPanel; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //计算人均面积, 计算支持 + - * / mod procedure TForm1.Button1Click(Sender: TObject); begin with ADODataSet1 do begin Close; CommandText := 'SELECT Name, Area / Population AS 人均面积 FROM country'; Open; end; end; procedure TForm1.FormCreate(Sender: TObject); var mdbFile: string; begin mdbFile := GetEnvironmentVariable('COMMONPROGRAMFILES'); mdbFile := mdbFile + '\CodeGear Shared\Data\dbdemos.mdb'; ADODataSet1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + mdbFile + ';Persist Security Info=False'; DBGrid1.DataSource := DataSource1; DataSource1.DataSet := ADODataSet1; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 407 ClientWidth = 626 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TDBGrid Left = 0 Top = 33 Width = 626 Height = 374 Align = alClient DataSource = DataSource1 TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] end object Panel1: TPanel Left = 0 Top = 0 Width = 626 Height = 33 Align = alTop Caption = 'Panel1' TabOrder = 1 object Button1: TButton Left = 6 Top = 5 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end end object DataSource1: TDataSource DataSet = ADODataSet1 Left = 184 Top = 112 end object ADODataSet1: TADODataSet CursorType = ctStatic Parameters = <> Left = 232 Top = 184 end end
相关文章推荐
- 学习 SQL 语句 - Select(6): 字段运算
- 学习 SQL 语句 - Select(5): 字段别名
- 学习 SQL 语句 - Select(5): 字段别名
- 学习 SQL 语句 - Select(2): 指定表中的字段
- 学习 SQL 语句 - Select(2): 指定表中的字段
- SQL基础学习(五)- MySQL的select语句
- 学习 SQL 语句 - Select(9): 其他
- 学习 SQL 语句 - Select(3): 条件查询与模糊查询
- 学习 SQL 语句 - Select(3): 条件查询与模糊查询
- Oracle 删除重复数据只留一条 查询及删除重复记录的SQL语句 1、查找表中多余的重复记录,重复记录是根据单个字段(Id)来判断 select * from 表 wher
- 动态SQL语句实现select指定字段不被查出
- 学习 SQL 语句 - Select(7): 分组统计之 Avg()、Sum()、Max()、Min()、Count()
- 学习 SQL 语句 - Select(4): 排序
- SQL语句学习笔记☞select(待完善...)
- 如何在sql/plus中把select语句查询显示出来的结果中的显示字段长度缩小
- 关于用sql语句select多个字段,该使用什么接收的解决办法
- 深入学习、理解select语句、delete语句以及其他SQL语句
- 学习 SQL 语句 - Select(4): 排序
- sql server 中select 语句groupby字段问题
- 学习 SQL 语句 - Select(7): 分组统计之 Avg()、Sum()、Max()、Min()、Count()