현재 델파이를 공부하고 있는 사람입니다.
제가 지금 진행하고 있는 과정은 Access로 만든 MDB파일을 가져와서 DBGrid에 나타내주고
Grid내에서 수정 작업을 하려고 합니다.
어느 정도 진행을 해가고 있는데 너무 해결이 안되는 문제점이 존재합니다.
Access MDB 파일에 테이블이 이름란과 번호란이 있는데, 텍스트 기준으로 정렬한 파일입니다.
그리하여 이름과 번호를 기입하여 저장하면 텍스트 기준으로 정렬되어 기입한 정보가 기존에 기록되어있던 데이터 사이로 옮겨지면서 자동 정렬이 됩니다.
그렇기 때문에 기입한 번호가 오름차순으로 되어있지 않고 1,2,567,3,4,5,6.... 이런식으로 정렬이 됩니다.
제가 원하는 결론은 텍스트 순으로 정렬이 되면서 번호 부분에서 다시 자동으로 1부터 시작하는 순번을 매겨 모든 이름에 순차적인 오름차순이 기입되는 프로그램입니다.
현재 DBgrid에서 불러와 추가하는 것 까지 진행이 되지만 결국 1,2,567,3,4,5,6.... 이런식으로 정렬이 됩니다.
어떻게 코드를 추가해야할지 모르겠습니다 ㅠㅠ
아래는 현재 저의 코드입니다.
procedure TForm2.Button4Click(Sender: TObject);
// Add 버튼입니다. 여기서 Add를 눌렀을 때 기입하는 창이 나오면서 이름을 기입하고, insert되는 형식인데 추가되면서 순번을 처음부터 끝까지 다시 순번을 1에서 시작하여 끝까지 매기고 싶습니다.
begin
datamodule1.ADOTable2.Insert;
Form3:=TForm3.Create(Owner);
Form3.Showmodal;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
datamodule1.ADOTable2.edit;
Form3:=TForm3.Create(Owner);
Form3.Showmodal;
end;
procedure TForm2.Button6Click(Sender: TObject);
begin
datamodule1.ADOtable2.Delete;
end;
procedure TForm2.Button7Click(Sender: TObject);
begin
Form4:=TForm4.Create(Owner);
Form4.Showmodal;
end;
procedure TForm2.Button8Click(Sender: TObject);
begin
datamodule1.ADOTable1.edit;
Form4:=TForm4.Create(Owner);
Form4.Showmodal;
end;
procedure TForm2.Button9Click(Sender: TObject);
begin
datamodule1.ADOtable1.Delete;
end;
procedure TForm2.Exit2Click(Sender: TObject);
begin
close;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
dataModule1.ADOTable1.Sort := 'TagName ASC';
dataModule1.ADOTable2.Sort := 'TagName ASC';
end;
{$R *.dfm}
end.
사진을 첨부하겠습니다.
*사진에서 보면 Name과 Index가 보일텐데, 위에 말한 이름과 번호입니다. Name을 기입해서 추가할때 Index테이블에서 자동으로 순번을 다시 매기는 것을 말하는 것 입니다.
도움 좀 주시면 정말 감사하겠습니다 ㅠㅠㅠㅠㅠㅠㅠ
|