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

本文链接：https://blog.csdn.net/ppayun/article/details/8913318

自己写的组件中最有价值的两个，一个叫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;