unit7.pas

从同学哪里拷贝来的程序,毕业设计用的,大家看看,有帮助的哦

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    Button2: TButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.RadioButton1Click(Sender: TObject);
begin
  label1.Visible:=true;
  label1.Caption:='请输入水平号';
  edit1.Visible:=true;
  edit2.Visible:=false;
end;

procedure TForm7.RadioButton2Click(Sender: TObject);
begin
  label1.Visible:=true;
  label1.Caption:='请输入孔号';
  edit2.Visible:=true;
  edit1.Visible:=false;
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
  label1.Visible:=false;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
{ if  Radiobutton1.Checked  then
  with  ADOQuery1 do
   begin
    close;
    sql.Clear;
    sql.Add('select gcshjub.观测日期,gcshjub.条纹比例,gcshjub.条纹级数,gcshjub.应力值,shljgcshub.[1号测线基准线],shljgcshub.[2号测线基准线],shljgcshub.[3号测线基准线],');
    sql.Add('gylckcsb.岩性,kycshb.弹模,kycshb.泊松比 from gcshjub inner join shljgcshub on gcshjub.水平号=shljgcshub.水平号  inner join gylckcsb on gcshjub.水平号=gylckcsb.水平号  inner join kycshb on  gylckcsb.岩性=kycshb.岩性');
    open;
    end;
if  Radiobutton2.Checked  then
  with adoquery2 do
    begin
     close;
     sql.Clear;
     sql.Add('select gcshjub.观测日期,gcshjub.条纹比例,gcshjub.条纹级数,gcshjub.应力值,shljgcshub.[1号测线基准线],shljgcshub.[2号测线基准线],shljgcshub.[3号测线基准线],');
     sql.Add('gylckcsb.岩性,kycshb.弹模,kycshb.泊松比 from gcshjub inner join shljgcshub on gcshjub.孔号=shljgcshub.孔号  inner join gylckcsb on gcshjub.孔号=gylckcsb.孔号  inner join kycshb on  gylckcsb.岩性=kycshb.岩性');
     open;
     datasource1.DataSet:=adoquery2;
     
    end;   }
end;

end.