stumanage.pas

一个delphi于mssql的数据库管理软件的源码！希望大家共同进步

unit stumanage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, Menus, Buttons;

type
  TForm1 = class(TForm)
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TFloatField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TStringField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Button1: TButton;
    Edit1: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  Table1.Filter:=Format(Combobox1.Text+'='+'''%S''',[edit1.Text]);
Table1.Filtered:=true;
   //showmessage(Table1.Filter );
except
on E:Exception do showmessage ('请输入正确的查询条件');
end;


 //Label1.:=inttostr(CompareStr('张林','王凯'));
end;

procedure TForm1.N2Click(Sender: TObject);
begin
 close;
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Filtered:=false;
end;

end.