number.~pas

用VC和SQL Server开发的固定资产管理系统

unit number;

interface

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

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
{try
with adoquery1 do
    begin
    close;
    sql.Add('select *from 数量 where 数量:=name');
    parameters.ParamByName('数量').Value:=combobox1.Text;
    open;
    end;
    except  }
     with ADOQuery1 do begin
   with SQL do begin
     Clear;
     Add('SELECT *');
     Add('FROM 数量');
   end;
  Open; end;
showmessage('确实要退出系统运行吗？');
     if messagedlg('是否停止运行？只有停止才能关闭系统！',mtinformation,
     [mbYes,mbNo],0)=mrYes then
         begin
     close;
         end;
         
end;

end.