outfrm.pas

支持多用户有不同的权限采用MDI界面由于没有打包

unit outfrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,datamodulefrm;

type
  Toutform = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  outform: Toutform;

implementation

{$R *.DFM}

procedure Toutform.Button1Click(Sender: TObject);
var
   myfile:textfile;
   addr,s1,s2:string;
   add,i,j,x,x2:integer;
begin
with datamodule2 do
begin
if (radiogroup1.itemindex=0) then
begin
outquery.close ;
outquery.sql.Clear;
outquery.sql.Add('select * from house' );
outquery.open;
end
else begin
        outquery.close;
        outquery.sql.Clear;
        outquery.sql.add('select * from house  where 数据性质=:a');
        if radiogroup1.itemindex=1 then outquery.ParamByName('a').asstring:='1'
        else if radiogroup1.itemindex=2 then outquery.ParamByName('a').asstring:='0'
        else if radiogroup1.itemindex=3 then outquery.ParamByName('a').asstring:='2';
        outquery.open;
     end;
if savedialog1.Execute then
begin
addr:=savedialog1.FileName;
assignfile(myfile,addr);
end;
rewrite(myfile);
outquery.First;
j:=outquery.FieldCount;
while not outquery.Eof do
begin
s1:='';
for i:=1 to j-1 do
begin
//add:=outquery.fields[i].Size;
s2:=outquery.Fields[i].AsString;
//x:=length(s2);
//for x2:=1 to (add-x) do
 //s2:=s2+' ';
s1:=s1+s2+',';
end;
    writeln(myfile,s1);
   outquery.Next;

end;



end;
end;
end.