宇泰資訊 - 站長部落格

主選單

小圖蒐集區

登入

版面風格

站長部落格 - lutuni 的日誌

訂閱 lutuni 的日誌

選擇類別 :

醫學(5)	HTML語法(7)	OSCommerce電子商務(3)
PHP 程式(1)	SQL SERVER(15)	ubuntu 技術資料(3) apache2(1) DNS(9) kubuntu 12.04 中文輸入法(1) sendmail(5) Webmin(1) 驅動程式(4)
Visual DBtools 2.2(17)	WINDOW 7作業系統(0) 開機選單(1)	windows作業(3) 電腦系統工具(0)
XOOPS入口網站(1)	友站連結公司行號(3)	其它的(12)
程式計設系統分析(1)

最新的日誌

2009/06/03

流程圖與演算法

分類: 程式計設系統分析

作者: lutuni (11:53 am)

xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">

流程圖

****流程圖與演算法****

1.流程圖符號

2.程式設計師常用的流程圖版lang=EN-US>

3.程式流程圖與演算法lang=EN-US>

4.程式設計的三種結構lang=EN-US>

5.結構分析lang=EN-US>1

6.結構分析lang=EN-US>2---多重選擇與巢狀迴圈

7.作業

1.
流程圖符號lang=EN-US>

style='mso-spacerun:yes'> src="flowchart.files/image002.jpg" v:shapes="_x0000_s1025">

2.程式設計師常用的流程圖版
Top

src="flowchart.files/image004.jpg" v:shapes="_x0000_s1026">

3.流程圖與演算法---求兩數最大公因數
Top

4.程式設計的三種結構
Top

src="flowchart.files/image005.jpg" v:shapes="_x0000_s1028">

5.結構分析1
Top

src="flowchart.files/image006.jpg" v:shapes="_x0000_s1029">

6. 結構分析2---多重選擇與巢狀迴圈
Top

src="flowchart.files/image007.jpg" v:shapes="_x0000_s1032">lang=EN-US>

7.作業:
Top

請設計一張流程圖，主題自訂，(如起床到校流程，寄信，數學計算等等)，須將三種程式結構都運用到
(用A4或測驗用紙,用Word 作加分!)

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (796)

2009/05/27

單身窮人報稅圖解

分類: 其它的

作者: lutuni (12:14 am)

每次到了五月就緊張兮兮，這次把步驟記錄下來，以免明年又要重新了解。

首先，先去政府金融憑證網路報稅網站- http://itax.twca.com.tw/ ，裡面的說明請自閱，

到 http://itax.twca.com.tw/download.aspx 下載報稅軟體。

1.二維條碼方式需要把資料列印下來，再寄去稽徵機關，對於懶人而言用"網路申報"是最方便的!

2. 一般人通常很少申請憑證，請直接選用"身分證+戶名"方式。

3. 建立新資料，只要建好一次，可存檔帶明年使用。 (多麼方便)

4. .請跟著提示輸入身分證

5.請跟著提示輸入大名

6.這部分的檢核戶號順序無所謂，因為戶號要去翻戶口名簿，所以一般先按"否"

7. 也只能按下"我同意"，不然...用好玩的嗎? = ="

8. 重點來了，點選到上方灰色框的"基本資料"，把基本資料建檔完畢

9.既然是單身、窮到被鬼抓走，所以扶養親屬的部份跳過，

   若上有父母、下有妻兒，扶養的部份再自填，其實都很簡易。(不附圖了)

10.所得資料：貧窮上班族請拿出那薄薄一張，很不想感覺它的存在的"扣繳憑證"出來，

      所得種類請選擇"薪資所得"，所得格式選擇"免繳薪資所得"，

      選擇所得人姓名，公司名稱或統一擇一輸入，

      所得總額金額填入扣繳憑證的"薪資給付總額"，扣繳稅額也照填，完成請按下方"新增"按鈕，

      所輸入的資料便會以表格格式呈現在下方。

      如果一年換兩個工作以上，就會有兩張以上的扣繳憑單，第二張憑單的輸入方式一樣，

      資料填畢後記得按"新增"，第二筆資訊就會在下方表格增加。 (這部分作圖省略)

11.扣除額分兩種，一種是70歲以下的標準扣除額73000元(97年)，一種是用列舉的方式。

      扣除額的意思是，若年收入10萬、標準扣除額73000，

      那繳稅金額的計算方式:(10萬-7.3萬)*稅率，

      所以扣除額越高，繳的稅越少，但窮人是不會有過多的開銷可以列舉，所以用"標準"就好。

12.稅額試算：這部份是SHOW出稅額的精細計算方式，以此例而言，因為賺的錢連扣除額都不到，

      當然是免繳稅啦! 但是，免繳稅也是要報稅耶!!! 切記!!!

13. 窮人沒能力搞投資抵減、購屋...，直接跳"計算及上傳"的部份。

      檢視計算無誤，按下左下方"申報資料上傳"，此時會跳出"戶號檢核"，

      這時候乖乖去找出戶口名簿吧!

      輸入戶號確定後的動作尚未作圖，印象中就是連線政府系統，完成申報。

      不放心的話，再按下"查詢是否完成申報"，即可安心睡覺囉!

以上是免繳稅的流程，需要納稅的部份會在"申報資料上傳後"跳出繳稅方式，

這部份晚點作圖。

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (606)

2009/04/09

讀入產品文字檔客戶檔描述

分類: OSCommerce電子商務

作者: lutuni (6:06 pm)

*MP0PC()Edit15.Text
DO CASE
CASE MultiPage0.PageIndex=0
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ASSIGN(INVOSUB.Filter,"")
ASSIGN(INVO.Filter,"")
ENDIF
CASE MultiPage0.PageIndex=1

CASE MultiPage0.PageIndex=2
*讀入文字檔
ASSIGN(Label14.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF FILE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT") &&檢查以產品編號(EDIT0.TEXT)檔案名稱是否存在
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT"),Memo1.Lines) &&如果存在就讀入
ELSE
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CLEAR.TXT'),Memo1.Lines) &&如果不存在就讀入空白
ENDIF
CASE MultiPage0.PageIndex=3
ASSIGN(Label3.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
INVO.Active=1
select INVO
ASSIGN(Field11.DoTotal,0)
ASSIGN(Field11.ShowTotal,0)
Set While FROM CUSTOMER->CUST_CODE+TRIM(COMBO2.TEXT)+TRIM(COMBO3.TEXT) TO CUSTOMER->CUST_CODE+TRIM(COMBO4.TEXT)
ASSIGN(Field11.DoTotal,1)
ASSIGN(Field11.ShowTotal,1)
GO Bottom

CASE MultiPage0.PageIndex=4
ASSIGN(Label4.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
ASSIGN(Combo12.Text,"全部")
ASSIGN(EDIT25.TEXT,"")
INVOSUB.Active=1
select INVOSUB
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=5
ENDCASE

*備註資料存入
External REMARK1
ASSIGN(REMARK1,ATOM(Memo1.Lines))
TRY
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('備註資料已存入..','訊息視窗',200,200)
ERROR
MAKEDIR(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\'+'CUSTOMER')
MESSAGE('CUSTOMER目錄建立,請按確定即可存入..','訊息視窗',200,200)
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('備註資料已存入..','訊息視窗',200,200)
ENDTRY

*還原上次存檔內容
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT"),Memo1.Lines)

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (1053)

2009/04/09

建立目錄

分類: Visual DBtools 2.2

作者: lutuni (5:21 pm)

External REMARK1
ASSIGN(REMARK1,ATOM(Memo1.Lines))
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('資料已存入..','訊息視窗',200,200)
MAKEDIR(EDIT3.TEXT+"\"+EDIT2.TEXT)

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (693)

2009/04/02

查詢未沖帳資料

分類: Visual DBtools 2.2

作者: lutuni (10:26 am)

external M_SEC
M_SEC=0
MTOA("",MEMO1.LINES)
ASSIGN(MEMO1.LINES[1]," ")
SELECT INVO
Set Filter To
SET WHILE TO
SET TAG TO INVO8
SET WHILE FROM EDIT12.TEXT TO EDIT13.TEXT
&&Browse()
GO TOP
MESSAGE2(1,"計算中...")
DO WHILE !EOF()
IF M_SEC=0 .AND. S_AMT<>0
M_SEC=1
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT,'@N8')+"│"+TRANSFORM(TAX_AMT,'@N8')+"│"+TRANSFORM(DISCOUNT,'@N8')+"│"+TRANSFORM(R_AMT,'@N8')+"│"+TRANSFORM(S_AMT,'@N8')+"│")
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
ELSE
DO WHILE INKEY()<>27 .AND. M_SEC<>0 .AND. S_AMT<>0
INKEY()
IF EMPTY(MEMO1.LINES[M_SEC])
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT,'@N8')+"│"+TRANSFORM(TAX_AMT,'@N8')+"│"+TRANSFORM(DISCOUNT,'@N8')+"│"+TRANSFORM(R_AMT,'@N8')+"│"+TRANSFORM(S_AMT,'@N8')+"│")
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
M_SEC=1
EXIT
ELSE
IF SUBS(MEMO1.LINES[M_SEC],3,6)=INVO->CUST_CODE
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT+VAL(SUBS(MEMO1.LINES[M_SEC],25,10)),'@N8')+"│"+TRANSFORM(TAX_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],37,10)),'@N8')+"│"+TRANSFORM(DISCOUNT+VAL(SUBS(MEMO1.LINES[M_SEC],49,10)),'@N8')+"│"+TRANSFORM(R_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],61,10)),'@N8')+"│"+TRANSFORM(S_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],73,10)),'@N8')+"│")
EXIT
ELSE
M_SEC=M_SEC+1
ENDIF
ENDIF
ENDDO
ENDIF
SKIP
ENDDO
M_SEC=1
DO WHILE !EMPTY(MEMO1.LINES[M_SEC])
M_SEC=M_SEC+1
ENDDO
ASSIGN(MEMO1.LINES[M_SEC],"└────┴─────┴─────┴─────┴─────┴─────┴─────┘")
ASSIGN(MEMO1.LINES[M_SEC+1],"2 4 6 8 1012141618202224262830323436384042444648505254565860626466687072747678808284")
MESSAGE2(0)

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (642)

2009/04/01

查詢未沖帳資料

分類: Visual DBtools 2.2

作者: lutuni (10:02 am)

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (619)

2009/03/31

轉文字檔到電子郵件

分類: Visual DBtools 2.2

作者: lutuni (9:52 am)

DO CASE
CASE Option0.TEXT="一般列印"
NEWREP("ORDER_REP2")
CASE Option0.TEXT="電子郵件"
*轉文字檔到電子郵件
external D_OBJ,D_OBJ1,D_OBJ2,F_SUB
F_SUB=ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt'
MEMOWRITE(ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt'," ")
D_OBJ='"'+EDIT23.TEXT+'"'+"<"+EDIT28.TEXT+">"
D_OBJ1=EDIT19.TEXT
TXTREAD() &&讀取字檔
D_OBJ2=MEMOREAD(ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt') &&將郵件的內容讀入D_OBJ2
NEWFORM("S_SEND")
CASE Option0.TEXT="圖片列印"
NEWREP("MAT_REP")
ENDCASE

*增加文字到文字檔TXTREAD()
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',MAIN.EDIT0.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',MAIN.EDIT5.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"TEL:"+MAIN.EDIT19.TEXT+" "+"FAX:"+MAIN.EDIT18.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"報價日期:"+TRANSFORM(Edit18.Text,"@D8")+SPACE(40)+"報價編號:"+Edit17.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"收件人:"+edit23.text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"客戶名稱:"+edit19.text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"客戶地址:"+edit21.text)
select CUSTOMER
SEEK EDIT11.TEXT
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"電話:"+TRIM(CUSTOMER->TELEPHONE)+" "+"傳真:"+TRIM(CUSTOMER->FAX))
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',SPACE(35)+"電子報價單")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"產品編號產品名稱單價數量合計備註 ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
SELE MATERIAL
GO TOP
DO WHILE !EOF()
A=TRIM(ITEM_NO)+CREPL(".",12-LEN(TRIM(ITEM_NO)))+TRIM(NAME)+CREPL(".",40-LEN(TRIM(NAME)))+trim(str(PRICE))+CREPL(".",8-LEN(trim(str(PRICE))))+trim(str(QUANTITY))+TRIM(UNIT)+CREPL(".",4-LEN(TRIM(UNIT)))+trim(str(ROUND(PRICE*QUANTITY,2)))+CREPL(".",10-LEN(trim(str(ROUND(PRICE*QUANTITY,2)))))+".."+REMARK
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',A)
SKIP
ENDDO
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"備註 :")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"1.此報價不含營業稅5%稅額")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"2.付款條件:"+Combo3.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"3.有效期限:"+TRANSFORM(Edit27.Text,"@D8"))
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"4.運費:"+Combo4.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"5.此份報價將隨國際物料變動而修正 ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt'," ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"回傳簽章: 業務部承辦人員: 業務部經理簽章: ")
SELECT SETPRINT
SEEK UPPER(WHOAMI())
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"傳送電子郵件信箱:"+EMAIL)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"QR701.1")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"保存期限一年")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"---------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',">>")

*寫入電子郵件
MTOA(D_OBJ2,MEMO0.LINES)
MTOA("",MEMO1.LINES) &&清成空白
ASSIGN(MEMO1.LINES[1],F_SUB)
ASSIGN(MEMO1.LINES[2]," ")
M_SEC=1
SELECT ITEM
SEEK SUBS(ALIASPATH(main.edit6.text),1,2)

Set While From SUBS(ALIASPATH(main.edit6.text),1,2) TO SUBS(ALIASPATH(main.edit6.text),1,2)
MultiPage0.PageIndex=0
SELECT SETPRINT
SEEK UPPER(_USER_NAME)
IF !EOF()
&&ASSIGN(EDIT3.TEXT,EMAIL)
stmp=edit3.text,password=edit6.text
ASSIGN(EDIT1.TEXT,EDIT3.TEXT)
IF UPPER(WHOAMI())='USER26'
ASSIGN(EDIT4.TEXT,'trading@fluxtek.com')
ENDIF
RETURN .T.
ELSE
WARNING('查無此使用者資料')
ENDIF

FileSel0.Directory="C:\Documents and Settings\"+WHOAMI()+"\My Documents"
&&message("測試錯誤")
TRY
assign(Mail0.SmtpCharSet,2)
ERROR &&發生錯誤時會直接進入本段程式中執行
MESSAGE("未安裝BIG5語系,寄送時可能亂碼")
ENDTRY

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (691)

2009/03/31

讀入產品文字檔產品描述

分類: Visual DBtools 2.2

作者: lutuni (9:06 am)

*MP0PC()
DO CASE
CASE MultiPage0.PageIndex=0
CASE MultiPage0.PageIndex=1
CASE MultiPage0.PageIndex=2
PURCSUB.GoBottom()
CASE MultiPage0.PageIndex=3
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=4
CASE MultiPage0.PageIndex=5
CASE MultiPage0.PageIndex=6
*讀入文字檔內容
IF FILE(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT") &&檢查以產品編號(EDIT0.TEXT)檔案名稱是否存在
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT"),Memo0.Lines) &&如果存在就讀入
ELSE
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\CLEAR.TXT'),Memo0.Lines) &&如果不存在就讀入空白
ENDIF
IF FILE(MAIN.EDIT12.TEXT+'TXT\ITEM\EN_'+TRIM(EDIT0.TEXT)+".TXT")
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\ITEM\EN_'+TRIM(EDIT0.TEXT)+".TXT"),Memo1.Lines)
ELSE
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\CLEAR.TXT'),Memo1.Lines)
ENDIF
CASE MultiPage0.PageIndex=7
ASSIGN(Image1.Image,EDIT7.TEXT)
ENDCASE

*存入中文說明
External M_SEC,REMARK1
ASSIGN(REMARK1,ATOM(Memo0.Lines))
MEMOWRITE(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT",REMARK1)
MESSAGE('中文功能說明資料已存入..','訊息視窗',200,200)

*還原上次存檔內容
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\TW_'+TRIM(EDIT0.TEXT)+".TXT"),Memo0.Lines)

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (799)

2009/03/21

客戶檔銷貨產品查詢

分類: Visual DBtools 2.2

作者: lutuni (1:08 pm)

*客戶檔銷貨產品查詢
select INVOSUB
IF !EMPTY(EDIT25.TEXT)
Set While FROM CUSTOMER->CUST_CODE+EDIT25.TEXT+SPACE(20-LEN(TRIM(EDIT25.TEXT)))+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+EDIT25.TEXT+SPACE(20-LEN(TRIM(EDIT25.TEXT)))+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
ELSE
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
ENDIF
DO CASE
CASE COMBO12.TEXT="銷貨"
ASSIGN(INVOSUB.Filter,'"S"$TRN_NO')
CASE COMBO12.TEXT="退貨"
ASSIGN(INVOSUB.Filter,'"B"$TRN_NO')
Otherwise
ASSIGN(INVOSUB.Filter,"")
ENDCASE
GO Bottom

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (731)

2009/03/19

換頁程序

分類: Visual DBtools 2.2

作者: lutuni (11:35 am)

*MP0PC()Edit15.Text
DO CASE
CASE MultiPage0.PageIndex=0
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ENDIF
CASE MultiPage0.PageIndex=1
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ENDIF

CASE MultiPage0.PageIndex=2
ASSIGN(Label3.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
INVO.Active=1
select INVO
ASSIGN(Field11.DoTotal,0)
ASSIGN(Field11.ShowTotal,0)
Set While FROM CUSTOMER->CUST_CODE+TRIM(COMBO2.TEXT)+TRIM(COMBO3.TEXT) TO CUSTOMER->CUST_CODE+TRIM(COMBO4.TEXT)
ASSIGN(Field11.DoTotal,1)
ASSIGN(Field11.ShowTotal,1)
GO Bottom

CASE MultiPage0.PageIndex=3
ASSIGN(Label4.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
ASSIGN(EDIT25.TEXT,"")
INVOSUB.Active=1
select INVOSUB
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=4
ENDCASE

閱讀 lutuni 的日誌 | 迴響 (0) | 引用次數 (0) | 瀏覽次數 (837)

« 1 ... 5 6 7 (8) 9 10 »