Delphi(程序人生)

摘要： ①# 后面跟一个字符编码可以表示这个字符, 字符编码可以用十进制或十六进制表示;譬如字符 "A" 的编码是 65(十进制) 或 $41(十六进制). --------------------------------- var c: AnsiChar; begin c := #65; ShowMessage(c); {A} c := #$41; ShowMessage(c); {... 阅读全文

摘要： uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); begin //用IE打开 ShellExecute(Handle, 'open', 'IExplore.EXE', 'about:blank', nil, SW_SHOWNORMAL); //用火狐打开 ShellExecute(Handle, 'open', 'fire... 阅读全文

摘要： //一般写法 var MyForm1: TForm1; begin MyForm1 := TForm1.Create(nil); MyForm1.ShowModal; MyForm1.Free; end; //用 with 语句重写 with TForm1.Create(nil) do begin ShowModal; Free; end; 阅读全文

摘要： var w: WideString; i: Integer; s: string; List: TStringList; begin List := TStringList.Create; for i := $4e00 to $9fa5 do begin s := #36 + IntToHex(i,4); {#36 是 $ 字符} w := WideC... 阅读全文

摘要： uses ShellAPI; procedure TForm1.AbortClick(Sender: TObject); begin ShellAbout(0, 'MySoft', 'Copyright (c) 2007-2008', Application.Icon.Handle); end; 阅读全文

摘要： {$REGION '我的函数'} ... {ENDREGION} 阅读全文

摘要： ①{...} ②(*...*) ③//... ④{$IFDEFF DONTCOMPILEME}...{$ENDIF} 阅读全文

摘要： 分类 快捷键 解释 备注 组 件 设 计 类 ... 阅读全文

摘要： ASCII值 控制字符 注释 0 NUT 1 SOH 标题开始 ... 阅读全文

摘要： GroupBy的用法 Group By 是分组,当字段中有一样的记录时,用Group By 后,只会出现一条记录,这在做同类统计的时候特有效, 如:统计所有的大类销售,这时就必须用Group By Select 酒水大类, Sum(价格) as [销售] From 点单表 Group By 酒水大类 Order By 销售 阅读全文

摘要： Decision控件 1,Delphi中提供了大量的决策图表控件 Decision->决策,决断 Cube->立方体 Chart->图表 Series->系列 TeeChart->T型图表 Gallery->图库 Axis->轴线 Gradient->渐变 Legend->图例 传奇 Delphi7中 TChart组件---------->Additional TDBChart组件---... 阅读全文

摘要： DBGRID列描红(用于特殊数据行的显示,不因RowSelect->True而改变) procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure Drawnu... 阅读全文

摘要： 单条件多字段查询 procedure TForm1.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean); var i:Integer; begin if Edit1.Text = '' then Exit; Accept := False; for i := 0 to DataSet.F... 阅读全文

摘要： DBGRID标题排序上放↑ procedure TF_StockReport.FlatDBGrid1TitleClick(Column: TColumn); var TheTitleName:string; begin if DM.GoodsInfo.IsEmpty then Exit; TheTitleName:=Column.Title.Caption; if Pos('... 阅读全文

摘要： 关联表查询 关联表查询有如下二种方法, ①内关联, ②外关联 关联表查询,首先有个条件,就是,二个表中必须要有一个字段的属性,与值是相同的,其核心思想,就是把二个表中有关系的数据合并成一个表 1,内关联 Select A.人员姓名,B.人员工资 From 表A(人员信息表),表B(工资表) Where A.人员编号=B.人员编号 B表中可以没有人员姓名,只有人员编号,这样得出的合并表为:人员... 阅读全文

摘要： SQL如何向应用程序发送消息? RaisError('出错拉!来自SQL-Server',16,1) 这是的16表示级别,可以更改,1表示状态,可以更改,后面二个数,必须写! 这个函数,在结合触发器使用时,当库存少于多少,就向应用程序提出一个报警,很好用 当某些字段或值不许更改时,也可以向应用程序报告消息 阅读全文

摘要： SQL处理方案数据处理方案 数据处理方案分2种: ①应用程序数理处理方案,这种是数常用的,处理数据主要使用数据库控件及代码实现 ②SQL数据处理方案,数据处理的大部分工作放在SQL服务器,使用触发器,存储过程等,应用程序主要向SQL服务器发送调用叁数 1,Delphi中能执行存储过程的控有二种 ①StoredProc 这类组件BDE里有,DBG里有,DBExpress也有 ... 阅读全文

摘要： SQLServer如何建立内存表 Select * Into 内存表名 From 表 如 select * into #HaHa From 菜单 //建立内存表,如果后面加个Where 1=2的话,只在内存中建立一个表结构 select * from #HaHa //读取内存表 Drop Table #HaHa //删除内存表,否则只有等应用程序退出才会自动删除 ... 阅读全文

摘要： SQL的触发器 触发器是什么?做什么用的?怎么用? --------------------------------------------------------------------- 1,触发器是附在表上,或视图上的一种特殊的存储过程,当表或视图发生,数据更新,增加数据,删除数据时自动执行的一个过程 2,触发器不用调用,它自动执行,它仅执行在SQL服务器上,不执行在DELPHI... 阅读全文

摘要： SQL的游标 什么是游标?游标是做什么用的?怎么用? ----------------------------------------------------------------------------------------------- 1,其实Select 返回的结果集是一个数据表视图,这个视图是没有记录指针的,如果要改变其中的值,只能对这个视图中的数据全体改变 游标,本质上就是... 阅读全文

摘要： Select语句 1,选择部份列 Select 列,列 From 表 注意,最后一列不要加','号 ---------------------------------------- 2,产生新的空列 Select '空列',列 From 表 注意:空列要用引号引起来,默认的情况下,列值与列名同 如:select '空列'='Hello' From 菜单 ------------... 阅读全文

摘要： SQL-Server2000的存储过程 SQL-Server2000是有函数的,不过仅限于自定义函数和系统函数,要让Delphi使用SQL-Server2000中的方法必须写成存储过程,存储过程,其实指的就是用自定义的方法,当然可以有返回值,也可以没有返回值. 函数的写法 CREATE Function aa (@a int , @b int) Returns int As/... 阅读全文

摘要： SQL中的数据类型 字符 ①Char->固定长度非UNICODE字符最大8000字符 ②NChar->固定长度UNICODE最大4000字符 ③VarChar->可变长度非UNICODE字符最大8000字符 ④NVarChar->可变长度UNICODE最大4000字符 ------------------------------------------------------- 文本 ①T... 阅读全文

摘要： SQL函数 STR->把日期,数字等字段,转为字串字段 如 select Str(单价,8,2) from 点单表 1,8->长度 2,2->2位小数 当然也可以 select Str(单价) from 点单表 这样无小数位数,长度默认为10 Convert()->转换函数,当然它不只是转成字串也可以转成其它的 如: Select Convert(varchar(10),G... 阅读全文

摘要： SQL-Server的数据文件 一个SQL-Server数据库至少需要二个文件 1,MDF文件->存放数据库表,索引,存储过程,游标,触发器等数据库对像信息,我叫他主数据文件 MDF=MastDataFile 2,LDF文件->存放数据库事务日志 LDF=LogDataFile DoubleCat 阅读全文

摘要： SQL聚合函数 AVG->求平均值 Select 新列名=AVG(数值字段) From 表 注意:Select 后面不要加 * 号 如: select AVG=AVG(单价) from 点单表 重复的值只计算一次的方法 如: select AVG=AVG(DISTINCT 单价) from 点单表 注意:DISTINCT与字段名之间要用空格隔开 同样在Select 语句中也可以使用 D... 阅读全文

摘要： 更改记录(更新已存在的记录数据) Update 表名 Set字段名=值,字段名=值 Where 条件表达式 and 条件表达式 注意: 1,Update 后面不要加*号 2,必须指定条件表达式,否则,整个字段中的值将会全部被改掉 3,要更改的字段用 字段名=字段值 的方式,更改多字段中间用','号隔开 如: update 点单表 Set房台名称='天津',酒水名称='Haha' Where... 阅读全文

摘要： 删除指定记录 Delete From 表名 Where 条件表达式 注意: 1,必须加条件表达式,否则,删除所有记录 2,Delete 后面不要加*,也不要加字段名称 只有Select语句才要指定字段名称,其它的都不要 DoubleCat 阅读全文

摘要： 清空表 1,Truncate Table 表名 (注意这里要写上Table) 2,Delete From 表名 (注意表名后面不要加条件语句Where) (Delete 后面不要加* Select 后面必须加*) 对表的清空,Truncate Table 表名 要比 Delete From 表名 更有效 DoubleCat 阅读全文

摘要： Insert增加数据 Insert Into 表名 (字段名,字段名) Values (值,值) 在这里Into可以写也可以不写,列名与列值都得用()号包含起来,中间用Values隔开, 最少要一个列与一个列值,字串值要用引号引起来 如: insert 帐单表 (帐单号,房台名称) values (1001,'重庆') DoubleCat QQ:28088191 阅读全文

摘要： 书签ToDo与代码定位 每次开发前应该有个计划先建立程序框架，先做什么、后做什么；最后检查完成情况。 定义ToDo ->Ctrl+Shift+T 打开ToDo列表->Alt+V+I 书签的作用是当代码很长,在书写时,又跑去定义全局变量或申明数据类型时,让你快速回到原来的编写处 定义书签->Ctrl+Shift+数字 定位书签->Ctrl+数字 方法的定义部份与方法实现部份... 阅读全文

摘要： Pchar与String的区别 PChar 串是以 Null 结束的, 或者说是以 "空字节" 结束的; PChar 串见到 "空字节" 就认作结束了; "空字节" 在 Delphi 中可以用 #0 或 Chr(0) 来表示. //举例: var pc: PChar; begin pc := 'ABCD' + #0 + 'EFGHIJKLMNOPQRSTUVWXYZ'; ShowM... 阅读全文

摘要： raise抛出异常 //例1: begin raise Exception.Create('抛出异常'); end; //例2: begin raise Exception.CreateFmt('%s %d', ['错误代码:', 999]); end; //例3: var exc: Exception; begin exc := Exception.Create... 阅读全文

摘要： DupeString重复字串 与StringOfChar的区别 StringOfChar 是反复 "字符" 成 "字符串" 的函数; DupeString 是反复 "字符串" 成 "新字符串" 的函数; StringOfChar 来自 System 单元, 可以直接使用; DupeString 来自 StrUtils 单元, 使用时需要 uses StrUtils; 如果仅仅是反复 ... 阅读全文

摘要： GoTo语法 procedure TForm1.Button1Click(Sender: TObject); var x: Integer; label n1,n2,n3,4; //goto的标签可以是标识符, 也可以是0..9999的数字 begin x := 0; goto n3; n1: x := x+1; n2: x := x+2; n3: x := x... 阅读全文

摘要： For循环 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Butto... 阅读全文