名簿を作りたいのですが・・・

さく 2004-02-25 07:14:00 No: 7342

学校の名簿を作ろうとしてるのですが、うまく作れないので何でもいいので教えて下さい。

名簿の概要
  ・入力された文字を保存し管理する
  ・学籍番号、名前、郵便番号、住所、電話番号などをEditとComboBoxに入力・選択してもらい保存する
  ・一覧を呼び出し、ComboBoxで選択された部分の検索し、抽出する
  ・データベースを使わずに、テキストファイルで管理したい
というのが、かなり大まかではありますが作りたい名簿の概要です。

ListViewを使うのがいいかなと思い、ここ２・３日１人で試行錯誤してみたんですがうまく使えません。どうしたらいいか分かりません。

LisitView以外の方が楽に作れるというコンポーネントがあれば、教えていただきたいです。

質問が抽象的ですいませんが、何かヒントとなる事だけでもいいんで教えて下さい。

さく 2004-02-25 08:44:38 No: 7343

すいません、自分で返信です。

ListViewを１つ(Columnsを６つ)、Editを６つ、Bottonを１つ付けて、Editに書き込んだ文字をListView1のItemsに出力しようとしてこう書きました。

procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.ViewStyle := vsReport;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.Items.Add.Caption := (edit1.Text);
ListView1.Items.Add.SubItems.Add(edit2.Text);
ListView1.Items.Add.SubItems.Add(edit3.Text);
ListView1.Items.Add.SubItems.Add(edit4.Text);
ListView1.Items.Add.SubItems.Add(edit5.Text);
ListView1.Items.Add.SubItems.Add(edit6.Text);
end;

しかしこれではできませんでした。どこがダメなんですかね、教えて下さい…。

にしの 2004-02-25 09:17:07 No: 7344

基本的な使い方から間違っています。
ListView1.Items.Add.Caption := (edit1.Text);
これは、
ListViewのItemsに１つListItemを追加し、その追加したListItemのキャプションにEdit1.Textの値を代入する
ということです。
たぶん、これはわかっておられるかと思います。
次の、
ListView1.Items.Add.SubItems.Add(edit2.Text);
これは、
ListViewのItemに１つListItemを追加し、その追加したListItemの２つめにEdit2.Textの値を代入する
ということです。
# 正確には、２つめ以降のリストに追加する、ですが、初回は２つめということで省略。
これは、先に追加したListItemとは別に、新たに追加したListItemになります。

つまり、Button1Clickの中では、
６個のListItemを追加し、１つめのCaptionにEdit1を、２つめ以降のSubItemsの先頭(セルで言えば左から２つめ)に、Edit2〜6を入れると言うことになります。

まずは、ヘルプの例を見ていろいろ試してみてください。
アプリケーションを作成するのはそれからでも遅くはないと思いますよ。

さく 2004-02-25 11:06:54 No: 7345

ありがとうございます。
勉強します・・・