Q&A

  • 날짜 계산....DBNavigatordp 대해서 질문....제발 빨리...
안녕하세요.....^^

DBNavigator를 이용 DB에 자료 입력시.....

입력된 자료를 가지고 계산을 하여 동시에 같은 DB에 입력 시키고자 합니다....

네비게이터에서 입력을 누르고 자료가 저장되면 계산을 하여 계산된 자료가 입력 되어야 하는데 그 코딩을 어디에서 해야 합니까?....제발 갈켜 주세요....!!!

procedure TSinsangIn.DBNavigator1Click(Sender: TObject;

Button: TNavigateBtn);

begin



end;

.......여기가 맞는지......^^;



또, 날짜를 계산할 때....첫번째 날짜에서 다음 날짜를 빼서 경과된 날짜를 구하고 싶은데 다음의 코딩이 맞는지.....????(:= 좌측에 있는 변수들은 TDateTime(hDate1, hDate2, hDate3), Ttimestamp형으로 지정해 주었습니다.)



hDate1 := strtodate(FieldValues['AdmiHospital']);

hDate2 := strtodate(FieldValues['LeaveHospital']);

Friststamp := Datetimetotimestamp(hDate1);

Laststamp := Datetimetotimestamp(hDate2);

Hdate3 := friststamp.date - laststamp.date;



제발 부탁합니다........



2  COMMENTS
  • Profile
    타락천사 2000.05.24 03:19
    안녕하세여.. 타락임다. ^^



    날짜계산..

    hDate3 := hDate1 - hDate2;



    왕초보 타락천사. ^_____^



    전령 wrote:

    > 안녕하세요.....^^

    > DBNavigator를 이용 DB에 자료 입력시.....

    > 입력된 자료를 가지고 계산을 하여 동시에 같은 DB에 입력 시키고자 합니다....

    > 네비게이터에서 입력을 누르고 자료가 저장되면 계산을 하여 계산된 자료가 입력 되어야 하는데 그 코딩을 어디에서 해야 합니까?....제발 갈켜 주세요....!!!

    > procedure TSinsangIn.DBNavigator1Click(Sender: TObject;

    > Button: TNavigateBtn);

    > begin

    >

    > end;

    > .......여기가 맞는지......^^;

    >

    > 또, 날짜를 계산할 때....첫번째 날짜에서 다음 날짜를 빼서 경과된 날짜를 구하고 싶은데 다음의 코딩이 맞는지.....????(:= 좌측에 있는 변수들은 TDateTime(hDate1, hDate2, hDate3), Ttimestamp형으로 지정해 주었습니다.)

    >

    > hDate1 := strtodate(FieldValues['AdmiHospital']);

    > hDate2 := strtodate(FieldValues['LeaveHospital']);

    > Friststamp := Datetimetotimestamp(hDate1);

    > Laststamp := Datetimetotimestamp(hDate2);

    > Hdate3 := friststamp.date - laststamp.date;

    >

    > 제발 부탁합니다........

    >

  • Profile
    HART 2000.05.24 02:16
    TTable이란 컴폰너트를 사용하는 것 같은데.. 그럼

    간단하게 처리할 수 있습니다...



    TTable 컴폰너트에 이벤트 페이지를 보면 beforepost라는 이벤트가 있는데

    여기서 계산 값을 저장하면 됩니다..



    저장하는 방법은 동일함..



    table1.edit;

    table1.fieldbyname('계산결과저정필드').asString := 계산값..

    여기서 post란 명령어를 주면 안됩니다... ...

    그럼 수고....





    전령 wrote:

    > 안녕하세요.....^^

    > DBNavigator를 이용 DB에 자료 입력시.....

    > 입력된 자료를 가지고 계산을 하여 동시에 같은 DB에 입력 시키고자 합니다....

    > 네비게이터에서 입력을 누르고 자료가 저장되면 계산을 하여 계산된 자료가 입력 되어야 하는데 그 코딩을 어디에서 해야 합니까?....제발 갈켜 주세요....!!!

    > procedure TSinsangIn.DBNavigator1Click(Sender: TObject;

    > Button: TNavigateBtn);

    > begin

    >

    > end;

    > .......여기가 맞는지......^^;

    >

    > 또, 날짜를 계산할 때....첫번째 날짜에서 다음 날짜를 빼서 경과된 날짜를 구하고 싶은데 다음의 코딩이 맞는지.....????(:= 좌측에 있는 변수들은 TDateTime(hDate1, hDate2, hDate3), Ttimestamp형으로 지정해 주었습니다.)

    >

    > hDate1 := strtodate(FieldValues['AdmiHospital']);

    > hDate2 := strtodate(FieldValues['LeaveHospital']);

    > Friststamp := Datetimetotimestamp(hDate1);

    > Laststamp := Datetimetotimestamp(hDate2);

    > Hdate3 := friststamp.date - laststamp.date;

    >

    > 제발 부탁합니다........

    >