unit10.pas

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

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    MaskEdit1: TMaskEdit;
    Panel3: TPanel;
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Button2: TButton;
    Button3: TButton;
    Pan: TPanel;
    Edit6: TEdit;
    Edit1: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button4: TButton;
    Button5: TButton;
    Image1: TImage;
    Label6: TLabel;
    Table1: TTable;
    Query1: TQuery;
    Query2: TQuery;
    Table2: TTable;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
var filename: string ;
begin
    if form10.OpenPictureDialog1.Execute  then
      begin
         filename:=openpicturedialog1.FileName;
         image1.Picture.LoadFromFile(filename);
       end;
end;

procedure TForm10.Button2Click(Sender: TObject);
const
  m=2.4;
var
    c,d,e,f: integer;
    str:string;
begin
  if (edit4.Text='') or (edit5.text='') then
     showmessage('输入不能为空！')
  else
  begin
  table1.Open;
  table1.Edit;
  table1.insert;
  table1.FieldByName('观测日期').AsString:=MaskEdit1.Text;
  table1.FieldByName('水平号').AsString:=edit2.Text;
  table1.FieldByName('孔号').AsString:=edit3.Text;
  table1.FieldByName('条纹比例').AsString:=edit4.Text;
  table1.FieldByName('条纹级数').AsString:=edit5.Text;
  table1.FieldByName('图象').Assign(image1.Picture);
  str:=edit4.text;
     c:=strtoint(copy(trim(edit4.Text),pos('/',trim(edit4.Text))-1,1));
     d:=strtoint(copy(trim(edit4.Text),pos('/',trim(edit4.Text))+1,1));
     e:=strtoint(copy(trim(edit5.Text),pos('/',trim(edit5.Text))-1,1));
     f:=strtoint(copy(trim(edit5.Text),pos('/',trim(edit5.Text))+1,1));
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from gylcccsh.db where (孔号='+''''+trim(edit3.text)+''''+') and (水平号='+''''+trim(edit2.text)+''''+')'+'');
   query1.open;
   query2.Close;
   query2.SQL.Clear;
   query2.SQL.Add('select * from kycsh.db where 岩性='+''''+trim(query1.fieldbyname('岩性').AsString)+''''+'');
   query2.Open;
   if query2.RecordCount<=0 then
      showmessage('找不到相应的岩性')
   else
     begin
     table1.FieldByName('应力值').AsFloat:=(4*m*(e/f))/((strtofloat(query2.fieldbyname('A的值').asstring)+strtofloat(query2.fieldbyname('B的值').asstring))+ (strtofloat(query2.fieldbyname('A的值').asstring)-strtofloat(query2.fieldbyname('B的值').asstring))*(c/d));

     end;
    table1.Post;
    showmessage('数据保存成功');
    table1.Close;
    table1.Open;
    MaskEdit1.Text:='';
    edit2.Text:='';
    edit3.Text:='';
    edit4.Text:='';
    edit5.Text:='';
    MaskEdit1.SetFocus;

    end;

end;

procedure TForm10.Button3Click(Sender: TObject);
begin
  form10.Close;
end;

procedure TForm10.Button4Click(Sender: TObject);
begin
 table2.Open;
 if (edit1.Text='') or (edit6.text='') then
     showmessage('输入不能为空！')
  else
  begin
  table2.Open;
  table2.Edit;
  table2.insert;
  table2.FieldByName('水平号').AsString:=edit1.Text;
  table2.FieldByName('孔号').AsString:=edit6.Text;
  table2.FieldByName('1#测线基准线').AsString:=edit7.Text;
  table2.FieldByName('2#测线基准线').AsString:=edit8.Text;
  table2.FieldByName('3#测线基准线').AsString:=edit9.Text;
   table2.Post;
    showmessage('数据保存成功');
    table2.Close;
    table2.Open;
    edit1.Text:='';
    edit6.Text:='';
    edit7.Text:='';
    edit8.Text:='';
    edit9.Text:='';
    edit1.SetFocus;
end;
end;
procedure TForm10.FormCreate(Sender: TObject);
begin
table1.TableName:=form1.GetExePath+'database\gcshju.db';
table1.Open;
table1.Refresh;
{table1.TableName:=form1.GetExePath+'database\gcshju.db';
table1.Open;
table1.Refresh;}
end;

procedure TForm10.Button5Click(Sender: TObject);
begin
form10.Close;
end;

end.