listut.pas

用delphi+access给单位做的实用,简单的.

unit listut;

interface

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

type
  Tlistfm = class(TForm)
       private
    { Private declarations }
  public
    { Public declarations }
     vstr:string
  end;

var
  listfm: Tlistfm;

implementation

uses mainut;

{$R *.dfm}



end.