안녕하세요.....^^
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;
제발 부탁합니다........
날짜계산..
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;
>
> 제발 부탁합니다........
>