上一页 1 ··· 166 167 168 169 170 171 172 173 174 ··· 196 下一页
摘要: 单据的数据表设计在表设计中,我尝试过两种方法:把销售单、采购单等等单据用同一个实体表示,然后通过单据类型的字段来标识,因为单据设计到商品的出入,所以单据类型必须有出入状态标志。这样做的理由是:1、符合OO的设计思想,把订单做为一个类2、代码重用性好,效率高3、有利于业务扩展,通过对订单类继承,增加接口方法就可以增加新的业务在实现过程中,特别是数据库设计中,这种思想产生了一些很小的表当然也可以分单,即把每个单看成单独的实体,这样实现有这几个好处:1、对于业务量大的企业,分单有利于减轻数据查询的复杂度;2、程序员实现时,编码的复杂度降低,代码可读性也好;3、帐套业务数据备份时更灵活,可以对不同的业 阅读全文
posted @ 2010-03-03 10:44 delphi中间件 阅读(682) 评论(0) 推荐(0) 编辑
摘要: 进销存业务的简单描述单据是进销存业务的基本操作手段,用单据可以直观全面地记录每一笔业务过程。进销存业务中最重要的就是理清商品以及款项的流动,所以单据中的关键动作就是对商品数量和款项变化的控制和记录。由于单据是对单笔业务的记录,所以必须用其它方法记录某一时间段内每种商品在所有业务中涉及的数量及金额的累计数,这就是总帐。基于单据的进销存描述可以简单地概括为: 在期初建帐时就记录好已经有了多少商品,价值几何,以此作为基础并记录到总帐;然后进行采购,买进某种商品,这时候总帐中该商品的累计数(包括数量和金额累计)增加了,同时也产生了对供应商的应付款记录;再进行销售,卖出某种商品,这时候总帐中该商品的累计 阅读全文
posted @ 2010-03-03 10:31 delphi中间件 阅读(723) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2010-02-03 09:25 delphi中间件 阅读(207) 评论(0) 推荐(0) 编辑
摘要: -- 变量的声明,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 阅读全文
posted @ 2010-01-22 15:05 delphi中间件 阅读(317) 评论(0) 推荐(0) 编辑
摘要: 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'] 阅读全文
posted @ 2010-01-03 16:51 delphi中间件 阅读(453) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2009-12-20 13:13 delphi中间件 阅读(377) 评论(0) 推荐(0) 编辑
摘要: 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 阅读全文
posted @ 2009-12-20 13:11 delphi中间件 阅读(511) 评论(0) 推荐(0) 编辑
摘要: Delphi 異常捕捉的一種方法使用TApplicationEvents控件在OnException()事件裏面添加異常處理代碼If E is EOutOfMemory then // 內存不足……Else if E is EAccessViolation then // 非法訪問內存……異常類型定義在SysUtils.pas單元 阅读全文
posted @ 2009-12-11 16:32 delphi中间件 阅读(192) 评论(0) 推荐(0) 编辑
摘要: tdbgrideh(Sender).InplaceEditor.EditText 阅读全文
posted @ 2009-12-10 14:48 delphi中间件 阅读(184) 评论(0) 推荐(0) 编辑
摘要: 每新建一个窗件都要改默认字体,不方便.通过添加注册值可更改Delphi系统的默认字体修改注册表:HKEY_CURRENT_USER/Software/Borland/Delphi/5.0/FormDesign Delphi 5:HKEY_CURRENT_USER/Software/Borland/Delphi/5.0Delphi 6:HKEY_CURRENT_USER/Software/Borland/Delphi/6.0Delphi 7:HKEY_CURRENT_USER/Software/Borland/Delphi/7.0下增加一个名为“FormDesign”的项,再在这个项下面新建一个 阅读全文
posted @ 2009-10-30 15:44 delphi中间件 阅读(196) 评论(0) 推荐(0) 编辑
上一页 1 ··· 166 167 168 169 170 171 172 173 174 ··· 196 下一页