用Access2007解決支票打印的日期大寫問題_Access數(shù)據(jù)庫(kù)教程

      編輯Tag賺U幣
      教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!

      推薦:帶你深入了解Access數(shù)據(jù)庫(kù)的4種安全方式
      一、密碼式 給數(shù)據(jù)庫(kù)起一個(gè)隨機(jī)復(fù)雜的名稱,避免被猜到被下載,這種方式在以前很流行,因?yàn)榇蠹叶紝?duì)自己的代碼很有自信。但隨著錯(cuò)誤提示對(duì)數(shù)據(jù)庫(kù)地址的泄露導(dǎo)致數(shù)據(jù)庫(kù)被非法下載,這種方式也就越來(lái)越少人用了。 二、#式 在數(shù)據(jù)庫(kù)名稱里加上#號(hào),從URL上請(qǐng)求時(shí)#是請(qǐng)求地

        財(cái)務(wù)人員都知道,轉(zhuǎn)賬支票的出票日期是需要大寫的。如果用手寫,當(dāng)然可以直接填寫成大寫,但如果設(shè)計(jì)專用軟件進(jìn)行套打,每張支票都在固定位置填寫大寫會(huì)很麻煩,也沒有必要。這里僅以access2007設(shè)計(jì)為例,給這方面的愛好者提供一個(gè)思路。

        一、先設(shè)計(jì)一個(gè)Access2007表,加入轉(zhuǎn)賬支票可能需要的字段,比如付款人名稱、付款人賬號(hào)、收款人名稱、付款金額、出票日期等等。其中的“出票日期”設(shè)成“日期”類型,默認(rèn)值可以設(shè)成“date()”(即當(dāng)天日期)。表設(shè)計(jì)好后命名保存?zhèn)溆谩?/p>

        二、新建模塊,并輸入以下內(nèi)容

        Public Function Udate(mDATE As Date, mYMD As Integer) As String

        '用法 Udate(#1/2/2005#, i)

        'i=1  貳零零伍

        'i=2 零壹

        'i=3 零貳

        'i=0 貳零零伍年零壹月零貳日

        Dim i As Integer, iD As Integer

        Dim strDT(2) As String, strS As String

        Dim strD(0 To 9) As String * 1

        strD(0) = "零"

        strD(1) = "壹"

        strD(2) = "貳"

        strD(3) = "叁"

        strD(4) = "肆"

        strD(5) = "伍"

        strD(6) = "陸"

        strD(7) = "柒"

        strD(8) = "捌"

        strD(9) = "玖"

        For i = mYMD + (mYMD <> 0) To mYMD + (mYMD <> 0) - (mYMD = 0) * 2

        If i = 0 Then

        iD = Year(mDATE)

        strDT(i) = strD(iD 1000) & strD((iD 100) Mod 10) & strD((iD 10) Mod 10) & strD(iD Mod 10)

        Else

        If i = 1 Then iD = Month(mDATE) Else iD = Day(mDATE)

        If iD > 9 Then strS = "拾" Else strS = ""

        strDT(i) = strD(iD 10) & strS & strD(iD Mod 10)

        If iD > 9 And iD Mod 10 = 0 Then strDT(i) = "零" & Left$(strDT(i), 2)

        End If

        Next

        Select Case mYMD

        Case 0

        Udate = strDT(0) & "年" & strDT(1) & "月" & strDT(2) & "日"

        Case Else

        Udate = strDT(mYMD - 1)

        End Select

        End Function

        三、以第一步建的表為基礎(chǔ)新建一個(gè)查詢,加入必要的字段。另在一個(gè)空白字段寫表達(dá)式:“大寫: Udate([出票日期],0)”。保存這個(gè)查詢。

        四、在原表中錄入將要打印的支票信息,“出票日期”字段必須錄入正確的日期。

        五、運(yùn)行查詢,就會(huì)看到有一個(gè)大寫的日期字段。有了這個(gè)結(jié)果,無(wú)論設(shè)計(jì)窗體,還是設(shè)計(jì)報(bào)表,都可以自由引用了。

      分享:ACCESS:定義表之間的關(guān)系
      關(guān)系簡(jiǎn)介 在Access數(shù)據(jù)庫(kù)中,不同表中的數(shù)據(jù)之間都存在一種關(guān)系,這種關(guān)系將數(shù)據(jù)庫(kù)里各張表中的每條數(shù)據(jù)記錄都和數(shù)據(jù)庫(kù)中唯一的主題相聯(lián)系,使得對(duì)一個(gè)數(shù)據(jù)的操作都成為數(shù)據(jù)庫(kù)的整體操作,正所謂牽一發(fā)而動(dòng)全身。 就拿上幾課建立的表來(lái)說(shuō)吧,客戶信息表中的公司名稱和

      來(lái)源:模板無(wú)憂//所屬分類:Access數(shù)據(jù)庫(kù)教程/更新時(shí)間:2013-04-17
      相關(guān)Access數(shù)據(jù)庫(kù)教程