userviww.~pas

来自「一个用Delphi编写的简单售票系统,有查询,修改.增加.删除等功能.」· ~PAS 代码 · 共 64 行

unit userviww;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;

type
  Tuserview = class(TForm)
    ADOConnectionw: TADOConnection;
    ADOTablew: TADOTable;
    DataSourcew: TDataSource;
    DBGridw: TDBGrid;
    Label1: TLabel;
    procedure DBGridwDblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGridwTitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userview: Tuserview;
  uservieww:string;
implementation
 uses xsform;
{$R *.dfm}

procedure Tuserview.DBGridwDblClick(Sender: TObject);
begin
uservieww:=ADOTablew.fieldbyname('yname').asstring;
xiaos.edit1.text:=uservieww;
Close;
end;

procedure Tuserview.FormCreate(Sender: TObject);
var
dbwname:string;
begin
dbwname:= ExtractFilePath(Application.ExeName) + 'yang.mdb';
with ADOConnectionw do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+dbwname+';'+
'Mode=ReadWrite;'+
'Persist Security Info=False';
Connected:=True;//打开数据连接
adotablew.Active:=true;
end; 
end;

procedure Tuserview.DBGridwTitleClick(Column: TColumn);
begin
  if (adotablew.Sort<>column.FieldName+' ASC') then
         adotablew.Sort:=column.FieldName+' ASC'
else
         adotablew.sort:=column.fieldname+' DESC';
end;

end.