unit1.pas

来自「这是一个文档管理系统」· PAS 代码 · 共 132 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids,comobj;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    q: TADOQuery;
    DataSource1: TDataSource;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  //  procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4,Unit5 ;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 q.Close;
 q.SQL.Clear;
 q.SQL.Add('select xh as 学号,xm as 姓名,xymc as 学院名称,zymc as 专业名称,photo as 照片,bz as 备注,xb as 性别,csrq as 出生日期,sznj as 所在年级,zzmm as 政治面貌,mz as 民族,jg as 籍贯 from jbxx where xh like '''+trim(edit1.Text)+'%''');
 q.Open;
 edit3.Text:=inttostr(q.RecordCount);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
   q.Close;
   q.SQL.Clear;
   q.SQL.Add('select xh as 学号,xm as 姓名,xymc as 学院名称,zymc as 专业名称,photo as 照片,bz as 备注,xb as 性别,csrq as 出生日期,sznj as 所在年级,zzmm as 政治面貌,mz as 民族,jg as 籍贯 from jbxx where xh like '''+trim(edit1.Text)+'%''');
   q.Open;
   edit3.Text:=inttostr(q.RecordCount);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
   q.Close;
   q.SQL.Clear;
   q.SQL.Add('select xh as 学号,xm as 姓名,xymc as 学院名称,zymc as 专业名称,photo as 照片,bz as 备注,xb as 性别,csrq as 出生日期,sznj as 所在年级,zzmm as 政治面貌,mz as 民族,jg as 籍贯 from jbxx where xm like '''+trim(edit2.Text)+'%''');
   q.Open;
   edit3.Text:=inttostr(q.RecordCount);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  fexecl:variant;
  i,j:integer;
begin
 try
    fexecl:=createoleobject('excel.application');
    fexecl.workbooks.add;
  except
    showmessage('Error!');
    exit;
  end;

  fexecl.cells.numberformatlocal:='@';
  fexecl.cells[1,1]:=trim(edit1.text)+'学生名单';
  fexecl.cells[2,5]:='时间:'+datetostr(date());
  for i:=0 to q.FieldCount-1 do
    fexecl.cells[3,i+1]:=trim(q.Fields[i].FieldName);

  i:=4;
  q.First;
  while not q.Eof do
    begin
      for j:=0 to q.FieldCount-1 do
        fexecl.cells[i,j+1]:=q.Fields[j].DisplayText;
        inc(i);
        q.Next;
    end;


  fexecl.visible:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.QuickRep1.Preview;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
      form3.show;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
 form4.show;
end;

//procedure TForm1.Button6Click(Sender: TObject);
//begin
  // form5.show;
//end;

end.