초보인데 사정상 숙제로 아래것을 여기보고 저기 보고 짜보았습니다.
낮은 버전의 델파이을 원했는데 이제는 찾기가 힘들더군요....그래서 최근에
델파이 8로 깔고 작업을 하게 되었습니다...
이소스는 액셀로 만든 T_Acct테이블에 계좌번호(Acct), 신규일(Open...), 마지막 방문일(Last...), 잔액(Bal), 주민번호(Rsdt..), 상태(Sta)가 들어있지요,,, 그리고 아래것은 주민번호와 잔액으로 계좌을 하나 만들어야 하는 것이지요.....그리고 액셀로 만든 테이블에 저장되어야 하지요.....
내용은 이런데........소스는 말이 아닌니다.....
그래도 이것하는데 일주일 정도를 허비했지요.....처음에 mssql과 델파이를
연결할려고 했는데......안되더군요...뭘 자세히 알아야 하는데....
참고할만한데도 없고,......참 힘드네요.



procedure TForm3.BitBtn1Click(Sender: TObject);
begin
i:=0;
try
with Query1 do begin
close;
SQL.Clear;
SQL.Add('select * from T_Acct');
Open;
Insert;
FieldByname('Rsdt_No').AsString := MaskEdit1.text;
FieldByname('Bal').AsCurrency := StrToCurr(Edit2.Text);
FieldByname('Open_Dt').AsString :='20'+DateToStr(now);
FieldByname('Last_Tx_Dt').AsString :='20'+DateToStr(now);
I:=I+1;
FieldByname('Acct').AsString :='0'+'I';
FieldByname('Sta').AsString :='1';
post;
ApplyUpdates;
close;
SQL.Clear;
SQL.Add('select * from T_AcctTx');
open;
Insert;
FieldbyName('Acct').AsSting:='0'+'I';
FieldbyName('Tx_Dt').AsString :='20'+DateToStr(now);
FieldbyName('Tx_Tm').AsString :='20'+DateToStr(now);
FieldbyName('Tx_Amt').AxCurrency:=StrToCurr(Edit2.Text);
FieldbyName('Sta').AsString :='1';
post;
applyUpdates;
MessageDlg('성공적으로 등록되었습니다.!',mtInformation,[mbok],0);
Edit2.Clear;
MaskEdit1.Clear;
end;
except
MessageDlg('테이블이 열려 있지 않거나, 등록할 수 없는 데이터입니다.',
mtError,[mbOk],0);
end;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
close;
end;


end.