第一个例子的创建,各种标签的使用
1. Pascal语言
VAR I:integer;――――――――//定义整数http://10.1.20.82:8088/JianYanJu/QueryPage.jsp?sql=selec VAR变量定义要放在begin前面
Str,str2:Stirng;――――――――――//定义字符串
sql2:=' where '+sql2;字符串连接
:if 条件 then begin语句;end;
If 条件 then
Begin
语句;
End
Else if 条件then
Begin
End;
2.各 form互相调用implementation uses unit3;
3.数据库设置;query1.DatabaseName:=ExtractFilePath(Application.Exename);//返回当前目录
4,Query组件//执行查询
Query1.Close;Query1.SQL.Clear; Query1.SQL.Add('select * from '+college+edutime);
Query1.Open;
query1.Prior; //向前一条
query1.Next; //向后一条
5.数据库记录总数inttoStr(query1.RecordCount);
6.显示窗体Unit11.Form11.Show;
7.文件复制
var
FromF,ToF:file;
filepath:String;
NumRead,NumWritten:Integer;
Buf:array[1..2048] of Char;
begin
filepath:=ExtractFilePath(Application.Exename);
if opendialog1.Execute then
begin//22
AssignFile(FromF,opendialog1.FileName);Reset(FromF,1);{Record size=1}
if SaveDialog1.Execute then
begin//3
AssignFile(ToF, SaveDialog1.FileName);//打开目标文件
Rewrite(ToF,1);//移动到文件开始处
Canvas.TextOut(10,10,'正在拷贝'+IntToStr(FileSize(FromF))+'字节...');
repeat
BlockRead(FromF,Buf,SizeOf(Buf),NumRead);
BlockWrite(ToF,Buf,NumRead,NumWritten);
until(NumRead=0)or(NumWritten<>NumRead);//重复读入缓冲区,并写入文件,一直到文件结束
CloseFile(FromF);CloseFile(ToF);//关闭文件End;//3
http://doc.xuehai.netboBox组件ComboBox2.Items.Add('学号');
11.fastreport打印dbgrid内容 dbgrid打印
用fastreport中的frPrintGrid组件,设置它的dbgrid属性为dbgrid1,然后调用frPrintGrid1.ShowReport;
12.窗口显示位置
Cunminxinxi.Form4.left:=200;
Cunminxinxi.Form4.top:=200;
10.ListBox组件: //添加元素with ListBox1 do
begin //1
if RadioButton1.Checked then
begin //2
with ListBox1 do
begin //3
delphi学习总结--创建ocx_IT/计算机_专业资料。delphi 开发 activex 控件的心得最近在做的一个 B/S 系统要在客户端读取 USB 锁的要求, 所以就需要写一个 OCX ...
7页 1下载券 delphi学习总结--创建oc... 6页 1下载券喜欢此文档的还喜欢 ...而只需保证它们的有效范围不同即可。 ) 6.Result 保留字在 Delphi 中用来专...
delphi设计总结 4页 2下载券 delphi排序算法总结 5页 1下载券 delphi学习总结-...Delphi 软件开发选修课 学号---81120614---姓名---马轲--- 试题 1 简述开发...
delphi学习心得体会_学习总结_总结/汇报_实用文档。delphi学习心得体会delphi 学习心得 Delphi 是 Inprise 公司推出的基于对象 Pascal 语言的可视化集 成开发工具。 利...
Delphi 与 dll 学习体会 Dll 的创建: 1. 如果要在 dll 中加入窗体,最好先...总结: Dll 开发调试步骤为: 1. 窗体功能工程 function 完成要实现的功能即可;...
delphi文件的读取和写入 18页 免费 Delphi_TXT读取和写入 2页 免费 Delphi学习总结 67页 1下载券delphi设计总结 ...
DELPHI 7 升级到 DELPHI 2010 总结_韩语学习_外语学习_教育专区。DELPHI 7 升级到 DELPHI 2010 总结1 字符串 >>string =unicodeString 字母的处理要定义...
用Delphi编写WebService的心得体会_学习总结_总结/汇报_应用文书。用 Delphi 编写 WebService 的心得体会. 相关名词: Dispatch: 派遣,分派 Invoke: 调用 Invokable:...
//隐藏 ◇[DELPHI]执行程序外文件 WINEXEC//调用可执行文件 winexec('command....Delphi学习总结 67页 1下载券 Delphi读取文件和写入文... 4页 免费 Delphi 收获...
Delphi学习 27页 2财富值 Delphi汇编学习(三篇) 3页 免费 DELPHI学习教程 45页 免费 delphi 7 学习步骤 1页 1财富值 Delphi学习总结 67页 2财富值 Delphi学习...
我要评论