大数据分析-Delphi数据库编程.pptx

Delphi数据库编程1 主要内容Delphi简介Ojbect Pascal语法基础Delphi控件编程Delphi的数据库操作控件Delphi数据库ADO编程2 Delphi简介3使用Object Pascal语言通过控件拖放直接创建Windows应用可快速编写数据库应用程序 Object Pascal语法基础4主要数据类型变量定义与赋值程序控制语句ifwhilefor过程与函数 语法基础—主要数据类型5数据类型范围字节数说明Integer-2147483648~21474836474整型int64-263~263-1864位整型Boolean0或11布尔型String长度没有限制字符串Record记录Pointer指针 语法基础—常用运算符6赋值：:=比较：=, <>, >, <, >=, <=逻辑：and, or, not算数运算：+, -, *, /, div, mod字符串合并：+ 语法基础—注释方法7{......}(*......*)//...... 编写字符界面应用file->new->other...->选择Console Application8 语法基础—变量定义与赋值9program ProjTest;{$APPTYPE CONSOLE}usesSysUtils;////////////////////////////// 以上为自动生成部分 var a,b,c:integer; //变量定义begin{ TODO -oUser -cConsole Main : Insert code here }//变量赋值//显示结果//等待输入a:=1;b:=2;c:=a+b; writeLn(IntToStr(c)); readLn;end. 语法基础—if语句10var a,b:integer; begina:=1;b:=2;if(a>b) thenwriteLn(IntToStr(a)) elsewriteLn(IntToStr(b)); readLn;end. 语法基础—while语句writeLn(IntToStr(sum));readLn; end.11var i,sum:integer; begini:=1;sum:=0;while i<=100 do beginsum:=sum+i; i:=i+1;end; 语法基础—for语句writeLn(IntToStr(sum));readLn; end.12var i,sum:integer; begini:=1;sum:=0;for i:=1 to 100 do beginsum:=sum+i;//i:=i+1; end; Delphi控件编程—简介13 控件编程--显示“Hello, world.”1. 新建“Application”2. 把按钮控件，拖到窗体上14 3. 双击按钮，编写代码procedure TForm1.Button1Click(Sender: TObject); beginShowMessage("Hello,world!"); end;4. 运行15 5. 运行结果16 在窗体和代码编辑器间切换17 控件编程—加法计算器编辑框：num1Edit，num2Edit标签：sumLab按钮：button118 按钮单击事件对应代码19procedure TForm1.Button1Click(Sender: TObject);var n1,n2,sum:integer;beginn1:=StrToInt(num1Edit.text);n2:=StrToInt(num2Edit.Text);sum:=n1+n2;sumLab.Caption:=IntToStr(sum);end; 练习20用两个整数指定范围求这个范围内自然数的和 procedure TForm1.Button1Click(Sender: TObject);var i,n1,n2,sum:integer;beginn1:=StrToInt(num1Edit.text);n2:=StrToInt(num2Edit.Text);sum:=0;for i:=n1 to n2 dobeginsum:=sum+i;end;sumLab.Caption:=IntToStr(sum); 12.end;21 数据库编程22简介主要方式使用ADO 使用ADO23ODBC，OLEDB，ADO介绍连接数据库执行SQL显示查询结果 ADO控件24 ADO—使用ADOConnection控件dbExpress25 ADO—设置连接字符串26procedure TForm1.FormCreate(Sender: TObject);beginconn.ConnectionString:="Provi