unit1.pas

这是一个学藉管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DB, ADODB, XPMenu,implemntation,
  Buttons;

type
  TForm1 = class(TForm)
    XPMenu1: TXPMenu;
    GroupBox1: TGroupBox;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    Label17: TLabel;
    Edit13: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses unit6, Unit8;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
   dm.ADOQuery2.Close ;
   dm.ADOQuery2.SQL.Clear ;
   dm.ADOQuery2.SQL.Add('select * from student');
   dm.ADOQuery2.SQL.Add('where 姓名 like'''+'%'+edit13.text+'%''');
   dm.ADOQuery2.Open ;
   panel1.Caption:='总共找到 '+inttostr(dm.ADOQuery2.RecordCount)+' 条记录';

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form8:=tform8.create(application);
form8.Hide;
form8.QuickRep1.Preview;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var
 mypath:string;
begin
self.height:=peg_height;
self.Width:=peg_width;

 dm.ADOConnection1.Close;
 MyPath:=ExtractFilePath(ParamStr(0));
  dm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
  Product_Dir+data_path+';Persist Security Info=False';
 try
  dm.ADOConnection1.Open;

  except
   application.MessageBox('找不到数据库，引起该问题的原因是数据库可能被为删除或改名.','无法打开数据库',0);
   application.Terminate;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var key,sql:string;
begin
   if edit13.text <>'' then  begin
        key:=edit13.Text;
        sql:='where (学号 like'''+'%'+key+'%'') or (姓名 like'''+'%'+key+'%'') or (性别 like'''+'%'+key+'%'') or (出生年月日 like'''+'%'+key+'%'') or (身份证号码 like'''+'%'+key+'%'') or (政治面貌 like'''+'%'+key+'%'') or (籍贯 like'''+'%'+key+'%'') or (民族 like'''+'%'+key+'%'') or (家庭地址 like'''+'%'+key+'%'') or (家庭邮编 like'''+'%'+key+'%'') or (所属分院 like'''+'%'+key+'%'') or (学历 like'''+'%'+key+'%'') or (入学时间 like'''+'%'+key+'%'') or (专业 like'''+'%'+key+'%'') or (学制 like'''+'%'+key+'%'') or (电话号码 like'''+'%'+key+'%'') or (兴趣爱好 like'''+'%'+key+'%'') or (扩展项1 like'''+'%'+key+'%'') or (扩展项2 like'''+'%'+key+'%'') or (扩展项3 like'''+'%'+key+'%'') or (备注 like'''+'%'+key+'%'')';
        end else
        sql:='where (1=1)'; //如果未输入关键字时使语句永远成立列出所有记录

   dm.ADOQuery2.Close ;
   dm.ADOQuery2.SQL.Clear ;
   dm.ADOQuery2.SQL.Add('select * from student');
   dm.ADOQuery2.SQL.Add(sql);
   dm.ADOQuery2.Open ;
   panel1.Caption:='总共找到 '+inttostr(dm.ADOQuery2.RecordCount)+' 条记录';


end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_ESCAPE then self.close;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
state:='模糊查找';

end;

end.