history.~pas

来自「本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的」· ~PAS 代码 · 共 70 行

unit history;

interface

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

type
  Thistoryform = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  historyform: Thistoryform;

implementation

uses main;

{$R *.dfm}

procedure Thistoryform.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Thistoryform.FormActivate(Sender: TObject);
begin
  dbgrid1.datasource:=datasource1;
  datasource1.dataset:=adodataset1;
  adodataset1.connection:=adoconnection1;
  adodataset1.Close;
  adodataset1.commandtype:=cmdtext;
  adodataset1.commandtext:='select * from info';
  adodataset1.Open;
  edit1.text:='';
  edit2.text:='';
  edit1.setfocus;
end;

procedure Thistoryform.Edit1Exit(Sender: TObject);
begin
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from info where name=:s0';
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.Open;
end;

end.