准备开源两个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


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


  • 7
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 22
    评论
评论 22
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值