Hudson的工作簡記

123之歌

2010-01-19T23:32:00.000-08:00

天才作曲人：許老大
原唱：　黃小琥
曲目：　相愛沒有那嚜容易
（）內文字　為旁白設計
[轉貼]

傻子沒有那麼簡單

歌詞：

沒那麼簡單　就能找到　聊得來的伴(太監)
尤其是在　看過了那麼多的背叛(109)
總是不安　只好強悍
誰謀殺了我的浪漫

沒那麼簡單　就能去標　別的全不看
變得實際　也許好也許壞各一半
不愛孤單　一久也習慣
不用擔心誰　也不用被誰管(AC)

感覺快樂就忙東忙西
感覺累了就放空自己(每天都在放空)
別人說的話　隨便聽一聽(我們ㄉ意見)
傻子作決定

不想擁有太多情緒　一碗清粥配中時
在周末晚上　關上了手機
舒服窩在沙發裡

標案沒有那麼容易　每個人有他的脾氣
過了愛作夢的年紀　轟轟烈烈不如平靜

賺錢沒有那麼容易　才會讓人特別著迷
什麼都不懂的年紀(都60了還當傻子)　
曾經最掏心　所以最開心　曾經

[轉貼]http://www.study-area.org/coobila/tutorial_381.html

2009-10-29T23:26:00.001-07:00

用SQL合併資料表

阿瑟發表

今天小弟透過阿閔兄的協助總算把網站導覽列上的分類中文章數目擠出來了, 由於有些SQL的技巧是小弟今天才比較了解的, 可能要再花一些時間整理, 因此先將合併資料表方面的資料整理出來與大家分享.

合併資料表
這邊是教你用SQL去寫, 當然如果你有Access的話也可以用設計檢視去設計合併資料表. 用這個方法合併資料表不會永久合併, 而是在SQL執行的時候建立一份新的資料表來進行兩份資料表的合併工作. 因此不用擔心啦! Access裡面的查詢 (Query) 就可以做到這個功能.

INNER JOIN 方法
Sql = "SELECT * FROM 資料表1 INNER JOIN 資料表2 ON 條件"

SELECT * 的 * 代表所有欄位, 也就是從資料表選取所有欄位.
INNER JOIN的意思是將資料表1與資料表2合併, 而 ON 之後的條件要成立.
這條件怎麼寫呢?
假如說資料表1有一個class欄位而資料表2也有一個class欄位, 那ON你可以寫資料表1.class = 資料表2.class
xxx.yyy , xxx代表的是資料表, yyy代表的是欄位名稱.

現在如果將這整段寫出來的話:
Sql = "SELECT * FROM 資料表1 INNER JOIN 資料表2 ON 資料表1.class = 資料表2.class"

意思也就是如果資料表1的class欄位與資料表2的class欄位數值相等就將他們合併, 如果資料表1的class欄位含有資料表2的class欄位沒有的數值, 就將其剔除, 反推亦同. INNER JOIN的意思就是當兩個資料表的某欄位含有相同的資料再合併, 如果沒有就剔除.

執行上面這段SQL以後就會產生一個同時含有資料表1與資料表2的資料的新資料表, 中間的連結欄位是用兩個資料表的class欄位.

這個技巧可以怎麼使用呢? 就拿文章系統來講, 如果你有一個文章列表, 和一個文章分類.
文章列表中紀錄每一個文章的資料和分類, 而文章分類紀錄著分類資訊, 你可以用這個方法來將兩個資料表暫時合併 (在SQL被執行時合併) 來同時存取兩個資料表的資料.

RIGHT JOIN 方法
剛剛的 INNER JOIN是很棒沒有錯, 但是如果今天有一個文章分類裡面沒有任何的文章, 那由於文章列表中沒有對應的分類資料, 該分類就會被剔除...這...不大對吧?! 因此還有RIGHT JOIN的方法.
Sql = "SELECT * FROM 資料表1 RIGHT JOIN 資料表2 ON 資料表1.class = 資料表2.class"
其實大致上和剛剛是一樣的, 只是RIGHT JOIN會以資料表2, 也就是運算子的右邊的資料表為重, RIGHT JOIN會將所有右邊資料表 (也就是資料表2) 的資料都加進來, 而只將左邊資料表 (資料表1) 符合的資料加進來.

這樣在做文章分類清單的時候, 就算一個文章列表裡面沒有任何文章, 那該分類仍然會顯示出來.

LEFT JOIN 方法
有RIGHT JOIN, 當然就有 LEFT JOIN...
Sql = "SELECT * FROM 資料表1 LEFT JOIN 資料表2 ON 資料表1.class = 資料表2.class"

其實就是一樣的意思啦, 之前的RIGHT JOIN是包含所有右邊資料表的內容, 那LEFT JOIN當然就是包含所有左邊資料表的內容囉!

只要記得:
# INNER JOIN - 兩邊的資料表擁有相同的優先權, 要兩邊都有的資料才會被包含在新的資料表.
# RIGHT JOIN - 右邊的資料表擁有優先權, 右邊所有的資料都會被包含, 而左邊只有符合的資料才會被包含.
# LEFT JOIN - 左邊的資料表擁有優先權, 左邊所有的資料都會被包含, 而右邊只有符合的資料才會被包含.

感謝阿閔兄的指導

最後更新日期: 1/3/2003 7:03:33 PM

[轉貼 http://blog.darkhero.net/?p=166]

2009-08-12T00:08:00.001-07:00

於是寫了一個簡單的函式，處理討論區新增會員的功能。

/**
* 新增 phpbb2 使用者
*
* @param string $username
* @param string $password
* @param string $email
*/
function add_phpbb2_user($username,$password,$email){
// 建立 phpbb2 資料庫連線物件
define(’IN_PHPBB’, true);
$phpbb_root_path = ‘./forum/’;
include_once($phpbb_root_path."config.php");
include_once($phpbb_root_path."extension.inc");
include_once($phpbb_root_path."includes/constants.php");
include_once($phpbb_root_path."includes/db.php");

// auth OK
$sql = "SELECT user_id, username, user_password, user_active, user_level FROM " . USERS_TABLE .
" WHERE username = ‘" . str_replace("’", "”", $username) . "’";
if ( !($result = $db->sql_query($sql)) )
{
message_die(GENERAL_ERROR, ‘Error in obtaining userdata’, ”, __LINE__, __FILE__, $sql);
}
if( !($row = $db->sql_fetchrow($result)) ) {
// no data found, first login
$sql = "SELECT MAX(user_id) AS total FROM " . USERS_TABLE;
if ( !($result = $db->sql_query($sql)) )
{
message_die(GENERAL_ERROR, ‘Could not obtain next user_id information’, ”, __LINE__, __FILE__, $sql);
}

if ( !($row = $db->sql_fetchrow($result)) )
{
message_die(GENERAL_ERROR, ‘Could not obtain next user_id information’, ”, __LINE__, __FILE_, $sql);
}
$user_id = $row['total'] + 1;

$sql = "INSERT INTO " . USERS_TABLE . " (" .
"user_id," .
"username," .
"user_regdate," .
"user_password," .
"user_email," .
"user_icq," .
"user_website," .
"user_occ," .
"user_from," .
"user_interests," .
"user_sig," .
"user_sig_bbcode_uid," .
"user_avatar," .
"user_avatar_type," .
"user_viewemail," .
"user_aim," .
"user_yim," .
"user_msnm," .
"user_attachsig," .
"user_allowsmile," .
"user_allowhtml," .
"user_allowbbcode," .
"user_allow_viewonline," .
"user_notify," .
"user_notify_pm," .
"user_popup_pm," .
"user_timezone," .
"user_dateformat," .
"user_lang," .
"user_style," .
"user_level," .
"user_allow_pm," .
"user_active," .
"user_actkey" .
") VALUES (" .
"$user_id," .
"’" . str_replace("’", "”", $username) . "’," .
time() . "," .
"’" . str_replace("’", "”", md5($password)) . "’," .
"’" . str_replace("’", "”", $email) . "’," .
"’" . str_replace("’", "”", "") . "’," .
"’" . str_replace("’", "”", "") . "’," .
"’" . str_replace("’", "”", "") . "’," .
"’" . str_replace("’", "”", "") . "’," .
"’" . str_replace("’", "”", "") . "’," .
"’" . str_replace("’", "”", "") . "’," .
"”," .
"”," .
"0," .
"0," .
"’" . str_replace("’", "”", str_replace(’ ‘, ‘+’, "")) . "’," .
"’" . str_replace("’", "”", "") . "’," .
"’" . str_replace("’", "”", "") . "’," .
"1," .
"1," .
"1," .
"1," .
"1," .
"0," .
"0," .
"1," .
"8.00," .
"’" . str_replace("’", "”", "D M d, Y g:i a") . "’," .
"’" . str_replace("’", "”", "chinese_traditional_taiwan") . "’," .
"1," .
"0," .
"1," .
"1," .
"”" .
")";
echo $sql;
if ( !($result = $db->sql_query($sql, BEGIN_TRANSACTION)) )
{
message_die(GENERAL_ERROR, ‘Could not insert data into users table’, ”, __LINE__, __FILE__, $sql);
}

$sql = "INSERT INTO " . GROUPS_TABLE . " (group_name, group_description, group_single_user, group_moderator)" .
" VALUES (”, ‘Personal User’, 1, 0)";

echo $sql;
if ( !($result = $db->sql_query($sql)) )
{
message_die(GENERAL_ERROR, ‘Could not insert data into groups table’, ”, __LINE__, __FILE__, $sql);
}

$group_id = $db->sql_nextid();

$sql = "INSERT INTO " . USER_GROUP_TABLE . " (user_id, group_id, user_pending)" .
" VALUES ($user_id, $group_id, 0)";

echo $sql;
if( !($result = $db->sql_query($sql, END_TRANSACTION)) )
{
message_die(GENERAL_ERROR, ‘Could not insert data into user_group table’, ”, __LINE__, __FILE__, $sql);
}
}
}

error creating cursor handle [轉貼自: http://blog.roodo.com/techcity/archives/4963939.html]

2009-07-24T03:10:00.001-07:00

造成error creating cursor handle的原因？(TQuery元件使用Open()與ExecSQL()的時機與差異)

使用元件

TQuery、DBGrid、DataSource、BitBtn

原理解說

常會有使用者有這樣的疑問，為什麼我用TQuery及TADOQuery元件時，做新增(Insert)、刪除(Delete)、更新(Update)會出現錯誤？而做查詢(Select)時卻不會出現錯誤？

一般可以將資料操作語言分成四種：分別是新增(Insert)、刪除(Delete)、更新(Update)、查詢(Select)。

而以上四種僅只有Select會要求資料庫回傳資料，即便回傳的是空資料也行，另外其餘三種(Insert、Delete、Update)僅是要求資料庫執行某些動作，並不會回傳資料。

或許會有讀者說，我沒有使用Open()和ExecSQL()，我只使用Active = true，實際上這個動作做的就是Open()的動作。

設計步驟

建立一個新的Project。

* 1 放入一個TQuery元件，設定它的DatabaseName屬性為BCDEMOS。
* 2 放入一個TDataSource元件，設定它的DataSet屬性為Query1。
* 3 放入一個TDBGrid元件，設定它的DataSet屬性為Query1。
* 4 四個TBitBtn元件，設定四者的Caption屬性分別改為Insert、Delete、Update、Select，設定四者的Name屬性分別為 BitBtn_Insert、BitBtn_Delete、BitBtn_Update、BitBtn_Select。
* 5 程式實例：

void __fastcall TForm1::BitBtn_InsertClick(TObject *Sender) // 新增

{

try

{

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Text = "Insert into employee (EmpNo, LastName, FirstName, PhoneExt, Salary) values (200 , 'Bruce', 'White', '100', 40000) ";

Query1->ExecSQL();

ShowMessage("Success");

}

catch(...)

{

ShowMessage("Failure");

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn_DeleteClick(TObject *Sender) // 刪除

{

try

{

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Text = "Delete from employee where EmpNo = '200' ";

Query1->ExecSQL();

ShowMessage("Success");

}

catch(...)

{

ShowMessage("Failure");

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn_UpdateClick(TObject *Sender) // 更新

{

try

{

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Text = "Update employee set LastName = 'Ben' where EmpNo = '200' ";

Query1->ExecSQL();

ShowMessage("Success");

}

catch(...)

{

ShowMessage("Failure");

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn_SelectClick(TObject *Sender) // 查詢

{

try

{

Query1->Close();

Query1->SQL->Clear();

Query1->SQL->Text = "Select * from employee ";

Query1->Open();

ShowMessage("Success");

}

catch(...)

{

ShowMessage("Failure");

}

}

//---------------------------------------------------------------------------

[轉貼]

2009-06-26T02:49:00.001-07:00

Problem:
What is the TBatchMove component and how do I use it with InterBase (or any other database)?

Solution:
An Introduction to the TBatchMove component
=====================================

1. What is it?
TBatchMove is a VCL component that lets you perform operations on groups of records in a table.
The operations are named with intuitive names that basically tell what they do.
Listed below are the operations or "modes" that the TBatchMove component supports.

- batAppend => appends all records from the source table to the end of the destination
table.

- batAppendUpdate => Appends all records from the source table to the end of the destination
table and updates those records with the same primary index in the
destination table with the same records from the source table.

- batCopy => Copies a table and its records to a new table

- batDelete => Delete all records in the destination table that also appear in the source table.

- batUpdate => Update existing records in the destination table with their counterparts
in the source table.

2. How do I use it?
Listed below are steps to setup and run a TBatchMove component to upsize Paradox data to
InterBase.

a. Put two TTable objects on the form, one for source and one for destination.
1. Click on "Data Access" tab.

2. Click on table icon.

3. Click on form.

4. Press to go to the Object Inspector.

5. Define the Database property for table1 to be the BDE alias that points to the directory
where Paradox tables are located. In this case, we are using the DBDEMOS alias
that is installed by default when you do a full install of Delphi 3.

6. Define the TableName property in object inspector for table1 to be the Paradox table name,
In this example, the table name will be the "orders" sample table that comes with
Delphi. Since we have already specified the location of the tables, you can easily
fill in the TableName property setting by selecting the table from the picklist of the TableName
property.

7. Repeat steps 2.a.1 - 2.a.4 for table2

8. Define the database on table2 to be an alias that points to the InterBase database, in this case
employee.gdb, by selecting the BDE alias that points to the employee database.

9. Define TableName property for table2 to be the table name you want created in
InterBase. For simplicity, call it "orders" as well.

10. Configre the TBatchMove component
a. Put the TBatchMove component on the form.
1. Click on the Mode property's edit box.

2. Click on the BatchMove icon.

3. Click on the form.

b. Define the source and destination for TBatchMove
1. Hit to go to the object inspector.

2. Set the Source property of TBatchMove to be table1.

3. Set the Destination property of TBatchMove to be table2.

d. Specify the mode for TBatchMove
1. Click on the Mode property's edit box.
2. Click on the down arrow that appears to get a picklist of modes to choose from.
3. Click on "batCopy" to select it from the list.

d. Activate TBatchMove
1. Right click on TBatchMove component
2. Click on "Execute" on the pop-up menu that appears.

e. What happens when TBatchMove fails?

You can tell TBatchMove to document what happened when you run a batch move operation
by setting the following properties. They tell Delphi to create a local Paradox table containing
records that were not successfully part of the batchmove operation.

ChangedTablename => Records that were modified by the batch move operation

KeyvioltableName => Records that could not be added because they violated a uniqueness
constraint.

ProblemTableName => Records that could not be added for one reason or another.

Paradox type compared with mssql

2009-06-19T03:56:00.001-07:00

Value Sql Description

ftUnknown Unknown or undetermined
ftString char Character or string field
ftSmallint smallint 16-bit integer field
ftInteger int 32-bit integer field
ftWord tinyint 16-bit unsigned integer field
ftBoolean bit Boolean field
ftFloat float、real Floating-point numeric field
ftCurrency Money field
ftBCD decimal、money、 Binary-Coded Decimal field
numeric、smallmoney
ftDate Date field
ftTime Time field
ftDateTime datetime、smalldatetime Date and time field
ftBytes binary、timestamp Fixed number of bytes (binary storage)
ftVarBytes varbinary Variable number of bytes (binary storage)
ftAutoInc Auto-incrementing 32-bit integer counter field
ftBlob image Binary Large OBject field
ftMemo text Text memo field
ftGraphic Bitmap field
ftFmtMemo Formatted text memo field
ftParadoxOle Paradox OLE field
ftDBaseOle dBASE OLE field
ftTypedBinary Typed binary field
ftCursor Output cursor from an Oracle stored procedure (TParam only)
ftFixedChar Fixed character field
ftWideString nchar、nvarchar Wide string field
ftLargeInt bigint Large integer field
ftADT Abstract Data Type field

ftArray Array field
ftReference REF field
ftDataSet DataSet field
ftOraBlob BLOB fields in Oracle 8 tables
ftOraClob CLOB fields in Oracle 8 tables
ftVariant sql_variant Data of unknown or undetermined type
ftInterface References to interfaces (IUnknown)
ftIDispatch References to IDispatch interfaces
ftGuid uniqueidentifier globally unique identifier (GUID) values

[Delphi] insert into paradox

2009-06-17T18:29:00.000-07:00

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
i : integer;

begin
// status bar
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;
// end of status bar

adoquery1.close;
adoquery1.SQL.clear;
s:= trim(memo1.text);
adoquery1.SQL.Add(s);
adoquery1.open;
createDB('c:\','sucks.db');

{
for i := 0 to 100 do
begin
ProgressBar1.Position := i;
Sleep(25);
//Application.ProcessMessages;
}

// start of sql query
// while not adoquery1.Eof do
// begin

Query1.Close;
Query1.SQL.Clear;
// Query1.SQL.Add('Insert Into "c:\test3.db" ' + ' Values(:s_date,:prn_code,:sec_code,:cat_code,:brand_code,:copyline_code,:ver,:paper,:color_type,:page,:week,:s_cost,:sp,:remark,:page_1,:ver_1)');

Query1.SQL.Add('Insert Into "c:\test3.db" (brand_code)' + ' values(:brand_code)');

Query1.ParamByName('brand_code').asstring := 'aaa';
{
Query1.ParamByName('s_date').AsDate := adoquery1.FieldByName('adsdate').AsDateTime;
Query1.ParamByName('Prn_CODE').asstring := adoquery1.FieldByName('engmedianame').AsString;
Query1.ParamByName('Sec_Code').asString := adoquery1.FieldByName('sectioncode').AsString;
Query1.ParamByName('cat_code').asString := adoquery1.FieldByName('categorycode').AsString;
Query1.ParamByName('Brand_Code').asstring := adoquery1.FieldByName('brandcode').AsString;
Query1.ParamByName('Copyline_CODE').asstring := adoquery1.FieldByName('copylinecode').AsString;
Query1.ParamByName('paper').AsInteger := adoquery1.FieldByName('printtypecode').AsInteger;
Query1.ParamByName('color_type').AsInteger := adoquery1.FieldByName('printcolorcode').AsInteger;
Query1.ParamByName('page').asstring := adoquery1.FieldByName('pageno').AsString;
Query1.ParamByName('s_cost').AsCurrency := adoquery1.FieldByName('cost').AsInteger;
}
Query1.ExecSQL;
// Query1.Close;
// Query1.Next;
// query1.sql.savetofile('c:\sql.txt');
// end; // end of while

// end; // end of for loop

end;

paradox symbol called

2009-06-15T02:08:00.001-07:00

Paradox
Paradox 8 help provides summaries of the fields provided by

dBase Informix Interbase Oracle Sybase

and the rules that apply to each. To get this, search help for alphanumeric fields, adding, then click Related Topics

Field names can be up to 25 characters long.

There are 17 field types in version 7/8. Search help for field types and select Paradox field types and sizes.

Type Symbol Size
Alpha A Up to 255 characters
Memo M No limit
Formatted Memo F No limit
Graphic G .BMP, .PCX, .TIF, .GIF, or .EPS, but stored in separate files in bmp format.
Binary B Raw data of any size.
Bytes Y 1 to 255 bytes of raw data.
timestamp @ Contains both Data and Time
Date D January 1, 9999 BC to December 31, 9999 AD
Time T Number of milliseconds since midnight
Autoincrement + 4 bytes, Stored as a long integer. These increment by one each time a new record is added.
Logical L Size is not specified. By default displayed as True/False.
OLE O Word document, Spreadsheet, Picture, Sound, etc.

Numbers - the help does not always include the number of bytes used.

Type Symbol Bytes Digits Range
short S 2 4 +/- 32K
long integer I 4 9 +/- 2E9
number* N 8 15 +/- 10K
Money $ unk Size is not specified. Precision maintained to 6 decimal places.
BCD # unk 15 na

* - the number type has 15 significant figures, but a very small range

The following blob fields are stored in a separate file (.mb).

Memo FormattedMemo Graphic OLE Binary

This allows them to be any size while the table file (.db) contains only fixed size records.

tks for this great tabs menu plug-in manually on Joomla portfolio page

2009-06-12T18:19:00.000-07:00

tks for this great tabs menu plug-in manually on Joomla portfolio page
http://www.barelyfitz.com/projects/tabber/

My charges in both office

2009-06-11T19:24:00.000-07:00

工作職掌	說明
nielsen
1) Ims 轉檔及安裝	協助例行性的 ims data 產出，及平常客戶端的安裝
2) CRM system implement and maintainence	Crm system maintainence
RW
1) 消息稿系統	Content provider system establish
2) a3 print system	Help users get understand of operation on a3 print system; Make data transfer from a3 to ais database
3) RW mis support	Offer scripts or training for RW’s mis ( telepad system included)

[Dephi] Put whole articles related together

2009-06-11T02:49:00.000-07:00

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,inifiles, CheckLst, ComCtrls, ExtCtrls, DBCtrls, Grids,
DBGrids, DB, ADODB, DBTables;

type
TForm1 = class(TForm)
Memo1: TMemo;
CheckListBox1: TCheckListBox;
CheckBox1: TCheckBox;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Table1: TTable;
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
inifile:Tinifile;
strList:TStringList;
_chk:integer;

implementation

{$R *.dfm}

//var

procedure TForm1.FormCreate(Sender: TObject);

var
ProgressBarStyle: integer;
begin

_chk := 0;
strList := TStringList.Create;
if fileExists(ExtractFilePath(Paramstr(0))+'\config.ini' ) then
begin
iniFile := TIniFile.Create(ExtractFilePath(Paramstr(0))+'\config.ini' );
iniFile.ReadSection('config',checklistbox1.items);
Memo1.Lines := strList;
iniFile.Free;
end
else showmessage('no ini file');

//enable status bar 2nd Panel custom drawing
StatusBar1.Panels[1].Style := psOwnerDraw;

//place the progress bar into the status bar
ProgressBar1.Parent := StatusBar1;

//remove progress bar border
ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,
GWL_EXSTYLE);
ProgressBarStyle := ProgressBarStyle
- WS_EX_STATICEDGE;
SetWindowLong(ProgressBar1.Handle,
GWL_EXSTYLE,
ProgressBarStyle);
end;

procedure TForm1.CheckBox1Click(Sender: TObject);

var i:integer;

begin

if _chk = 0 then
begin
for i:=0 to CheckListBox1.Count-1 do
CheckListBox1.State[i]:=cbChecked;
_chk :=1
end
else
begin
for i:=0 to CheckListBox1.Count-1 do
CheckListBox1.State[i]:=cbUnchecked;
_chk:=0 ;

end ;

end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel = StatusBar.Panels[1] then
with ProgressBar1 do begin
Top := Rect.Top;
Left := Rect.Left;
Width := Rect.Right - Rect.Left - 15;
Height := Rect.Bottom - Rect.Top;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
i : integer;
begin
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;

for i := 0 to 100 do
begin
ProgressBar1.Position := i;
Sleep(25);
//Application.ProcessMessages;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
adoquery1.close;
adoquery1.SQL.clear;
s:= trim(edit1.text);
adoquery1.SQL.Add(s);
adoquery1.open;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
_Table: TTable;
begin
_Table := TTable.Create(nil);
try
with _Table do
begin
Close;
DatabaseName := 'test';
TableName := 'test';
TableType := ttDefault;
FieldDefs.Clear;

FieldDefs.Add('PG_ID',ftString,8,false);
FieldDefs.Add('TV_Code',ftString,3,false);

CreateTable;
end;
finally
_Table.Free;
end;
end;

end.

job database shema mapping

2009-06-11T00:54:00.000-07:00

A3 print db mapping to ais db Ver 1.0
Ais A3 (join) (join)
S_date [printads].adsdate
Prn_code [printads].mediacode [media]engmedianame
Prn_desc [media]chimedianame
Brand_desc [printads].signature [copyline].brandcode [brand]brandname
Cr_desc [copyline].chicopylinedesc
Cr_code [copyline].copylinecode
Page1 [printads].pageno
S_cost [printads].cost
Remark
Name [printads].printtypecode [prntype].printtypedesc
Color_desc [printads].printcolorcode [prncolor].printcolordesc

[Delphi] placing a progress bar to status bar

2009-06-09T23:35:00.000-07:00

forwarder:http://delphi.about.com/library/weekly/aa030805a.htm

sample code:

procedure TForm1.FormCreate(Sender: TObject);
var
ProgressBarStyle: integer;
begin
 //enable status bar 2nd Panel custom drawing
 StatusBar1.Panels[1].Style := psOwnerDraw;

 //place the progress bar into the status bar
 ProgressBar1.Parent := StatusBar1;

 //remove progress bar border
 ProgressBarStyle := GetWindowLong(ProgressBar1.Handle,
                                   GWL_EXSTYLE);
 ProgressBarStyle := ProgressBarStyle
                     - WS_EX_STATICEDGE;
 SetWindowLong(ProgressBar1.Handle,
               GWL_EXSTYLE,
               ProgressBarStyle);





procedure TForm1.StatusBar1DrawPanel(
StatusBar: TStatusBar;
Panel: TStatusPanel;
const Rect: TRect);
begin
if Panel = StatusBar.Panels[1] then
with ProgressBar1 do begin
  Top := Rect.Top;
  Left := Rect.Left;
  Width := Rect.Right - Rect.Left - 15;
  Height := Rect.Bottom - Rect.Top;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ProgressBar1.Position := 0;
ProgressBar1.Max := 100;

for i := 0 to 100 do
begin
  ProgressBar1.Position := i;
  Sleep(25);
  //Application.ProcessMessages;
end;
end;

Linux ntp server

2009-06-09T20:03:00.001-07:00

在 Linux 的環境當中可利用 NTP 的用戶端程式，亦即是 ntpdate 這支程式就能夠進行時間的同步化。不過你要知道的是，因為 NTP 伺服器本來就會與上層時間伺服器進行時間的同步化，所以在預設的情況下，NTP 伺服器不可以使用 ntpdate ！也就是說 ntpdate 與 ntpd 不能同時啟用的

Delphi's Begin End (轉貼:http://delphi.ktop.com.tw/board.php?cid=30&fid=66&tid=87437)

2009-06-09T19:22:00.000-07:00

if xxx then
// 程式 <== 這裡不可以有分號
else
// 程式; <== 這裡要有

不只一行程式, 要用begin end
if xxx then
begin
// 程式; <== 這裡有分號
end <== 這裡不可以有分號
else
// 程式; <== 這裡要有
或
if xxx then
// 程式 <== 這裡不可以有分號
else
begin
// 程式; <== 這裡有分號
end; <== 這裡有分號
或
if xxx then
begin
// 程式; <== 這裡有分號
end <== 這裡不可以有分號
else
begin
// 程式; <== 這裡有分號
end; <== 這裡有分號

如果你的 if then 用的很多層, 最好都用上 begin , 然後 end 加上註解是哪個開頭的

if xxx then
begin
if yyy then
begin
// 程式
end; // if yyy
if zzz then
begin
// 程式
end; // if zzz
end; // if xxx

checklistbox selected all and selected none

2009-06-08T03:11:00.001-07:00

procedure TForm1.CheckBox1Click(Sender: TObject);

var i:integer;

begin

if _chk = 0 then
begin
for i:=0 to CheckListBox1.Count-1 do
CheckListBox1.State[i]:=cbChecked;
_chk :=1
end
else
begin
for i:=0 to CheckListBox1.Count-1 do
CheckListBox1.State[i]:=cbUnchecked;
_chk:=0 ;

end ;

end;

Delphi , IniFile Checklistbox

2009-06-05T23:24:00.000-07:00

sample code,

procedure TForm1.Button1Click(Sender: TObject);
var
inifile:Tinifile;
strList:TStringList;
begin
strList := TStringList.Create;
if fileExists(ExtractFilePath(Paramstr(0))+'\config.ini' ) then
begin
iniFile := TIniFile.Create(ExtractFilePath(Paramstr(0))+'\config.ini' );
iniFile.ReadSection('config',checklistbox1.items);
Memo1.Lines := strList;
iniFile.Free;
end
else showmessage('no ini file');
end;

remember to add IniFiles, CheckLst at the end of uses list

delphi dynamic create DB tutorial

2009-06-04T20:52:00.000-07:00

add a button , and add the code as

procedure TForm1.Button1Click(Sender: TObject);
var
_Table: TTable;
begin
_Table := TTable.Create(nil);
try
with _Table do
begin
Close;
DatabaseName := 'test';
TableName := 'test';
TableType := ttDefault;
FieldDefs.Clear;

FieldDefs.Add('PG_ID',ftString,8,false);
FieldDefs.Add('TV_Code',ftString,3,false);

CreateTable;
end;
finally
_Table.Free;
end;
end;

it will add a empty DB when you click the button!

delphi Ado sample tutorial

2009-06-04T20:46:00.000-07:00

delphi ado setting,
components needed,
1)adoconnection
properties:
ConnectionString: building
2)adoquery
properties:
connection
3)datasource
dataset:
adoquery,

Others
dataGrid,button, Edit,navigator

sample code here belowed:
procedure TForm1.Button2Click(Sender: TObject);

var s:string;
begin
adoquery1.close;
adoquery1.SQL.clear;
s:= trim(edit1.text);
adoquery1.SQL.Add(s);
adoquery1.open;
end;

end.

開張大吉

2007-08-28T23:40:00.000-07:00

亂寫一通