[파워빌더]CSV 포멧으로 파일저장하기

long i,rno,rcnt
string cdate,ccomp,item,header_str,chango,damdang,uprice,qty,price,tax,tprice,pay
string docname, named,w_string,groupname
integer value

header_str = '출고일자,출고처,단체명,제품명,단가,출고량,금액,세액,합계,결재금액,창고명,담당자'
value = GetFileSaveName("Select File", docname, named, "CSV", &
"Comma Seperated Format(*.CSV),*.CSV," + " Text Files (*.TXT), *.TXT")
IF value = 1 THEN
integer li_FileNum
li_FileNum = FileOpen(docname,LineMode!, Write!, LockWrite!, Replace! )
FileWrite(li_FileNum, header_str)
rcnt = dw_1.rowcount()
uo_2.hpb_1.minposition = 0
uo_2.hpb_1.maxposition = rcnt
uo_2.visible = true
for i = 1 to rcnt
cdate = string(dw_1.object.idate[i],'yyyy-mm-dd')
ccomp = dw_1.object.customer_company[i]
groupname = dw_1.Describe("Evaluate('LookUpDisplay(group_no)'," + string(i) + ")")
item = dw_1.object.item_item[i]
uprice = string(dw_1.object.iuprice[i])
qty = string(dw_1.object.isize[i])
price = string(dw_1.object.itotal[i])
tax = string(dw_1.object.tax[i])
tprice = string(dw_1.object.iuprice[i] * dw_1.object.isize[i])
pay = string(dw_1.object.ipay[i])
chango = dw_1.object.storeroom_cname[i]
damdang = dw_1.object.e_name[i]
if isnull(cdate) then cdate = ''
if isnull(ccomp) then ccomp = ''
if isnull(groupname) then groupname = ''
if isnull(item) then item = ''
if isnull(uprice) then uprice = ''
if isnull(qty) then qty = ''
if isnull(price) then price = ''
if isnull(tax) then tax = ''
if isnull(tprice) then tprice = ''
if isnull(pay) then pay = ''
if isnull(chango) then chango = ''
if isnull(damdang) then damdang = ''
w_string = cdate + ',' + ccomp + ',' + groupname + ',' + item + ',' + uprice + ',' + qty + ',' + price + ',' + tax + ',' + &
tprice + ',' + pay + ',' + chango + ',' + damdang
FileWrite(li_FileNum, w_string)
uo_2.hpb_1.position = i
next
FileClose(li_FileNum)
uo_2.visible = false
messagebox('자료생성',string(rcnt) + '건의 자료가 생성되었습니다.')
dw_1.setredraw(true)
end if

[파워빌더]2개 이상의 DataWindow의 크기 조절

굴림//-. Window위에 나란히 배치된 2개 이상의 DataWindow의 크기 조절
// 화면을 디자인하다 보면 윈도우 탐색기의 중앙분리막대처럼
// 한쪽이 커지면 한쪽이 작아지게 하는 기능이 필요할 때가 있다.
// 아쉽게도 PowerBuilder에는 그런 기능을 하는 Object는 없다.
// 그렇게 되는 것처럼 보이도록 디자인을 하고 Program을 작성해야 한다.
//
// w_form이라는 Window위에 dw_1과 dw_2라는 DataWindow Object가 2개 있다고 가정하자.
// dw_1은 왼쪽에 dw_2는 오른쪽에 위치하고 dw_1의 폭이 확대되면 dw_2의 폭은 줄어든다.
// 반대로 dw_2의 폭이 확대되면 dw_1의 폭은 줄어든다.
//
// 1. w_form위의 적당한 위치에 StaticText Object를 하나 놓는다. st_1이라 하자
// 2. st_1의 Property에서 [Pointer] Tab을 선택한 뒤 SizeWE! (↔)를 선택하자.
// 3. st_1에 User Event를 몇 개 추가한다.
// -. mousemove : pbm_mousemove를 추가한다.
// -. mousedown : pbm_lbuttondown을 추가한다.
// -. mouseup : pbm_lbuttonup을 추가한다.
//
// 4. w_form에 윈도우 함수를 하나 추가한다.

// function prototype : void w_resize( void )
long ll_Max
ll_Max = dw_2.X + dw_2.Width // dw_2의 오른쪽 끝지점
dw_1.Width = st_1.X - ( dw_1.X + 2)
dw_2.X = st_1.X + 10 // st_1의 두께를 8로 보고 dw_1과 dw_2사이를 12로 본다.
dw_2.Width = ll_Max - dw_2.X // dw_2의 폭은 오른쪽 끝지점에서 X좌표를 빼준다.

// 5. st_1에 아래와 같은 Script를 구성한다.

// constructor EVENT for st_1
This.X = (dw_1.X + dw_1.Width + 2)
This.Y = dw_1.Y
This.Height = dw_1.Height
This.Width = 8
This.BackColor = Parent.BackColor
dw_2.X = (dw_1.X + dw_1.Width + 14 )

//mousemove EVENT for st_1
// 왼쪽버튼을 누른 상태로 움직인다면 마우서 커서를 따라서 움직이도록 한다.
IF KeyDown( KeyLeftButton! ) Then
This.X = Parent.PointerX()
End If

// mousedown EVENT for st_1

// 마우스로 찍으면 시각적으로 표시되도록 한다.
This.BackColor = RGB( 0, 0, 0 )

//mouseup EVENT for st_1
// 마우스를 떼면 안보이게 한다.
This.BackColor = Parent.BackColor
// dw_1을 벗어나 너무 오른쪽으로 가는 것을 방지한다.
IF This.X < ( dw_1.X + 500 ) Then
This.X = dw_1.X + 500
END IF
// dw_2를 벗어나 너무 왼쪽으로 가는 것을 방지한다.
IF This.X > ( (dw_2.X + dw_2.Width) - 500 ) Then
This.X = (dw_2.X + dw_2.Width) - 500
End IF

// 데이타윈도우 크기를 조절한다.
wf_resize()

임베디드파이어버드

임베디드파이어버드는 dll한개로만 사용할수있는 로컬 데이타베이스입니다.

사용방법은 너무간단합니다.

1.자신의 방에 이렇게 db엔진을 복사를 해줍니다.
D:\my_app\fbembed.dll
D:\my_app\gds32.dll (renamed fbembed.dll) <-- 이부분이 중요합니다.
D:\my_app\fbclient.dll (renamed fbembed.dll) <-- 이부분이 중요합니다.
D:\my_app\firebird.conf
D:\my_app\isql.exe
D:\my_app\ib_utils.dll
D:\my_app\firebird.msg
D:\my_app\intl\fbintl.dll

파이어버드 임베디드 2.0에서는 다음 세개의 파일이 추가로 더 필요합니다.
icudt30.dll, icuin30.dll, icuuc30.dll

2.firebird.conf파일을 편집을 해주셔야 합니다.
다른내용을 수정할꺼 없구 이것 한개만 수정해주시면 됩니다.
RootDirectory = D:\my_app


3.cmd에서 자신의방(D:\my_app\)의 isql을 실행시키고 사용하시면 됩니다.

4.델파이에서 사용하는 방법
개발은 기존의 인터베이스 커넥션을 그대로 사용하셔서 개발을 하시구
배포시에만 자신경로에 1번의 예라면 D:\my_app\ 여기에
실행파일만 포함시키면 끝입니다.

제가 테스트는 dbexpress드라이버,zeos 5.x,zeos 6.x,ibx,fibplus를 테스트해봤는데
아주 잘붙네요..

5.인터베이스 관리툴을 임베디드엔진에 붙이기.
ibexpert나 ems의 ibmanager의 아이콘을 한개를 바탕화면에 복사를 하시고
실행위치만 D:\my_app\로 바꾸면 성공입니다..

임베디드 엔진이 mysql도있는데
개발이나 배포측면에서 임베디드mysql보다 조금더 쉬운것 같네요..

FireBird Database Connection

//uses에 UniDAC관련 클래스 추가
Uses
Uni, InterBaseUniProvider, DBAccess;
//데이터베이스 컨넥션
procedure ConnectDatabase;
var
StrParm : TStringList;
begin
uConn := TUniConnection.Create(nil);
with uConn do begin
Database := 'D:\DelphiWork\Completed\NSourceMan\SOURCEMAN.FDB';
Username := 'SYSDBA';
Password := 'masterkey';
LoginPrompt := False;
ProviderName := 'InterBase';
Connected := True;
end;
dbProvider := TInterBaseUniProvider.Create(nil);
uTrans := TUniTransaction.Create(nil);
uTrans.DefaultConnection := uConn;
end;

FastReport를 사용하여 출력하기

1. frxReport콘트롤을 폼위에 올려 놓는다.
2. 미리보기창이 최대창으로 나타나는것을 방지하기위해 PreviewOptions에서 Maximized속성을 False로 한다.
3. 나머지는 모두 기본값으로 나둔다.

1. frxDBDataset컴포넌트를 폼위에 올려 놓는다.
2. CloseDataSource만을 False로 바꾸고 나머지는 그대로 둔다.
3. ReportDesigner에 나타나는 이름을 구분하고 싶으면 UserName속성에서 이름을 바꾼다.

데이터연결

출력버튼에 다음과 같이 스크립트를 작성한다.
dbgCheckResult.Enabled := False;
frxDBCustomer.DataSet := dbCname.DataSource.DataSet;
frxDBDataset1.DataSet := dbgCheckResult.DataSource.DataSet;
frxReport1.ShowReport;
dbgCheckResult.Enabled := True;

데이터소스는 이미 활성화되어 있는 그리드 또는 필드의 값에서 데이터셋을 구해온 후
frxDBDataset에 연결한다.

레포트폼 디자이너에서 해당 필드를 넣고 필드명을 데이터소스와 같이 만들어준다.
1. 텍스트 필드를 도구에서 선택하여 폼위에 올려 놓는다.
2. 텍스트 필드의 DataSet속성에서 연결된 frxDBDataset을 선택하고
3. DataField 속성에서 실제 데이터베이스의 필드명을 입력한다.

만일 여러개의 데이터셋이 필요하면 필요에 따라 여러개의 데이터셋을 추가하여 사용하면 된다.

cxGrid에서 LookupCombo 사용하기

//!!!! use 에 cxDBLookupComboBox 추가
// gridSubFunc 는 그리드의 데이터소스
//MainfuncNoField 는 룩업할 필드

gridSubFunc.DataController.DataSource := dsSubFunc;
MainfuncNoField.PropertiesClass := TcxLookupComboBoxProperties;
with TcxLookupComboBoxProperties(MainfuncNoField.Properties) do
begin
ListSource := dsMainFunc;
ListFieldNames := 'func_name';
KeyFieldNames := 'rno';
end;
MainfuncNoField.DataBinding.FieldName := 'mainfunc_no';

cxGrid뷰에서 필터된 내용만 검색하기

cnt := cxRegion.DataController.FilteredRecordCount;
for I := 0 to cnt - 1 do begin
sFrame := cxRegion.FilterRow.GridView.Columns[2].EditValue;
eFrame := cxRegion.FilterRow.GridView.Columns[3].EditValue;
cxRegion.FilterRow.GridView.DataController.GotoNext;
end;

cxGridView에서 셀값 가져오기, 저장하기

fr : String;
fr := cxPositionCard.DataController.GetValue(row, column);
현재의 레코드 위치얻기
recno := cxPositionCard.DataController.GetFocusedRecordIndex;

현재라인의 두번째 셀값을 얻으려면
recno := cxPositionCard.DataController.GetFocusedRecordIndex;
fr := cxPositionCard.DataController.GetValue(recno, 1);

또 다른방법

id := cxGridItem.Controller.FocusedRecord.Values[2];
ShowMessage(id);

Values[index:integer] = 그리드의 컬럼 인덱스(0부터 시작함)


var
AFieldFilmCaption, AFieldFilmYear: TField;
AFilmDataSet: TDataSet;

begin
//get TField objects for corresponding columns
AFieldFilmCaption := tvFilmsCaption.DataBinding.Field;
AFieldFilmYear := tvFilmsYEAR.DataBinding.Field;
//get TDataSet owning fields
AFilmDataSet := AFieldFilmCaption.DataSet;
//insert new record
AFilmDataSet.Insert;
//set values for the Caption and Year fields
AFieldFilmCaption.AsString := �Harry Potter and the Sorcerer''s Stone';
AFieldFilmYear.AsInteger := 2001;
//post data
AFilmDataSet.Post;
end;


var
ARecordIndex, AItemIndex: Integer;
//...
try
AItemIndex := 0;
for ARecordIndex := 0 to tvCustomers.DataController.RecordCount - 1 do
tvCustomers.DataController.Values[ARecordIndex, AItemIndex] := ARecordIndex;
except
on E: Exception do
ShowMessage('Cannot set a value due to the exception: ' + E.Message);
end;

ExpressScheduler설치방법

1) Run the Express Install and select the products you want to install. Deactivate the "Create product libraries" for Delphi 2007 in the Customization screen of the installer ... just because this option is useless.
2) The Express Install will put the source files and packages of our components to the specified folder on the disk. You must compile the libraries in the following order (as they are called in the Express Install folders):
NOTE 1: If you don’t own a specific product and the corresponding libraries are missing, simply skip them in this list.
NOTE 2: We haven't ported our older products (like the ExpressInspector, ExpressQuantumTreeList v3, ExpressQuantumGrid v3, etc.) to Delphi 2007 because we support new IDEs only for "active" products.
XP Theme Manager
ExpressGDI+ Library
ExpressLibrary
ExpressCommon Library
ExpressExport Library
ExpressNavBar
ExpressMemData
ExpressDBTree Suite
ExpressMasterView
ExpressSpreadSheet
ExpressFlowChart
ExpressOrgChart
ExpressPageControl 2
ExpressDataController
ExpressEditors Library 5
ExpressScheduler 2
ExpressPivotGrid
ExpressVerticalGrid
ExpressQuantumTreeList 4
ExpressQuantumGrid 6
ExpressBars 6
ExpressSideBar
ExpressDocking Library
ExpressLayout Control
ExpressPrinting System
ExpressSkins Library
3) Put all the necessary files into a single folder to simplify the compilation process. In particular, take the files from the Sources and Packages directory of each library. Packages for Delphi 2007 are named with the D11 suffix.
4) Compile the runtime packages first, then their design-time counterparts (with the dcl~ prefix in their names).
NOTE: To automate compilation, I recommend that you include all the packages into a single project group. When rebuilding the group, the compiler should recognize the dependent packages and determine which packages to compile first.
5) Install the compiled design-time packages.
Hopefully, this will help you install our components. Please keep us informed of your progress.

ExpressQuantumGrid에서 드래그 앤 드롭

cxGrid에서 cxGrid로 드래그 앤 드롭을 구현하기

드래그할 그리드와 드롭할 그리드에 모드 드래그 모드를 Auto로 설정한다.

드래그하는 그리드의 현재데이터를 가져오기위해서 다음의 스크립트 작성
procedure TForm1.cxGridItemStartDrag(Sender: TObject;
var DragObject: TDragObject);
begin
DragContentID := udsContents.DataSet.FieldByName('rno').AsInteger;
end;
위에서 DragContentID는 전역변수로 데이터셋에서 드래그하는 데이터의 일련번호를 변수에 저장한다.


드래그를 드롭하는 그리드의 다음 속성을 추가한다.
Accept속성을 트루로 하여 드래그드롭을 받아들이도록 한다.

procedure TForm1.gridKind2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
id : integer;
begin
Accept := (Source is TcxDragControlObject);
end;

드롭할 그리드에 다음의 속성을 추가한다.

procedure TForm1.gridKind2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
id : integer;
begin
id := udsKind2.DataSet.FieldByName('rno').AsInteger;
Label1.Caption := IntToStr(DragContentID);
with qryContentUpdate do begin
SQL.Clear;
SQL.Add('update scriptdata set kind2 = :nid ');
SQL.Add(' where rno = :orno ');
ParamByName('nid').Value := id;
ParamByName('orno').Value := DragContentID;
Execute;
end;
udsContents.DataSet.Refresh;
// ShowMessage(IntToStr(DragContentID));
end;
드롭하는 소스의 아이디(전역변수:DragcontentID)와 드롭한 그리드의 rno로 자료를 수정하는 sql문을 작성한다.
qryContentUpdate 는 uniQuery콘트롤을 폼에 올려만 놓으면 된다. 연결을 컴포넌트에서 지정한다.