unit11.pas

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

unit Unit11;

interface

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

type
  TForm11 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    DBGrid1: 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;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Button8: TButton;
    Button9: TButton;
    Panel1: TPanel;
    DBImage2: TDBImage;
    Panel2: TPanel;
    Image1: TImage;
    DBImage1: TDBImage;
    Memo1: TMemo;
    Label10: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    Label11: TLabel;
    Button12: TButton;
    Button13: TButton;
    Button3: TButton;
    Edit12: TEdit;
    Edit13: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button6: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DBGrid4: TDBGrid;
    DataSource4: TDataSource;
    Table4: TTable;
    procedure FormClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm11.FormClick(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 TForm11.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 TForm11.Button14Click(Sender: TObject);
begin
  memo1.Text:='';
  if edit12.text<>'' then
   if memo1.text<>'' then
   memo1.Text:=memo1.Text+' and 水平号='+''''+edit12.text+''''
   else  memo1.text:='水平号='+edit12.text;
 if edit13.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 孔号='+edit13.text
   else  memo1.text:='孔号='+''''+edit13.text+'''';
if memo1.Text<>'' then
begin
table2.Filter:=memo1.Text;
table2.Filtered:=true;
end
else
table2.Filtered:=false;
table2.open;
end;

procedure TForm11.Button12Click(Sender: TObject);
begin
  memo1.Text:='';
if edit5.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 岩性='+''''+edit5.text+''''
   else  memo1.text:='岩性='+edit5.text;
if edit6.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 弹模='+edit6.text
   else  memo1.text:='弹模='+''''+edit6.text+'''';
if edit7.text<>'' then
   if memo1.text<>'' then
      memo1.Text:=memo1.Text+' and 泊松比='+edit7.text
   else  memo1.text:='泊松比='+''''+edit7.text+'''';
if memo1.Text<>'' then
begin
table3.Filter:=memo1.Text;
table3.Filtered:=true;
end;
table3.Filtered:=false;
table3.open;
end;

procedure TForm11.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 TForm11.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 TForm11.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\bzhtw1.db';
table1.Open;
table2.Open;
table3.Open;
table4.Open;
table1.Refresh;
table2.Refresh;
table3.Refresh;
table4.Refresh;
end;

procedure TForm11.Button13Click(Sender: TObject);
begin
  close;
end;

procedure TForm11.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm11.Button15Click(Sender: TObject);
begin
close;
end;

procedure TForm11.Button5Click(Sender: TObject);
begin
close;
end;

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

end.