unit1.~pas

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

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    mc: TEdit;
    Label4: TLabel;
    flcz: TComboBox;
    CX: TButton;
    TJ: TButton;
    TC: TButton;
    ADOQuery1: TADOQuery;
    Label5: TLabel;
    Label6: TLabel;
    xm: TEdit;
    xz: TEdit;
    ADOConnection1: TADOConnection;
    procedure CXClick(Sender: TObject);
    procedure TCClick(Sender: TObject);
    procedure TJClick(Sender: TObject);
    
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses unit3;
{$R *.dfm}

procedure TForm1.CXClick(Sender: TObject);
begin
adoquery1.SQL.Clear;  //清除SQL语句
adoquery1.SQL.Add('select * from 信息 where 名称 = '+quotedstr(mc.Text));  //添加SQL内容
//'and 学名='+form1.xm.Text
//'and 性质='+form1.xz.Text
//'and 分类='+form1.flcz.Text

adoquery1.open;  //运行SQL
//showmessage('select * from 信息 where 名称 = '+quotedstr(form1.mc.Text));

form3.Show;
form3.mc.Text:= adoquery1.fieldbyname('名称').asstring;
form3.XM.Text:=
adoquery1.FieldByName('学名').AsString;
form3.HXS.Text:=
adoquery1.FieldByName('化学式').AsString;
form3.FZS.Text:=
adoquery1.FieldByName('分子式').AsString;
form3.JGS.Text:=
adoquery1.FieldByName('结构式').AsString;
form3.ListBox1.Items.Add(adoquery1.FieldByName('性质').AsString );
form3.CSFY.Text:=
adoquery1.FieldByName('产生反应').AsString;
form3.ZL.Text:=
adoquery1.FieldByName('种类').AsString;
end;



procedure TForm1.TCClick(Sender: TObject);
begin
 close;
end;




procedure TForm1.TJClick(Sender: TObject);
begin
form3.Show;
end;

end.