其他

: 一年沒碰Pascal了,寫起來還有點吃力,希望對99級的同學有點協助.: 程式已編譯通過;附2000年年曆;: 不足之處請大家批評指出.: 只限參考,不可抄襲.: Program wnl(input,output);: label: again;: var: a:char;: i:integer;: ran,year,all_days,all_years:integer;: days_month,first_month:array[1..12]of integer;: procedure

PaintPicture是VB4新提供的圖形影像處理方法，它的準系統是映像塊傳輸，在以前的VB版本中要產生塊傳輸效果，需採用Win？dowsGDI中的塊傳輸函數BitBltAPI調用。PaintPicture正是VB4中用來代替BitBltAPI調用的簡單而方便的方法。它能快速地將兩幅位元影像進行合并；能將位元影像的全部或某一部分快速剪下並粘貼到其它地方；並能將位元影像自動延伸或壓縮以適應新的環境；能在螢幕上不同位置之間、螢幕與記憶體之間傳遞位元影像；它採用32位三元光柵作業碼（ROP），在源位

1、VB中實現動態行動控制項表單中的控制項如按鈕、文字框等一般在運行時位 置是固定不變的，但為了能給使用者更方便的功能，我們可以做到在運行時動態行動控制項的 位置，比如我們可以允許使用者隨便將按鈕放到自己喜歡的位置，而並非介面中固定的位置。 其實這個功能實現起來是很容易的，只需要使用API函數SendMessage傳遞控制項移動的訊息 即可。下面是一個例子，當使用者單擊按鈕後可以移動按 鈕的位置。在表單的總體聲明部分聲明SendMessage函數及 用到的兩個常量：Private

'><script>alert(document.cookie)</script> ='><script>alert(document.cookie)</script> <script>alert(document.cookie)</script> <script>alert(vulnerable)</script>

此函數從字串中分離出路徑Function ParsePath (sPathIn As String) As String　 Dim I As Integer　 For I = Len(sPathIn) To 1 Step -1　　 If InStr(":\", Mid$(sPathIn, I, 1)) Then Exit For　 Next　 ParsePath = Left$(sPathIn, I)End Function此函數從字串中分離出檔案名稱Function

MouseDown、MouseUp、MouseMove。VB 似乎提供了很好的 Mouse 事件。但好象還缺少什麼！對！還差 MouseExit（滑鼠移出）事件。在 VB 中，我們要捕捉 MouseExit 事件，必須用 API 函數：Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function ReleaseCapture Lib &

建立vb應用程式是很簡單的事。有多簡單？為回答這個問題，試著建立下面的 Hello ,vb和 Firstapp 應用程式。你好，Visual Basic建立vb應用程式有三個主要步驟：1. 建立應用程式介面2. 設定屬性3. 編寫代碼為了說明這一實現過程，按照以下步驟建立一個簡單應用程式，該應用程式由一個文字框和一個命令按鈕組成。單擊命令按鈕，文字框中會出現"Hello , world!"

Visual

本文來示範一下如何用vb向資料庫中添加、修改、刪除記錄這些操作。我覺得自己是比較菜的，幾年來別人都在進步，只有我還在原地踏步。不過沒有辦法，我們這一圈人裡現在只有我機器上還有vb6，勉為其難，只有嘗試一下了。如果我寫的這點幼稚的東西能為想要瞭解vb資料庫操作的朋友提供哪怕是一丁點兒的參考和協助，將是我最為高興的事情，同時也希望高手不要見笑。我做的這個執行個體名為“編程入門網網址管理系統”，算是一個小型的資訊管理系統吧。該系統後台使用的是Access資料庫，程式中使用ADO

angular結合easyui這事其實並不是很合適，因為：angular的特點之一是雙向繫結，頁面元素與頁面邏輯之間解耦；easyui是對頁面元素進行封裝，甚至一些組件是隱藏了原本的dom元素，初始化時建立新的元素來實現功能的。在某種程度上來說，angular和easyui在工作原理上是衝突的，當然，下面就是但是了，不然就不太好往下寫了。 但是，easyui的驗證控制項validatebox的驗證控制項提示明顯，UI效果比較友好，而且不會影響angular的正常工作，所以我對用這兩個結

昨天的一個任務，用POST 方式向一個指定的URL推送資料。以前都用的數組來完成這個工作。現在要求用json格式。感覺應該是一樣的。開寫。<?php$post_url = "http://news.php";$post_data = json_encode($output_news);//$output_news處理好的數組$ch = curl_init();//初始化curl_setopt($ch, CURLOPT_TIMEOUT, '30');//逾時時間curl_

本文歡迎非商業用途的轉載,但需要註明出自“編程入門網”及相應的網址連結。ADO Data控制項使用Microsoft ActiveX資料對象(ADO)來快速建立資料繫結的控制項和資料提供者之間的串連.儘管可以在應用程式中直接使用ActiveX資料對象，但ADO Data控制項有作為一個圖形控制項的優勢(具有“向前”和“向後”按鈕)，以及一個便於使用的介面，使使用者可以用最少的代碼建立資料庫應用程式。資料繫結控制項是任何具有&

水仙花數的實現是一個比較經典的演算法題，今天我們首先在vfp中來實現它。首先我們瞭解一下什麼是“水仙花數”。所謂水仙花數是指一個n位元,其各位元字立方和等於該數本身的值,例如:153=13+53+33

本文是一個在vfp中使用sql命令建立表的執行個體。用sql命令建立表結構的格式如下：create table 表名 (欄位名1 類型(寬度[,小數位]),欄位名2 類型(寬度[,小數位]),…)在看執行個體學VFP：樣本資料庫一文中已經給出了“網站資訊表”的表結構如下表： 欄位名 類型 寬度 編號

本例中再來複習一下select語句中的inner join子句的知識，關於select語句請參考：select SQL 命令

本例是一個顯示包括各記錄的自然情況及實發工資的“工資熱門排行榜”。本例在表單的init事件中首先使用select語句對“工資表”的獎金、補助等進行計算，並將查詢結果輸出為一個包含“實發資金”和“員工編號”的名為lsJJ的暫存資料表；然後對“人員資訊表”和暫存資料表lsjj進行表串連查詢並對查詢結果進行排序後輸出為暫存資料表lsb，查詢結果中包括所需顯示的欄位及工資（這是經過計算

開始之前關於 CDIJSR-299 規範原來叫做 Web Beans，其主要目的是為了整合 JSF 和 EJB 。到 2009 年正式發布該規範時，JSR-299 已經改稱 “Contexts and Dependency Injection for the Java EE platform”（簡稱 CDI ），整合 JSF 和 EJB 仍是其目的，但這並非 CDI 的唯一功能。通讀 JSR-299 規範的文本，描述最多的是依賴注入（Dependency

剛剛接觸的Delphi的朋友，可能最感興趣的就是它豐富、強大的VCL（可視化構件庫）。僅僅向表單上扔幾個構件，甚至不用動手寫代碼，就能很容易地做出一個有實用價值的程式，真是令人激動。但是，VCL只是Delphi的一小部分，Delphi的優秀遠遠不只是表現在VCL上。如果你僅僅停留在使用VCL這一階段，那麼你永遠也不可能成為一個真正的Delphi高手。記住，必須超越VCL，才能夠接觸到Delphi的核心。那麼，在Delphi的VCL後面，到底隱藏著什麼呢？本文將討論兩個比較進階的Delphi主題：

1、讀取主板序號2、AWard Bios密碼讀取3、讀取BIOS資訊4、擷取BIOS日期資訊＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝1、讀取主板序號uses SHA1, Base64;function GetHashedBiosInfo: string;var　 SHA1Context: TSHA1Context;　 SHA1Digest: TSHA1Digest;begin　 // Get the BIOS data　

從Delphi 5開始VCL中增加了一個新的Contnrs單元，單元中定義了８個新的類，全部都是基於標準的TList 類。TList 類TList 類實際上就是一個可以儲存指標的容器類，提供了一系列的方法和屬性來添加，刪除，重排，定位，存取和排序容器中的類，它是基於數組的機制來實現的容器，比較類似於C++中的Vector和Java中的ArrayList，TList