Delphi Client 端数据包发送接收处理函数说明

Delphi Client端数据包发送接收处理说明
1>自定义报文简介
以不定长字符流方式设计。

报文结构大致可理解为报文头+报文体，最小单位以“NAME:VALUE”对的型式, NAME、V ALUE都以各自的长度为前缀；一条典型的发送报文如下所示：
009MessageID:00574606:013TransactionID:005BOKFS:
003///:0011:003ROW:0011:003COL:0014:010Packeduser:003LHY:010packedtime:0192006-06-0 6 10:29:37:004flag:001Y:009accessory:0011:
003///:0012:003ROW:0011:003COL:0017:009IMPRESTNO:0130606163005721:008inittime:019 2006-06-16 15:30:04:009CompanyID:003ITC:
011Companytype:001A:009payamount:0041936:012actualamount:0041936:008category:006进帐单:003$$$
解析说明：
一条典型的返回报文如下所示：
009MessageID:00573936:013TransactionID:013COMSQL_SELECT:006Err_ID:003000:00 8Err_DESC:004正确:008Err_DESE:002OK:
003///:0011:003ROW:0013:003COL:0012:008CTN_TYPE:002GS:020CTN_TYPE_DESCR IPTION:009普通箱[3]:008CTN_TYPE:002TN:020CTN_TYPE_DESCRIPTION:006罐状箱:008CTN_TYPE:002UT:020CTN_TYPE_DESCRIPTION:006开顶箱:003$$$
★请解析说明？
注意：返回报文必须要带有错误信息Err_ID、Err_DESC、Err_DESE。

2>报文收发流程
3>发送接收报文关键函数介绍：
发送Select型简单Sql函数：
Send_ComSql_Select(const Comsql:string; //要发送的SQL查询语句
AForm:TForm; //当前发送的窗口
var ResultGrid:TstringGrid; //返回的错误信息（1行3列）
var ADASGrid: TDASG; //返回的查询结果集
const ExecuteNo:integer); // Execute () 执行序号
ResultGrid的结构：
一次发送多条Select型Sql函数：
Send_ComSql_Select(const Comsql: TDAS; //要发送的SQL查询语句（String数组）
AForm: TForm;
var ResultGrid: TstringGrid;
var ADASGrid: TDASG; //查询结果集（StringGrid数组）
const ExecuteNo: integer;
var ACmb_FieldName: TCombobox); // ComboBox可以不用
发送Update型简单Sql（执行update ,delete,insert类型的SQL语句）：
Send_ComSql_Update(const Comsql:string;
AForm:TForm;
var ResultGrid:TstringGrid; //返回的错误信息（1行3列）000
const ExecuteNo:integer);
发送Transaction数据包（执行有事务性控制的交互如：存储过程、多表更新、批量更新）Send_Transaction_Package(const TransactionID: string; //交易ID
AForm: TForm; //当前发送的窗口
var ResultGrid: TstringGrid; // 返回的错误信息（1行3列）
var FdataGrid: TDASG; //返回的查询结果集
const ExecuteNo: integer; //Execute () 执行序号
const TransactionStr: string = 'Null'); //发送字符串（报文体）（从003///到003$$$的报文体）
发送Transaction数据包（不带结果集）
Send_Transaction_Package(const TransactionID: string;
AForm: TForm;
var ResultGrid: TstringGrid;
const ExecuteNo: integer;
const TransactionStr: string);
典型的Transaction介绍
TransactionID : COMSP (调用存储过程，使用第一种Send Transaction)
TransactionStr : 003///:0011:003ROW:0011:003COL:00213:
006SPNAME:025SP_SHP_TRANSRF_VESSELLIST:
005PARA1:001T:009PARA1TYPE:008V ARCHAR2:
005PARA2:003N/A:009PARA2TYPE:008V ARCHAR2:
005PARA3:005ERRID:009PARA3TYPE:008V ARCHAR2:
005PARA4:007ERRDESC:009PARA4TYPE:008V ARCHAR2:
005PARA5:007ERRDESE:009PARA5TYPE:008V ARCHAR2:
005PARA6:004DATA:009PARA6TYPE:004CLOB:
TransactionID : COMSQL_UPDATETRANS(多表/批量更新，使用第二种Send Transaction) TransactionStr : 003///:0011:003ROW:0013:003COL:0011:
009SQLUPDATE: [ Length + SQL ] :
009SQLUPDATE: [ Length + SQL ] :
009SQLUPDATE: [ Length + SQL ] :
把当前界面上Tag标记大于0的StringGrid内容组织成发送报文
FormSend (const Form1: TForm;
const De: boolean): string; // 返回组织好的发送报文（报文体）
接收返回数据函数
Execute(var ResultGrid: TStringGrid; // 对应的返回的错误信息集
var ADateGrid: TDASG; //对应的查询结果集（StringGrid数组）
const No: integer) // 执行序号
每个功能子窗体都应有此函数，声明成public ，供主窗体解析返回报文后调用；
4>代码命名规范
窗体名：必须以“Form”开头后跟该窗体功能的缩略英文描述
单元名：必须以“Unit”开头后跟窗体名（有窗体的）或功能的缩略英文描述常用控件名：必须前缀+”_”+缩略英文描述（前缀名见《Delphi 4 code chinese》）
5> 练习
说明：
完成对指定单表的增、删、改、查操作。

要求:
1．严格遵照编码设计规范命名。

2．灵活运用<3>中多种手段实现。