准备开源两个delphi组件，想听听大家的意见

自己写的组件中最有价值的两个，一个叫TFieldEdit，一个叫TSQLCmd



上面图中的Edit, ListBox, Memo其实都同是一个组件，有统一的数据访问接口。同时TFieldEdit组件还进行数据合法性检查，比如是否required，数据类型，长度等等。支持MaskEdit，支持正则表达式验证。目前支持的数据类型有：

TDataType = (dtString, dtInteger, dtFloat, dtMoney, dtHex, dtBinary,

//字符串，整型，浮点型，货币，十六进制，二进制

dtList, dtComboList, dtCheckList, dtDateStr, dtTimeStr, dtPassword, dtNumber, dtMemo,

//单选列表，组合列表，多选列表，日期字符串，时间字符串，密码，数字，备注框

dtDate, dtTime);

//日期，时间

另外一个组件是TSQLCmd，目的是封装数据库的操作，贴一段代码给大家看：

单行录入：

with SQLCmd1 do begin

CmdStr[0] := 'NewCustomerCommit';

CmdStr[1] := Location.ID;

CmdStr[2] := Oper.Opid;

CmdStr[3] := self.FETitle.TmpStr;

CmdStr[4] := self.FEFirstName.TmpStr;

CmdStr[5] := self.FEMiddleName.TmpStr;

CmdStr[6] := self.FELastName.TmpStr;

CmdStr[7] := self.FECompany.TmpStr;

CmdStr[8] := TFunc.BoolToStr(self.CheckBoxCompany.Checked,'0','1');

CmdStr[9] := self.FEAddress1.TmpStr;

CmdStr[10] := self.FEAddress2.TmpStr;

CmdStr[11] := self.FECity.TmpStr;

CmdStr[12] := self.FEState.TmpStr;

CmdStr[13] := self.FEZipcode.TmpStr;

CmdStr[14] := self.FEHomePhone.TmpStr;

CmdStr[15] := self.FEWorkPhone.TmpStr;

CmdStr[16] := self.FECellPhone.TmpStr;

CmdStr[17] := self.FEFax.TmpStr;

CmdStr[18] := self.FEBirthMonth.TmpStr+self.FEBirthDay.TmpStr;

CmdStr[19] := self.FEEmail.TmpStr;

CmdStr[20] := TFunc.BoolToStr(self.CheckBoxReceiveAD.Checked,'0','1');

CmdStr[21] := self.FEKnowUsWay.TmpStr;

CmdStr[22] := self.FEOther.TmpStr;

CmdStr[23] := FReferBy;

CmdStr[24] := FEPrintBy.TmpStr;

CmdStr[25] := FENote.TmpStr;

CmdStr[26] := TFunc.BoolToStr(self.CheckBoxTax.Checked,'0','1');

CmdStr[27] := self.FEReferralCode.TmpStr;

CmdStr[28] := Self.FETerm.TmpStr;

CmdStr[29] := self.FETaxCode1.TmpStr;

CmdStr[30] := self.FETaxCode2.TmpStr;

CmdStr[31] := self.FETaxCode3.TmpStr;

CmdCount := 32;

if ExecuteCommand then begin

result := true;

ShowStatusHintMsg('Commit OK!');

TFieldEdit.Clear(self.PanelTop);

SetEditDefaultValue;

if FormStyle=fsNormal then

ModalResult := mrOK;

end

else begin

ShowStatusHintMsg('Commit Error!');

end;

end;

多行录入：

with SQLCmd1 do begin

ClearCmdData;

//Cmd: 1-location,2-operid,3-orderno,4-invoice,5-vendor,6-end date,7-ship method,8-tracking,9-subtotal

// 10-shipping,11-amount,12-paid by,13-note,14-serviceno,15-busitype,

CmdStr[0] := 'NewOrderCommit';

CmdStr[1] := FELocation.TmpStr;

CmdStr[2] := Oper.Opid;

CmdStr[3] := FEOrderNo.TmpStr;

CmdStr[4] := FEInvoice.TmpStr;

CmdStr[5] := FEVendor.TmpStr;

CmdStr[6] := FEEndDate.TmpStr;

CmdStr[7] := FEShipMethod.TmpStr;

CmdStr[8] := FETrackCode.TmpStr;

CmdStr[9] := FESubTotal.TmpStr;

CmdStr[10] := FormatFloat('0.00',FEShipping.AsFloat);

CmdStr[11] := FEAmount.TmpStr;

CmdStr[12] := FEPaidBy.TmpStr;

CmdStr[13] := FENote.TmpStr;

CmdStr[14] := FEServiceNo.TmpStr;

CmdStr[15] := FEServiceNo.Hint; //busitype

CmdStr[16] := IntToStr(Round(AdvStringGridItem.ColumnSum(2,1,AdvStringGridItem.RowCount-1)));

CmdCount := 17;

AddCmdRow;

//Item: 1-itemid,2-name,3-qty,4-rate,5-amount,6-tsf,7-memo,8-kind,9-orderno,10-location

with self.AdvStringGridItem do begin

for iRow:=1 to RowCount-1 do begin

CmdStr[0] := 'Item';

CmdStr[1] := GridCells[0,iRow]; //itemid

CmdStr[2] := GridCells[1,iRow]; //name

CmdStr[3] := GridCells[2,iRow]; //qty

CmdStr[4] := GridCells[3,iRow]; //rate

CmdStr[5] := GridCells[4,iRow]; //amount

CmdStr[6] := GridCells[5,iRow]; //tsf

CmdStr[7] := GridCells[6,iRow]; //memo

CmdStr[8] := GridCells[7,iRow]; //kind

CmdStr[9] := FEOrderNo.TmpStr;

CmdStr[10] := FELocation.TmpStr;

CmdCount := 11;

AddCmdRow;

end;

end;

if ExecuteCommandM then begin

TFieldEdit.Clear(PanelEdit);

self.AdvGroupBoxSpecialOrder.CheckBox.Checked := false;

self.FEOrderNo.Clear;

self.InitScreen;

end;

end;

基本上这个组件封装了所有的数据库查询和更新操作，以及事务。使得整个项目中统一数据库的访问接口。组件背后是TADOQuery

想听听大家的意见，如果没人感兴趣，就只好留着自己用了。