begin
cmdLineEdit.text:='imp '+cmdLineEdit.text+' fromuser='+fromuserEdit.text+' '+'touser='+touserEdit.text+' ';
end else
begin
cmdLineEdit.text:='exp '+cmdLineEdit.text+' owner='+fromuserEdit.text+' ';
end;
cmdLineEdit.text:=cmdLineEdit.text+' file="'+fileEdit.text+'" '+extCmdLineEdit.text;
end;
procedure TForm1.userNameEditChange(Sender: TObject);
begin
chgCmdLine();
fromuserEdit.text:=usernameEdit.text;
touserEdit.text:=usernameEdit.text;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteFile('temp.bat');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.impRadioClick(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.expRadioClick(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.passwordEditChange(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.fromUserEditChange(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.toUserEditChange(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.extCmdLineEditChange(Sender: TObject);
begin
chgCmdLine();
end;
procedure TForm1.fileEditChange(Sender: TObject);
begin
chgCmdLine();
end;
end.
责任编辑：小草
您现在的位置： 