unit5.pas

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

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, TabNotBk, Grids, DBGrids, DBCtrls, ExtCtrls, DB,
  DBTables, StdCtrls, ExtDlgs, ADODB, Mask;

type
  TForm5 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    DBGrid5: TDBGrid;
    DBGrid1: TDBGrid;
    DBGrid4: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    DBNavigator4: TDBNavigator;
    DBNavigator3: TDBNavigator;
    DBNavigator2: TDBNavigator;
    DBNavigator5: TDBNavigator;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button4: TButton;
    Button5: TButton;
    GroupBox3: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button6: TButton;
    Button7: TButton;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Panel1: TPanel;
    DBImage2: TDBImage;
    Button11: TButton;
    Panel2: TPanel;
    OpenPictureDialog1: TOpenPictureDialog;
    Image1: TImage;
    DBImage1: TDBImage;
    Memo1: TMemo;
    Label10: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Label11: TLabel;
    Button3: TButton;
    Edit12: TEdit;
    Edit13: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Button14: TButton;
    Button15: TButton;
    Button8: TButton;
    Button9: TButton;
    GroupBox6: TGroupBox;
    Label14: TLabel;
    Edit14: TEdit;
    Label15: TLabel;
    Edit15: TEdit;
    Button12: TButton;
    Button13: TButton;
    Label16: TLabel;
    Edit16: TEdit;
    Label17: TLabel;
    Edit17: TEdit;
    Label18: TLabel;
    Edit18: TEdit;
    Label19: TLabel;
    MaskEdit1: TMaskEdit;
    Label20: TLabel;
    Edit19: TEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table2: TTable;
    Table3: TTable;
    DataSource3: TDataSource;
    Table4: TTable;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Table5: TTable;
    Table4BDEDesigner: TFloatField;
    Table4BDEDesigner2: TFloatField;
    Table4BDEDesigner1: TFloatField;
    Table4BDEDesigner22: TFloatField;
    Table4BDEDesigner3: TFloatField;
    Table4BDEDesigner12: TFloatField;
    Table4BDEDesigner23: TFloatField;
    Table4BDEDesigner32: TFloatField;
    procedure Button1Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
memo1.Text:='';
 if (edit10.text<>'') and (edit11.text<>'')  then
    memo1.Text:='观测日期>='+''''+edit10.text+''''+' and 观测日期<='+''''+edit11.text+'''';
 if edit1.text<>'' then
   if memo1.text<>'' then
   memo1.Text:=memo1.Text+' and 水平号='+''''+edit1.text+''''
   else  memo1.text:='水平号='+edit1.text;
 if edit2.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 孔号='+edit2.text
   else  memo1.text:='孔号='+''''+edit2.text+'''';
if memo1.Text<>'' then
begin
table1.Filter:=memo1.Text;
table1.Filtered:=true;
end
else
table1.Filtered:=false;
table1.open;
end;

procedure TForm5.Button14Click(Sender: TObject);
begin
if (edit12.Text='') or (edit13.text='') or (edit16.Text='') then
     showmessage('输入不能为空！')
  else
  begin
  table2.Open;
  table2.Edit;
  table2.insert;
  table2.FieldByName('水平号').AsString:=edit12.Text;
  table2.FieldByName('孔号').AsString:=edit13.Text;
  table2.FieldByName('岩性').AsString:=edit16.Text;
  table2.FieldByName('孔深').AsString:=edit17.Text;
  table2.FieldByName('方位').AsString:=edit18.Text;
  table2.FieldByName('埋设日期').AsString:=maskedit1.Text;
    table2.Post;
    showmessage('数据保存成功');
    table2.close;
    table2.Open;
    edit12.Text:='';
    edit13.Text:='';
    edit16.Text:='';
    edit17.Text:='';
    edit18.Text:='';
    maskedit1.Text:='';
    edit12.SetFocus;
end;
end;

procedure TForm5.Button6Click(Sender: TObject);
 const
  r=5;
  e1=7;
  u1=0.25;
var
   x1,x2,x3,x4,e,u,A,B:real ;
begin
 if (edit5.Text='') or (edit6.text='') then
     showmessage('输入不能为空！')
  else
  begin
  table3.Open;
  table3.Edit;
  table3.insert ;
  table3.FieldByName('岩性').AsString:=edit5.Text;
  table3.FieldByName('弹模').AsString:=edit6.Text;
  table3.FieldByName('泊松比').AsString:=edit7.Text;
  table3.FieldByName('抗压强度').AsString:=edit19.Text;
    e:=strtofloat(edit6.Text);
     u:=strtofloat(edit7.Text);
     x1:=((e*(1+u1))-(e1*(1+u)));
     x2:=((e*(3-u1))+(e1*(1+u)));
     x3:=((e*(1+u1))+(e1*(3-u)));
     x4:=((e*(3-u1))-(e1*(3-u)));
      A:=4*r*r*e1/(e*((1+r*r)+(1-r*r)*u1)+e1*(r*r-1)*(1+u))  ;
      B:=16*r*r*e1*((3*r*r-2)*x1+r*r*r*r*r*r*x2)/(((3*r*r*r*r*r*r-6*r*r*r*r+4*r*r)*x1+r*r*r*r*r*r*r*r*x2)*x3+(x1+r*r*r*r*r*r*x2)*x4);
     table3.FieldByName('A的值').AsFloat:=A;
     table3.FieldByName('B的值').AsFloat:=B;
     table3.Post;
     table3.Close;
     table3.Open;
     edit5.Text:='';
     edit6.Text:='';
     edit7.Text:='';
     edit19.Text:='';
     end
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
table1.TableName:=form1.GetExePath+'database\gcshju.db';
table2.TableName:=form1.GetExePath+'database\gylcccsh.db';
table3.TableName:=form1.GetExePath+'database\kycsh.db';
table4.TableName:=form1.GetExePath+'database\shljgcshj.db';
table5.TableName:=form1.GetExePath+'database\bzhtw1.db';
table1.Open;
table2.Open;
table3.Open;
table4.Open;
table5.Open;
table1.Refresh;
table2.Refresh;
table3.Refresh;
table4.Refresh;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
form5.Close;
end;

procedure TForm5.Button15Click(Sender: TObject);
begin
form5.Close;
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
form5.Close;
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
form5.Close;
end;

procedure TForm5.Button12Click(Sender: TObject);
begin
close;
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
close;
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
  memo1.Text:='';
 if edit3.text<>'' then
   if memo1.text<>'' then
   memo1.Text:=memo1.Text+' and 水平号='+''''+edit3.text+''''
   else  memo1.text:='水平号='+edit3.text;
 if edit4.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 孔号='+edit4.text
   else  memo1.text:='孔号='+''''+edit4.text+'''';
if memo1.Text<>'' then
begin
table4.Filter:=memo1.Text;
table4.Filtered:=true;
end
else
table4.Filtered:=false;
table4.open;
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
 memo1.Text:='';
 if edit8.text<>'' then
   if memo1.text<>'' then
   memo1.Text:=memo1.Text+' and 标准比例='+''''+edit8.text+''''
   else  memo1.text:='标准比例='+edit8.text;
 if edit9.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 标准级数='+edit9.text
   else  memo1.text:='标准级数='+''''+edit9.text+'''';
if memo1.Text<>'' then
begin
table5.Filter:=memo1.Text;
table5.Filtered:=true;
end
else
table5.Filtered:=false;
table5.open;

end;

procedure TForm5.Button13Click(Sender: TObject);
begin
if (edit14.Text='') or (edit15.text='')  then
     showmessage('输入不能为空！')
  else
  begin
  table5.Open;
  table5.Edit;
  table5.insert;
  table5.FieldByName('条纹比例').AsString:=edit14.Text;
  table5.FieldByName('条纹级数').AsString:=edit15.Text;
  table5.FieldByName('图象').Assign(image1.Picture);
  table5.Post;
    showmessage('数据保存成功');
    table5.Close;
    table5.Open;
    edit14.Text:='';
    edit15.Text:='';
        edit14.SetFocus;
        form5.DBImage1.Visible:=true;
   form5.Image1.Visible:=false;
        end;
  end;


procedure TForm5.Button11Click(Sender: TObject);
begin
 form5.DBImage1.Visible:=false;
   form5.Image1.Visible:=true;
   if form5.OpenPictureDialog1.Execute  then
    begin
         filename:=openpicturedialog1.FileName;
         image1.Picture.LoadFromFile(filename);
       end;
end;

end.