studentbrower1.pas.~1~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

unit StudentBrower1;

interface

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

type
  TStudentBrower1Form = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    Button2: TButton;
    BitBtn1: TBitBtn;
    SaveDialog1: TSaveDialog;
    DBNavigator1: TDBNavigator;
    Button3: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StudentBrower1Form: TStudentBrower1Form;

implementation
  
{$R *.dfm}

procedure TStudentBrower1Form.FormActivate(Sender: TObject);

begin
    radiobutton1.Checked:=true;
    edit1.text:='';

    dbgrid1.DataSource:=datasource1;
    datasource1.DataSet:=adodataset1;
    adodataset1.Connection:=adoconnection1;

end;

procedure TStudentBrower1Form.Button1Click(Sender: TObject);
begin
    adodataset1.Close;
    adodataset1.CommandType:=cmdtext;
    if edit1.text='' then
        adodataset1.commandtext:='select * from stutable'
    else if radiobutton1.Checked then
        adodataset1.commandtext:='select * from stutable where type=:s0'
    else if radiobutton2.Checked then
        adodataset1.commandtext:='select * from stutable where name1=:s0';

    if edit1.text<>'' then
    begin
        adodataset1.Parameters.Clear;
        adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[0].name:='s0';
        adodataset1.Parameters[0].datatype:=ftstring;
        adodataset1.Parameters[0].Direction:=pdinput;
        adodataset1.Parameters[0].Value:=edit1.text;
    end;
    adodataset1.Open;
    
   
end;


procedure TStudentBrower1Form.Button2Click(Sender: TObject);
begin
   Close;
end;



procedure TStudentBrower1Form.BitBtn1Click(Sender: TObject);
var
   i,j:integer;
   tempstring:string;
   stringlist:tstringlist;

begin
  stringlist:=tstringlist.Create;
  tempstring:='|';
  adodataset1.First;
  while not adodataset1.Eof do
  begin
    for i:=0 to adodataset1.RecordCount-1 do
    begin
      for j:=0 to adodataset1.FieldCount-1 do
        begin
          tempstring:= tempstring+ adodataset1.Fields[j].AsString+'|';
        end;
      stringlist.Add(tempstring);
      tempstring:='|';
      adodataset1.Next;
    end;
  end;
  with SaveDialog1 do
  begin
    SaveDialog1.Execute;
    SaveDialog1.DefaultExt:='*.txt';
    SaveDialog1.Filter:='文本文件|*.txt';
    stringlist.SaveToFile(SaveDialog1.FileName);
  end;
  stringlist.Clear;
  tempstring:='';
end;

procedure TStudentBrower1Form.Button3Click(Sender: TObject);
begin
//QExportXLS1.Execute;
end;

end.