회계 관련 프로그램을 제작 중입니다..
그런데 돈의 액수를 그냥 1000000 표시하면 상당히 불편 하리라 생각
됩니다. 데이타 베이스는 파라독스를 쓰고 있습니다..
데이타 베이스에 저장시 ,(컴마)를 찍어지게 하려면 어떻게 해야 하는지요...
퀵레포드로 출력 하려 합니다.
나중에 인쇄 할때도 ,(컴마)가 찍혀 나오는지요...
글구.,.. 저장된 데이타베이스를 액셀로 옮길수 있는지요..
혹은 처음부터 데이터를 액셀로 저장 시킬수 있는지요...
고수님들 급히 부탁 드립니다..
1. 제 생각엔 값을 그냥 숫자로 보관하시구요.
만약 어떤 필드나 그리드에 표시를 하려면
Edit1.text := FormatFloat('#,##0',Query1.FieldByName('Amt').AsFloat);
위와 같이하면 표시할때는 콤마를 찍어주거든요.
2. 퀵에서는요
DBText1의 Onprint Event에서
if Vale <> '' then
Value := FormatFloat('#,###', strTofloat(Value));
이 한줄넣으시면 되여.
나머지 숫자도 이 이벤트를 가리키게 하면 되죠.
3. Excel로 저장 하시게요.
1) Excel을 띄운채로 하는 프로시져가 이렇구요.
Interface밑에 uses구에 Comobj를 추가하시고, 아래 예제는 StringGrid에
있는걸 Excel로 옮기는 건데, 나머지는 응용하실수 있으리라 생각됩니다.
procedure TForm1.Grid2xls(sg:TStringGrid);
var
gv:variant;
i,j : integer ;
begin
screen.cursor := crHourglass ;
gv := createoleobject('Excel.Application');
gv.workbooks.add;
gv.visible := true;
with Sg do
begin
for i := 1 to Rowcount do
begin
for j := 1 to colcount do
gv.cells[i,j].formula := cells[j-1, i-1];
end;
end ;
screen.cursor := crDefault ;
end;
조덕현 wrote:
> 회계 관련 프로그램을 제작 중입니다..
> 그런데 돈의 액수를 그냥 1000000 표시하면 상당히 불편 하리라 생각
> 됩니다. 데이타 베이스는 파라독스를 쓰고 있습니다..
>
> 데이타 베이스에 저장시 ,(컴마)를 찍어지게 하려면 어떻게 해야 하는지요...
> 퀵레포드로 출력 하려 합니다.
> 나중에 인쇄 할때도 ,(컴마)가 찍혀 나오는지요...
> 글구.,.. 저장된 데이타베이스를 액셀로 옮길수 있는지요..
> 혹은 처음부터 데이터를 액셀로 저장 시킬수 있는지요...
> 고수님들 급히 부탁 드립니다..