unit1.pas

delphi +SQL 编程 语法 delphi +SQL 编程 语法

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit3: TEdit;
    Edit4: TEdit;
    Button2: TButton;
    Edit1: TDBEdit;
    Edit2: TDBEdit;
    Button3: TButton;
    Button1: TButton;
    Label1: TLabel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Edit5: TEdit;
    Button10: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
try
Query1.DatabaseName:='D:\sql\探索计划';
Query1.Open;
except
end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
try
  Query1.Append;
  edit1.SetFocus;
except
  try
    with query1 do
     begin
      Filtered:=false;
      Close;
      SQL.Clear ;
      SQL.Add('select*from test');
      open;
     Query1.Append;
     edit1.SetFocus;
     end;
  except
  end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 try
  with query1 do
    begin
    Filtered:=false;
    Close;
    SQL.Clear ;
    SQL.Add('select*from test');
    open;
    end;
   Query1.Edit;
   Query1.Post;
   Query1.Refresh;
  showmessage('提交成功');
  except
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with query1 do
   begin
    Filtered:=false;
    Close;
    SQL.Clear ;
    SQL.Add('select*from test');
    open;
   end;

if Button1.Caption='返回' then
   begin
  Query1.Filtered:=false;
  Button1.Caption:='查询';
  end
 else
   begin
    Query1.Filter:='科目代码='+''''+edit3.Text+''''+' and '+'科目名称='+''''+edit4.Text+'''';
    Query1.Filtered:=true;
    Button1.Caption:='返回';
   end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ShellAboutW(0,'一千系统','研发单位：海为软件实验室 电话:[phone]',1);
end;                                                                 //   .

procedure TForm1.Button5Click(Sender: TObject);
begin
 try
    Query1.Filtered:=false;
    Query1.Delete;
    showmessage('删除成功');
  except
 end;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Query1.Cancel;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
 Query1.Edit;
end;

procedure TForm1.Button8Click(Sender: TObject);
var
  ass,tabname:string;
begin
 with query1 do
     begin
     Filtered:=false;
      Close;
      SQL.Clear ;
      SQL.Add('select*from test');
      open;
      end;
  tabname:='test.db';
  Query1.Active:=False;
  Query1.SQL.Clear();
  Query1.SQL.Add('select *');
  ass:='From "'+tabname+'" tab';
  Query1.SQL.Add(ass);
  Query1.SQL.Add('Where 科目代码 ='''+Edit5.Text+'''');
  Query1.SQL.Add('Order by 科目代码');
  Query1.Active:=True;
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
 with query1 do
   begin
    Filtered:=false;
    Close;
    SQL.Clear ;
    SQL.Add('select*from test');
    open;
   end;
end;

procedure TForm1.Button9Click(Sender: TObject);
var
  ass,tabname:string;
begin
 with query1 do
     begin
     Filtered:=false;
      Close;
      SQL.Clear ;
      SQL.Add('select*from test');
      open;
      end;
  tabname:='test.db';
  Query1.Active:=False;
  Query1.SQL.Clear();
  Query1.SQL.Add('select *');
  ass:='From "'+tabname+'" tab';
  Query1.SQL.Add(ass);
  Query1.SQL.Add('Where 科目代码 like ''%'+Edit5.Text+'%''');
  Query1.SQL.Add('Order by 科目代码');
  Query1.Active:=True;
end;

end.