프로그래밍 노트

Firebird의 Firebird ISQL Tool을 실행해서 아래 녹색 상자의 Source를 전체를 붙여 넣어보면 어떻게 동작하는지 대충 알 수 있다. create database 'TestAutoNoDb.fdb' user 'sysdba' password 'masterkey'; set autoddl off; create table AutoNoTable ( AutoId integer not null, Fld_Int integer, Fld_Char char(200), constraint pk_AutoNoTable primary key (AutoId) ); create generator gen_AutoId; set term ^; create trigger trg_AutoNoTable_SeqNo for Aut..

DBGrid의 자료를 다시 표시할 때 코딩을 잘못하면 DBGrid가 깜박거리는 현상이 발생한다. TDBGrid에 연결된 DataSource의 연결된 DataSet에 SQL이 바뀔 때 아래와 같이 하면 문제가 해결되었다. ZQuery1.DisableControls; ZQuery1.close; ZQuery1.SQL.Text := edit1.Text; ZQuery1.Open; ZQuery1.EnableControls; 개발환경 Delphi2006 ZeosLib 6.6.6

DB를 잘 안써서 모르고 있었는데 이렇게 좋은 기능이 있었다. 어떤 조건에 해당하는 record중 앞쪽에서 지정한 수만큼 record를 가져올 수 있다. Microsoft SQL Server SELECT TOP 10 column FROM table PostgreSQL and MySQL SELECT column FROM table LIMIT 10 Oracle SELECT column FROM table WHERE ROWNUM

Delphi에서 Firebird를 사용하기위한 무료 Component인 ZoesLib 설치하기 (ZoesLib는 Firebird 뿐 아니라 여러 다른 database도 지원한다.) ZoesLib가 지원하는 databse들 • MySQL 3.20 - 5.0 • PostgreSQL 6.5 - 8.1 • Firebird 1.0 - 2.0 • Interbase 5.0 - 7.5 • Microsoft SQL Server 7, 2000 • Sybase ASE 12.0, 12.5 • Oracle 9i • SQLite 2.8, 3.5 설치 SW version Delphi 2006 Firebird 2.5 ZeosLib 6.6.61. ZeosLib 설치 순서 1) ZeosLib 사이트에서 ZeosLib를 Download한..

FlameRobin은 Firebird를 조금 Visual하게 사용할 수 있게 해주는 Tool이다. 여기에 1. FlameRobin 설치 1) FlameRobin사이트에서 FlameRobin을 Download한다. http://flamerobin.org/ 2) FlameRobin의 Setup 파일을 실행하면 아래의 창이 표시된다. [Next] button을 눌러 Setup을 시작한다. 3) License에 동의하고 [Next] button을 누른다. 4) Setup할 Folder를 입력하고 [Next] button을 누른다. 5) 시작 menu에 표시될 표시명을 입력하고 [Next] button을 누른다. 6) 바탕화면이나 빠른 실행에 FlameRobin Icon을 표시할 것있지 선택하고 [Next] bu..

1) Firebird사이트에서 Firebird를 다운로드 한다. http://www.firebirdsql.org/ 2) 언어를 선택한다. 3) Setup을 시작한다. 4) License문 동의하고 Setup을 진행한다. 5) Infomation을 읽고(?) Setup을 진행한다. 6) Firebird를 설치한 folder를 선택한다. 7) 설치할 Components를 선택한다. Classic Server binary를 설치할 것인지 Super Server binary를 설치할 것인지는 아래 사이트를 보면 어떤 것이 좋은지 친절하게 영어로 설명되어있다. -.- http://www.firebirdsql.org/manual/qsg15-classic-or-super.html 나도 영어가 짧아서 내가 설명을 쓰기..

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Contnrs; type // ObjectList에 추가할 Object TMyObj = class(TObject) private FiState : integer; FsId : string; FiTemp : integer; public function Cal(iTemp: integer): integer; published property State : integer read FiState write FiState; property ID : string read FsId write FsId; e..

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button3: TButton; Edit1: TEdit; procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure WMRecvData(var Msg: TWMCopyData); message WM_USER + 100; end; var Form1: TForm1; implementation {$R *.d..

델파이에서 외부 OCX를 사용하는 방법을 몰라 이틀 동안 해맸다. 델파이에서 외부 OCX를 사용하려면 OCX를 등록해야된다. (지금 생각하면 당연한 것인데 왜 몇일 전에는 그리도 해맨걸까?) 그런데 등록하는 법이 내가 생각한 것이랑 조금 틀렸다. Component > Import Componenet ... Import Component만 하면 되는줄 알았는데 Import Component하면 정상적으로 외부 OCX가 등록되지 않는 것 같다. 외부 OCX를 등록하려면 Package 프로젝트를 만들고 그 프로젝트에서 Import Component를 한 후 Package 프로젝트에서 오른쪽 클릭을 하고 Install을 하면 외부 OCX가 Tool Palette에 등록된다. 자세한 내용은 아래 링크 참조 htt..

IntToBool, BoolToInt함수가 필요해서 인터넷을 찾아보니 나름 깔끔한 소스가 있었다. function BoolToInt(const Value: Boolean): Integer; begin Result := Ord(Value); end; function IntToBool(const Value: Integer): Boolean; begin Result := Value 0; end; * BOOL in Delphi Boolean in Delphi original Type LongBool compiler magic size in bytes 4 1 false 0 0 true -1 ($FFFFFFFF) 1 Bool하고 Boolean하고 값이 정수로 변형할 때 값이 틀려진다.