如何把listview与一个数据库表格文件相连 我的一个数据库表格为学生表 no,name,sex,birthday这几个字段 通过listview把他显示出来现在我通过listview来进行,修改,删除,插入操作请问如何把修改后的内容存回数据库表格中。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit RefForm;interfaceuses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Menus, ImgList;type TForm1 = class(TForm) ListView1: TListView; MainMenu1: TMainMenu; View1: TMenuItem; LargeIcons1: TMenuItem; SmallIcons1: TMenuItem; List1: TMenuItem; Details1: TMenuItem; N1: TMenuItem; CheckBoxes1: TMenuItem; ImagesLarge: TImageList; ImagesSmall: TImageList; procedure FormCreate(Sender: TObject); procedure LargeIcons1Click(Sender: TObject); procedure SmallIcons1Click(Sender: TObject); procedure List1Click(Sender: TObject); procedure Details1Click(Sender: TObject); procedure Exit1Click(Sender: TObject); procedure CheckBoxes1Click(Sender: TObject); procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn); procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormDestroy(Sender: TObject); public { Public declarations } private nSortCol: Integer; end;var Form1: TForm1;implementation{$R *.DFM}{$R BITMAPS.RES}procedure TForm1.FormCreate(Sender: TObject);var List: TStringList; NewItem: TListItem; I: Integer;begin NewItem := nil; ListView1.Items.Clear; List := TStringList.Create; try {读取指定文件中的视图信息} List.LoadFromFile (ExtractFilePath (Application.ExeName) + 'Items.txt'); for I := 0 to List.Count - 1 do if List [I][1] = #9 then NewItem.SubItems.Add (Trim (List [I])) else if List [I][1] = '@' then NewItem.ImageIndex := StrToIntDef (List [I][2], 0) else begin {添加一个新条目} NewItem := ListView1.Items.Add; NewItem.Caption := List [I]; end; finally List.Free; end;end;procedure TForm1.LargeIcons1Click(Sender: TObject);begin ListView1.ViewStyle := vsIcon; LargeIcons1.Checked := True;end;procedure TForm1.SmallIcons1Click(Sender: TObject);begin ListView1.ViewStyle := vsSmallIcon; SmallIcons1.Checked := True;end;procedure TForm1.List1Click(Sender: TObject);begin ListView1.ViewStyle := vsList; List1.Checked := True;end;procedure TForm1.Details1Click(Sender: TObject);begin ListView1.ViewStyle := vsReport; Details1.Checked := True;end;procedure TForm1.Exit1Click(Sender: TObject);begin Close;end;procedure TForm1.CheckBoxes1Click(Sender: TObject);begin ListView1.Checkboxes := not ListView1.Checkboxes; CheckBoxes1.Checked := not CheckBoxes1.Checked;end;procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);begin nSortCol := Column.Index; ListView1.AlphaSort;end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);begin if nSortCol = 0 then Compare := CompareStr (Item1.Caption, Item2.Caption) else Compare := CompareStr (Item1.SubItems [nSortCol - 1], Item2.SubItems [nSortCol - 1]);end;procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var strDescr: string; I: Integer;begin if ListView1.Selected <> nil then { 左键点击可以显示描述 } if Button = mbLeft then begin strDescr := ListView1.Columns [0].Caption + #9 + ListView1.Selected.Caption + #13; for I := 1 to ListView1.Selected.SubItems.Count do strDescr := strDescr + ListView1.Columns [I].Caption + #9 + ListView1.Selected.SubItems [I-1] + #13; ShowMessage (strDescr); end { 右键点击可以编辑标题 } else if Button = mbRight then ListView1.Selected.EditCaption;end;procedure TForm1.FormDestroy(Sender: TObject);var I, J: Integer; List: TStringList;begin List := TStringList.Create; try for I := 0 to ListView1.Items.Count - 1 do begin // 保存标题 List.Add (ListView1.Items[I].Caption); // 保存索引号 List.Add ('@' + IntToStr (ListView1.Items[I].ImageIndex)); // 保存子条目 for J := 0 to ListView1.Items[I].SubItems.Count - 1 do List.Add (#9 + ListView1.Items[I].SubItems [J]); end; List.SaveToFile ( ExtractFilePAth (Application.ExeName) + 'Items.txt'); finally List.Free; end;end;end. 但我是想存到一个student.dbf的表格文件中,请问如何操作 去掉第三方控件影响程序本身么。。 如何判断某个组件是否属于容器类? [散分]为ari的再见说再见 关于TIdTcpServer控件多线程响应客户端的问题。盼望高手给与解答! 如何得到cxGrid 一列 footer summary显示的内容,并更改它? 如果做图片按钮??? 哪位有passcal的从入门到精通的书呀? 请问在delphi中怎样取到一个控件的句柄,有什么函数吗?在线等,解决就给分! 请教一个小问题,有点难度!!嘿嘿 我想使FORM的‘还原’按钮失灵。请问如何设置。谢谢 谁有类似微软画图程序的源代码? socket数据包传输过程中的转换问题
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Menus, ImgList;type
TForm1 = class(TForm)
ListView1: TListView;
MainMenu1: TMainMenu;
View1: TMenuItem;
LargeIcons1: TMenuItem;
SmallIcons1: TMenuItem;
List1: TMenuItem;
Details1: TMenuItem;
N1: TMenuItem;
CheckBoxes1: TMenuItem;
ImagesLarge: TImageList;
ImagesSmall: TImageList;
procedure FormCreate(Sender: TObject);
procedure LargeIcons1Click(Sender: TObject);
procedure SmallIcons1Click(Sender: TObject);
procedure List1Click(Sender: TObject);
procedure Details1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure CheckBoxes1Click(Sender: TObject);
procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormDestroy(Sender: TObject);
public
{ Public declarations }
private
nSortCol: Integer;
end;var
Form1: TForm1;implementation{$R *.DFM}
{$R BITMAPS.RES}procedure TForm1.FormCreate(Sender: TObject);
var
List: TStringList;
NewItem: TListItem;
I: Integer;
begin
NewItem := nil;
ListView1.Items.Clear;
List := TStringList.Create;
try
{读取指定文件中的视图信息}
List.LoadFromFile (ExtractFilePath (Application.ExeName) + 'Items.txt');
for I := 0 to List.Count - 1 do
if List [I][1] = #9 then
NewItem.SubItems.Add (Trim (List [I]))
else if List [I][1] = '@' then
NewItem.ImageIndex := StrToIntDef (List [I][2], 0)
else
begin
{添加一个新条目}
NewItem := ListView1.Items.Add;
NewItem.Caption := List [I];
end;
finally
List.Free;
end;
end;procedure TForm1.LargeIcons1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsIcon;
LargeIcons1.Checked := True;
end;procedure TForm1.SmallIcons1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsSmallIcon;
SmallIcons1.Checked := True;
end;procedure TForm1.List1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsList;
List1.Checked := True;
end;procedure TForm1.Details1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsReport;
Details1.Checked := True;
end;procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;procedure TForm1.CheckBoxes1Click(Sender: TObject);
begin
ListView1.Checkboxes :=
not ListView1.Checkboxes;
CheckBoxes1.Checked :=
not CheckBoxes1.Checked;
end;procedure TForm1.ListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
nSortCol := Column.Index;
ListView1.AlphaSort;
end;procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
Data: Integer; var Compare: Integer);
begin
if nSortCol = 0 then
Compare := CompareStr (Item1.Caption, Item2.Caption)
else
Compare := CompareStr (Item1.SubItems [nSortCol - 1],
Item2.SubItems [nSortCol - 1]);
end;procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
strDescr: string;
I: Integer;
begin
if ListView1.Selected <> nil then
{ 左键点击可以显示描述 }
if Button = mbLeft then
begin
strDescr := ListView1.Columns [0].Caption + #9 +
ListView1.Selected.Caption + #13;
for I := 1 to ListView1.Selected.SubItems.Count do
strDescr := strDescr + ListView1.Columns [I].Caption + #9 +
ListView1.Selected.SubItems [I-1] + #13;
ShowMessage (strDescr);
end
{ 右键点击可以编辑标题 }
else if Button = mbRight then
ListView1.Selected.EditCaption;
end;procedure TForm1.FormDestroy(Sender: TObject);
var
I, J: Integer;
List: TStringList;
begin
List := TStringList.Create;
try
for I := 0 to ListView1.Items.Count - 1 do
begin
// 保存标题
List.Add (ListView1.Items[I].Caption);
// 保存索引号
List.Add ('@' + IntToStr (ListView1.Items[I].ImageIndex));
// 保存子条目
for J := 0 to ListView1.Items[I].SubItems.Count - 1 do
List.Add (#9 + ListView1.Items[I].SubItems [J]);
end;
List.SaveToFile (
ExtractFilePAth (Application.ExeName) + 'Items.txt');
finally
List.Free;
end;
end;end.