delphi中间件

摘要： 进销存和财务软件的对接我个人觉得财务与业务软件不一定要连在一起，我们公司与国内一家财务软件大牛公司关系很密切，我们的二次开发中心更多时候是给我们的客户作该财务软件与其它业务软件（如进销存）的接口。当然财务业务一体化是很理想的，也是客户的梦想，但正如楼上高手说的，财务已经有了固定的流程，而业务确千差万别（虽然在基本模型上有共同之处），不管财务软件公司多牛，他也不可能提供通用的业务软件，这可不是大话，UF/KD等大牛门有好用的业务软件吗，到现他们都不说自己是财务软件公司了，说什么企业管理total sulotion，呵呵，SAP不是一天就成功的，也正因为如此，大伙儿才有机会做多如牛毛的中小进销存系 阅读全文

摘要： 单据的数据表设计在表设计中，我尝试过两种方法：把销售单、采购单等等单据用同一个实体表示，然后通过单据类型的字段来标识，因为单据设计到商品的出入，所以单据类型必须有出入状态标志。这样做的理由是：1、符合OO的设计思想，把订单做为一个类2、代码重用性好，效率高3、有利于业务扩展，通过对订单类继承，增加接口方法就可以增加新的业务在实现过程中，特别是数据库设计中，这种思想产生了一些很小的表当然也可以分单，即把每个单看成单独的实体，这样实现有这几个好处：1、对于业务量大的企业，分单有利于减轻数据查询的复杂度；2、程序员实现时，编码的复杂度降低，代码可读性也好；3、帐套业务数据备份时更灵活，可以对不同的业 阅读全文

摘要： 进销存业务的简单描述单据是进销存业务的基本操作手段，用单据可以直观全面地记录每一笔业务过程。进销存业务中最重要的就是理清商品以及款项的流动，所以单据中的关键动作就是对商品数量和款项变化的控制和记录。由于单据是对单笔业务的记录，所以必须用其它方法记录某一时间段内每种商品在所有业务中涉及的数量及金额的累计数，这就是总帐。基于单据的进销存描述可以简单地概括为： 在期初建帐时就记录好已经有了多少商品，价值几何，以此作为基础并记录到总帐；然后进行采购，买进某种商品，这时候总帐中该商品的累计数（包括数量和金额累计）增加了，同时也产生了对供应商的应付款记录；再进行销售，卖出某种商品，这时候总帐中该商品的累计 阅读全文

摘要： procedure sqlQuery(query: tadoquery; Asql: string; params: array of const);begin with query do begin close; sql.Clear; sql.Text := format(Asql, params); open; end;end;procedure TForm1.Button1Click(Sender: TObject);begin sqlQuery(adoquery1, 'select * from t1 where name = %s or id = %d', [Quot 阅读全文

摘要： -- 变量的声明,sql里面声明变量时必须在变量前加@符号 DECLARE @I INT-- 变量的赋值，变量赋值时变量前必须加set SET @I = 30-- 声明多个变量 DECLARE @s varchar(10),@a INT-- Sql 里if语句 IF 条件 BEGIN 执行语句 END ELSE BEGIN 执行语句 END DECLARE @d INT set @d = 1 IF @d = 1 BEGIN -- 打印 PRINT '正确' END ELSE BEGIN PRINT '错误' END-- Sql 里的多条件选择语句. DECLAR 阅读全文

摘要： Report machine 单据报表设计报表设计样式变量的定义：[变量名]给变量赋值 if RMgridReport1.LoadFromFile(GetAppPath + 'report/' + rBuy + g_repEXT) then begin RMVariables['title'] := rBuy; RMVariables['store'] := RzComboBox1.Text; RMVariables['memo'] := RzEdit1.Text; RMVariables['customer'] 阅读全文

摘要： procedure TformBuy.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);var S: String; i, x, y, iTextWidth: Integer;begin// if Field.DataType <> ftBCD then Exit; if Field.FieldName <> 'jxdmoney' then Exit; with TDBGrideh(Sender).Canvas do 阅读全文

摘要： procedure TformRule.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin if (ARow = 0) or (ACol = 0) then exit; with sender as tstringgrid do //斑马线效果 with canvas do begin if (arow mod 2 = 0) then begin brush.Color:=clMoneyGreen; font.Color:=clblack; fil 阅读全文

摘要： Delphi 異常捕捉的一種方法使用TApplicationEvents控件在OnException()事件裏面添加異常處理代碼If E is EOutOfMemory then // 內存不足……Else if E is EAccessViolation then // 非法訪問內存……異常類型定義在SysUtils.pas單元 阅读全文

摘要： tdbgrideh(Sender).InplaceEditor.EditText 阅读全文