unit1.pas

再发一个个人管理的代码

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox2: TGroupBox;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    DBText4: TDBText;
    DBText5: TDBText;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    GroupBox3: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Edit1: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    Label11: TLabel;
    Label12: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
    uses main;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  sv:string;
begin
  sv:='%'+trim(Edit1.Text)+'%';
  main_form.ADOQuery1.Close;
  main_form.ADOQuery1.SQL.Clear;
  main_form.ADOQuery1.SQL.Add('select * from bj where '+trim(combobox1.text)+' like ');
  main_form.ADOQuery1.SQL.Add(''''+sv+'''');
  main_form.ADOQuery1.Open;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   main_form.ADOQuery1.Active:=false;
   main_form.ADOQuery1.SQL.Text:='select * from bj';
   main_form.ADOQuery1.Active:=true;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   main_form.ShowModal;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
   main_form.ADOQuery1.First;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  main_form.ADOQuery1.Prior;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
main_form.ADOQuery1.Next;
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
   main_form.ADOQuery1.Last;
end;

end.