unit3.~pas

本系统对常用的和复杂的化学有机物信息进行录入

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    MC: TEdit;
    XM: TEdit;
    HXS: TEdit;
    FZS: TEdit;
    CSFY: TEdit;
    ZL: TEdit;
    JGS: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    tj: TButton;
    tc: TButton;
    ADOConnection2: TADOConnection;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    Button3: TButton;
    procedure tcClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure tjClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.tcClick(Sender: TObject);
begin
  close;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
form3.caption:='下一个';
adoquery2.Next;
form3.show;
form3.MC.Text:=
adoquery2.Fieldbyname('名称').AsString;
form3.XM.Text:=
adoquery2.Fieldbyname('学名').AsString;
form3.HXS.Text:=
adoquery2.Fieldbyname('化学式').AsString;
form3.FZS.Text:=
adoquery2.Fieldbyname('分子式').AsString;
form3.JGS.Text:=
adoquery2.Fieldbyname('结构式').AsString;
form3.ListBox1.Items.Add(adoquery2.Fieldbyname('性质').AsString);
form3.CSFY.Text:=
adoquery2.Fieldbyname('产生反应').AsString;
form3.ZL.Text:=
adoquery2.Fieldbyname('分类').AsString;
end;



procedure TForm3.Button1Click(Sender: TObject);
begin
form3.caption:='上一个';
adoquery2.Last;
form3.show;
form3.MC.Text:=
adoquery2.Fieldbyname('名称').AsString;
form3.XM.Text:=
adoquery2.Fieldbyname('学名').AsString;
form3.HXS.Text:=
adoquery2.Fieldbyname('化学式').AsString;
form3.FZS.Text:=
adoquery2.Fieldbyname('分子式').AsString;
form3.JGS.Text:=
adoquery2.Fieldbyname('结构式').AsString;
form3.ListBox1.Items.Add(adoquery2.Fieldbyname('性质').AsString);
form3.CSFY.Text:=
adoquery2.Fieldbyname('产生反应').AsString;
form3.ZL.Text:=
adoquery2.Fieldbyname('分类').AsString;
end;



procedure TForm3.tjClick(Sender: TObject);
begin
form3.caption:='添加有机物';
adoquery2.SQL.Clear;  //清楚SQL语句
adoquery2.SQL.Add('insert into 信息(名称,分类,分子式,化学式,结构式,学名,性质,产生反应) values("'+form3.MC.Text);//'","'+form3.ZL.Text'","'+form3.FZS.Text'","'form3.HXS.Text'","'form3.JGS.text'","'form3.XM.Text'","'form3.ListBox1.Items'","'form3.CSFY.Text'");');
adoquery2.SQL.Add(quotedstr(form3.mc.Text));
adoquery2.open;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
form3.caption:='删除有机物';
adoquery2.SQL.Clear;  //清楚SQL语句
adoquery2.SQL.Add('delete from 信息 where 名称='+form3.MC.Text);
adoquery2.SQL.Add(quotedstr(form3.mc.Text));
adoquery2.open;
end;

end.