本站網友hahalin出新書(專案開發- DELPHI 會計系統實作) |
|
|
|
andy_qin
一般會員   發表：41 回覆：51 積分：18 註冊：2003-03-06 發送簡訊給我 |
|
|
hahalin
版主   發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
嗯~~~
剛好最近公司接到的案子有一部份與會計系統有關~
的確可以買來參考看看~~~
可是Delphi的書已經堆了快六本，
唉~~~~
什麼都想學，可是總是不會去做 ~~~~
JAVA 二本、Delphi 六本、VB 二本、HTML 二本、
Photoshop 四本(不知道買來幹麻的)，
唯一有開完的系列，就是灌籃高手31本~~~哈
我就是那種買書回來安慰自己的人~~~ 一個二十四歲卻只想過六十四歲的人~~~~~ ----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
superlevin
高階會員 發表：181 回覆：313 積分：180 註冊：2003-01-12 發送簡訊給我 |
引言: 嗯~~~ 剛好最近公司接到的案子有一部份與會計系統有關~ 的確可以買來參考看看~~~ 可是Delphi的書已經堆了快六本， 唉~~~~ 什麼都想學，可是總是不會去做 ~~~~ JAVA 二本、Delphi 六本、VB 二本、HTML 二本、 Photoshop 四本(不知道買來幹麻的)， 唯一有開完的系列，就是灌籃高手31本~~~哈 我就是那種買書回來安慰自己的人~~~ 一個二十四歲卻只想過六十四歲的人~~~~~ ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------這位大大...你比偶幸福多了！還可以有＄到 書店把書贖回來安慰自己...我現在，仍是花 錢的二技生。祇能趁著空堂時三不五時去書 局跟那些喜歡的書面會....
------
林壽山 網站: http://superlevin.ifengyuan.tw mail: superlevin@gmail.com |
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
引言: JAVA 二本、Delphi 六本、VB 二本、HTML 二本、 Photoshop 四本(不知道買來幹麻的)， 唯一有開完的系列，就是灌籃高手31本~~~哈 我就是那種買書回來安慰自己的人~~~我也來盤點盤點，不過近來少買書了,都看help,網路收集居多... VB 7 html 3 ASP 3 Java 4 JavaScript 1 Delphi 10 C/C++ 7 Programming Windows 1 資料結構 1 Flash/Action 2 MSSQL 2 ACCESS 2 EXCEL 2 UML 1 Crystal Report 1 Foxpro 1 ERP相關 2 頭文字D 17~23 一樣是頭文字D從頭到尾看完， 其他有些只有看1/3. |
|
Mickey
版主 發表：77 回覆：1882 積分：1390 註冊：2002-12-11 發送簡訊給我 |
|
|
rita880
一般會員 發表：38 回覆：27 積分：13 註冊：2003-04-15 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
bear
一般會員 發表：8 回覆：6 積分：2 註冊：2002-07-19 發送簡訊給我 |
請問hahalin兄
感謝你的大作,期待你其他的大作....
因是新手,故有較淺的書中問題請問.. procedure Tfmmain.checkpower(fm: tform; id:string);
begin
if guserid <> 'admin' then
begin
aqy1.Close;
aqy1.sql.clear;
aqy1.sql.Add('select a.*,b.progtype,b.formname from');
aqy1.sql.add(' accpermission as a inner join accprog as b');
aqy1.sql.add(' on a.progid=b.progid');
aqy1.sql.add(' where ' quotedstr(guserid));
aqy1.sql.Add(' and formname=' quotedstr(fm.name));
aqy1.Open; if aqy1.RecordCount=1 then
begin
if aqy1.FieldByName('canexec').AsBoolean=false then
begin
showmessage ('抱歉,你沒有執行的權限');
fm.Close;
exit;
end; tdbform(fm).canadd:=aqy1.FieldByName('canadd').AsBoolean;
tdbform(fm).canedit:=aqy1.FieldByName('canedit').AsBoolean;
tdbform(fm).candel:=aqy1.FieldByName('candel').AsBoolean;
tdbform(fm).canprint:=aqy1.FieldByName('canprint').AsBoolean;
end;
end
else
begin
tdbform(fm).canexec:=true; //問題處
tdbform(fm).canadd:=true;
tdbform(fm).canedit:=true;
tdbform(fm).candel:=true;
tdbform(fm).canprint:=true;
end;
end; compile時出現'Undeclared identifier:'tdbform'',是否忘了引用某個單元,
現正困擾中....謝
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
unit UfmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ActnList, Menus, ComCtrls,udbform, DB, ADODB, DBCtrls, StdCtrls;我傳給出版社去壓片的程式碼是這樣的, 在ufmmain單元的interface的uses區段如上, 您可能需要檢查一下,謝謝您的捧場. |
發表時間：2003-04-07 15:05:41
IP:218.19.xxx.xxx
未訂閱
系統時間：2024-05-11 3:14:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |