开发规范.ppt

DLEPHI

标准的执行语句
构造SQL语句
程序的构造
对于函数DataValid
过程,函数的含义
DataModule的调用
程序的注释
4 开发规范
标准的执行语句
顺序型语句
说明:程序采用缩进格式(缩紧2格),区分大小写,begin, end(小写)对齐
格式:
begin
dmlBaseCardSample_KH:= (Self);
;
dmlMain:=dmlBaseCardSample_KH;
end;
IF语句的两种格式
格式一:
复合语句:
if表达式then
begin
……;
end;
范例:
if(iYear=0) and (iMother=0) then
begin
ErrorMessageBox(“没有找到记账日期对应的会计期间”);
Exit;
end;
单条语句;
if 布尔表达式 then
格式二:
复合语句
if 布尔表达式 then
begin
……;
end
else
begin
……;
end;
单条语句
if 布尔表达式 then
……
else
……;
范例:
if bBWBDFKM then
(‘paraZZMX_WDFJE’).AsCurrency:=0
else
(‘paraZZMX_WDFJE’).AsCurrency:=;
Case 语句
格式一
复合语句
case 表达式 of
值1 : begin
……
end;
值2 : begin
……
end;
……
end;
单条语句
case 表达式 of
值1 : 语句1;
值2 : 语句2;
……;
end;
范例:
if iErrorJFKM<>0 then
begin
case iErrorJFKM of
1 : ErrorMessageBox(‘未找到现金科目和银行存款科目’)
2 : ErrorMessageBox(‘输入的付款科目不是现金或银行存款科目’)
3 : ErrorMessageBox(‘输入的付款科目不是现金或银行存款科目的末级科目’)
end;
Exit;
end;
For 语句
格式:
复合语句:
for 变量:= 初值 to (or downto) 终值 do
begin
……;
end;
单条语句
for 变量 to (or downto) 终值 do
……;
While语句
格式:
复合语句
while 布尔表达式 do
begin
……;
end;
单条语句
while 布尔表达式 do
……;
Repeat 语句
格式:
repeat
语句1;
语句2;
……;
until 布尔表达式;
With 语句
格式:
with 对象名 do
begin
……;
end;
返回
构造SQL语句
在静态或动态构造SQL语句时,使用的关键字小写,字段名,表名大写。
范例:
with dmlCX_XJRJZ. qryTool do
begin
Close;
;
(‘Select sum(KMHZ_JFJE) as JF,sum(KMHZ_DFJE) as DF’)
(‘from KMHZ’);
(‘where KMHZ_YEAR = :paraYEAR’);
(‘and KMHZ_KJDWID = ''' +sKJDWID+ '''’);
(‘and KMHZ_MONTH <> '''' and KMHZ_MONTH = ''00''’);
(‘and KMHZ_KMID like ''' +sKMCondtion+' % ''’);
ParamByName(‘paraYEAR’).AsInteger := iYearCondition;
Open;
end;
返回
程序的结构
CreateForm 时
创建DataModule,打开Query,连接dmlMain
范例:
proc