daochu.pas

一个简单的学生费用管理系统

unit daochu;

interface

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

type
  TForm6 = class(TForm)
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Button5: TButton;
    Button7: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Label2: TLabel;
    Label3: TLabel;
    ADOConnection1: TADOConnection;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  data:string;
  CreateAccess:OleVariant;
  
implementation

uses DM;

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);
begin
  adotable1.Active:=true;
end;

procedure TForm6.Button1Click(Sender: TObject);
var
  str,dtable:string;
begin
  dtable:='';
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data+';Persist Security Info=False';
  ADOConnection1.Connected:=true;
  if edit2.Text='' then
    dtable:='fy_b'
  else
    dtable:=edit2.Text;
  str:='SELECT * into '+dtable+' FROM [.\SFGL.mdb].fy_b ';
  try
    begin
      ADOConnection1.Execute(str);
      dtable:=dtable+'导出成功';
      showmessage(dtable);
    end;
  finally
    ADOConnection1.Connected:=false;
  end;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
  try
    if OpenDialog1.Execute  then
      edit3.Text:=OpenDialog1.FileName;
    data:=trim(edit3.Text);
  except
     showmessage('无法打开指定文件!');
   end;
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
  try
    if SaveDialog1.Execute  then
      begin
        edit3.Text:=SaveDialog1.FileName;
        data:=trim(edit3.Text)+'.mdb';
        CreateAccess:=CreateOleObject('ADOX.Catalog');
        CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data);
     end;
  except
     showmessage('无法打开指定文件!');
  end; 
end;


procedure TForm6.Button7Click(Sender: TObject);
begin
  close;
end;

end.