chengjigeren.pas.~1~

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

unit ChengjiGeren;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB, RpRave,
  RpDefine, RpCon, RpConDS,  //QExport3,
  //QExport3XLS,
  OleCtrls,
  //grproLib_TLB,
   OleServer;
  //QExport, QExportXLS, QExportDialog,
type
  TChengjiGerenForm = class(TForm)
    ComboBox1: TComboBox;
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADODataSet2: TADODataSet;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Button1: TButton;
    ADODataSet3: TADODataSet;
    DataSource3: TDataSource;
    DBNavigator2: TDBNavigator;
    DBGrid2: TDBGrid;
    Button2: TButton;
    RvDataSetConnection1: TRvDataSetConnection;
    RvProject1: TRvProject;
    Button4: TButton;
    ADODataSet4: TADODataSet;
    RvDataSetConnection2: TRvDataSetConnection;
    procedure FormActivate(Sender: TObject);
   // procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ADODataSet2AfterScroll(DataSet: TDataSet);
    procedure Button2Click(Sender: TObject);
  //  procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
   
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ChengjiGerenForm: TChengjiGerenForm;

implementation
   uses GerenBaobiao;
{$R *.dfm}

procedure TChengjiGerenForm.FormActivate(Sender: TObject);
begin
      ComboBox1.Items.Clear;
      ADODataSet1.Close;
      ADODataSet1.CommandType:=cmdtext;
      ADODataSet1.CommandText:='select distinct clatable.name from clatable' ;
      adodataset1.Open;
        while not adodataset1.Eof do
        begin
           ComboBox1.Items.Add(adodataset1.Fields[0].AsString);
           adodataset1.Next;
        end;
end;

{procedure TChengjiGerenForm.ComboBox1Change(Sender: TObject);
begin
      //ComboBox2.Items.Clear;
      ADODataSet1.Close;
      ADODataSet1.CommandType:=cmdtext;
      ADODataSet1.CommandText:='select distinct restable.time from restable where restable.classname=:s0 ' ;
      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:= ComboBox1.Text;
      adodataset1.Open;
       // while not adodataset1.Eof do
        //begin
         //  ComboBox2.Items.Add(adodataset1.Fields[0].AsString);
         //  adodataset1.Next;
       // end;
end;         }

procedure TChengjiGerenForm.Button1Click(Sender: TObject);
begin
    adodataset2.Close;
    adodataset2.CommandType:=cmdtext;
    adodataset2.commandtext:='select distinct studentno,studentname from restable where classname=:classname1 ';
    ADODataSet2.Parameters.clear;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[0].Name:='classname1';
    adodataset2.Parameters[0].DataType:=ftstring;
    adodataset2.Parameters[0].Direction:=pdinput;
    adodataset2.Parameters[0].Value:= ComboBox1.Text;

    adodataset2.Open;
end;

procedure TChengjiGerenForm.ADODataSet2AfterScroll(DataSet: TDataSet);
begin
    adodataset3.Close;
    adodataset3.CommandType:=cmdtext;
    adodataset3.commandtext:='select * from restable where studentno='''+adodataset2.Fields[0].AsString+'''order by time1 asc';
    adodataset3.Open;
    //label3.caption:= adodataset2.Fields[1].AsString;

    adodataset4.Close;
    adodataset4.CommandType:=cmdtext;
    adodataset4.commandtext:='select * from stutable where studentno='''+adodataset2.Fields[0].AsString+'''';
    adodataset4.Open;

end;

procedure TChengjiGerenForm.Button2Click(Sender: TObject);
begin
 close;
end;



{procedure TChengjiGerenForm.Button3Click(Sender: TObject);

var
   i,j:integer;
   tempstring:string;
   stringlist:tstringlist;

begin
  stringlist:=tstringlist.Create;
  tempstring:='|';
  adodataset3.First;
  while not adodataset3.Eof do
  begin
    for i:=0 to adodataset3.RecordCount-1 do
    begin
      for j:=0 to adodataset3.FieldCount-1 do
        begin
          tempstring:= tempstring+ adodataset3.Fields[j].AsString+'|';
        end;
      stringlist.Add(tempstring);
      tempstring:='|';
      adodataset3.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 TChengjiGerenForm.Button4Click(Sender: TObject);
begin
  RvProject1.Execute;
end;

procedure TChengjiGerenForm.Button5Click(Sender: TObject);
begin
//  adodataset3.Active:=true;
  //QExportXLS1.Sheets[0].LoadFromQExportXLS;
  //QExport3XLS1.Execute;
end;



end.